& mnc_d_size, mnc_d_ids
integer mnc_d_size(MNC_MAX_ID)
IF (mnc_d_size(j) .NE. dlen) THEN
IF ((mnc_d_size(j) .GT. 0) .OR. (dlen .GT. 0)) THEN
mnc_d_size(indd) = dlen
IF (mnc_d_size(j) .EQ. -1) THEN
write(*,*) i,': ',mnc_d_ids(i), mnc_d_size(i)
mnc_d_size(j) = 0
mnc_d_size(i) = 0
IF (mnc_d_size(indd) .LT. sz_min) THEN
& k, ' is too small: ', mnc_d_size(indd), ' vs ',
vcount(k) = mnc_d_size( mnc_fd_ind(indf,i) )
j = mnc_d_size( mnc_fd_ind(indf,de) )