Lines Matching refs:IU2CS
366 INTEGER I, IMIN, IMAX, ITER, IU1CS, IU1SN, IU2CS,
429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
631 $ WORK(IU2CS+IMIN-1), WORK(IU2SN+IMIN-1) )
634 $ WORK(IU2CS+IMIN-1), WORK(IU2SN+IMIN-1) )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
657 B21D(IMIN+1) = WORK(IU2CS+IMIN-1)*B21D(IMIN+1) -
662 B21E(IMIN+1) = WORK(IU2CS+IMIN-1)*B21E(IMIN+1)
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
666 B22E(IMIN) = WORK(IU2CS+IMIN-1)*B22E(IMIN) -
670 B22D(IMIN+1) = WORK(IU2CS+IMIN-1)*B22D(IMIN+1)
799 CALL SLARTGP( Y2, Y1, WORK(IU2SN+I-1), WORK(IU2CS+I-1),
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
808 CALL SLARTGS( B21E(I), B21E(I+1), NU, WORK(IU2CS+I-1),
811 CALL SLARTGS( B22D(I), B22E(I), MU, WORK(IU2CS+I-1),
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
825 TEMP = WORK(IU2CS+I-1)*B21E(I) + WORK(IU2SN+I-1)*B21D(I+1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
831 B21E(I+1) = WORK(IU2CS+I-1)*B21E(I+1)
838 TEMP = WORK(IU2CS+I-1)*B22D(I) + WORK(IU2SN+I-1)*B22E(I)
839 B22E(I) = WORK(IU2CS+I-1)*B22E(I) - WORK(IU2SN+I-1)*B22D(I)
842 B22D(I+1) = WORK(IU2CS+I-1)*B22D(I+1)
905 $ WORK(IU2CS+IMIN-1), WORK(IU2SN+IMIN-1),
909 $ WORK(IU2CS+IMIN-1), WORK(IU2SN+IMIN-1),