SUBROUTINE MODEL
      DIMENSION PAR(120)
      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) = 2.
      PAR(5) = -145.
      PAR(6) = 435.
      PAR(7) = 464.
      PAR(8) = 145.
      PAR(9) = 435.
      PAR(10) = 464.
      CALL GSVOLU('CYC1','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = -145.
      PAR(6) = 504.
      PAR(7) = 533.
      PAR(8) = 145.
      PAR(9) = 504.
      PAR(10) = 533.
      CALL GSVOLU('CYC2','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = -145.
      PAR(6) = 534.
      PAR(7) = 563.
      PAR(8) = 145.
      PAR(9) = 534.
      PAR(10) = 563.
      CALL GSVOLU('CYC3','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = -145.
      PAR(6) = 603.
      PAR(7) = 632.
      PAR(8) = 145.
      PAR(9) = 603.
      PAR(10) = 632.
      CALL GSVOLU('CYC4','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = -145.
      PAR(6) = 633.
      PAR(7) = 662.
      PAR(8) = 145.
      PAR(9) = 633.
      PAR(10) = 662.
      CALL GSVOLU('CYC5','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = -145.
      PAR(6) = 663.
      PAR(7) = 692.
      PAR(8) = 145.
      PAR(9) = 663.
      PAR(10) = 692.
      CALL GSVOLU('CYC6','PGON',95,PAR,10,IVOLU)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 99.1604
      CALL GSVOLU('MC1 ','BOX ',15,PAR,3,IVOLU)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 120.328
      CALL GSVOLU('MC2 ','BOX ',15,PAR,3,IVOLU)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 146.855
      CALL GSVOLU('MC3 ','BOX ',15,PAR,3,IVOLU)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 181.421
      CALL GSVOLU('MC4 ','BOX ',15,PAR,3,IVOLU)
      PAR(3) = 145.
      PAR(2) = 10.
      PAR(1) = 93.8015
      CALL GSVOLU('CYTC','BOX ',79,PAR,3,IVOLU)
      CALL GSVOLU('CYBL','BOX ',0,PAR,0,IVOLU)
      CALL GSPOS('CYC1',1,'CYC ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYC2',1,'CYC ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYC3',1,'CYC ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYC4',1,'CYC ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYC5',1,'CYC ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYC6',1,'CYC ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('MC1 ',1,'CYC ',-18.,405.,0.,0,'ONLY')
      CALL GSPOS('MC2 ',1,'CYC ',7.50258,484.,0.,0,'ONLY')
      CALL GSPOS('MC3 ',1,'CYC ',-7.50258,583.,0.,0,'ONLY')
      CALL GSPOS('MC4 ',1,'CYC ',70.25,712.,0.,0,'ONLY')
      CALL GSROTM(1,90.,30., 90.,120., 0.,0.)
      CALL GSPOS('MC1 ',2,'CYC ',-218.088,341.74,0.,1,'ONLY')
      CALL GSPOS('MC2 ',2,'CYC ',-235.503,422.908,0.,1,'ONLY')
      CALL GSPOS('MC3 ',2,'CYC ',-297.997,501.142,0.,1,'ONLY')
      CALL GSPOS('MC4 ',2,'CYC ',-295.162,651.735,0.,1,'ONLY')
      CALL GSROTM(2,90.,60., 90.,150., 0.,0.)
      CALL GSPOS('MC1 ',3,'CYC ',-359.74,186.912,0.,2,'ONLY')
      CALL GSPOS('MC2 ',3,'CYC ',-415.405,248.497,0.,2,'ONLY')
      CALL GSPOS('MC3 ',3,'CYC ',-508.644,285.003,0.,2,'ONLY')
      CALL GSPOS('MC4 ',3,'CYC ',-581.485,416.838,0.,2,'ONLY')
      CALL GSROTM(3,90.,90., 90.,180., 0.,0.)
      CALL GSPOS('MC1 ',4,'CYC ',-405.,-18.,0.,3,'ONLY')
      CALL GSPOS('MC2 ',4,'CYC ',-484.,7.50256,0.,3,'ONLY')
      CALL GSPOS('MC3 ',4,'CYC ',-583.,-7.5026,0.,3,'ONLY')
      CALL GSPOS('MC4 ',4,'CYC ',-712.,70.25,0.,3,'ONLY')
      CALL GSROTM(4,90.,120., 90.,210., 0.,0.)
      CALL GSPOS('MC1 ',5,'CYC ',-341.74,-218.088,0.,4,'ONLY')
      CALL GSPOS('MC2 ',5,'CYC ',-422.908,-235.503,0.,4,'ONLY')
      CALL GSPOS('MC3 ',5,'CYC ',-501.142,-297.997,0.,4,'ONLY')
      CALL GSPOS('MC4 ',5,'CYC ',-651.735,-295.162,0.,4,'ONLY')
      CALL GSROTM(5,90.,150., 90.,240., 0.,0.)
      CALL GSPOS('MC1 ',6,'CYC ',-186.912,-359.74,0.,5,'ONLY')
      CALL GSPOS('MC2 ',6,'CYC ',-248.497,-415.405,0.,5,'ONLY')
      CALL GSPOS('MC3 ',6,'CYC ',-285.003,-508.644,0.,5,'ONLY')
      CALL GSPOS('MC4 ',6,'CYC ',-416.838,-581.485,0.,5,'ONLY')
      CALL GSROTM(6,90.,180., 90.,270., 0.,0.)
      CALL GSPOS('MC1 ',7,'CYC ',18.,-405.,0.,6,'ONLY')
      CALL GSPOS('MC2 ',7,'CYC ',-7.50253,-484.,0.,6,'ONLY')
      CALL GSPOS('MC3 ',7,'CYC ',7.50263,-583.,0.,6,'ONLY')
      CALL GSPOS('MC4 ',7,'CYC ',-70.2499,-712.,0.,6,'ONLY')
      CALL GSROTM(7,90.,210., 90.,300., 0.,0.)
      CALL GSPOS('MC1 ',8,'CYC ',218.088,-341.74,0.,7,'ONLY')
      CALL GSPOS('MC2 ',8,'CYC ',235.503,-422.908,0.,7,'ONLY')
      CALL GSPOS('MC3 ',8,'CYC ',297.997,-501.142,0.,7,'ONLY')
      CALL GSPOS('MC4 ',8,'CYC ',295.162,-651.735,0.,7,'ONLY')
      CALL GSROTM(8,90.,240., 90.,330., 0.,0.)
      CALL GSPOS('MC1 ',9,'CYC ',359.74,-186.912,0.,8,'ONLY')
      CALL GSPOS('MC2 ',9,'CYC ',415.405,-248.497,0.,8,'ONLY')
      CALL GSPOS('MC3 ',9,'CYC ',508.644,-285.003,0.,8,'ONLY')
      CALL GSPOS('MC4 ',9,'CYC ',581.485,-416.838,0.,8,'ONLY')
      CALL GSROTM(9,90.,270., 90.,0., 0.,0.)
      CALL GSPOS('MC1 ',10,'CYC ',405.,18.,0.,9,'ONLY')
      CALL GSPOS('MC2 ',10,'CYC ',484.,-7.50257,0.,9,'ONLY')
      CALL GSPOS('MC3 ',10,'CYC ',583.,7.50258,0.,9,'ONLY')
      CALL GSPOS('MC4 ',10,'CYC ',712.,-70.25,0.,9,'ONLY')
      CALL GSROTM(10,90.,300., 90.,30., 0.,0.)
      CALL GSPOS('MC1 ',11,'CYC ',341.74,218.088,0.,10,'ONLY')
      CALL GSPOS('MC2 ',11,'CYC ',422.908,235.503,0.,10,'ONLY')
      CALL GSPOS('MC3 ',11,'CYC ',501.142,297.997,0.,10,'ONLY')
      CALL GSPOS('MC4 ',11,'CYC ',651.735,295.162,0.,10,'ONLY')
      CALL GSROTM(11,90.,330., 90.,60., 0.,0.)
      CALL GSPOS('MC1 ',12,'CYC ',186.912,359.74,0.,11,'ONLY')
      CALL GSPOS('MC2 ',12,'CYC ',248.498,415.405,0.,11,'ONLY')
      CALL GSPOS('MC3 ',12,'CYC ',285.003,508.644,0.,11,'ONLY')
      CALL GSPOS('MC4 ',12,'CYC ',416.838,581.485,0.,11,'ONLY')
      CALL GSPOS('CYTC',1,'CYC ',-12.641,375.,0.,0,'ONLY')
      CALL GSPOS('CYTC',2,'CYC ',-198.447,318.439,0.,1,'ONLY')
      CALL GSPOS('CYTC',3,'CYC ',-331.08,176.553,0.,2,'ONLY')
      CALL GSPOS('CYTC',4,'CYC ',-375.,-12.641,0.,3,'ONLY')
      CALL GSPOS('CYTC',5,'CYC ',-318.439,-198.447,0.,4,'ONLY')
      CALL GSPOS('CYTC',6,'CYC ',-176.553,-331.08,0.,5,'ONLY')
      CALL GSPOS('CYTC',7,'CYC ',12.641,-375.,0.,6,'ONLY')
      CALL GSPOS('CYTC',8,'CYC ',198.447,-318.439,0.,7,'ONLY')
      CALL GSPOS('CYTC',9,'CYC ',331.08,-176.553,0.,8,'ONLY')
      CALL GSPOS('CYTC',10,'CYC ',375.,12.641,0.,9,'ONLY')
      CALL GSPOS('CYTC',11,'CYC ',318.439,198.447,0.,10,'ONLY')
      CALL GSPOS('CYTC',12,'CYC ',176.553,331.08,0.,11,'ONLY')
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',1,'CYC ',85.1604,400.,0.,0,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',2,'CYC ',-126.249,388.99,0.,1,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',3,'CYC ',-303.83,273.751,0.,2,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',4,'CYC ',-400.,85.1604,0.,3,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',5,'CYC ',-388.99,-126.249,0.,4,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',6,'CYC ',-273.751,-303.83,0.,5,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',7,'CYC ',-85.1604,-400.,0.,6,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',8,'CYC ',126.249,-388.99,0.,7,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',9,'CYC ',303.83,-273.751,0.,8,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',10,'CYC ',400.,-85.1604,0.,9,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',11,'CYC ',388.99,126.249,0.,10,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 35.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',12,'CYC ',273.751,303.83,0.,11,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',13,'CYC ',-116.826,484.,0.,0,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',14,'CYC ',-343.174,360.743,0.,1,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',15,'CYC ',-477.569,140.826,0.,2,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',16,'CYC ',-484.,-116.826,0.,3,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',17,'CYC ',-360.743,-343.174,0.,4,'ONLY',PAR,3
     +)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',18,'CYC ',-140.826,-477.569,0.,5,'ONLY',PAR,3
     +)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',19,'CYC ',116.826,-484.,0.,6,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',20,'CYC ',343.174,-360.743,0.,7,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',21,'CYC ',477.569,-140.826,0.,8,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',22,'CYC ',484.,116.826,0.,9,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',23,'CYC ',360.743,343.174,0.,10,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',24,'CYC ',140.826,477.569,0.,11,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',25,'CYC ',143.353,583.,0.,0,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',26,'CYC ',-167.353,576.569,0.,1,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',27,'CYC ',-433.216,415.647,0.,2,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',28,'CYC ',-583.,143.353,0.,3,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',29,'CYC ',-576.569,-167.353,0.,4,'ONLY',PAR,3
     +)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',30,'CYC ',-415.647,-433.216,0.,5,'ONLY',PAR,3
     +)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',31,'CYC ',-143.353,-583.,0.,6,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',32,'CYC ',167.353,-576.569,0.,7,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',33,'CYC ',433.216,-415.647,0.,8,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',34,'CYC ',583.,-143.353,0.,9,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',35,'CYC ',576.569,167.353,0.,10,'ONLY',PAR,3)
      PAR(3) = 145.
      PAR(2) = 20.
      PAR(1) = 4.
      CALL GSPOSP('CYBL',36,'CYC ',415.647,433.216,0.,11,'ONLY',PAR,3)
      CALL GGCLOS
      END