！一维导热，非稳态全隐式迭代，边界条件t1=100，t11=20
！导热率为7
module parameter1 ！设置全局变量
implicit none
integer i
real,parameter::dt=0.01
real,parameter::err=0.000001
real,parameter::r=7
real,parameter::ta=100,tb=20
real::a(2:11)=(/(-1,i=2,10),0/)　 ！设置三对角阵系数
real::b(11)=(/1,(9,i=2,10),1/)
real::c(1:10)=(/0,(-1,i=2,10)/)
real::t(11),t1(11)
real::p(11),q(11)
end module