mtsavef Subroutine

subroutine mtsavef( fname,forma )
  !NOTE: This subroutine APPENDS to the end of the file "fname".
  character(*),intent(in) :: fname
  character,intent(in)    :: forma
  select case (forma)
  case('u','U')
     open(unit=10,file=trim(fname),status='UNKNOWN',form='UNFORMATTED',position='APPEND')
     write(10) mti
     write(10) mt       
  case default
     open(unit=10,file=trim(fname),status='UNKNOWN',form='FORMATTED',position='APPEND')
     write(10,*) mti
     write(10,*) mt       
  end select
  close(10)    
  return
end subroutine mtsavef