Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | a |
FUNCTION ator(a)
CHARACTER(len=*), INTENT(in) :: a
REAL(real_8) :: ator
READ (a, '(E26.15)') ator
END FUNCTION ator