On Thu, 23 Feb 2006, Toon Moene wrote:
I wrote:
SUBROUTINE SUB(A, N)
DIMENSION A(N)
DO I = 1, N
A(I) = I
ENDDO
END
Grrrrr .... Little Endian Machines - you got to love to hate them. This
should of course be:
SUBROUTINE SUB(A, N)
INTEGER*8 I, N
DIMENSION A(N)
DO I = 1, N
A(I) = I
ENDDO
END
To maximize the "runes" effect I've written this in all uppercase :-)
Properly indented and everything. I wouldn't even recognize it as
Fortran otherwise.
Now all I have to do is find a Rosetta stone somewhere, and a magnifying
glass (as I'm getting old and presbyopic:-)... what is this ENDDO
command? Where are the numbers, as in:
DO 10 I = 1, N
DO_SOME_WORK(I)
10 CONTINUE
??? And where are the line labels in columns 73-80? These ARE punch
card images, aren't they...:-)
rgb
--
Robert G. Brown http://www.phy.duke.edu/~rgb/
Duke University Dept. of Physics, Box 90305
Durham, N.C. 27708-0305
Phone: 1-919-660-2567 Fax: 919-660-2525 email:[EMAIL PROTECTED]
_______________________________________________
Beowulf mailing list, Beowulf@beowulf.org
To change your subscription (digest mode or unsubscribe) visit
http://www.beowulf.org/mailman/listinfo/beowulf
