 | |  |  |  |  |
| | | | | |
filedb — Check existence of database
subroutine filedb(name,exist) integer*4 handle integer*4 exist
filedb checks if a file exist in the
current directory. It then tries to establish the file type. The
return flag iex is set according to the file type
(see below). filedb replaces routine
exisdb, which only checks if a file
exists.
nameFile name of the file to be checked (input).
existExist status flag (output). A value of 0 indicates that the file exists and that it is a MemCom database. A value of 1 indicates that the file exists and that it is not a MemCom database. A value of -1 indicates that the file does not exist.