CHECK_FILE.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	check_file (filename, err_out)
	Checks if a file is present or not.

Function/Subroutine Documentation

check_file()

subroutine check_file	(	character*70	filename,
		integer*4	err_out
	)

Checks if a file is present or not.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	filename	name of the file
[out]	err_out	0 if filename exists, 101 if filename does not exist

Definition at line 26 of file CHECK_FILE.f90.

      
      character*70 :: filename
 
      logical*4 :: f_ex
 
      integer*4 :: err_out     
      integer*4 :: i,file_a,file_b
      
      do i=1,70
        if (filename(i:i).ne.' ') exit
      enddo
      
      file_a=i
      do i=70,1,-1
        if (filename(i:i).ne.' ') exit
      enddo
      file_b=i
      
      f_ex=.false. 
      err_out=0
      inquire (file=filename,exist=f_ex)
      if (f_ex) then
        continue
      else
        err_out = 101
 
      endif
      
      return