Lines Matching refs:IK
461 INTEGER I, IA, IB, ICA, ICB, IK, IM, IN, K, KS, LAA,
505 DO 90 IK = 1, NIDIM
506 K = IDIM( IK )
1476 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, K, KS,
1517 DO 90 IK = 1, NIDIM
1518 K = IDIM( IK )
1886 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB,
1927 DO 120 IK = 1, NIDIM
1928 K = IDIM( IK )
