subroutine XAJMX(   N		,&		! 单元出流数组大小								//输入变量
					    M		,&		! 无因次单位数组大小							//输入变量
					    WUM		,&		! 上层张力水容量wum							//输入变量
					    W1		,&		! 下层张力水容量wl							//输入变量
					    WDM		,&		! 深层张力水容量wdm							//输入变量
					    KC	    ,&		!蒸发能力折算系数KC							//输入变量
					    C	    ,&		!深层蒸发系数c							    //输入变量
					    B	    ,&		!张力水蓄水容量系数b						    //输入变量
					    IMP1    ,&		!不透水面积比率imp1							//输入变量
					    SM	    ,&		!自由水蓄水容量sm								//输入变量
					    EX	    ,&		!自由水蓄水容量指数ex							//输入变量
					    KG	    ,&		!地下水出流系数kg								//输入变量
					    KSS	    ,&		!壤中流出流系数kss								//输入变量
					    KKG	    ,&		!地下水出流系数kkg								//输入变量
					    KKSS    ,&		!壤中流出流系数kkss								//输入变量
					    AREA	,&		! 单元面积										//输入变量
					    UH		,&		! 无因次单位线									//输入变量
					    DT		,&		! 时段步长										//输入变量
					    P		,&		! 降雨系列										//输入变量
					    EP		,&		! 蒸发皿蒸发能力								//输入变量
					    W		,&		! 土壤含水层	1.上层	2.下层	3.深层			//输入变量
					    FR		,&		! 初始产流面积									//输入变量
					    S		,&		! 初始自由水深									//输入变量
					    QRSS0	,&		! 初始壤中流流量								//输入变量
					    QRG0	,&		! 初始地下水径流量								//输入变量
					    QR		)&		! 单元出流										//输出变量		
BIND(C, NAME="XAJMX")

  !DEC$ ATTRIBUTES DLLEXPORT::XAJMX
    
    IMPLICIT NONE
    
    INTEGER::N					! 单元出流数组大小
    INTEGER::M					! 无因次单位数组大小
    REAL::PAR(13)				! 1.上层张力水容量wum	2.下层张力水容量wl	3.深层张力水容量wdm
    							! 4.蒸发能力折算系数kc	5.深层蒸发系数c		6.张力水蓄水容量系数b
    							! 7.不透水面积比率imp1	8.自由水蓄水容量sm	9.自由水蓄水容量指数ex
    							!10.地下水出流系数kg 11.壤中流出流系数kss	12.地下水出流系数kkg
    							!13.壤中流出流系数kkss
    REAL::AREA					! 单元面积
    REAL::UH(M)		! 无因次单位线
    REAL::DT					! 时段步长
    REAL::P(N)		! 降雨系列
    REAL::EP(N)		! 蒸发皿蒸发能力
    REAL::QR(N)		! 单元出流
    REAL::W(3)					! 土壤含水层	1.上层	2.下层	3.深层
    REAL::FR					! 初始产流面积
    REAL::S						! 初始自由水深
    REAL::QRSS0					! 初始壤中流流量
    REAL::QRG0					! 初始地下水径流量
    
    REAL::WUM                    !上层张力水容量wum	
 	REAL::W1                     !下层张力水容量wl	
 	REAL::WDM                   ! 深层张力水容量wdm
	REAL::KC					! 蒸发能力折算系数
	REAL::C						! 深层蒸发系数	
	REAL::B						! 张力水蓄水容量系数
 	REAL::IMP1					! 不透水面积比率		
	REAL::SM					! 自由水蓄水容量
	REAL::EX					! 自由水蓄水容量指数
	REAL::KG					! 地下水出流系数
	REAL::KSS					! 壤中流出流系数
	REAL::KKG					! 地下水出流系数	
	REAL::KKSS					! 壤中流出流系数		

    INTEGER::I
    INTEGER::YEAR1
    INTEGER::IM
    INTEGER::ID
    INTEGER::IH
    INTEGER::EM1
    INTEGER::ED
    INTEGER::EH
    
    CALL SUB_XAJMX(	N		,&		! 单元出流数组大小								//输入变量
					    M		,&		! 无因次单位数组大小							//输入变量
					    WUM		,&		! 上层张力水容量wum							//输入变量
					    W1		,&		! 下层张力水容量wl							//输入变量
					    WDM		,&		! 深层张力水容量wdm							//输入变量
					    KC	    ,&		!蒸发能力折算系数KC							//输入变量
					    C	    ,&		!深层蒸发系数c							    //输入变量
					    B	    ,&		!张力水蓄水容量系数b						    //输入变量
					    IMP1    ,&		!不透水面积比率imp1							//输入变量
					    SM	    ,&		!自由水蓄水容量sm								//输入变量
					    EX	    ,&		!自由水蓄水容量指数ex							//输入变量
					    KG	    ,&		!地下水出流系数kg								//输入变量
					    KSS	    ,&		!壤中流出流系数kss								//输入变量
					    KKG	    ,&		!地下水出流系数kkg								//输入变量
					    KKSS    ,&		!壤中流出流系数kkss								//输入变量
					    AREA	,&		! 单元面积										//输入变量
					    UH		,&		! 无因次单位线									//输入变量
					    DT		,&		! 时段步长										//输入变量
					    P		,&		! 降雨系列										//输入变量
					    EP		,&		! 蒸发皿蒸发能力								//输入变量
					    W		,&		! 土壤含水层	1.上层	2.下层	3.深层			//输入变量
					    FR		,&		! 初始产流面积									//输入变量
					    S		,&		! 初始自由水深									//输入变量
					    QRSS0	,&		! 初始壤中流流量								//输入变量
					    QRG0	,&		! 初始地下水径流量								//输入变量
					    QR		)		! 单元出流										//输出变量
    
end subroutine XAJMX