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