GENCAR.f90#76 ICOUNT = NINT(TEMPP(2)) #83 IF ( ICOUNT.LE.IXM ) THEN #84 DO I = 1 , ICOUNT ! 0 MAIN1.f90#440 INTEGER :: ICOUNT , JCOUNT , IZE , IZH , IZF , IRZE , IRZH , & POLDST.f90#43 ISET = ICOUNT ! 3 #69 ICOUNT = ISET ! 3 PRECART.f90#60 ICOUNT = 0 #70 IF ( .NOT.RECERR ) NREC = NREC + ICOUNT*JCOUNT PREGENCAR.f90#72 ICOUNT = NINT(TEMPP(2)) #79 IF ( ICOUNT.GT.IXM ) IXM = ICOUNT PREPOLDST.f90#42 ISET = ICOUNT ! 3 #52 ICOUNT = ISET ! 3 PREPOLR.f90#60 ICOUNT = 0 #72 IF ( .NOT.RECERR ) NREC = NREC + ICOUNT*JCOUNT PREXYPNTS.f90#43 ISET = ICOUNT ! 0 #51 ICOUNT = ISET ! 0 RECART.f90#80 ICOUNT = 0 #160 IF ( ICOUNT*JCOUNT.NE.IZE ) & #163 IF ( ICOUNT*JCOUNT.NE.IZH ) & #168 IF ( ICOUNT*JCOUNT.NE.IZF ) & REPOLR.f90#78 ICOUNT = 0 #176 IF ( ICOUNT*JCOUNT.NE.IZE ) & #179 IF ( ICOUNT*JCOUNT.NE.IZH ) & #184 IF ( ICOUNT*JCOUNT.NE.IZF ) & SETCAR.f90#32 IF ( ICOUNT.NE.0 .AND. JCOUNT.NE.0 ) THEN #38 DO I = 1 , ICOUNT ! 0 #47 IF ( ICOUNT.GT.IXM ) THEN ! 0 #66 NUMXPT(INNET) = ICOUNT #74 NXTOX = ICOUNT SETPOL.f90#33 IF ( ICOUNT.NE.0 .AND. JCOUNT.NE.0 ) THEN #39 DO I = 1 , ICOUNT ! 108 #48 IF ( ICOUNT.GT.IXM ) THEN ! 432 #70 NUMXPT(INNET) = ICOUNT #78 NXTOX = ICOUNT XYPNTS.f90#47 ISET = ICOUNT ! 0 #70 ICOUNT = ISET ! 0
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use