H A D | pmatgeninc.f | 158 INTEGER IAS(2), ICS(2), IRAND(2) local 161 COMMON /RANCOM/ IRAND, IAS, ICS local 168 IAS(I) = IA(I) 196 INTEGER IAS(2), ICS(2), IRAND(2), J(2) local 202 COMMON /RANCOM/ IRAND, IAS, ICS local 250 INTEGER IAS(2), ICS(2), IRAND(2) local 251 COMMON /RANCOM/ IRAND, IAS, ICS local 258 CALL LMUL( IRAND, IAS, J ) 298 INTEGER IAS(2), ICS(2), IRAND(2) local 299 COMMON /RANCOM/ IRAND, IAS, ICS local [all …]
|