L(263)
    GROUP 1. Run title and other preliminaries
TEXT(Conjugate Heat Transfer Problem 4 
TITLE
  Case 4; as for 2, but, set bottom half of PLATE1 to
  have a conductivity of 0.025W/m/K, ie. make it an insulator
FIXTPL3=SKIP
NXW=1; NXE=NX1+NX2+NX3; NZL=NZ1+1; NZH=NZ1+NZ2
PATCH(plte1B,INIVAL,1,NXE/2-1,1,NY,NZL,NZH,1,LSTEP)
INIT(plte1B ,PRL ,0.0,0.025/(CPAIR*RHOAIR))
INIT(plte1B,BLOK,0.0,4.0)
FIINIT(PRL)=ENLAIR/PRTAIR