Need help ; FORTRAN IV

Thread View: net.lang.f77

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Deep [ankar] Medhi Fri, 18 Jul 1986 21:07

#398

Author: Deep [ankar] Medhi
Date: Fri, 18 Jul 1986 21:07

30 lines
1138 bytes

I am trying to run a code written for IBM FORTRAN IV on 
vax 780 running unix. There are a few things I don't understand.
For example, there is a line

   DEFINE FILE (80,1823,U,KD)

the variable U is not mentioned anywhere else. KD is an
integer*4 variable. 
Then , there are READ and WRITE statments, which appear as follows:

    READ(9'KD)NTEMP(1),NTEMP(2),ICNAM

    WRITE(9'KD)NTEMP(1),NTEMP(2),ICNAM

. Then other ones are 
   
    READ(8)(Z(I),I=1,N) 
    WRITE(8)(Z(I),I=1,N) 

   Is there anyone out there when can tell me how to fix this
for vax/unix ?

   Thanks in advance.


   Deepankar Medhi

   arpa : medhi@rsch.wisc.edu

   UUCP : ...!siesmo!uwvax!medhi

Re: Need help ; FORTRAN IV

#401

Author: Kurt Krueger
Date: Mon, 21 Jul 1986 19:16

37 lines
1915 bytes

In article <1052@rsch.wisc.edu> medhi@rsch.wisc.edu (Deep [ankar] Medhi) writes:
>I am trying to run a code written for IBM FORTRAN IV on 
>vax 780 running unix. There are a few things I don't understand.
>For example, there is a line
>
>   DEFINE FILE (80,1823,U,KD)
>
>the variable U is not mentioned anywhere else. KD is an
>integer*4 variable. 
 
	Standard way:

	OPEN(UNIT=80,FILE='name',RECL=1823,FORM='UNFORMATTED',ACCESS='DIRECT')

	The KD is the 'associated' variable which keeps track of the position
of the file (i.e. last random record read/wrote+1)  It isn't used in this 
manner in standard f77.  U means undefined record type, again, this has no
counterpart in f77 (and shouldn't matter).

>Then , there are READ and WRITE statments, which appear as follows:
>
>    READ(9'KD)NTEMP(1),NTEMP(2),ICNAM

 	Standard way:

	READ(9,REC=KD)NTEMP(1),NTEMP(2),ICNAM

	Warning:  The code may depend on the fact that the IBM implementation
will automatically increment KD each time a record is read/written.

	Enjoy.  I haven't had to deal with these things in a long time.  Hope
I didn't botch any details.  DEC used some of these concepts in the RT-11
Fortran IV.  If you can't find an IBM manual, try for an old DEC PDP-11 manual.
>   
>    WRITE(8)(Z(I),I=1,N) 

 	This is a standard unformatted read/write.  It is still a part of f77.

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads