| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_whalos.F |
13 |
MDS_READ_WHALOS |
I fid, |
|
./pkg/mdsio/mdsio_read_whalos.F |
56 |
MDS_READ_WHALOS |
integer fid |
|
./pkg/mdsio/mdsio_write_whalos.F |
13 |
MDS_WRITE_WHALOS |
I fid, |
|
./pkg/mdsio/mdsio_write_whalos.F |
56 |
MDS_WRITE_WHALOS |
integer fid |
|
./pkg/mnc/mnc_cw_cvars.F |
14 |
MNC_CW_WRITE_CVAR |
I fid, |
|
./pkg/mnc/mnc_cw_cvars.F |
413 |
MNC_CW_WRITE_CVAR |
err = NF_DEF_VAR(fid, cvname, NF_DOUBLE, |
|
./pkg/mnc/mnc_cw_cvars.F |
416 |
MNC_CW_WRITE_CVAR |
err = NF_DEF_VAR(fid, cvname, NF_FLOAT, |
|
./pkg/mnc/mnc_cw_cvars.F |
426 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'long_name', ia, long_name) |
|
./pkg/mnc/mnc_cw_cvars.F |
42 |
MNC_CW_WRITE_CVAR |
integer fid, did, bi,bj |
|
./pkg/mnc/mnc_cw_cvars.F |
434 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'units', ia, units) |
|
./pkg/mnc/mnc_cw_cvars.F |
442 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'positive', ia, positive) |
|
./pkg/mnc/mnc_cw_cvars.F |
451 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_VARA_DOUBLE(fid, vid, |
|
./pkg/mnc/mnc_cw_cvars.F |
454 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_VARA_REAL(fid, vid, |
|
./pkg/mnc/mnc_dim.F |
194 |
MNC_DIM_UNLIM_SIZE |
integer i,j, nf, indf, fid, unlimid, err |
|
./pkg/mnc/mnc_dim.F |
210 |
MNC_DIM_UNLIM_SIZE |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_dim.F |
218 |
MNC_DIM_UNLIM_SIZE |
err = NF_INQ_DIMLEN(fid, unlimid, unlim_sz) |
|
./pkg/mnc/mnc_file.F |
103 |
MNC_FILE_OPEN |
mnc_f_info(indf,2) = fid |
|
./pkg/mnc/mnc_file.F |
258 |
MNC_FILE_ADD_ATTR_ANY |
integer n, nf, err, fid, ind, n1, lens |
|
./pkg/mnc/mnc_file.F |
274 |
MNC_FILE_ADD_ATTR_ANY |
fid = mnc_f_info(ind,2) |
|
./pkg/mnc/mnc_file.F |
285 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_TEXT(fid, NF_GLOBAL, s1, lens, sv) |
|
./pkg/mnc/mnc_file.F |
290 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_DOUBLE(fid, NF_GLOBAL, s1, NF_DOUBLE, len, dv) |
|
./pkg/mnc/mnc_file.F |
295 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_REAL(fid, NF_GLOBAL, s1, NF_FLOAT, len, rv) |
|
./pkg/mnc/mnc_file.F |
300 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_INT(fid, NF_GLOBAL, s1, NF_INT, len, iv) |
|
./pkg/mnc/mnc_file.F |
339 |
MNC_FILE_CLOSE |
integer i,j,k,n, err, fid, indf, nf |
|
./pkg/mnc/mnc_file.F |
355 |
MNC_FILE_CLOSE |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_file.F |
356 |
MNC_FILE_CLOSE |
err = NF_CLOSE(fid) |
|
./pkg/mnc/mnc_file.F |
512 |
MNC_FILE_REDEF |
integer ind, fid, def, err, n |
|
./pkg/mnc/mnc_file.F |
528 |
MNC_FILE_REDEF |
fid = mnc_f_info(ind,2) |
|
./pkg/mnc/mnc_file.F |
532 |
MNC_FILE_REDEF |
err = NF_REDEF(fid) |
|
./pkg/mnc/mnc_file.F |
565 |
MNC_FILE_ENDDEF |
integer ind, fid, def, err, n |
|
./pkg/mnc/mnc_file.F |
581 |
MNC_FILE_ENDDEF |
fid = mnc_f_info(ind,2) |
|
./pkg/mnc/mnc_file.F |
585 |
MNC_FILE_ENDDEF |
err = NF_ENDDEF(fid) |
|
./pkg/mnc/mnc_file.F |
62 |
MNC_FILE_OPEN |
integer n, err, fid, nf |
|
./pkg/mnc/mnc_file.F |
658 |
MNC_FILE_TRY_READ |
integer i,j,k, fid, err, ndim,nvar,ngat,unlimid |
|
./pkg/mnc/mnc_file.F |
672 |
MNC_FILE_TRY_READ |
err = NF_OPEN(fname, NF_WRITE, fid) |
|
./pkg/mnc/mnc_file.F |
681 |
MNC_FILE_TRY_READ |
mnc_f_info(indf,2) = fid |
|
./pkg/mnc/mnc_file.F |
684 |
MNC_FILE_TRY_READ |
err = NF_INQ(fid, ndim, nvar, ngat, unlimid) |
|
./pkg/mnc/mnc_file.F |
691 |
MNC_FILE_TRY_READ |
err = NF_INQ_DIM(fid, id, name, dlen) |
|
./pkg/mnc/mnc_file.F |
718 |
MNC_FILE_TRY_READ |
err = NF_INQ_VAR(fid, id, name, xtype, ndv, idlist, nat) |
|
./pkg/mnc/mnc_file.F |
82 |
MNC_FILE_OPEN |
err = NF_CREATE(fname, NF_CLOBBER, fid) |
|
./pkg/mnc/mnc_grid.F |
72 |
MNC_GRID_INIT_ALL |
integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid |
|
./pkg/mnc/mnc_grid.F |
95 |
MNC_GRID_INIT_ALL |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_utils.F |
205 |
MNC_GET_FVINDS |
INTEGER myThid, fid, indf, ind_fv_ids |
|
./pkg/mnc/mnc_utils.F |
225 |
MNC_GET_FVINDS |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
145 |
MNC_VAR_INIT_ANY |
INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err |
|
./pkg/mnc/mnc_var.F |
165 |
MNC_VAR_INIT_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
232 |
MNC_VAR_INIT_ANY |
err = NF_DEF_VAR(fid, vname, vtype, nd, ids, vid) |
|
./pkg/mnc/mnc_var.F |
440 |
MNC_VAR_ADD_ATTR_ANY |
INTEGER n, indf,ind_fv_ids, fid,vid, err |
|
./pkg/mnc/mnc_var.F |
458 |
MNC_VAR_ADD_ATTR_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
464 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs) |
|
./pkg/mnc/mnc_var.F |
466 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_DOUBLE(fid, vid, atname, NF_DOUBLE, len, dv) |
|
./pkg/mnc/mnc_var.F |
468 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_REAL(fid, vid, atname, NF_FLOAT, len, rv) |
|
./pkg/mnc/mnc_var.F |
470 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_INT(fid, vid, atname, NF_INT, len, iv) |
|
./pkg/mnc/mnc_var.F |
680 |
MNC_VAR_WRITE_ANY |
INTEGER i,j,k, n, indf,ind_fv_ids, fid,vid,did, ig, err, ds,de |
|
./pkg/mnc/mnc_var.F |
697 |
MNC_VAR_WRITE_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
715 |
MNC_VAR_WRITE_ANY |
err = NF_INQ_DIMLEN(fid, did, lend) |
|
./pkg/mnc/mnc_var.F |
728 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_DOUBLE(fid, vid, vstart, vcount, dv) |
|
./pkg/mnc/mnc_var.F |
730 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_REAL(fid, vid, vstart, vcount, rv) |
|
./pkg/mnc/mnc_var.F |
732 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_INT(fid, vid, vstart, vcount, iv) |
|
./pkg/profiles/active_file_control_profiles.F |
130 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
131 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
144 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
145 |
ACTIVE_READ_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
156 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
15 |
ACTIVE_READ_PROFILE_RL |
I fid, |
|
./pkg/profiles/active_file_control_profiles.F |
178 |
ACTIVE_READ_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
208 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
209 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
214 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
240 |
ACTIVE_WRITE_PROFILE_RL |
I fid, |
|
./pkg/profiles/active_file_control_profiles.F |
274 |
ACTIVE_WRITE_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
|
./pkg/profiles/active_file_control_profiles.F |
307 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
308 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
311 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_namesmask(active_varnum), |
|
./pkg/profiles/active_file_control_profiles.F |
313 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
316 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,'prof_ind_glob', varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
317 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VAR1_INT(fid, varid1 , vec_start(2), |
|
./pkg/profiles/active_file_control_profiles.F |
330 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
340 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
365 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum) , varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
366 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
380 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
381 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
387 |
ACTIVE_WRITE_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
410 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
436 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid, prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
437 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
450 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
50 |
ACTIVE_READ_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
|
./pkg/profiles/active_file_control_profiles.F |
79 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
80 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
83 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_namesmask(active_varnum) |
|
./pkg/profiles/active_file_control_profiles.F |
85 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
90 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
99 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
44 |
COST_PROFILES |
integer bi,bj,iG,jG,err,fid |
|
./pkg/profiles/cost_profiles.F |
61 |
COST_PROFILES |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
120 |
PROFILES_INIT_FIXED |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
121 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iPROF', dimid ) |
|
./pkg/profiles/profiles_init_fixed.F |
122 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
123 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iDEPTH', dimid ) |
|
./pkg/profiles/profiles_init_fixed.F |
125 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'Z', dimid ) |
|
./pkg/profiles/profiles_init_fixed.F |
127 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
130 |
PROFILES_INIT_FIXED |
& fid, num_file, ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
136 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_depth', varid1a ) |
|
./pkg/profiles/profiles_init_fixed.F |
139 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'depth', varid1a ) |
|
./pkg/profiles/profiles_init_fixed.F |
150 |
PROFILES_INIT_FIXED |
err = NF_GET_VAR1_DOUBLE(fid,varid1a,k, |
|
./pkg/profiles/profiles_init_fixed.F |
154 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_YYYYMMDD', varid1a ) |
|
./pkg/profiles/profiles_init_fixed.F |
155 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_HHMMSS', varid1b ) |
|
./pkg/profiles/profiles_init_fixed.F |
156 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_lon', varid2 ) |
|
./pkg/profiles/profiles_init_fixed.F |
157 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_lat', varid3 ) |
|
./pkg/profiles/profiles_init_fixed.F |
168 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_XC11',varid_intp1) |
|
./pkg/profiles/profiles_init_fixed.F |
169 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_YC11',varid_intp2) |
|
./pkg/profiles/profiles_init_fixed.F |
170 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_XCNINJ',varid_intp11) |
|
./pkg/profiles/profiles_init_fixed.F |
171 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_YCNINJ',varid_intp22) |
|
./pkg/profiles/profiles_init_fixed.F |
172 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_weights',varid_intp3) |
|
./pkg/profiles/profiles_init_fixed.F |
173 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_i',varid_intp4) |
|
./pkg/profiles/profiles_init_fixed.F |
174 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_j',varid_intp5) |
|
./pkg/profiles/profiles_init_fixed.F |
228 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid1a,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
230 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid1b,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
232 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid2,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
234 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid3,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
244 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp1,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
246 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp2,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
248 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp11,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
250 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp22,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
257 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp3,vec_start2, |
|
./pkg/profiles/profiles_init_fixed.F |
259 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp4,vec_start2, |
|
./pkg/profiles/profiles_init_fixed.F |
261 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp5,vec_start2, |
|
./pkg/profiles/profiles_init_fixed.F |
34 |
PROFILES_INIT_FIXED |
integer fid, dimid, varid1, varid1a, varid1b |
|
./pkg/profiles/profiles_init_fixed.F |
407 |
PROFILES_INIT_FIXED |
& 'fid dimid ProfNo',fid, dimid, |
|
./pkg/profiles/profiles_init_fixed.F |
420 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_T', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
430 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_S', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
441 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_U', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
451 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_V', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
462 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_ptr', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
472 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_ssh', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
587 |
PROFILES_INIT_FIXED |
call MDSFINDUNIT( fid , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
594 |
PROFILES_INIT_FIXED |
open( fid, file= fnameequinc, form ='unformatted', |
|
./pkg/profiles/profiles_init_fixed.F |
604 |
PROFILES_INIT_FIXED |
write(fid,rec=1) xy_buffer_r8 |
|
./pkg/profiles/profiles_init_fixed.F |
605 |
PROFILES_INIT_FIXED |
close(fid) |
|
./pkg/profiles/profiles_init_fixed.F |
607 |
PROFILES_INIT_FIXED |
call MDSFINDUNIT( fid , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
614 |
PROFILES_INIT_FIXED |
open( fid, file= fnameequinc, form ='unformatted', |
|
./pkg/profiles/profiles_init_fixed.F |
624 |
PROFILES_INIT_FIXED |
write(fid,rec=1) xy_buffer_r8 |
|
./pkg/profiles/profiles_init_fixed.F |
625 |
PROFILES_INIT_FIXED |
close(fid) |