HLIST.FOR

C   ./ i 0
$STORAGE:2
      SUBROUTINE HLIST (NSTRT,NEND,ORDER,LABEL)
      LOGICAL EMPTY
      INTEGER CRTI,CRTO,FILE,FORM,TEMP,FPLOT
      INTEGER ORDER(1)
      CHARACTER*4 TITLE2(3,2),TITLE,NAME
      REAL*8 LABEL(1), LINE(7)
      COMMON ICOM1(170), CRTI,CRTO,FILE,FORM,TEMP,FPLOT,
     A   NAME(7),ISTUDY,IDATE(3),IFLAG(75),NVAR,NTABLE, PARAM(75),
     B   NVARY(15),VALUE(15,2),STEP(15),TITLE(18),NUMVAR,MAXVAR,
     C   NOUT(15),NUMOUT
      COMMON /PHRED/ IPRN
C
      DATA TITLE2 /'Expe','rime','ntal', 'Assu','med ','    '/
C
  107 FORMAT (/' Data - ',3A4)
  117 FORMAT (1X,7A10)
  127 FORMAT ('   None')
  207 FORMAT (/)
  217 FORMAT (1X,A8,' (',I1,') has improper value:',F15.5)
C
C     LIST VARIABLE NAMES OF ASSUMED OR EXPERIMENTAL DATA.  IFLAG = 1
CIS EXP, IFLAG = 2,4 IS ASSUMED
C
      DO 100  J = 1,2
      K2 = 0
      EMPTY = .TRUE.
      WRITE (FORM,107)  (TITLE2(I,J), I=1,3)
      WRITE (IPRN,107)  (TITLE2(I,J), I=1,3)
C
      DO 80  K = NSTRT,NEND
      KO = ORDER (K)
      IF (IABS (IFLAG(KO)) .NE. J .AND.
     A    IABS (IFLAG(KO)) .NE. J*J)  GO TO 80
      K2 = K2 + 1
      EMPTY = .FALSE.
      LINE (K2) = LABEL (KO)
      IF (K2 .LT. 7)  GO TO 80
      K2 = 0
      WRITE (FORM,117)  LINE
      WRITE (IPRN,117)  LINE
   80 CONTINUE
C
      IF (EMPTY)  WRITE (FORM,127)
      IF (EMPTY)  WRITE (IPRN,127)
      IF (K2 .GT. 0)  WRITE (FORM,117)  (LINE(I), I=1,K2)
      IF (K2 .GT. 0)  WRITE (IPRN,117)  (LINE(I), I=1,K2)
  100 CONTINUE
C
C     CHECK FOR VARIABLES WITH VALUES .LT. 0 & LABEL THEM AS INCORRECT
C
      WRITE (CRTO,207)
      WRITE (FORM,207)
      WRITE (IPRN,207)
      DO 50  K = NSTRT,NEND
      KO = ORDER (K)
      IF (IFLAG (K2) .GE. 0)  GO TO 50
      WRITE (CRTO,217)  LABEL(KO), IFLAG(KO), PARAM(KO)
      WRITE (FORM,217)  LABEL(KO), IFLAG(KO), PARAM(KO)
      WRITE (IPRN,217)  LABEL(KO), IFLAG(KO), PARAM(KO)
   50 CONTINUE
      RETURN
      END