mtgetf Subroutine

subroutine mtgetf(fname, forma)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fname
character(len=1), intent(in) :: forma

Source Code

subroutine mtgetf(fname,forma)
  character(*),intent(in) :: fname
  character,intent(in)    :: forma
  select case (forma)
  case('u','U')
     open(unit=10,file=trim(fname),status='OLD',form='UNFORMATTED')
     read(10) mti
     read(10) mt
  case default
     open(unit=10,file=trim(fname),status='OLD',form='FORMATTED')
     read(10,*) mti
     read(10,*) mt
  end select
  close(10)
  return
end subroutine mtgetf