ator Function

public function ator(a)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: a

Return Value real(kind=real_8)


Contents

Source Code


Source Code

   FUNCTION ator(a)
      CHARACTER(len=*), INTENT(in)                       :: a
      REAL(real_8)                                       :: ator

      READ (a, '(E26.15)') ator
   END FUNCTION ator