open_file Subroutine

  1. fopen.f90
  2. fopen
  3. open_file

public subroutine open_file(handler)

Open single file

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: handler

Calls

proc~~open_file~3~~CallsGraph proc~open_file~3 open_file proc~close_file~3 close_file proc~open_file~3->proc~close_file~3

Contents

Source Code

open_file

Source Code

    subroutine open_file(handler)
      !< Open single file
      implicit none
      integer, intent(in) :: handler
      select case(handler)
        case(1)
          close_file(handler)
          open(handler,)
        case(2)
      end select
    end subroutine open_file