atoi Function

public function atoi(a)

Arguments

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

Return Value integer

Source Code

   FUNCTION atoi(a)
      CHARACTER(len=*), INTENT(in)                       :: a
      INTEGER                                            :: atoi

      READ (a, '(I9)') atoi
   END FUNCTION atoi