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