Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | unum | |||
character(len=1), | intent(in) | :: | forma |
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