variable_error Function

public pure function variable_error(variable)

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: variable

Return Value logical


Contents

Source Code


Source Code

  pure function variable_error(variable)
      real(dp), intent(in) ::variable
      logical::variable_error

      if((variable/=variable).or.(variable<-9.99D99).or.(variable>9.99D99))then
          variable_error = .TRUE.
      else
          variable_error = .FALSE.
      end if

  end function variable_error