TALK=F;RUN( 1, 1)
Group 1. Run Title
TEXT(patch-limited objects
DISPLAY
The use is illustrated of the commands for introducing, placing
and sizing POINT, LINE and PLANE objects, the parameters of which
are supplied via PIL DO loops.
It is recommended that the VR-Viewer should be used for displaying
them visually.
ENDDIS
LIBREF=387
************************************************************
Group 2. Transience
STEADY=T
************************************************************
Groups 3, 4, 5 Grid Information
NX=50;NY=50;NZ=50
XULAST=1.0; YVLAST=1.0; ZWLAST=1.0
#UNIGRID
Group 7. Variables: STOREd,SOLVEd,NAMEd
* Solved variables list
* Stored variables list
STORE(PRPS,MARK) ! MARK is set to non-zero values inside In-Form
objects
STORE(VPOR,EPOR,NPOR,HPOR)
************************************************************
Group 9 Properties
SPEDAT(SET,MATERIAL,100,L,T) ! needed to warn earth to load the
! properties of material to be set
! in in-form objects
************************************************************
Group 11.Initialise Var/Porosity Fields
patch(patch1,volume,1,nx,1,ny,1,nz,1,1) ! the space within which
! infob_1 will be placed
FIINIT(PRPS) = 0.0
FIINIT(PRPS) = 0.0 !
inform11begin
sphere with centre at origin
patch(.patch1,inival,0,1000,0,1000,1,1000,1,1)
(infob at .patch1 is sphere(.0,.0..0,0.5*xulast) with infob_sp1)
(initial of mark at infob_sp1 is 1.0)
inform11end
************************************************************
Group 13. Boundary & Special Sources
************************************************************
Group 15. Terminate Sweeps
yzpr=t
tstswp=-1
#endpause
#maxabs
stop