& mnc_g_names, mnc_v_names, mnc_d_names,
character*(MNC_MAX_CHAR) mnc_v_names(MNC_MAX_ID)
write(*,'(i3,a,a40)') i,':', mnc_v_names(i)(1:40)
mnc_v_names(k)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,
mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2)
mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
n = ILNBLNK(mnc_v_names(j))
IF ( mnc_v_names(j)(1:n).EQ.vname(1:n) ) THEN
ncvr = ILNBLNK(mnc_v_names(mnc_fv_ids(indf,ind_fv_ids)))
& mnc_v_names(mnc_fv_ids(indf,ind_fv_ids))(1:ncvr),
IF (mnc_v_names(mnc_fv_ids(indf,j)) .EQ. vname) THEN
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,'mnc_v_names',
mnc_v_names(indv)(1:lenv) = vname(1:lenv)