ator Function

public function ator(a)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	a

Return Value real(kind=real_8)

Source Code

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

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