Esope source files

   1 : C ITLACT    SOURCE    PV        10/06/15    21:15:14     6692           
   2 :       SUBROUTINE ITLACT(ICPR,ITLAC,IFAIT,ILISSE)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       SEGMENT ICPR(N)
   5 :       SEGMENT ITLAC(M)
   6 :       MOLD = ITLAC(/1)
   7 :       M = IFAIT
   8 :       SEGADJ ITLAC
   9 :       DO 1 IA=1,ICPR(/1)
  10 :       IB=ICPR(IA)
  11 :       IF(IB.LE.MOLD) GO TO 1
  12 :        ITLAC(IB) = IA
  13 :    1  CONTINUE
  14 :       RETURN
  15 :       END
  16 :  
  17 :  
  18 :  
  19 :  
  20 :