PBLAS/SRC/pscnrm2_.c

178    float          Xtmp, scale, ssq, temp1, temp2;  local
230          ssq   = ONE;
240                ssq   = ONE + ssq * ( temp2 * temp2 );
246                ssq   = ssq +       ( temp2 * temp2 );
256                ssq   = ONE + ssq * ( temp2 * temp2 );
262                ssq   = ssq +       ( temp2 * temp2 );
268          sasqrtb_( &scale, &ssq, NORM2 );
283          ssq   = ONE;
303                      ssq   = ONE + ssq * ( temp2 * temp2 );
309                      ssq   = ssq +       ( temp2 * temp2 );
319                      ssq   = ONE + ssq * ( temp2 * temp2 );
325                      ssq   = ssq +       ( temp2 * temp2 );
341             work[1] = ssq;
406             sasqrtb_( &scale, &ssq, NORM2 );
422          ssq   = ONE;
441                      ssq   = ONE + ssq * ( temp2 * temp2 );
447                      ssq   = ssq +       ( temp2 * temp2 );
457                      ssq   = ONE + ssq * ( temp2 * temp2 );
463                      ssq   = ssq +       ( temp2 * temp2 );
479             work[1] = ssq;
544             sasqrtb_( &scale, &ssq, NORM2 );