Evaluate expression expr for val numerics.
Methods
eval(character(*) expr, complex(c8) val, integer ierr)
- Parameters
-
| [in] | expr | input string expression |
| [out] | val | return value as complex(c8) |
| [out] | ierr | (optional) integer error code |
eval(character(*) expr, complex(c4) val, integer ierr)
- Parameters
-
| [in] | expr | input string expression |
| [out] | val | return value as complex(c4) |
| [out] | ierr | (optional) integer error code |
eval(character(*) expr, real(r8) val, integer ierr)
- Parameters
-
| [in] | expr | input string expression |
| [out] | val | return value as real(r8) |
| [out] | ierr | (optional) integer error code |
eval(character(*) expr, real(r4) val, integer ierr)
- Parameters
-
| [in] | expr | input string expression |
| [out] | val | return value as real(r4) |
| [out] | ierr | (optional) integer error code |
eval(character(*) expr, integer(i8) val, integer ierr)
- Parameters
-
| [in] | expr | input string expression |
| [out] | val | return value as integer(i8) |
| [out] | ierr | (optional) integer error code |
eval(character(*) expr, integer(i4) val, integer ierr)
- Parameters
-
| [in] | expr | input string expression |
| [out] | val | return value as integer(i4) |
| [out] | ierr | (optional) integer error code |
Examples
The following demonstrate a call to the eval interface.
real(r8) :: y
integer :: ierr
call defparam('a', 0.900_r8)
call defparam('b', 0.100_r8)
call defparam('c', 0.110_r8)
call eval('cos((a+b)^2+1.6*log(c))', x, ierr)
print*, y
Remarks
Definition at line 76 of file Evaluate.f90.
