implhfeq.f90

一维热传导方程的求解

! **********************************************************************
!  AIM IS TO SOLVE THE PARABOLIC HEAT CONDUCTION EQUATION (OR DIFFUSION-EQ.)
!  PT/PT = (L/ROH C) * (P^2 T / P X^2)
!  WERE L IS THE HEAT CONDUCTION IN W/(K M)
!  ROH IS THE DENSITY IN KG/M