L(112)
l(cls
TEXT(Fin Non-Uniform Specific Heat     
TITLE
REAL(SFAC,SPHT2);SPHT2=400.0;SFAC=(SPHT2-SPHT1)/SPHT1
  DISPLAY
  In addition to the taper and conductivity change of case 112,
  a simultaneous specific-heat change, from SPHT1 to SPHT2, is
  effected by changing the volume porosity appropriately.
 
  ENDDIS
PATCH(MATERIAL,LINVLX,NX/2,NX,1,1,1,1,1,1)
INIADD=T
INIT(MATERIAL,VPOR,-10.0*SFAC,0.525*SFAC)