module1.f90

运载火箭用拉瓦尔喷管计算（此程序参数保密

module module1
integer,parameter:: Nr=200,Nr1=201,nz=31
real,parameter::pi=3.1415926
!===================================================
real,save::ap(nr,nz),an(nr,nz),as(nr,nz),ap0(nr,nz),b(nr,nz),rp(nr,nz),ru(nr1,nz),mtrt(nr1,nz),mtrtd(nr,nz),dv(nr1,nz)
!============================================
real,save::dr(nz),tw(nz),alf(nz),r0(nz),Tr(nz),s(nz),rini(nz)
real,save::ma(nz),ppa(nz),ppb(nz),crev(nz),qcor(nz)
real,save::A(nz),Te(nz),Pe(nz),miu(nz)
real,save::rh2o(nz),rco2(nz),rco(nz),rh2(nz),rn2(nz),rc2h2(nz),Mgw(nz)
real,save::wh2o(nz),wco2(nz),wco(nz),wh2(nz),wn2(nz),wc2h2(nz)
real,save::dmco2(nz),dmh2o(nz),dmh2(nz),dmdt(nz),dmdt1(nz)
real,save::Pwx(nz),Pwy(nz)
!============================================
integer,save::ii,jj,kk
real,save::T0,P0,At,Cstar,tini,tlimit,rou,ra,lanbt,cmat,R,Cp,Mrg,gama,Pr,dt,dh1,dh2,dh3,E0,K0,E1,K1
real,save::rh2oe,rco2e,rcoe,rh2e,rn2e,rc2h2e
real,save::mh2o,mco2,mco,mh2,mn2,mc2h2,mc
real,save::Pt,tt,tt1,pp1
end module