Path: utzoo!attcan!uunet!lll-winken!lll-lcc!ames!pasteur!ucbvax!ucsd!rutgers!psuvax1!psuvm.bitnet!kxm
From: KXM@PSUVM.BITNET (Kevin M. Morooney)
Newsgroups: comp.lang.fortran
Subject: Amdahl compiler - DEFINE FILE ?
Message-ID: <66377KXM@PSUVM>
Date: 4 Jan 89 15:03:50 GMT
Organization: Penn State University - Center for Academic Computing
Lines: 17

I recently inherited some code which contains the following statements:

                DEFINE FILE 20(6, 2,E,J1)
                DEFINE FILE  8(9,12,E,J8)
                DEFINE FILE 19(9, 8,E,J4)

Correspondingly, there are these kinds of read/writes:

                WRITE(20'1, 1001)
                READ(19'3, 985)

I can make some guesses as to what is going on but I'd like to be sure.
I'm told the code was running on an Amdahl and I'm trying to get it up
on an IBM.  Any insight someone may have would be greatly appreciated.

Kevin Morooney
kxm@psuvm.psu.edu