atol Function

public function atol(a)

Arguments

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

Return Value logical


Source Code

   FUNCTION atol(a)
      CHARACTER(len=*), INTENT(in)                       :: a
      LOGICAL                                            :: atol

      READ (a, '(L1)') atol
   END FUNCTION atol