Symbol | Description | Uses |
yearLoc | 4 |
File | Line number | Procedure | Code |
./pkg/exf/exf_getyearlyfieldname.F | 41 | EXF_GETYEARLYFIELDNAME |
integer yearLoc |
./pkg/exf/exf_getyearlyfieldname.F | 55 | EXF_GETYEARLYFIELDNAME |
yearLoc = year-1900 |
./pkg/exf/exf_getyearlyfieldname.F | 56 | EXF_GETYEARLYFIELDNAME |
if (year.ge.2000) yearLoc = year-2000 |
./pkg/exf/exf_getyearlyfieldname.F | 57 | EXF_GETYEARLYFIELDNAME |
write(genfileout(1:128),'( a,i2.2)') genfile(1:il),yearLoc |