FITPACK_SUCCESS Function

public elemental function FITPACK_SUCCESS(ierr)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ierr

Return Value logical

Source Code

      elemental logical function FITPACK_SUCCESS(ierr)
         integer, intent(in) :: ierr
         FITPACK_SUCCESS = ierr<=FITPACK_OK
      end function FITPACK_SUCCESS