& mnc_g_names, mnc_v_names, mnc_d_names,
character*(MNC_MAX_CHAR) mnc_g_names(MNC_MAX_ID)
write(*,'(i3,a,a40)') i,':', mnc_g_names(i)(1:40)
mnc_g_names(k)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
ngt = ILNBLNK(mnc_g_names(mnc_f_info(indf,ii)))
& .AND. (mnc_g_names(mnc_f_info(indf,ii))(1:ngt)
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID, mnc_g_names,
mnc_g_names(indg)(1:MNC_MAX_CHAR) =
mnc_g_names(indg)(1:n) = gname(1:n)
mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
n = ILNBLNK(mnc_g_names(k))
& .AND. (mnc_g_names(k)(1:n) .EQ. gname(1:n))) THEN
IF (mnc_g_names(k) .NE. gname) THEN