Lines Matching defs:ZGET35
83 SUBROUTINE ZGET35( RMAX, LMAX, NINFO, KNT, NIN ) subroutine
90 INTEGER KNT, LMAX, NIN, NINFO
91 DOUBLE PRECISION RMAX
97 INTEGER LDT
99 DOUBLE PRECISION ZERO, ONE, TWO
101 DOUBLE PRECISION LARGE
103 COMPLEX*16 CONE
107 CHARACTER TRANA, TRANB
108 INTEGER I, IMLA, IMLAD, IMLB, IMLC, INFO, ISGN, ITRANA,
109 $ ITRANB, J, M, N
110 DOUBLE PRECISION BIGNUM, EPS, RES, RES1, SCALE, SMLNUM, TNRM,
111 $ XNRM
112 COMPLEX*16 RMUL
115 DOUBLE PRECISION DUM( 1 ), VM1( 3 ), VM2( 3 )
116 COMPLEX*16 A( LDT, LDT ), ATMP( LDT, LDT ), B( LDT, LDT ),
117 $ BTMP( LDT, LDT ), C( LDT, LDT ),
118 $ CSAV( LDT, LDT ), CTMP( LDT, LDT )
121 DOUBLE PRECISION DLAMCH, ZLANGE
155 10 CONTINUE
161 20 CONTINUE
164 30 CONTINUE
167 40 CONTINUE
188 50 CONTINUE
191 60 CONTINUE
196 70 CONTINUE
197 80 CONTINUE
204 90 CONTINUE
205 100 CONTINUE
242 * End of ZGET35 argument