FLOTRAN BASIC PROCEDURE

/CWD, c:/temp                                                       !1. CHANGE DIRECTORY
/FILENAME,s3011d1                                           !2. CHANGE JOBNAME
/TITLE,S3001_DUCT_ECR
~SATIN,s3001d1                                                  !3. IMPORT ACS 3D FILE
/PREP7
ET,1,142                                                               !4. Element Type 3D 142
VLSCALE, all, , , 1/1000, 1/1000, 1/1000, , , 1    !SI UNIT mm->m
! VDELE,p, , ,1 !Delete volumes, as well as keypoints, lines, and areas
! VGLUE,all
ESIZE,0.05 ! General Duct
VMESH,all !FREE
/SOLU
FLDATA2,ITER,EXEC,44          ! 30 iterations.
!laminar, incompressible would be nice to air-si, also
FLDATA12,PROT,DENS,AIR-SI
FLDATA12,PROT,VISC,AIR-SI

FLDATA12,PROT,COND,AIR-SI
FLDATA12,PROT,SPHT,AIR-SI
!constraint
ASELE,s,area,,1
DA,all,vx,0

DA,all,vy,0

DA,all,vz,0

ALLSEL
!pressure
....
SOLVE

/POST
SET,LAST
...