File |
Line number |
Procedure |
Code |
./pkg/exf/exf_interp.F |
82 |
EXF_INTERP |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
./pkg/exf/exf_interp_read.F |
100 |
EXF_INTERP_READ |
call MDSFINDUNIT( interp_unit, mythid) |
./pkg/exf/exf_interp_read.F |
102 |
EXF_INTERP_READ |
open(interp_unit,file=infile,status='old',access='direct', |
./pkg/exf/exf_interp_read.F |
104 |
EXF_INTERP_READ |
read(interp_unit,rec=irecord) |
./pkg/exf/exf_interp_read.F |
106 |
EXF_INTERP_READ |
close(interp_unit) |
./pkg/exf/exf_interp_read.F |
64 |
EXF_INTERP_READ |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
./pkg/exf/exf_interp_read.F |
79 |
EXF_INTERP_READ |
call MDSFINDUNIT( interp_unit, mythid) |
./pkg/exf/exf_interp_read.F |
81 |
EXF_INTERP_READ |
open(interp_unit,file=infile,status='old',access='direct', |
./pkg/exf/exf_interp_read.F |
83 |
EXF_INTERP_READ |
read(interp_unit,rec=irecord) |
./pkg/exf/exf_interp_read.F |
85 |
EXF_INTERP_READ |
close(interp_unit) |