Group: comp.lang.fortran · Group Profile · Search for Viewit in comp.lang.fortran
Author: Ancient_Hacker
Date: Dec 28, 2006 11:22
... with raw system binary files is probably more than the language can guarantee. Also getting the file length apriori I fudged on and used a DEC function. Here's my code: subroutine ViewIt( Fn ); USE DFLIB; implicit none; INTEGER, PARAMETER :: OpenedOkay = 00000; INTEGER, PARAMETER :: ReadOkay = 00000; CHARACTER * ( * ), Intent( IN ) :: Fn; INTEGER :: InFileUnit...
| 
