Lines Matching refs:IU2CS
366 INTEGER I, IMIN, IMAX, ITER, IU1CS, IU1SN, IU2CS,
428 IU2CS = IU1SN + Q
429 IU2SN = IU2CS + Q
627 $ RWORK(IU2CS+IMIN-1), R )
630 $ RWORK(IU2CS+IMIN-1), RWORK(IU2SN+IMIN-1) )
633 $ RWORK(IU2CS+IMIN-1), RWORK(IU2SN+IMIN-1) )
635 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
654 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
656 B21D(IMIN+1) = RWORK(IU2CS+IMIN-1)*B21D(IMIN+1) -
661 B21E(IMIN+1) = RWORK(IU2CS+IMIN-1)*B21E(IMIN+1)
663 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
665 B22E(IMIN) = RWORK(IU2CS+IMIN-1)*B22E(IMIN) -
669 B22D(IMIN+1) = RWORK(IU2CS+IMIN-1)*B22D(IMIN+1)
798 CALL DLARTGP( Y2, Y1, RWORK(IU2SN+I-1), RWORK(IU2CS+I-1),
802 $ RWORK(IU2CS+I-1), R )
805 $ RWORK(IU2CS+I-1), R )
807 CALL DLARTGS( B21E(I), B21E(I+1), NU, RWORK(IU2CS+I-1),
810 CALL DLARTGS( B22D(I), B22E(I), MU, RWORK(IU2CS+I-1),
813 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
824 TEMP = RWORK(IU2CS+I-1)*B21E(I) + RWORK(IU2SN+I-1)*B21D(I+1)
825 B21D(I+1) = RWORK(IU2CS+I-1)*B21D(I+1) -
830 B21E(I+1) = RWORK(IU2CS+I-1)*B21E(I+1)
838 TEMP = RWORK(IU2CS+I-1)*B22D(I) + RWORK(IU2SN+I-1)*B22E(I)
839 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
843 B22D(I+1) = RWORK(IU2CS+I-1)*B22D(I+1)
910 $ RWORK(IU2CS+IMIN-1), RWORK(IU2SN+IMIN-1),
914 $ RWORK(IU2CS+IMIN-1), RWORK(IU2SN+IMIN-1),