Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=dp), | intent(in) | :: | variable |
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