!
! PROCEDURE:  PgeoCell
! USAGE:      Geometry construction for Cell 6*6
! AUTHOR:     E.Varin (97/08/11)
! CALL:
!
!  GEOM2 INDEX := PgeoCell   ;
!
! NOTES:
!       Cell 6*6 is a CAR3D geometry of 6*6*12 cells
!       used to reproduce CANDU-6 behavior in a smaller
!       number of regions
!
!       The boundary conditions are VOID and REFL
!       It is an infinite reflective cell
!         Mix  # 1 for the fuel
!
 PARAMETER   GEOM2 INDEX ::
 ::: LINKED_LIST GEOM2 INDEX ; ;
 LINKED_LIST GEOM  ;
 MODULE      END: GEO: USPLIT: READ: ;
!  BASIC GEOMETRY DESCRIPTION
*
 GEOM := GEO: :: CAR3D 4 4 4
     EDIT  1
                X- REFL      X+ REFL
                Y- REFL      Y+ REFL
                Z- VOID      Z+ VOID
     MIX
           PLANE    1

               1 1 1 1
               1 1 1 1
               1 1 1 1
               1 1 1 1

            PLANE 2  SAME 1
            PLANE 3  SAME 1
            PLANE 4  SAME 1

             MESHX  0.0   28.575 57.15  85.725  114.3
             MESHY  0.0   28.575 57.15  85.725  114.3
             MESHZ  0.0   49.53  99.06 148.59  198.12 ;

  GEOM2 INDEX := USPLIT: GEOM :: NGRP 2 MAXR  64
              NFUEL 1  FMIX 1 ;
END: ;