RE: A problem of character (Fortran)

Make the "A3" in the format "A4". Characters are pringter Most sig byte
first
 
Dave Wade G4UGM
Illegitimi Non Carborundum

 

-----Original Message-----
From: [email protected] [mailto:[email protected]] On
Behalf Of Ron Hudson
Sent: 03 June 2010 23:14
To: [email protected]
Subject: [turnkey-mvs] A problem of character (Fortran)




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 = '+'


     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.

Yes, it's going to be a StarTrek game.

: ^ )

Ron.