L(265)
    GROUP 1. Run title and other preliminaries
TEXT(Cooling Of A Heated Block (2)     
TITLE
 
  **In this case, the enthalpy field is calculated from the flow
    field determined in the first run
RESTRT(P1,U1,W1)
  **Switch off solution of pressure and velocities and cut
    out printout
SOLUTN(P1,Y,N,N,N,N,N); SOLUTN(U1,Y,N,N,N,N,N)
SOLUTN(W1,Y,N,N,N,N,N); OUTPUT(P1,N,N,N,N,N,N)
OUTPUT(U1,N,N,N,N,N,N); OUTPUT(W1,N,N,N,N,N,N)
OUTPUT(BLOK,N,N,N,N,N,N)
  **Activate whole-field solution of enthalpy
SOLUTN(H1,Y,Y,Y,P,P,P)
OUTPUT(H1,Y,N,N,Y,Y,Y)
ISOLBK=1; IVARBK=14; ISOLZ=1
  **The following settings activate the zonal block-corrections
    for enthalpy every iteration of the linear equation solver.
  **Finally set solution controls...
FSWEEP=150; LSWEEP=151; LITER(H1)=100; IXMON=NHX/2
RESREF(H1)=0.1