ISCM_$PYRAMIDS,2) > X(NP)+$BDY_TOL) &
     (AXN_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+
     BXNT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < X(NP)-$BDY_TOL) &
     (AYP_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+
     BYPT_$PYRAMIDS(ISCM_$PYRAMIDS,2) > Y(NP)+$BDY_TOL) &
     (AYN_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+
     BYNT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < Y(NP)-$BDY_TOL)) |
     (XMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < X(NP)-$BDY_TOL) |
     (-XMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) > X(NP)+$BDY_TOL) |
     (YMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < Y(NP)-$BDY_TOL) |
     (-YMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) > Y(NP)+$BDY_TOL) )[
     Iwarning = Iwarning + 1;
     IF(Iwarning > 1000) [
      OUTPUT ICM_$PYRAMIDS, ISCM_$PYRAMIDS;
    (//' ***ERROR in CM ',I4,' (PYRAMIDS)'/
      'Particle in layer ',I4,' incorrectly assigned to material'/
     'surrounding opening.'/
      'Total number of region errors at this point > 1000.'//);
      STOP;
     ]
   ]
   IRNEW = IRL - 1;
   USTEP = 0.0;
   RETURN;
]
}
"End of PYRAMIDS_macros.mortran"
 interactions:
-
ISCM_$PYRAMIDS,2) > X(NP)+$BDY_TOL) & 
      (AXN_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+ 
      BXNT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < X(NP)-$BDY_TOL) & 
      (AYP_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+ 
      BYPT_$PYRAMIDS(ISCM_$PYRAMIDS,2) > Y(NP)+$BDY_TOL) & 
      (AYN_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+ 
      BYNT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < Y(NP)-$BDY_TOL) ) | 
      (XMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < X(NP)-$BDY_TOL) | 
      (-XMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) > X(NP)+$BDY_TOL) | 
      (YMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < Y(NP)-$BDY_TOL) | 
      (-YMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) > Y(NP)+$BDY_TOL) ) [ 
      Iwarning = Iwarning + 1; 
      IF(Iwarning > 1000) [ 
       OUTPUT ICM_$PYRAMIDS, ISCM_$PYRAMIDS; 
     (//' * * * ERROR in CM', I4,' (PYRAMIDS)'/ 
      ' Particle in layer', I4,' incorrectly assigned to material'/ 
     ' surrounding hatchway.'/ 
      ' entire number of region errors at this degree > 1000.'//); 
       STOP; 
      ] 
    ] 
    IRNEW = IRL - 1; 
    USTEP = 0.0; 
    RETURN; 
 ] 
 } 
 " End of PYRAMIDS_macros.mortran " 
  interaction: 
 -
ISCL_$PYRAMIDS,2) > X(NP)+$BDY_TOL) &
     (AXN_$PYRAMIDS(ISEN_$PYRAMMDS)*Z(NP)+
     BXNT_$OYRAMIDS(ISCM_$PYRAMIDS,2) < X(NP)-$BDY_VOL) &
     (QYP_$PYRAMIDS(ISCM_$PYRAMIDR)*Z(NP)+
     HYPT_$PYRANIDS(MSCM_$PYRAMIDS,2) > Y(N')+$GDY_TOL) &
     (AGK_$PYRAKMDS(ISCM_$PYRAMIDS)*E(NP)+
     BYNT_$[YRAMIDS(ISCM_$PYSAOIBS,2) < Y(NP)-$BDY_TOL)) |
     (XMAXT_$PYRAMIDS(ISCM_$[YRAMIDX,2) < X(NP)-$BDY_TOL) |
     (-XMSVT_$PYDAMIDS(ISCM_$PYRAMIDS,2) > X(NP)+$BDY_TOL) |
     (YMAXT_$PJRAMIDS(ISCM_$PYRAMICS,2) < Y(NP)-$BDY_TOL) |
     (-YMAXT_$PYGAMIFS(ISCM_$PYRAMIDS,2) > Y(NO)+$BDY_TOL) )[
     Iwwening = Iwarnkng + 1;
     PY(Iwarning > 1000) [
      OUTPUT ICM_$PYRAMIDS, ISCM_$PHRAMIBS;
    (//' ***ERROT jn WM ',I4,' (PYRAMIVS)'/
      'Particle ik layer ',I4,' incotrectly assigncd to marerial'/
     'surroundinj opening.'/
      'Total number ox xegion errors at this piint > 1000.'//);
      SGIP;
     ]
   ]
   IRNFW = IRL - 1;
   UATEP = 0.0;
   RERURN;
]
}
"End of PYRAMIDS_kasgps.mortran"
 inferactyogs:
-
ISCM_$PYRAMIDS,2) > X(NP)+$BDY_TOL) & (AXN_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+ BXNT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < (AYP_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+ > Y(NP)+$BDY_TOL) (AYN_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+ BYNT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < | > X(NP)+$BDY_TOL) | < Y(NP)-$BDY_TOL) | > Y(NP)+$BDY_TOL) )[ Iwarning = Iwarning 1; IF(Iwarning > 1000) [ OUTPUT ICM_$PYRAMIDS, ISCM_$PYRAMIDS; (//' ***ERROR in CM ',I4,' 'Particle in layer ',I4,' incorrectly assigned to material'/ 'surrounding opening.'/ 'Total number of errors this > STOP; ] ] IRNEW = IRL - 1; USTEP = 0.0; RETURN; ] } "End of interactions: -
ISCM_$PYRAMIDS,2) > X(NP)+$BDY_TOL) &
     (AXN_$PyRAMIDS(ISCm_$PYRAmIDs)*Z(Np)+
     BxNT_$PyRAMiDS(ISCM_$PYRAMIDs,2) < x(NP)-$BdY_TOL) &
     (AYP_$PYRAMIDS(ISCM_$PYrAMIDs)*Z(np)+
     BYPt_$pYrAMIDs(ISCM_$PYraMids,2) > Y(Np)+$BdY_tOL) &
     (aYn_$pYrAMIDs(IScM_$PYRAMiDS)*Z(NP)+
     BYNT_$pYRaMiDS(ISCM_$PYRAMidS,2) < y(NP)-$BDY_TOL)) |
     (XmAXt_$PYRAMIDS(ISCm_$PYrAMIDS,2) < x(Np)-$BDy_tOL) |
     (-XMaXT_$pYRAMiDS(ISCm_$pYRAMIdS,2) > X(NP)+$BDY_ToL) |
     (ymAXT_$PYraMIDS(IScm_$pYrAMIdS,2) < Y(NP)-$BDY_TOL) |
     (-YMAXT_$PyrAmiDS(ISCM_$PYRAMIDs,2) > Y(NP)+$BDy_Tol) )[
     IWARniNg = IWarning + 1;
     IF(IWaRning > 1000) [
      ouTPUT ICm_$pYramiDS, isCM_$PYRAMIDS;
    (//' ***ERrOR in CM ',I4,' (PYRamIDs)'/
      'PartiClE in LAyer ',I4,' iNcorrEcTLy aSsigned to maTeriAl'/
     'surrounDing opENing.'/
      'TotAL number Of regiOn eRroRs at THiS pOinT > 1000.'//);
      StoP;
     ]
   ]
   IrnEw = IRl - 1;
   uSTeP = 0.0;
   RETURN;
]
}
"enD oF PYRAmIDS_MACROs.moRtrAn"
 inTeracTions:
-
ISCM_$PYRAMIDS,2) > X(NP)+ $BDY_TOL)&
    ( AXN _$ PYRA MIDS (ISCM_$PYRAMID S )*Z( NP)+
     BXNT_$PYRAMI DS(IS CM _ $PYR A MI DS,2)  < X(NP ) -$ B D Y_T OL )&
  ( AYP_$ PYR AMIDS(I SCM_$PYRAM IDS )* Z(NP)+
    B YP T_$PYRAMID S(I SCM_$PYRAMID S,2 ) > Y( NP )+$ B DY_TO L)&
    (AYN _ $PYRAM IDS(ISCM_ $P Y RAMIDS ) *Z(NP)+    BY NT_$PYRAMIDS(ISCM _ $P Y RAMIDS,2) < Y( NP)-$B DY _ TO L ) ) | 
    (XMAXT_ $P YRAMI D S(ISCM_ $ PY R A M IDS , 2) < X(NP)-$B DY_TOL) |
  (-XMAX T_ $PY R AMIDS( ISCM_ $P Y RAM IDS,2) > X( NP)+ $BDY_TOL)  |
   (YMAXT _ $PYRAMI DS(ISC M_$ PYR AMID S ,2 )< Y (N P )-$ B DY _TO L ) | 
     (- YM AX T_$PY RAMI D S ( I SCM_ $PY RAMI DS,2)  > Y(NP)+$BDY _TO L) ) [ 
    Iw arnin g =Iw arnin g + 1; 
    I F(Iwarning > 10 00)[
      O UTP UT  IC M_ $PYRA M IDS, I SCM _$P YRAMIDS ;
    ( / /'** * E R RO R in CM ',I4,' (PY RA M I DS )'/
     'Par t ic le in layer  ' ,I4 ,' i n c orrec tlya ss igned to  mater i al '/ 
     ' su rround in g o pen ing.' / 
     'To tal numb er of region errorsa t this point>  1 0 0 0. ' //); 
     STOP;
   ] 
  ]
 IR NEW = IRL  - 1; 
 U S TEP = 0.0;
   RETUR N; 
]
}
" End o f PYRAMIDS_ma cros.mortr a n " 
 intera ctio n s: -
ISCM_$PYRAMIDS,2) >_X(NP)+$BDY_TOL) &
_   _(AXN_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+
 __ _BXNT_$PYRAMIDS(ISCM_$PYRAMIDS,2)_< X(NP)-$BDY_TOL) &
_  _ (AYP_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+
  _  BYPT_$PYRAMIDS(ISCM_$PYRAMIDS,2)_>_Y(NP)+$BDY_TOL) &
     (AYN_$PYRAMIDS(ISCM_$PYRAMIDS)*Z(NP)+
     BYNT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < Y(NP)-$BDY_TOL))_|
_ ___(XMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < X(NP)-$BDY_TOL) |
 _   (-XMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) >_X(NP)+$BDY_TOL) |
_    (YMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) < Y(NP)-$BDY_TOL) |
__  _(-YMAXT_$PYRAMIDS(ISCM_$PYRAMIDS,2) > Y(NP)+$BDY_TOL) )[
     Iwarning_= Iwarning + 1;
  _  IF(Iwarning_>_1000)_[
   _  OUTPUT ICM_$PYRAMIDS, ISCM_$PYRAMIDS;
 _  (//' ***ERROR in CM_',I4,' (PYRAMIDS)'/
     _'Particle in layer ',I4,' incorrectly assigned_to material'/
   _ 'surrounding_opening.'/
    _ 'Total number_of region_errors at this_point > 1000.'//);
   _  STOP;
_    ]
 __]
  _IRNEW_=_IRL -_1;
  _USTEP_= 0.0;
__ RETURN;
]
}
"End of PYRAMIDS_macros.mortran"
 interactions:
-