Module an_file

module an_file

        ! Uses
    use dc_types, only: STRING
    use dc_trace, only: BeginSub, EndSub, DbgMessage

        ! Types
    private type FILE_MEMO_ENTRY

        ! Variables
    type (FILE_MEMO_ENTRY), private, save, pointer :: memo_head
    logical, private, save :: memo_used = .FALSE.

        ! Interfaces
    public interface inquire

        ! Subroutines and functions
    private subroutine anfileinquirename (fileid, name)
    public subroutine ANFileSync (fileid, stat)
    public subroutine ANFileOpen (fileid, filename, writable, overwrite, stat, err)
    public subroutine ANFileReopen (fileid, err)
    public subroutine ANFileClose (fileid, err)
    public integer function ANFileDefineMode (fileid)
    public integer function ANFileDataMode (fileid)

end module an_file

Description of Types

private type FILE_MEMO_ENTRY
    integer :: id
    integer :: count
    logical :: writable
    character (len=STRING) :: filename
    type (FILE_MEMO_ENTRY), pointer :: next
end type FILE_MEMO_ENTRY

Description of Variables

type (FILE_MEMO_ENTRY), private, save, pointer :: memo_head

logical, private, save :: memo_used = .FALSE.

Description of Interfaces

public interface inquire
    subroutine ANAttrInquirePlus (var, attrname, varid, nf_attrname)
        type (AN_VARIABLE), intent(in) :: var
        character (len=*), intent(in) :: attrname
        integer, intent(out) :: varid
        character (len=*), intent(out) :: nf_attrname
    end subroutine ANAttrInquirePlus
    module procedure anfileinquirename
end interface inquire

Description of Subroutines and Functions

private subroutine anfileinquirename (fileid, name)
    integer, intent(in) :: fileid
    character (len=*), intent(out) :: name
    ! Calls: BeginSub, EndSub, StoreError
end subroutine anfileinquirename

public subroutine ANFileSync (fileid, stat)
    integer, optional, intent(in) :: fileid
    integer, optional, intent(out) :: stat
end subroutine ANFileSync

public subroutine ANFileOpen (fileid, filename, writable, overwrite, stat, err)
    integer, intent(out) :: fileid
    character (len=*), intent(in) :: filename
    logical, optional, intent(in) :: writable
    logical, optional, intent(in) :: overwrite
    integer, optional, intent(out) :: stat
    logical, optional, intent(out) :: err
    ! Calls: BeginSub, EndSub, MessageNotify, StoreError
end subroutine ANFileOpen

public subroutine ANFileReopen (fileid, err)
    integer, intent(in) :: fileid
    logical, optional, intent(out) :: err
    ! Calls: BeginSub, EndSub, StoreError
end subroutine ANFileReopen

public subroutine ANFileClose (fileid, err)
    integer, intent(in) :: fileid
    logical, optional, intent(out) :: err
    ! Calls: BeginSub, DbgMessage, EndSub, StoreError
end subroutine ANFileClose

public function ANFileDefineMode (fileid) result (result)
    integer, intent(in) :: fileid
    integer :: result
    ! Calls: DbgMessage
end function ANFileDefineMode

public function ANFileDataMode (fileid) result (result)
    integer, intent(in) :: fileid
    integer :: result
    ! Calls: DbgMessage
end function ANFileDataMode