
C---------------------------------------------------------------------
C File: conditions.for
C File: maxdims.for
c
C This is for a disk-shape particle, with height 20 and outer radius
C 40, having a central hole of radius 15
	  R=SQRT((X-40.)**2+(Y-40.)**2)
	  CONDITION = R.GE.15.AND.R.LE.40.
C---------------------------------------------------------------------

