w90_get_fortran_file Subroutine

public subroutine w90_get_fortran_file(output, name)

open a (formatted) file and return the corresponding fortran unit number

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: output
character(len=*), intent(in) :: name

Source Code

  subroutine w90_get_fortran_file(output, name)
    !! open a (formatted) file and return the corresponding fortran unit number
    implicit none
    integer, intent(out) :: output
    character(len=*), intent(in) :: name
    open (newunit=output, file=name, form='formatted', status='unknown')
  end subroutine w90_get_fortran_file