1      SUBROUTINE DMPARY(ARRAY, NPT, NAME, NLET)
2C
3C***  DUMP SPECIFIED ARRAY IN READABLE FORMAT
4C
5      DIMENSION ARRAY(NPT), IFOR(8), AFOR(4), BFOR(4)
6      CHARACTER*4 IFOR, AFOR, BFOR
7      DATA IFOR / '    ', '    ', ',1H(', ',I3,', '2H)=', '1P  ',
8     1            ',E12', '.5))' /
9      DATA AFOR / '(5(5', '(5(4', '(5(3', '(5(2'/
10      DATA BFOR / 'X,A1', 'X,A2', 'X,A3', 'X,A4'/
11C
12C     SET FORMAT FOR THE NUMBER OF LETTERS IN NAME
13C     AND WRITE OUT ARRAY
14C
15      IFOR(1) = AFOR(NLET)
16      IFOR(2) = BFOR(NLET)
17      WRITE(6,1000)
18 1000 FORMAT(1H )
19      WRITE(6,IFOR) (NAME, I, ARRAY(I), I=1,NPT)
20      RETURN
21      END
22