Lines Matching refs:IU2SN
367 $ IU2SN, IV1TCS, IV1TSN, IV2TCS, IV2TSN, J,
429 IU2SN = IU2CS + Q
430 IV1TCS = IU2SN + Q
626 CALL DLARTGP( B21BULGE, B21D(IMIN), RWORK(IU2SN+IMIN-1),
630 $ RWORK(IU2CS+IMIN-1), RWORK(IU2SN+IMIN-1) )
633 $ RWORK(IU2CS+IMIN-1), RWORK(IU2SN+IMIN-1) )
636 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
655 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
657 $ RWORK(IU2SN+IMIN-1)*B21E(IMIN)
660 B21BULGE = RWORK(IU2SN+IMIN-1)*B21E(IMIN+1)
664 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
666 $ RWORK(IU2SN+IMIN-1)*B22D(IMIN)
668 B22BULGE = RWORK(IU2SN+IMIN-1)*B22D(IMIN+1)
798 CALL DLARTGP( Y2, Y1, RWORK(IU2SN+I-1), RWORK(IU2CS+I-1),
801 CALL DLARTGP( B21BULGE, B21D(I), RWORK(IU2SN+I-1),
804 CALL DLARTGP( B22BULGE, B22E(I-1), RWORK(IU2SN+I-1),
808 $ RWORK(IU2SN+I-1) )
811 $ RWORK(IU2SN+I-1) )
814 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
824 TEMP = RWORK(IU2CS+I-1)*B21E(I) + RWORK(IU2SN+I-1)*B21D(I+1)
826 $ RWORK(IU2SN+I-1)*B21E(I)
829 B21BULGE = RWORK(IU2SN+I-1)*B21E(I+1)
838 TEMP = RWORK(IU2CS+I-1)*B22D(I) + RWORK(IU2SN+I-1)*B22E(I)
840 $ RWORK(IU2SN+I-1)*B22D(I)
842 B22BULGE = RWORK(IU2SN+I-1)*B22D(I+1)
910 $ RWORK(IU2CS+IMIN-1), RWORK(IU2SN+IMIN-1),
914 $ RWORK(IU2CS+IMIN-1), RWORK(IU2SN+IMIN-1),