|
|
1.1 ! root 1: The pfort tape was read in using dd with a conversion from ebcdic ! 2: to ascii. The last eight characters on each line were removed. ! 3: Then all trailing blanks were removed. (These operations ! 4: were performed with the stream editor.) ! 5: Although it was not necessary to do so, pfort was then split ! 6: using fsplit into its subroutines and functions. ! 7: The subroutines s5pack and s5unpk were then written ! 8: following A.D.Hall's specifications. Note that he expects ! 9: the array variables to be integers. We found it expedient, ! 10: however, to use character arrays internally to the subroutines. ! 11: This worked because fortran passes locations on a subroutine ! 12: call. These subroutines, located in files pack.f and unpack.f ! 13: were tested using tstpak.f. ! 14: An f77 run command was placed in the file run. The command ! 15: run > out 2>tt2out ! 16: was then given. The file tt2 was constructed from tt2out by deleting all ! 17: lines containing the word warning. It was then seen that all files ! 18: were successfully compiled. However, the binary output file ! 19: PFORT was not executable. An examination of the file out ! 20: gave the message: ! 21: L15 undefined ! 22: A grep of L15 on all .f files drew a blank. Is L15 ! 23: some internal variable that would have been defined if I used ! 24: an appropriate library? ! 25: ! 26: mel lax ! 27: P.S. This file is /usr/lsrc/pfort/readme, and all files ! 28: referred to reside in /usr/lsrc/pfort ! 29: P.P.S. mktst is a makefile for tstpak packc and unpakc.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.