ALLRESULT.f90#80 ALLOCATE (HCLMSG(NUMREC,NHIVAL,NUMGRP,NUMAVE,NUMTYP), & CHK_ENDYR.f90#93 HCLMSG(J,I,K,L,M) = ' ' HSETFG.f90#38 HCLMSG(IREC,J+1,IGRP,IAVE,ITYP) = 'c' ! 736 #40 HCLMSG(IREC,J+1,IGRP,IAVE,ITYP) = 'm' ! 578 #42 HCLMSG(IREC,J+1,IGRP,IAVE,ITYP) = 'b' ! 530 #47 HCLMSG(IREC,1,IGRP,IAVE,ITYP) = 'c' ! 998 #49 HCLMSG(IREC,1,IGRP,IAVE,ITYP) = 'm' ! 562 #51 HCLMSG(IREC,1,IGRP,IAVE,ITYP) = 'b' ! 908 MAIN1.f90#803 CHARACTER HCLMSG , MCLMSG , HMCLM #825 ALLOCATABLE ::HCLMSG(:,:,:,:,:) , MCLMSG(:,:,:,:) , HMCLM(:,:,:,:) NHIGH.f90#50 HCLMSG(IREC,J+1,IGRP,IAVE,ITYP) = ' ' ! 1208 #61 HCLMSG(IREC,J+1,IGRP,IAVE,ITYP) & #62 & = HCLMSG(IREC,J,IGRP,IAVE,ITYP) #70 HCLMSG(IREC,1,IGRP,IAVE,ITYP) = ' ' ! 1352 #86 HCLMSG(IREC,1,IGRP,IAVE,ITYP) = ' ' ! 0 PRTNHI.f90#78 & = HCLMSG(IREC,IWHP(K),IGRP,IAVE,ITYP) RESINI.f90#52 HCLMSG(J,I,K,L,M) = ' ' RSDUMP.f90#64 WRITE (IDPUNT) (((((HCLMSG(I,J,K,L,M),I=1,NUMREC),J=1,NHIVAL& #124 WRITE (IDPUN2) (((((HCLMSG(I,J,K,L,M),I=1,NUMREC),J=1,NHIVAL& RSINIT.f90#49 READ (IRSUNT,ERR=99,END=999) (((((HCLMSG(I,J,K,L,M),I=1,NUMREC)& SPRTHT.f90#115 & ,HCLMSG(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #121 & ,HCLMSG(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #138 & ,HCLMSG(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #144 & ,HCLMSG(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #181 & HCLMSG(IREC,IHNUM,IGRP,IAVE,ITYP) , & #186 & HCLMSG(IREC,IHNUM,IGRP,IAVE,ITYP) , & #231 & HCLMSG(IREC,IHNUM,IGRP,IAVE,ITYP) , & #237 & HCLMSG(IREC,IHNUM,IGRP,IAVE,ITYP) , & #272 & HCLMSG(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