How to get a file length in ifort 8.1?

ncwerons · ‎01-20-2005

I need to check length of a file after opening it in my code written in F77. Can I do it using just one procedure like NFSIZE() in MS FORTRAN or FILESIZE() in WATCOM FORTRAN? I learned I could use the procedure GETFILEINFOQQ() but it seems to me a little complicated. Is there any simpler way?

Pawel

user1 · ‎02-17-2005


	CHARACTER  FILE_NAME*128
	INTEGER*4, EXTERNAL :: STAT
	INTEGER*4  STATB(12), IS, FILE_LEN
! ...
	IS = STAT ( FILE_NAME, STATB ) 
	IF ( IS .NE. 0 ) THEN
!            Error message ...
        END IF
	FILE_LEN = STATB(8)
! ...

Enjoj!

Leonid
P.S. You may need -Vaxlib option for linking