mtgetu Subroutine

subroutine mtgetu(unum, forma)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: unum
character(len=1), intent(in) :: forma

Source Code

subroutine mtgetu(unum,forma)
  integer,intent(in)    :: unum
  character,intent(in)  :: forma
  select case (forma)
  case('u','U')
     read(unum) mti
     read(unum) mt
  case default
     read(unum,*) mti
     read(unum,*) mt
  end select
  return
end subroutine mtgetu