a Fortran problem

[g***@public.gmane.org]

Calling all Fortran Wizards...
I am trying to print out the sect(8,8) integer array as characters
The array is mostly zeros for that I want to print '.'(ebcidic 75)
The other values...
92 = '*'
96 = '-'
123 = '#'
78 = '+'

Easiest is to generate the appropriate constants in DATA statements:

INTEGER DOT,STAR,DASH,POUND,PLUS
DATA DOT,STAR,DASH,POUND,PLUS/'.','*','-','#','+'/

Otherwise, the reason it doesn't work is that they have to
be left justified.

INTEGER SRS(8)
DO 1 I=1,8
DO 2 J=1,8
SRS(J) = 75
IF (SECT(I,J) .EQ. 1) SRS(J) = 92
IF (SECT(I,J) .EQ. 2) SRS(J) = 96
IF (SECT(I,J) .EQ. 3) SRS(J) = 123
IF (SECT(I,J) .EQ. 4) SRS(J) = 78
2 CONTINUE
WRITE(6,900) (SRS(J), J=1,8)
900 FORMAT(' ',8A3)
1 CONTINUE
I am getting a blank area instead of the characters I expect.

I would expect a NUL if you do it that way. Also, if you do
left justify your values, you would then want to add two blanks
such that A3 works out. Otherwise, use (' ',8(A1,2X))

SRS(J)=16777216*78+65536*40+256*40+40

-- glen