| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_utils.F |
207 |
MNC_GET_FVINDS |
DO i = 1,mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_utils.F |
209 |
MNC_GET_FVINDS |
j = mnc_fv_ids(indf,k) |
|
./pkg/mnc/mnc_utils.F |
261 |
MNC_CHK_VTYP_R_NCVAR |
ig = mnc_fv_ids(indf,ind_fv_ids+2) |
|
./pkg/mnc/mnc_utils.F |
268 |
MNC_CHK_VTYP_R_NCVAR |
ncvr = ILNBLNK(mnc_v_names(mnc_fv_ids(indf,ind_fv_ids))) |
|
./pkg/mnc/mnc_utils.F |
271 |
MNC_CHK_VTYP_R_NCVAR |
& mnc_v_names(mnc_fv_ids(indf,ind_fv_ids))(1:ncvr), |
|
./pkg/mnc/mnc_init.F |
43 |
MNC_INIT |
mnc_fv_ids(i,j) = 0 |
|
./pkg/mnc/mnc_common.h |
133 |
NO PROCEDURE |
& mnc_f_info, mnc_fd_ind, mnc_fv_ids, mnc_f_alld, |
|
./pkg/mnc/mnc_common.h |
143 |
NO PROCEDURE |
integer mnc_fv_ids(MNC_MAX_ID,MNC_MAX_INFO) |
|
./pkg/mnc/mnc_var.F |
143 |
MNC_VAR_INIT_ANY |
needed = 1 + 3*(mnc_fv_ids(indf,1) + 1) |
|
./pkg/mnc/mnc_var.F |
184 |
MNC_VAR_INIT_ANY |
nvar = mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_var.F |
187 |
MNC_VAR_INIT_ANY |
IF (mnc_v_names(mnc_fv_ids(indf,j)) .EQ. vname) THEN |
|
./pkg/mnc/mnc_var.F |
188 |
MNC_VAR_INIT_ANY |
k = mnc_f_info(indf,mnc_fv_ids(indf,j+2)) |
|
./pkg/mnc/mnc_var.F |
223 |
MNC_VAR_INIT_ANY |
nv = mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_var.F |
225 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i) = indv |
|
./pkg/mnc/mnc_var.F |
226 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i+1) = vid |
|
./pkg/mnc/mnc_var.F |
227 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i+2) = ind_g_finfo |
|
./pkg/mnc/mnc_var.F |
228 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,1) = nv + 1 |
|
./pkg/mnc/mnc_var.F |
425 |
MNC_VAR_ADD_ATTR_ANY |
vid = mnc_fv_ids(indf,(ind_fv_ids+1)) |
|
./pkg/mnc/mnc_var.F |
609 |
MNC_VAR_WRITE_ANY |
vid = mnc_fv_ids(indf,(ind_fv_ids+1)) |
|
./pkg/mnc/mnc_var.F |
612 |
MNC_VAR_WRITE_ANY |
ig = mnc_fv_ids(indf,(ind_fv_ids+2)) |
|
./pkg/mnc/mnc_dump.F |
77 |
MNC_DUMP_ALL |
write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items) |
|
./pkg/mnc/mnc_file.F |
104 |
MNC_FILE_OPEN |
mnc_fv_ids(indf,1) = 0 |
|
./pkg/mnc/mnc_file.F |
360 |
MNC_FILE_CLOSE |
n = mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_file.F |
364 |
MNC_FILE_CLOSE |
k = mnc_fv_ids(indf,j) |
|
./pkg/mnc/mnc_file.F |
368 |
MNC_FILE_CLOSE |
mnc_fv_ids(indf,i) = 0 |
|
./pkg/mnc/mnc_file.F |
727 |
MNC_FILE_TRY_READ |
iv = 2 + 3*mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_file.F |
728 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv) = indv |
|
./pkg/mnc/mnc_file.F |
729 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv+1) = id |
|
./pkg/mnc/mnc_file.F |
734 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv+2) = j |
|
./pkg/mnc/mnc_file.F |
739 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,1) = mnc_fv_ids(indf,1) + 1 |