dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
& mnc_blank_name,
character*(MNC_MAX_CHAR) mnc_blank_name
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
& .NE. mnc_blank_name(1:MNC_MAX_CHAR)) THEN
mnc_cw_vname(indv)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
& mnc_blank_name(1:MNC_MAX_CHAR)
mnc_cw_dn(i,indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
s1(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
mnc_v_names(k)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
mnc_d_names(j)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
mnc_g_names(k)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)