& mnc_f_info, mnc_fd_ind, mnc_fv_ids, mnc_f_alld,
integer mnc_fd_ind(MNC_MAX_FID,MNC_MAX_INFO)
write(*,*) i,': ',(mnc_fd_ind(i,j), j=1,n_items)
mnc_fd_ind(indf,i) = 0
IF (mnc_d_names(mnc_fd_ind(indf,jj)) .NE. dnames(k)) THEN
mnc_fd_ind(indf,j) = indd
l = mnc_fd_ind(indf,k)
mnc_fd_ind(i,j) = 0
indd = mnc_fd_ind(indf,ii)
ids(nd) = mnc_d_ids(mnc_fd_ind(indf,k))
vcount(k) = mnc_d_size( mnc_fd_ind(indf,i) )
j = mnc_d_size( mnc_fd_ind(indf,de) )
did = mnc_d_ids( mnc_fd_ind(indf,de) )