--- Unused/pams/geometry/btofgeo/btofgeo2.g	2005-08-04 19:39:24.000000000 -0400
+++ New/pams/geometry/btofgeo/btofgeo2.g	2006-10-01 15:45:07.000000000 -0400
@@ -137,7 +137,7 @@
       real      support_arm_width,  support_arm_Xpos,  support_arm_Ypos,
                 support_aile_width, support_aile_Ypos, 
                 xpos, ypos, zpos, totlen, sublen, subcen, x0, z0,
-                Y, Z, DTHgt
+                Y, Z, DTHgt, DetSide
       integer   i,is, choice, tof, iwid, igap
 *
 * -------------------------------------------------------------------------
@@ -384,10 +384,10 @@
       if (btog_choice == 2) choice=btog_choice       ! full tofp
       if (btog_choice == 6) choice=btog_choice       ! full tofr
 !      print *,' Positioning West Barrel, choice=',choice
-      Create and Position BTOH  z=+btog_dz/2    alphay=180   ! West barrel
+      DetSide = 1; Create and Position BTOH  z=+btog_dz/2    alphay=180   ! West barrel
       choice=btog_choice                   
 !      print *,' Positioning East Barrel, choice=',choice
-      Create and Position BTOH  z=-btog_dz/2                 ! East barrel
+      DetSide = 2; Create and Position BTOH  z=-btog_dz/2                 ! East barrel
 EndBlock
 *
 *------------------------------------------------------------------------------
@@ -411,7 +411,11 @@
          if (choice==7 & is==btog_posit1(2)) tof=1	!-> Run-4 (one TOFp tray moved 1 slot
          if (choice==7 & is==btog_posit2)    tof=3	!      and one TOFrp tray)
 !         print *,' Positioning Tray, choice,is,tof=',choice,is,tof
+		if (DetSide.eq.2.and.is.eq.28) {
+!         do nothing, Crystal Detector is here		
+		} else {
          Create and Position BSEC  alphaz = 102+6*is
+		}
       enddo
 EndBlock
 *