Go to the source code of this file.
|
subroutine | find_variable (FFORMAT, FID, VAR_NAME, RES, N, IERR, TIME, EPS_TIME, RECORD, TIME_RECORD, OFFSET) |
|
◆ find_variable()
subroutine find_variable |
( |
character(len=8), intent(in) |
FFORMAT, |
|
|
integer, intent(in) |
FID, |
|
|
character(len=16), intent(in) |
VAR_NAME, |
|
|
double precision, dimension(n), intent(inout) |
RES, |
|
|
integer, intent(in) |
N, |
|
|
integer, intent(inout) |
IERR, |
|
|
double precision, intent(in), optional |
TIME, |
|
|
double precision, intent(in), optional |
EPS_TIME, |
|
|
integer, intent(in), optional |
RECORD, |
|
|
double precision, intent(inout), optional |
TIME_RECORD, |
|
|
double precision, intent(in), optional |
OFFSET |
|
) |
| |
- Parameters
-
[in] | fformat | EPS_TIME Epsilon to determine if two times are equal IF NOT PRESENT, CONSIDERED TO BE 0.D0 |
[out] | IERR | 0 if no error during the execution |
[in] | FFORMAT | Format of the file |
[in] | FID | File logical unit |
[in] | RECORD | Record of results in the file that should be TAKEN. RECORD = -1 TAKES THE LAST RECORD. |
[in,out] | RES | Value for each point at time step record FOR THE VARIABLE VAR_NAME |
[in] | TIME | Time to interpolate from the file |
[out] | TIME_RECORD | Time of the record that has been chosen |
[in] | VAR_NAME | Variable for which we need the value |
[in] | N | Size of expected res_value |
[in] | OFFSET | Offset for time |
Definition at line 8 of file find_variable.f.