L(111)
l(cls
TEXT(Fin Non-Uniform Conductivity      
TITLE
REAL(CFAC,COND2);COND2=5000.0;CFAC=(COND2-COND1)/COND1
  DISPLAY
  In addition to the taper of case 111, the material changes at
  x=XULAST/2.
 
  Here the thermal-conductivity change, from COND1 to COND2, is
  effected by changing the area porosity.
 
  ENDDIS
PATCH(MATERIAL,LINVLX,NX/2,NX,1,1,1,1,1,1)
INIADD=T
INIT(MATERIAL,EPOR,-10.0*CFAC,0.5*CFAC)