Symbol Description Uses
Thetfile 5



File Line number Procedure Code
./pkg/offline/offline_fields_load.F 178 OFFLINE_FIELDS_LOAD
       IF (Thetfile      .NE. ' '  ) THEN
./pkg/offline/offline_fields_load.F 179 OFFLINE_FIELDS_LOAD
        I1=IFNBLNK(Thetfile)
./pkg/offline/offline_fields_load.F 180 OFFLINE_FIELDS_LOAD
        I2=ILNBLNK(Thetfile)
./pkg/offline/offline_fields_load.F 181 OFFLINE_FIELDS_LOAD
        WRITE(fn,'(A,A,I10.10)') Thetfile(I1:I2),'.',
./pkg/offline/offline_fields_load.F 184 OFFLINE_FIELDS_LOAD
        WRITE(fn,'(A,A,I10.10)') Thetfile(I1:I2),'.',