Re: A problem of character (Fortran)

On Thu, Jun 3, 2010 at 3:43 PM, Dave Wade <g4ugm-/rAkYNWUBEC+PENguQupYdBc4/[email protected]>wrote:

>
>
> Make the "A3" in the format "A4". Characters are pringter Most sig byte
> first
>

Thanks, This worked.

Should I have declared SRS() to be integer*1 or something?


>
> 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.
>
>   
>