Searched refs:Iarray1 (Results 1 – 2 of 2) sorted by relevance
1112 Ilist1 = Iarray1(1:nvar)1151 IF (nvar > SIZE(Iarray1)) THEN1164 Iarray1(do_it + 1:nvar) = Iarray1(do_it:nvar - 1)1166 Iarray1(do_it) = Ilist1(do_it)1194 Iarray1(do_it:nvar) = Iarray1(do_it + 1:nvar + 1)1196 Iarray1(nvar + 1) = -HUGE(0)1637 natom = SIZE(Iarray1)1645 CALL match_iterative_path(Iarray1=Iarray1, &1661 wrk => Iarray11668 DO j = 1, SIZE(Iarray1(i)%array1)[all …]