[J3] Questions about dusty CDC 3400 deck

[Malcolm Cohen]

> The program changes a DO index. Does anybody remember whether that changes the looping, or is that established when the DO statement is executed?

 

As it is non-standard, anything could happen, and usually did.

 

> It references a 2D array using one subscript (albeit only in a PRINT statement). Does anybody remember which element that would access? Would it be the one in array-element order?

 

If I remember my ancient Fortran II correctly(*), this was allowed and indeed traversed the array in array element order.

 

(*) I read this in 1973 I think, so my recollection might not be too accurate. Fortran II was my first programming language.

 

Cheers,

-- 

..............Malcolm Cohen, NAG Oxford/Tokyo.

 

From: J3 <j3-bounces at mailman.j3-fortran.org> On Behalf Of Van Snyder via J3
Sent: Monday, March 25, 2024 5:30 AM
To: j3 <j3 at j3-fortran.org>
Cc: Van Snyder <van.snyder at sbcglobal.net>
Subject: [J3] Questions about dusty CDC 3400 deck

 

I'm trying to resurrect a CDC 3400 program.

 

It has weird stuff that is easy to repair, such as numeric common block identifiers, the same labels for FORMAT and executable statements, references to vendor-specific intrinsics such as TIMELEFT and SKIPFILE. and weird but obvious IF statements such as IF(EOF,60) 1,2. There is a manual online, but there's stuff it doesn't expalin.

 

The program changes a DO index. Does anybody remember whether that changes the looping, or is that established when the DO statement is executed?

 

It references a 2D array using one subscript (albeit only in a PRINT statement). Does anybody remember which element that would access? Would it be the one in array-element order?

 

Thanks,

Van

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.j3-fortran.org/pipermail/j3/attachments/20240325/5f39a588/attachment.htm>