n = ILNBLNK(mnc_v_names(j))
& .AND. (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),
mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
& mnc_f_names, mnc_g_names, mnc_v_names, mnc_d_names,
character*(MNC_MAX_CHAR) mnc_v_names(MNC_MAX_ID)
IF (mnc_v_names(mnc_fv_ids(indf,j)) .EQ. vname) THEN
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,indv, myThid)
mnc_v_names(indv)(1:lenv) = vname(1:lenv)
write(*,'(i3,a,a40)') i,':', mnc_v_names(i)
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,indv,myThid)
mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2)