Subject: | |
From: | |
Reply To: | |
Date: | Wed, 14 Nov 2001 10:19:54 -0800 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
First, let me say that the Fortran 66 to 77 migration manual is your friend, but the conversion utility may or may not be better than a manual conversion. If you use the utility, manually compare every piece of code that gets changed, since the utility doesn't always convert to identical functionality..
ON FORMAT ERROR - I don't remember ever seeing this used in 66 code, but you will have to do a little bit of coding. See the fortran manual for these two options:
testing the .CC. result code
optional parms for the READ and WRITE statements can specify what to do on a read or write error, whether it be go to a given statement label or return a value to a variable. Under 77 I don't believe you have separate ways of detecting a format error vs. some other read/write error.
More Q's let me know - I have done a fair amount of '66 to '77. Don't forget to look at the CM to NM issues as well.
-Dave Darnell
[log in to unmask] on 11/13/2001 04:39:00 PM
To: [log in to unmask]@Internet
cc: (bcc: David T Darnell/CO/KAIPERM)
Subject: [HP3000-L] FORTRAN 66/77 Conversion Question
Gang;
I'm starting to convert to FTN77/XL. The program I'm currently on has a
statement:
ON FORMAT ERROR CALL BLKCNTERROR
I take it there isn't an FTN77/XL equivalent (since I get a compile error).
What have you used to compensate?
Please reply to me as well as the list because I don't receive all threads.
Thanks,
Don Harrington
Sr. Systems Analyst
Facilities Applications Support
Shared Services Group
The Boeing Company
P.O. Box 3707 M/C 6C-AK
Seattle, WA 98124-2207
(v) 425-234-1145 (f) 425-234-0464 (p) 206-797-6360
The opinions expressed in this e-mail reflect those of the sender. They do
not necessarily reflect the opinions of The Boeing Company unless
specifically stated otherwise.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|