function r = GridProp_DP(modelflag,nx, ny, nz, dx, dy, dz, kx, ky, kz, kx_matrixLayer, ky_matrixLayer, kz_matrixLayer, f, frac_information, fellip, Kf, Wf,  pori, pori_matrixLayer, prpor, cpor,  Porf, prporf, cporf, cf, ca,NTG)
tic;
%% 基质网格参数及网格参数计算、存储
r.modelflag=modelflag;
r.nx = nx;
r.ny = ny;
r.nz = nz;
r.dx = dx;
r.dy = dy;
r.dz = dz;
r.kx = kx;
r.ky = ky;
r.kz = kz;
r.kx_matrixLayer = kx_matrixLayer;
r.ky = ky;
r.kz = kz;
r.Kf = Kf;%裂缝面对应的渗透率，非裂缝单元
r.Wf = Wf;%裂缝面对应的缝宽，非裂缝单元
r.cf = cf;
r.ca = ca;
% r.co=co;
r.cpor=cpor;
r.cporf=cporf;
r.NTG=NTG;
r.frac_information = frac_information;

[coordinates, nodes, nP, nE, dxv, dyv,dzv,zm,vm,xrao,yrao,zrao,cell_mid_coordinates] = GenerateNode_final(dx, dy,dz ,nx,ny,nz,NTG);
r.coordinates = coordinates;
r.nodes = nodes;
nmc=nE;
r.nmc =nmc;
r.dxv = dxv;
r.dyv = dyv;
r.dzv = dzv;
r.vm=vm;
r.cell_mid_coordinates=cell_mid_coordinates;
%% 求解裂缝与基质网格连接情况
%% 关键参数矩阵初始化
m=size(f,1);
n=size(fellip,1);
nfr=m/5;%矩形规则裂缝条数
nfir=n/5;%不规则裂缝条数（当然包含椭圆）
r.nfr=nfr;  r.nfir=nfir;
nf=nfr+nfir;
r.nf=nf;
if  (nfir~=0) && (nfr~=0)
    f=[f;fellip];
else if nfr~=0
        f=f;
else if nfir~=0
        f=fellip;
else error('Dr Rao reminds you that there is no information about fractures');
end
end
end

%d3intersection=-1000*ones(1000,3);%用-1000做标识
raopoint=cell(nfr+nfir,2);%利用元胞数组存储每条裂缝与基质网格线的交点，
%第一列是三维坐标形式，即d3intersection
%第二列是裂缝面参数形式，即anothersection
pointvsregion=cell(nfr+nfir,3);%利用元胞数组存储interarea函数的结果numofmesh, numvspoint,numofregion
fracrossfra=cell(nfr+nfir,nfr+nfir-1);%判断裂缝之间两交点坐标
fratmaxfra=zeros(nfr+nfir,nfr+nfir-1);%判断裂缝之间交线参数的最大值
fratminfra=zeros(nfr+nfir,nfr+nfir-1);%判断裂缝之间交线参数的最小值
fracturemesh=cell(nf,1);%每一行是一条裂缝面上的网格剖分情况

%% 计算裂缝与基质网格相交情况
for i=1:nfr
    raopoint{i,1}= intersectionsolve_new_modified_r(f((5*i-4):(5*i),:),dx,dy,dz,nx,ny,nz,xrao,yrao,zrao  );
    raopoint{i,2}= anosection( f((5*i-4):(5*i),:),raopoint{i,1} );
    [ pointvsregion{i,1},pointvsregion{i,2} ,pointvsregion{i,3}] = interarea( raopoint{i,1},dx,dy,dz,nx,ny,nz,xrao,yrao,zrao );
end
% 不规则缝计算
if nfir>0
    for i=1:nfir
        raopoint{nfr+i,1}= intersectionsolve_new_modified_irr(fellip((5*i-4):(5*i),:),dx,dy,dz,nx,ny,nz,xrao,yrao,zrao  );
        raopoint{nfr+i,2}= anosection( f((5*(nfr+i)-4):(5*(nfr+i)),:),raopoint{nfr+i,1} );
        [ pointvsregion{nfr+i,1},pointvsregion{nfr+i,2} ,pointvsregion{nfr+i,3}] = interarea( raopoint{nfr+i,1},dx,dy,dz,nx,ny,nz,xrao,yrao,zrao );
    end
end

%% 计算裂缝之间相交线情况
for i=1:nf
    for j=1:nf
        if i>nfr || j>nfr     cross=zeros(2,3);tmax=0;tmin=0;
        else
            %             [ cross,tmax,tmin ]=frac_cross_frac( f((5*i-4):(5*i),:),f((5*j-4):(5*j),:) );
            cross=zeros(2,3);tmax=0;tmin=0;
        end
        fracrossfra{i,j}=cross;fratmaxfra(i,j)=tmax;fratminfra(i,j)=tmin;
    end
end
%% 计算裂缝被基质网格、其它裂缝与之相交后的网格分布情况,绘制二维裂缝平面参数坐标系上的网格分布情况
% figure('color','w');
addflag=zeros(nf,1);%乘2的幂次，防止因为裂缝条数较多，造成矩阵太大
for i=1:nf
    d3intersection=raopoint{i,1};anothersection=raopoint{i,2};
    [ mesh ] = frac_mat_mesh( d3intersection,anothersection,pointvsregion{i,2},pointvsregion{i,1} );
    %     for j=1:nf
    %         [ mesh,d3intersection,anothersection,add_flag ]= frac_frac_mesh_modified(xrao,yrao,zrao,mesh,f(5*i-4,:),f(5*i-3,:),f(5*i-2,:),fracrossfra{i,j},fratmaxfra(i,j),fratminfra(i,j),d3intersection,anothersection,pointvsregion{i,2},pointvsregion{i,1} );
    %         addflag(j,1)=addflag(j,1)+add_flag;
    %     end
    raopoint{i,1} = d3intersection; raopoint{i,2} = anothersection;%由原来裂缝与网格的交点不断更新加入其它裂缝与该裂缝的交点
    fracturemesh{i,1}=mesh;
    % subplot(nf,1,i);color_fill={'y','r','b','g'};
    % plotmesh2D(mesh,raopoint{i,2},color_fill{1,mod(i,4)+1});
end

%% 绘制三维背景网格（基质网格）及裂缝网格分布
%figure(2)
%network3D(dx,dy,dz,nx,ny,nz  );
%hold on;
figure('color','w');
% plot_reservoir_3D(max(xrao),max(yrao),dz(1),1,1,nz);
% plot_reservoir_3D(dx(1),dy(1),dz(1),nx,ny,nz);
network3D(dx(1),dy(1),dz(1),nx,ny,nz);
% network3D(1000,700,10,1,1,1);
% network3D(800,300,10,1,1,1);
hold on;

% network3D_arbitrary(dx,dy,dz,nx,ny,nz);
% refine;
% hold on;
for i=1:nf
    %     color_fill={'y','r','b','g','c','m'};
    % color_fill={'y','r','b','g'};
    % plotmesh3D( fracturemesh{i,1},raopoint{i,1},color_fill{1,mod(i,4)+1});hold on;
    if i <= 100
        color_fill='b'; %流动屏障
        %     elseif i <=19
        %         color_fill='b'; %压裂缝
%         if i == 2 || i == 9
%             color_fill='r';
%         end
    else
        color_fill='k'; %天然裂缝
    end
    %     plotmesh3D( fracturemesh{i,1},raopoint{i,1},color_fill{1,mod(i,4)+1});hold on;
    plotmesh3D( fracturemesh{i,1},raopoint{i,1},color_fill);hold on;
end
% % % basic_node_coord = [0,0,0];
% % % x_length = 700;
% % % y_length = 800;
% % % z_length = 10;
% % % nodes_domain = [basic_node_coord;]
% % % fill3(x,y,z,'w');
% refine1;
% refine_chengjiepaper;
% refine;
% plot_reservoir_3D(max(xrao),max(yrao),dz(1),1,1,nz);
% plot_reservoir_3D(dx(1),dy(1),dz(1),nx,ny,nz);
xlabel('x, m','FontSize',14);
ylabel('y, m','FontSize',14);
zlabel('z, m','FontSize',14);
ax = gca;
ax.FontSize = 14;
%
% zticks([0, 5]);
% yticks(-1:0.5:1);
% 设置x轴和y轴的刻度标签
% zticklabels({'-2005', '-2000'});
% yticklabels({'-1', '-0.5', '0', '0.5', '1'});
% 关闭刻度标签的旋转
% xticklabels('Rotation', 0);
% yticklabels('Rotation', 0);
% axis equal;
% refine;
% hold on
% network3D(dx(1),dy(1),dz(1),nx,ny,nz);
% network3D(max(xrao),max(yrao),max(zrao),1,1,1  );
% network3D(10,10,10,2,1,1  );
% network3D(10,10,10,6,1,2  );
alpha(1)
view(3)
% axis([min(xrao),max(xrao),min(yrao),max(yrao),min(zrao),max(zrao)]);
% axis equal
% % hold off;
%% 确定裂缝编号及连接情况，计算传导系数
if modelflag==1  %表示用2014, Monifar
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,cell_divided_by_fracture_flag, flowArea, perm, matrixflag ] = connections_2014( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,pori,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.T_convection=T_convection;
    r.vf=vf;
    r.V=[vm;vf];
    r.porf=porf;
    r.fcff=fcff;
    r.mat_frac=mat_frac;
    r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
    r.flowArea=flowArea;
    r.perm=perm;
    r.matrixflag=matrixflag;
elseif  modelflag==4  %表示用 PEDFM
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections_PEDFM_new( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.vf=vf;
    r.V=[vm;vf];
    r.porf=porf;
    r.fcff=fcff;
elseif  modelflag==5    % 表示实用型PEDFM
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff, flowArea, perm, matrixflag ] = connections_PEDFM_new_new( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,pori,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.vf=vf;
    r.V=[vm;vf];
    r.porf=porf;
    r.fcff=fcff;
    r.flowArea=flowArea;
    r.perm=perm;
    r.matrixflag=matrixflag;
elseif modelflag==6    % 表示基于非结构网格pEDFM的validation model
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,number_of_adding,cell_divided_by_fracture_flag] = connections_unstructured_EDFM( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    r.number_of_adding=number_of_adding;
    nmc = nmc+number_of_adding;
    r.nmc = nmc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.T_convection=T_convection;
    r.vf=vf;
    % 劈分或增加
    vm_the_added_cell = vm(cell_divided_by_fracture_flag)*1/2;
    vm(cell_divided_by_fracture_flag) = vm(cell_divided_by_fracture_flag)*1/2;
    vm = [vm; vm_the_added_cell];
    r.V=[vm;vf];
    pori = [pori; pori(cell_divided_by_fracture_flag)];
    r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
    r.porf=porf;
    r.fcff=fcff;
    r.mat_frac=mat_frac;
elseif modelflag==7
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections_PEDFM_EX1_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.vf=vf;
    r.V=[vm;vf];
    r.porf=porf;
    r.fcff=fcff;
elseif modelflag==8    % 表示基于非结构网格pEDFM的validation model
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,number_of_adding,cell_divided_by_fracture_flag,volume_ratio,fractureCell_matrixCell_addedMatrixCell] = connections_unstructured_EDFM_EX1_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    r.number_of_adding=number_of_adding;
    nmc = nmc+number_of_adding;
    r.nmc = nmc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.T_convection=T_convection;
    r.vf=vf;
    r.fractureCell_matrixCell_addedMatrixCell = fractureCell_matrixCell_addedMatrixCell;
    r.volume_ratio=volume_ratio;
    % 劈分或增加
    vm_the_added_cell = vm(cell_divided_by_fracture_flag).*volume_ratio;
    vm(cell_divided_by_fracture_flag) = vm(cell_divided_by_fracture_flag).*(1-volume_ratio);
    vm = [vm; vm_the_added_cell];
    r.V=[vm;vf];
    pori = [pori; pori(cell_divided_by_fracture_flag)];
    r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
    r.porf=porf;
    r.fcff=fcff;
    r.mat_frac=mat_frac;
elseif modelflag==9 % EX2 不同情况下 pEDFM 解
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections_PEDFM_EX2_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.vf=vf;
    r.V=[vm;vf];
    r.porf=porf;
    r.fcff=fcff;
elseif modelflag==10    % 表示基于非结构网格pEDFM的 EX2 参考解
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,number_of_adding,cell_divided_by_fracture_flag,volume_ratio,fractureCell_matrixCell_addedMatrixCell] = connections_unstructured_EDFM_EX2_1to3_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    r.number_of_adding=number_of_adding;
    nmc = nmc+number_of_adding;
    r.nmc = nmc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.T_convection=T_convection;
    r.vf=vf;
    r.fractureCell_matrixCell_addedMatrixCell = fractureCell_matrixCell_addedMatrixCell;
    r.volume_ratio=volume_ratio;
    % 劈分或增加
    vm_the_added_cell = vm(cell_divided_by_fracture_flag).*volume_ratio;
    vm(cell_divided_by_fracture_flag) = vm(cell_divided_by_fracture_flag).*(1-volume_ratio);
    vm = [vm; vm_the_added_cell];
    r.V=[vm;vf];
    pori = [pori; pori(cell_divided_by_fracture_flag)];
    r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
    r.porf=porf;
    r.fcff=fcff;
    r.mat_frac=mat_frac;
elseif modelflag==11    % 表示基于非结构网格pEDFM的 EX2 参考解
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,number_of_adding,cell_divided_by_fracture_flag,volume_ratio,fractureCell_matrixCell_addedMatrixCell] = connections_unstructured_EDFM_EX2_1to2_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    r.number_of_adding=number_of_adding;
    nmc = nmc+number_of_adding;
    r.nmc = nmc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.T_convection=T_convection;
    r.vf=vf;
    r.fractureCell_matrixCell_addedMatrixCell = fractureCell_matrixCell_addedMatrixCell;
    r.volume_ratio=volume_ratio;
    % 劈分或增加
    vm_the_added_cell = vm(cell_divided_by_fracture_flag).*volume_ratio;
    vm(cell_divided_by_fracture_flag) = vm(cell_divided_by_fracture_flag).*(1-volume_ratio);
    vm = [vm; vm_the_added_cell];
    r.V=[vm;vf];
    pori = [pori; pori(cell_divided_by_fracture_flag)];
    r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
    r.porf=porf;
    r.fcff=fcff;
    r.mat_frac=mat_frac;
elseif modelflag==12    % 表示基于非结构网格pEDFM的 EX2 参考解
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,number_of_adding,cell_divided_by_fracture_flag,volume_ratio,fractureCell_matrixCell_addedMatrixCell] = connections_unstructured_EDFM_EX2_1to4_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    r.number_of_adding=number_of_adding;
    nmc = nmc+number_of_adding;
    r.nmc = nmc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.T_convection=T_convection;
    r.vf=vf;
    r.fractureCell_matrixCell_addedMatrixCell = fractureCell_matrixCell_addedMatrixCell;
    r.volume_ratio=volume_ratio;
    % 劈分或增加
    vm_the_added_cell = vm(cell_divided_by_fracture_flag).*volume_ratio;
    vm(cell_divided_by_fracture_flag) = vm(cell_divided_by_fracture_flag).*(1-volume_ratio);
    vm = [vm; vm_the_added_cell];
    r.V=[vm;vf];
    pori = [pori; pori(cell_divided_by_fracture_flag)];
    r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
    r.porf=porf;
    r.fcff=fcff;
    r.mat_frac=mat_frac;
elseif modelflag==13    % 表示基于非结构网格pEDFM的 EX2 参考解
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections_PEDFM_TPFA_MFD( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,perm,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.vf=vf;
    r.V=[vm;vf];
    r.porf=porf;
    r.fcff=fcff;
elseif  modelflag==14  %表示用 PEDFM
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections_PEDFM_new_twofractures( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.vf=vf;
    r.V=[vm;vf];
    r.porf=porf;
    r.fcff=fcff;
else
    [ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,NTG );
    nfc=size(fracnumber,1);
    nex=size(T,1);
    r.nfc=nfc;
    nc=nfc+nmc;
    r.nc=nc;%基质网格和裂缝单元总数
    r.nex=nex;%具有流体交换的总数
    kf=Kf(fcinff);
    wf=Wf(fcinff);
    r.kf=kf;%裂缝单元对应的渗透率
    r.wf=wf;%裂缝单元对应的缝宽
    r.N=N;
    r.T=T;
    r.vf=vf;
    r.V=[vm;vf];
    r.porf=porf;
    r.fcff=fcff;
    %% 计算传导系数
    % dxvector=ones(1,nx);dyvector=ones(1,ny);dzvector=ones(1,nz);
    % [ transmatrix,transfracture ] = trans(dxvector,dyvector,dzvector ,nx,ny,nz,nf,fracnumber,lengthvsfra,disvsfra,fracstart,connect_infrac,corevsfra,matrixvsfra,raopoint,f );
    %% 计算基质与裂缝之间窜流的相关系数
    if modelflag==2  %表示用2018, Rao
        [ G,Gfm,Gff,Gf,Ap,Apf ]=interflowmf1(r,dxv,dyv,dzv,matrixvsfra,connectmf,fracstart,fracnumber,raopoint,f,nodes,coordinates,nf,corevsfra  );
        [Ka, M, F2M , MF_coef] = transFunc_aniso(nc,coordinates, nodes,  connectmf,Ap,Apf,  matrixvsfra,N,T,kx, ky,kz);
        r.Ka = Ka;
        r.M = M;
        r.F2M = F2M;
        r.MF_coef = MF_coef;
    elseif modelflag==5  %表示用 Modified Rao, steady, 2018
        [ G,Gfm,Gff,Gf,Ap,Apf ] = interflowmf_MODIFIED(r,dxv,dyv,dzv,matrixvsfra,connectmf,fracstart,fracnumber,raopoint,f,nodes,coordinates,nf,corevsfra  );
        [Ka, M, F2M , MF_coef] = transFunc_aniso_MODIFIED(nc,coordinates, nodes,  connectmf,Ap,Apf,  matrixvsfra,N,T,kx, ky,kz);
        r.Ka = Ka;
        r.M = M;
        r.F2M = F2M;
        r.MF_coef = MF_coef;
        % [ G,Gfm,Gff,Gf,Ap,Apf,Apmt,Apft ]=interflowmf1_transient(dxv,dyv,dzv,matrixvsfra,connectmf,fracstart,fracnumber,raopoint,f,nodes,coordinates,nf,corevsfra  );
    end
    % [ G,Gfm,Gff,Gf,Ap,Apf ]=interflowmf1(dxv,dyv,dzv,matrixvsfra,connectmf,fracstart,fracnumber,raopoint,f,nodes,coordinates,nf,corevsfra  );
    %%

    % r.MF_deltt=MF_deltt;
end
%% 计算深度（以下平面为基准计算得到的高度，值为正数）
z=[zm;zf];
r.z=z;


rpt = [ones(nmc, 1); zeros(nfc, 1)];
r.rpt = rpt;
r.Porf = Porf;
pori = [pori; porf];
r.pori = pori;
r.por = @(p)por(p, prpor, pori, cpor, prporf, cporf, r.rpt);
tpre=toc;
r.tpre=tpre;
end