Module containing file I/O utilitiesUSES:
use abortutils, only : endrunPUBLIC TYPES:
implicit none save logical, public :: lsmiou(99) !I/O file unit numbers (1 to 99)PUBLIC MEMBER FUNCTIONS:
public :: get_filename !Returns filename given full pathname public :: set_filename !Set remote full path filename public :: opnfil !Open local unformatted or formatted file public :: getfil !Obtain local copy of file public :: putfil !Dispose file to Mass Store public :: relavu !Close and release Fortran unit no longer in use public :: getavu !Get next available Fortran unit numberREVISION HISTORY:
Created by Mariana Vertenstein