V3FIT
LIBSTELL
Sources
Miscel
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
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17