& mnc_f_info, mnc_fd_ind, mnc_fv_ids, mnc_f_alld,
integer mnc_f_alld(MNC_MAX_FID,MNC_MAX_INFO)
n = mnc_f_alld(indf,1)
j = mnc_f_alld(indf,i+1)
mnc_f_alld(indf,1) = n + 1
mnc_f_alld(indf,n+2) = indd
DO i = 1,mnc_f_alld(indf,1)
write(*,*) i,': ',(mnc_f_alld(i,j), j=1,n_items)
mnc_f_alld(indf,1) = 0
mnc_f_alld(indf,i+1) = 0
ndim_file = mnc_f_alld(indf,1)
jj = mnc_f_alld(indf,ii+1)
mnc_f_alld(i,j) = 0