V3FIT
getfilesize.f
1  SUBROUTINE getfilesize (infile, filesize)
2  IMPLICIT NONE
3  CHARACTER(LEN=*), INTENT(in) :: infile
4  INTEGER, INTENT(out) :: filesize
5 ! ECH 2017-06-08 STAT is an intrinsic procedure that takes an integer array
6 ! of dimension 13, not 12
7 ! INTEGER :: istat, info(12)
8  INTEGER :: istat, info(13)
9  LOGICAL :: lexist, lopen, lvalid
10 ! JDH 2010-07-20 Commented out below - not needed. Replaced with declaration
11 ! without EXTERNAL.
12 ! INTEGER, EXTERNAL :: stat
13  INTEGER :: stat
14 
15  istat = stat(infile, info)
16  IF (istat == 0) THEN
17  filesize = info(8)
18  ELSE
19  filesize = -1
20  END IF
21 
22  END SUBROUTINE getfilesize