Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | fname | |||
character(len=1), | intent(in) | :: | forma |
subroutine mtgetf(fname,forma) character(*),intent(in) :: fname character,intent(in) :: forma select case (forma) case('u','U') open(unit=10,file=trim(fname),status='OLD',form='UNFORMATTED') read(10) mti read(10) mt case default open(unit=10,file=trim(fname),status='OLD',form='FORMATTED') read(10,*) mti read(10,*) mt end select close(10) return end subroutine mtgetf