photon use
  ext;p5; ;x5
 
 
  view z
 
  gr z m
  msg contours of ucrt
  con ucrt z 3 fi;0.001;pause;con off;red
  msg contours of vcrt
  con vcrt z 3 fi;0.001;0.001;pause;con off;red
  con wcrt z 3 fi;0.001;0.001;pause;con off;red
  msg vectors at outer surface
  vec z 3 sh
  enduse
 
      ****** TO LOAD CASE: TYPE #B966 ******
     GROUP 1. Run title and other preliminaries
 TEXT(Expanding sphere                 :B966
 TITLE
  DISPLAY
 
  This run shows how the moving-BFC feature of PHOENICS can be
  used for the representation of an expanding (or contracting)
  sphere.
 
  If contraction is wanted, edit the Q1 so as to make RSG7 less
  than rather than greater than 1.0 (but not negative).
  ENDDIS
   GROUP 2. Transience; time-step specification
#$b090
ask=y
STEADY=F; LSTEP=5
SPEDAT(SET,GXMONI,TRANSIENT,L,F)
#$b092