mtsaveu Subroutine

subroutine mtsaveu(unum, forma)

Arguments

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

Source Code

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