File |
Line number |
Procedure |
Code |
./pkg/exf/exf_set_uv.F |
107 |
EXF_SET_UV |
if ( uvecfile .NE. ' ' .and. vvecfile .NE. ' ' ) then |
./pkg/exf/exf_set_uv.F |
122 |
EXF_SET_UV |
il = ilnblnk( uvecfile ) |
./pkg/exf/exf_set_uv.F |
126 |
EXF_SET_UV |
& uvecfile(1:il),year0-2000 |
./pkg/exf/exf_set_uv.F |
129 |
EXF_SET_UV |
& uvecfile(1:il),year0-1900 |
./pkg/exf/exf_set_uv.F |
133 |
EXF_SET_UV |
& uvecfile(1:il),'_',year0 |
./pkg/exf/exf_set_uv.F |
149 |
EXF_SET_UV |
uvecfile0 = uvecfile |
./pkg/exf/exf_set_uv.F |
213 |
EXF_SET_UV |
il = ilnblnk( uvecfile ) |
./pkg/exf/exf_set_uv.F |
217 |
EXF_SET_UV |
& uvecfile(1:il),year1-2000 |
./pkg/exf/exf_set_uv.F |
220 |
EXF_SET_UV |
& uvecfile(1:il),year1-1900 |
./pkg/exf/exf_set_uv.F |
224 |
EXF_SET_UV |
& uvecfile(1:il),'_',year1 |
./pkg/exf/exf_set_uv.F |
240 |
EXF_SET_UV |
uvecfile1 = uvecfile |
./pkg/exf/exf_set_uv.F |
321 |
EXF_SET_UV |
& uvecfile, uvecstartdate, uvecperiod, |
./pkg/exf/exf_set_uv.F |
59 |
EXF_SET_UV |
character*(128) uvecfile, uvecfile0, uvecfile1 |
./pkg/exf/exf_set_uv.F |
7 |
EXF_SET_UV |
& uvecfile, uvecstartdate, uvecperiod, |