& mnc_g_names, mnc_v_names, mnc_d_names,
character*(MNC_MAX_CHAR) mnc_d_names(MNC_MAX_ID)
ntmp = ILNBLNK(mnc_d_names(j))
& .AND. (dname(dnf:dnl) .EQ. mnc_d_names(j)(1:ntmp))) THEN
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID, mnc_d_names,
mnc_d_names(indd)(1:(dnl-dnf+1)) = dname(dnf:dnl)
write(*,'(i3,a,a40)') i,':', mnc_d_names(i)(1:40)
mnc_d_names(j)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
n1 = IFNBLNK(mnc_d_names(j))
n2 = ILNBLNK(mnc_d_names(j))
& .AND. (mnc_d_names(j)(ns:ne) .EQ. name(ns:ne))) THEN
dnames(i)(1:MNC_MAX_CHAR) = mnc_d_names(did)(1:MNC_MAX_CHAR)
IF (mnc_d_names(mnc_fd_ind(indf,jj)) .NE. dnames(k)) THEN
kk = ILNBLNK(mnc_d_names(jj))
& .AND. (dnames(i)(1:n) .EQ. mnc_d_names(jj)(1:kk))) THEN
n1 = ILNBLNK(mnc_d_names(l))
& .AND. (mnc_d_names(l)(1:n1) .EQ. dname(1:n))) THEN
mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)