ALLRESULT.f90#56
     &             NHIDAT(NUMREC,NHIVAL,NUMGRP,NUMAVE,NUMTYP),          &
CHK_ENDYR.f90#92
                           NHIDAT(J,I,K,L,M) = 0
MAIN1.f90#811
     &                         NHIDAT(:,:,:,:,:)
NHIGH.f90#55
                        NHIDAT(IREC,J+1,IGRP,IAVE,ITYP) = KURDAT        !   3052
#63
                        NHIDAT(IREC,J+1,IGRP,IAVE,ITYP)                 &
#64
     &                     = NHIDAT(IREC,J,IGRP,IAVE,ITYP)
#75
                           NHIDAT(IREC,1,IGRP,IAVE,ITYP) = KURDAT       !   3820
#91
                  NHIDAT(IREC,1,IGRP,IAVE,ITYP) = KURDAT                !      0
PLOTFL.f90#89
     &                         NHIDAT(IREC,IVAL,IGRP,IAVE,1)
#97
     &                         NHIDAT(IREC,IVAL,IGRP,IAVE,1)
PRTNHI.f90#76
     &                  = NHIDAT(IREC,IWHP(K),IGRP,IAVE,ITYP)
RESINI.f90#51
                     NHIDAT(J,I,K,L,M) = 0
RSDUMP.f90#62
            WRITE (IDPUNT) (((((NHIDAT(I,J,K,L,M),I=1,NUMREC),J=1,NHIVAL&
#122
            WRITE (IDPUN2) (((((NHIDAT(I,J,K,L,M),I=1,NUMREC),J=1,NHIVAL&
RSINIT.f90#46
         READ (IRSUNT,ERR=99,END=999) (((((NHIDAT(I,J,K,L,M),I=1,NUMREC)&
SPRTHT.f90#116
     &                            ,NHIDAT(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)&
#122
     &                            ,NHIDAT(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)&
#139
     &                            ,NHIDAT(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)&
#145
     &                            ,NHIDAT(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)&
#182
     &                      NHIDAT(IREC,IHNUM,IGRP,IAVE,ITYP)
#187
     &                      NHIDAT(IREC,IHNUM,IGRP,IAVE,ITYP)
#232
     &                      NHIDAT(IREC,IHNUM,IGRP,IAVE,ITYP)
#238
     &                      NHIDAT(IREC,IHNUM,IGRP,IAVE,ITYP)
#274
     &                                NHIDAT(IREC+J-1,IHNUM,IGRP,IAVE,  &

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