SUBROUTINE MODEL
      DIMENSION PAR(120)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = -1650.
      PAR(6) = 0.
      PAR(7) = 800.
      PAR(8) = 1650.
      PAR(9) = 0.
      PAR(10) = 800.
      CALL GSVOLU('CMSE','PGON',15,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = -145.
      PAR(6) = 365.
      PAR(7) = 800.
      PAR(8) = 145.
      PAR(9) = 365.
      PAR(10) = 800.
      CALL GSVOLU('CYC ','PGON',15,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 4.
      PAR(5) = 620.
      PAR(6) = 99.
      PAR(7) = 290.
      PAR(8) = 725.
      PAR(9) = 99.
      PAR(10) = 290.
      PAR(11) = 725.
      PAR(12) = 99.
      PAR(13) = 759.
      PAR(14) = 1045.
      PAR(15) = 99.
      PAR(16) = 759.
      CALL GSVOLU('CYF ','PGON',15,PAR,16,IVOLU)
      PAR(1) = 307.5
      PAR(2) = 333.
      PAR(3) = 166.9
      CALL GSVOLU('COIL','TUBE',90,PAR,3,IVOLU)
      PAR(1) = 0.
      PAR(2) = 5.
      PAR(3) = 1650.
      CALL GSVOLU('CVAC','TUBE',16,PAR,3,IVOLU)
      PAR(1) = 4.98
      PAR(2) = 5.
      PAR(3) = 1650.
      CALL GSVOLU('CTUB','TUBE',5,PAR,3,IVOLU)
      CALL GSPOS('CYC ',1,'CMSE',0.,0.,580.,0,'ONLY')
      CALL GSPOS('CYC ',2,'CMSE',0.,0.,290.,0,'ONLY')
      CALL GSPOS('CYC ',3,'CMSE',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYC ',4,'CMSE',0.,0.,-290.,0,'ONLY')
      CALL GSPOS('CYC ',5,'CMSE',0.,0.,-580.,0,'ONLY')
      CALL GSPOS('CYF ',1,'CMSE',0.,0.,0.,0,'ONLY')
      CALL GSROTM(1,90.,180., 90.,90., 180.,0.)
      CALL GSPOS('CYF ',2,'CMSE',0.,0.,0.,1,'ONLY')
      CALL GSPOS('COIL',1,'CMSE',0.,0.,500.7,0,'ONLY')
      CALL GSPOS('COIL',2,'CMSE',0.,0.,166.9,0,'ONLY')
      CALL GSPOS('COIL',3,'CMSE',0.,0.,-166.9,0,'ONLY')
      CALL GSPOS('COIL',4,'CMSE',0.,0.,-500.7,0,'ONLY')
      CALL GSPOS('CVAC',1,'CMSE',0.,0.,0.,0,'ONLY')
      CALL GGCLOS
      END