PHOTON USE
    x
    x1


    msg(  PLANT generated grid
    up z
    rot z ang 95
    gr z m
    gr x m
    gr y 1
    ENDUSE

  DISPLAY

    PLANT is used to create body-fittted-coordinate grids
    defined by formulae.
    

    Example: 3D hill-like shell
  ENDDIS


TEXT( 3D hill-like shell

    GROUP 6. Body-fitted coordinates or grid distortion
nx=20;ny=20;nz=10
bfc=t;lsweep=1
dumpc(grid);readco(grid)
CSG1=PHI;CSG2=XYZ;IDISPA=1
STORE(MARK)
NAMSAT=MOSG
     
    PLANTBEGIN
    XC=1.*FLOAT(I-1)/FLOAT(NX)
    YC=1.*FLOAT(J-1)/FLOAT(NY)
    ZC=1./EXP(5.*((1.25*XC-1.)**2+(1.25*YC-1.)**2))+$
               .2*FLOAT(K-1)/FLOAT(NZ)
    PLANTEND

dmpstk=t
DISTIL=T
EX(MARK)=1.000E-10
 LIBREF=508
STOP