The ENDDO construct was added at the request of CDC in their FORTRAN-5
code extensions. HP also incorporated it in their FORTRAN-5 code. It
was burned in playdoh in Fortran77, as an optional construct parallel
and "more readable" than a do/continue construct.
The index labels in 73-80 were available when using the Model 029 drums
if you had the drum programming card appropriately set up, or for those
who're really old, you virtually always got them when you created a deck
using IEBPRINTPUNCH. Indices were not mandatory, nor necessarily used
extensively for decks of only a couple of hundred cards, but some of us
learned the hard way that it was easier to use 'em than to try to
reconstruct the whole program after that box of cards was thrown akilter
when the campus bus hit you, your bicycle, and the card box strapped on
the rack on the bike... And, yes, I spent a night reordering such a box,
in the student health center as an inpatient.
And I thought I'd slept through those meetings!
gerry
Robert G. Brown wrote:
On Thu, 23 Feb 2006, Toon Moene wrote:
I wrote:
SUBROUTINE SUB(A, N)
DIMENSION A(N)
DO I = 1, N
A(I) = I
ENDDOhttp://mesonet.tamu.edu/TexAQS/slideshow.php
END
Grrrrr .... Little Endian Machines - you got to love to hate them.
This should of course be:http://mesonet.tamu.edu/TexAQS/slideshow.php
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
--
Gerry Creager -- [EMAIL PROTECTED]
Texas Mesonet -- AATLT, Texas A&M University
Cell: 979.229.5301 Office: 979.458.4020 FAX: 979.862.3983
Office: 1700 Research Parkway Ste 160, TAMU, College Station, TX 77843
_______________________________________________
Beowulf mailing list, Beowulf@beowulf.org
To change your subscription (digest mode or unsubscribe) visit
http://www.beowulf.org/mailman/listinfo/beowulf
