open_state_file Subroutine

public subroutine open_state_file(filename, state)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
type(write_state_t), intent(inout) :: state

Source Code

    subroutine open_state_file(filename,state)
      implicit none
      character(*), intent(in) :: filename
      type(write_state_t), intent(inout) :: state
      ! mini-subroutine for opening a file and assigning it to a state
      state%funit = get_free_unit()
      call open_create_stats(filename,state%funit)

    end subroutine open_state_file