SUBROUTINE MODEL
      DIMENSION PAR(120)
      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) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 660.
      PAR(6) = 99.
      PAR(7) = 290.
      PAR(8) = 725.
      PAR(9) = 108.
      PAR(10) = 290.
      CALL GSVOLU('CYF0','PGON',0,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 725.
      PAR(6) = 108.
      PAR(7) = 692.
      PAR(8) = 785.
      PAR(9) = 117.
      PAR(10) = 692.
      CALL GSVOLU('CYF1','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 825.
      PAR(6) = 123.
      PAR(7) = 692.
      PAR(8) = 885.
      PAR(9) = 132.
      PAR(10) = 692.
      CALL GSVOLU('CYF2','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 925.
      PAR(6) = 138.
      PAR(7) = 692.
      PAR(8) = 985.
      PAR(9) = 147.
      PAR(10) = 692.
      CALL GSVOLU('CYF3','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 1025.
      PAR(6) = 153.
      PAR(7) = 264.
      PAR(8) = 1045.
      PAR(9) = 156.
      PAR(10) = 264.
      CALL GSVOLU('CYF4','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 620.
      PAR(6) = 93.
      PAR(7) = 99.
      PAR(8) = 660.
      PAR(9) = 99.
      PAR(10) = 99.
      CALL GSVOLU('CYF5','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 785.
      PAR(6) = 117.
      PAR(7) = 128.
      PAR(8) = 825.
      PAR(9) = 123.
      PAR(10) = 128.
      CALL GSVOLU('CYF6','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 885.
      PAR(6) = 132.
      PAR(7) = 144.
      PAR(8) = 925.
      PAR(9) = 138.
      PAR(10) = 144.
      CALL GSVOLU('CYF7','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 985.
      PAR(6) = 147.
      PAR(7) = 163.
      PAR(8) = 1025.
      PAR(9) = 153.
      PAR(10) = 163.
      CALL GSVOLU('CYF8','PGON',95,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 620.
      PAR(6) = 99.
      PAR(7) = 290.
      PAR(8) = 660.
      PAR(9) = 99.
      PAR(10) = 290.
      CALL GSVOLU('MF1 ','PGON',15,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 785.
      PAR(6) = 128.
      PAR(7) = 759.
      PAR(8) = 825.
      PAR(9) = 128.
      PAR(10) = 759.
      CALL GSVOLU('MF2 ','PGON',15,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 885.
      PAR(6) = 144.
      PAR(7) = 759.
      PAR(8) = 925.
      PAR(9) = 144.
      PAR(10) = 759.
      CALL GSVOLU('MF3 ','PGON',15,PAR,10,IVOLU)
      PAR(1) = -15.
      PAR(2) = 360.
      PAR(3) = 12.
      PAR(4) = 2.
      PAR(5) = 985.
      PAR(6) = 163.
      PAR(7) = 759.
      PAR(8) = 1025.
      PAR(9) = 163.
      PAR(10) = 759.
      CALL GSVOLU('MF4 ','PGON',15,PAR,10,IVOLU)
      CALL GSPOS('CYF0',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYF1',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYF2',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYF3',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYF4',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYF5',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYF6',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYF7',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('CYF8',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('MF1 ',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('MF2 ',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('MF3 ',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GSPOS('MF4 ',1,'CYF ',0.,0.,0.,0,'ONLY')
      CALL GGCLOS
      END