Phrase reversals: Difference between revisions
→{{header|Fortran}}
(→{{header|Emacs Lisp}}: Add Fortran) |
|||
Line 614:
22 FORMAT (A36,":",66A1)
END</lang>
With F77 such array spans can't be used, but all that is necessary is to supply a second implied DO-loop in the WRITE statement, for example <lang Fortran> WRITE (6,22) RW//RO,(" ",(ATXT(J), J = LST(I),IST(I),-1), I = 1,N,+1)</lang>
And the output is...
<pre>
| |||