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 *