      program p
      X = 0.0D00
      Y = 1.0D00
      WRITE(*,'(1x," ***Outer Convergence of Thermal Flux (MG/P'//'W) Wa
     +s",                   t55,2es12.5)') X,Y
      end program

