
/* modelXY -data sum.ft1 -aData append.dat -macro vvBasis.M -p 1.5 ... -gc 1 */

float d[xyCount];
float ap[pCount];

(void) vsSet( yList, xyCount, 0.0 );
(void) vvCopy( ap, pList, pCount );
(void) vAbs( ap, pCount );
(void) vvBasis( aData, ap, yList, xyCount, pCount );

if (reportFlag)
   {
    s = vMax( ap, pCount );
    if (s == 0.0) {s = 1.0;};

    s = 100.0/s;
    s = 1.0;

    for( i = 0; i < pCount; i++ )
       {
        if (i) {(void)printf( " " );};
        (void) printf( "%.4e", s*ap[i] );
       }

    (void) printf( "\n" );
   };
