Phrase reversals: Difference between revisions
Content added Content deleted
(→{{header|Emacs Lisp}}: Add Fortran) |
|||
Line 614: | Line 614: | ||
22 FORMAT (A36,":",66A1) |
22 FORMAT (A36,":",66A1) |
||
END</lang> |
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... |
And the output is... |
||
<pre> |
<pre> |