*
* HDDSgeant3 - fortran geometry definition package
*              for the Hall D experiment.
*
*         WARNING: DO NOT EDIT THIS FILE
*
* This file was generated automatically from the
* HDDS xml geometry definition by the hdds-geant
* translator.  Any changes made to this file will
* disappear as soon as it is regenerated from the
* xml source.  To introduce Geant3 optimizations,
* see the subroutine Goptimize() in goptimize.F.
*
      subroutine HDDSgeant3
      implicit none
      integer imate
      character*20 chnama,namate
      real a,z,dens,radl,absl,ubuf(99)
      integer nwbuf
      real amat(99),zmat(99),wmat(99)
      integer nlmat
      integer itmed
      character*20 natmed
      integer nmat,isvol,ifield
      real fieldm,tmaxfd,stemax,deemax,epsil,stmin
      character*4 chname,chshap,chmoth
      integer nmed,npar,ivolu
      real par(99)
      integer irot
      real theta1,phi1,theta2,phi2,theta3,phi3
      integer nr,ndiv,iaxis,numed,ndvmax
      real step,c0
      real x,y
      character*4 chonly

      imate = 2
      chnama = 'Nitrogen'
      a = 14.0067
      z = 7
      dens = 0.00116
      radl = 32750
      absl = 75689.7
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 3
      chnama = 'Oxygen'
      a = 15.9995
      z = 8
      dens = 0.00133
      radl = 25744.4
      absl = 68421.1
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 4
      chnama = 'Argon'
      a = 39.948
      z = 18
      dens = 0.00166
      radl = 11777.1
      absl = 70602.4
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 5
      chnama = 'Hydrogen'
      a = 1.00797
      z = 1
      dens = 8.38e-05
      radl = 731265
      absl = 606205
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 1
      namate = 'Air'
      wmat(1) = 0.7494
      call gfmate(2,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.2369
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.0129
      call gfmate(4,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.0008
      call gfmate(5,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 0.001214
      nlmat = 4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 1
      natmed = 'SITE Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'SITE'
      chshap = 'BOX '
      nmed = 1
      npar = 3
      par(1) = 2500
      par(2) = 2500
      par(3) = 2500
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.1) stop 'consistency check #1 failed'

      imate = 7
      chnama = 'Aluminum'
      a = 26.9815
      z = 13
      dens = 2.7
      radl = 8.89259
      absl = 39.4074
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 8
      namate = 'Calcium'
      a = 40.08
      z = 20
      dens = 1.55
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 9
      chnama = 'Silicon'
      a = 28.086
      z = 14
      dens = 2.33
      radl = 9.36481
      absl = 45.4936
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 10
      chnama = 'Iron'
      a = 55.847
      z = 26
      dens = 7.87
      radl = 1.75858
      absl = 16.7598
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 6
      namate = 'Concrete'
      wmat(1) = 0.004
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.509
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.034
      call gfmate(7,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.07
      call gfmate(8,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.345
      call gfmate(9,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf)
      wmat(6) = 0.038
      call gfmate(10,chnama,amat(6),zmat(6),dens,radl,absl,ubuf,nwbuf)
      dens = 2.35
      nlmat = 6
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 2
      natmed = 'SHLD Concrete'
      nmat = 6
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'SHLD'
      chshap = 'BOX '
      nmed = 2
      npar = 3
      par(1) = 275
      par(2) = 275
      par(3) = 625
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.2) stop 'consistency check #1 failed'

      chname = 'SHLD'
      nr = 1
      chmoth = 'SITE'
      x = 0
      y = 0
      z = -1625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 3
      natmed = 'CAVE Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CAVE'
      chshap = 'BOX '
      nmed = 3
      npar = 3
      par(1) = 225
      par(2) = 135
      par(3) = 600
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.3) stop 'consistency check #1 failed'

      chname = 'CAVE'
      nr = 1
      chmoth = 'SHLD'
      x = 0
      y = 35
      z = 25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 4
      natmed = 'OSHO Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'OSHO'
      chshap = 'TUBE'
      nmed = 4
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 17.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.4) stop 'consistency check #1 failed'

      chname = 'OSHO'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = 567.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 11
      chnama = 'Vacuum'
      a = 0
      z = 0
      dens = 0
      radl = 1e+30
      absl = 1e+30
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      itmed = 5
      natmed = 'ISHO Vacuum'
      nmat = 11
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'ISHO'
      chshap = 'TUBE'
      nmed = 5
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 17.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.5) stop 'consistency check #1 failed'

      chname = 'ISHO'
      nr = 1
      chmoth = 'OSHO'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 13
      namate = 'Boron'
      a = 10.8
      z = 5
      dens = 2.34
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 12
      namate = 'BoronNitride'
      wmat(1) = 1
      call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(2,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.9
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 6
      natmed = 'INSU BoronNitride'
      nmat = 12
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'INSU'
      chshap = 'TUBE'
      nmed = 6
      npar = 3
      par(1) = 0.25
      par(2) = 7.36
      par(3) = 2.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.6) stop 'consistency check #1 failed'

      chname = 'INSU'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = -452.2
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 7
      natmed = 'HOUS Aluminum'
      nmat = 7
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'HOUS'
      chshap = 'TUBE'
      nmed = 7
      npar = 3
      par(1) = 0.25
      par(2) = 6.7
      par(3) = 1.6
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.7) stop 'consistency check #1 failed'

      chname = 'HOUS'
      nr = 1
      chmoth = 'INSU'
      x = 0
      y = 0
      z = 0.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 8
      natmed = 'AIRH Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIRH'
      chshap = 'TUBE'
      nmed = 8
      npar = 3
      par(1) = 0.25
      par(2) = 6.5
      par(3) = 1.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.8) stop 'consistency check #1 failed'

      chname = 'AIRH'
      nr = 1
      chmoth = 'HOUS'
      x = 0
      y = 0
      z = -0.15
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 9
      natmed = 'DIV1 Aluminum'
      nmat = 7
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DIV1'
      chshap = 'BOX '
      nmed = 9
      npar = 3
      par(1) = 3.125
      par(2) = 0.05
      par(3) = 1.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.9) stop 'consistency check #1 failed'

      chname = 'DIV1'
      nr = 1
      chmoth = 'AIRH'
      x = 3.375
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1
      theta1 = 90
      phi1 = 90
      theta2 = 90
      phi2 = 180
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'DIV1'
      nr = 2
      chmoth = 'AIRH'
      x = 2.06652e-16
      y = 3.375
      z = 0
      irot = 1
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2
      theta1 = 90
      phi1 = 180
      theta2 = 90
      phi2 = -90
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'DIV1'
      nr = 3
      chmoth = 'AIRH'
      x = -3.375
      y = 4.13305e-16
      z = 0
      irot = 2
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = -1.05247e-14
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'DIV1'
      nr = 4
      chmoth = 'AIRH'
      x = -6.19957e-16
      y = -3.375
      z = 0
      irot = 3
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 10
      natmed = 'DIV2 Aluminum'
      nmat = 7
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DIV2'
      chshap = 'TUBE'
      nmed = 10
      npar = 3
      par(1) = 2.7
      par(2) = 2.8
      par(3) = 1.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.10) stop 'consistency check #1 failed'

      chname = 'DIV2'
      nr = 1
      chmoth = 'AIRH'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 11
      natmed = 'ACWI Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'ACWI'
      chshap = 'TUBS'
      nmed = 11
      npar = 5
      par(1) = 0.25
      par(2) = 2.5
      par(3) = 1.25
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.11) stop 'consistency check #1 failed'

      irot = 4
      theta1 = 90
      phi1 = 45
      theta2 = 90
      phi2 = 135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ACWI'
      nr = 1
      chmoth = 'AIRH'
      x = 0
      y = 0
      z = 0
      irot = 4
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 15
      chnama = 'Tungsten'
      a = 183.85
      z = 74
      dens = 19.3
      radl = 0.350259
      absl = 9.58549
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 16
      chnama = 'Copper'
      a = 63.546
      z = 29
      dens = 8.96
      radl = 1.43527
      absl = 15.0558
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 14
      namate = 'SoftTungsten'
      wmat(1) = 0.95
      call gfmate(15,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.05
      call gfmate(16,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 18.2471
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 12
      natmed = 'ACBI SoftTungsten'
      nmat = 14
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'ACBI'
      chshap = 'TUBS'
      nmed = 12
      npar = 5
      par(1) = 0.25
      par(2) = 2.5
      par(3) = 0.4
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.12) stop 'consistency check #1 failed'

      chname = 'ACBI'
      nr = 1
      chmoth = 'ACWI'
      x = 0
      y = 0
      z = -0.85
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 13
      natmed = 'AIR1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIR1'
      chshap = 'TUBS'
      nmed = 13
      npar = 5
      par(1) = 0.25
      par(2) = 0.33
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.13) stop 'consistency check #1 failed'

      chname = 'AIR1'
      nr = 1
      chmoth = 'ACWI'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD01'
      chmoth = 'AIR1'
      ndiv = 3
      iaxis = 2
      step = 15
      c0 = -25
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 14
      natmed = 'AIS1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIS1'
      chshap = 'TUBS'
      nmed = 14
      npar = 5
      par(1) = 0.25
      par(2) = 0.33
      par(3) = 0.85
      par(4) = -10
      par(5) = 10
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.15) stop 'consistency check #1 failed'

      irot = 5
      theta1 = 90
      phi1 = 2.5
      theta2 = 90
      phi2 = 92.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'AIS1'
      nr = 1
      chmoth = 'SD01'
      x = 0
      y = 0
      z = 0
      irot = 5
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 15
      natmed = 'PIN1 SoftTungsten'
      nmat = 14
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'PIN1'
      chshap = 'BOX '
      nmed = 15
      npar = 3
      par(1) = 0.02
      par(2) = 0.02
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.16) stop 'consistency check #1 failed'

      chname = 'PIN1'
      nr = 1
      chmoth = 'AIS1'
      x = 0.3
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 16
      natmed = 'AIR2 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIR2'
      chshap = 'TUBS'
      nmed = 16
      npar = 5
      par(1) = 0.33
      par(2) = 0.42
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.17) stop 'consistency check #1 failed'

      chname = 'AIR2'
      nr = 1
      chmoth = 'ACWI'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD02'
      chmoth = 'AIR2'
      ndiv = 4
      iaxis = 2
      step = 12
      c0 = -25.5
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 17
      natmed = 'AIS2 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIS2'
      chshap = 'TUBS'
      nmed = 17
      npar = 5
      par(1) = 0.33
      par(2) = 0.42
      par(3) = 0.85
      par(4) = -7.5
      par(5) = 7.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.19) stop 'consistency check #1 failed'

      irot = 6
      theta1 = 90
      phi1 = 1.5
      theta2 = 90
      phi2 = 91.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'AIS2'
      nr = 1
      chmoth = 'SD02'
      x = 0
      y = 0
      z = 0
      irot = 6
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 2
      chmoth = 'AIS2'
      x = 0.375
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 18
      natmed = 'AIR3 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIR3'
      chshap = 'TUBS'
      nmed = 18
      npar = 5
      par(1) = 0.42
      par(2) = 0.49
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.20) stop 'consistency check #1 failed'

      chname = 'AIR3'
      nr = 1
      chmoth = 'ACWI'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD03'
      chmoth = 'AIR3'
      ndiv = 5
      iaxis = 2
      step = 10
      c0 = -26
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 19
      natmed = 'AIS3 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIS3'
      chshap = 'TUBS'
      nmed = 19
      npar = 5
      par(1) = 0.42
      par(2) = 0.49
      par(3) = 0.85
      par(4) = -6
      par(5) = 6
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.22) stop 'consistency check #1 failed'

      irot = 7
      theta1 = 90
      phi1 = 1
      theta2 = 90
      phi2 = 91
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'AIS3'
      nr = 1
      chmoth = 'SD03'
      x = 0
      y = 0
      z = 0
      irot = 7
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 3
      chmoth = 'AIS3'
      x = 0.45
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 20
      natmed = 'AIR4 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIR4'
      chshap = 'TUBS'
      nmed = 20
      npar = 5
      par(1) = 0.49
      par(2) = 0.56
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.23) stop 'consistency check #1 failed'

      chname = 'AIR4'
      nr = 1
      chmoth = 'ACWI'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD04'
      chmoth = 'AIR4'
      ndiv = 6
      iaxis = 2
      step = 8.57
      c0 = -26.43
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 21
      natmed = 'AIS4 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIS4'
      chshap = 'TUBS'
      nmed = 21
      npar = 5
      par(1) = 0.49
      par(2) = 0.56
      par(3) = 0.85
      par(4) = -5
      par(5) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.25) stop 'consistency check #1 failed'

      irot = 8
      theta1 = 90
      phi1 = 0.715
      theta2 = 90
      phi2 = 90.715
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'AIS4'
      nr = 1
      chmoth = 'SD04'
      x = 0
      y = 0
      z = 0
      irot = 8
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 4
      chmoth = 'AIS4'
      x = 0.525
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 22
      natmed = 'AIR5 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIR5'
      chshap = 'TUBS'
      nmed = 22
      npar = 5
      par(1) = 0.56
      par(2) = 0.64
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.26) stop 'consistency check #1 failed'

      chname = 'AIR5'
      nr = 1
      chmoth = 'ACWI'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD05'
      chmoth = 'AIR5'
      ndiv = 7
      iaxis = 2
      step = 7.5
      c0 = -26.79
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 23
      natmed = 'AIS5 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIS5'
      chshap = 'TUBS'
      nmed = 23
      npar = 5
      par(1) = 0.56
      par(2) = 0.64
      par(3) = 0.85
      par(4) = -4.29
      par(5) = 4.28
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.28) stop 'consistency check #1 failed'

      irot = 9
      theta1 = 90
      phi1 = 0.54
      theta2 = 90
      phi2 = 90.54
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'AIS5'
      nr = 1
      chmoth = 'SD05'
      x = 0
      y = 0
      z = 0
      irot = 9
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 5
      chmoth = 'AIS5'
      x = 0.6
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 24
      natmed = 'AIR6 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIR6'
      chshap = 'TUBS'
      nmed = 24
      npar = 5
      par(1) = 0.64
      par(2) = 0.7
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.29) stop 'consistency check #1 failed'

      chname = 'AIR6'
      nr = 1
      chmoth = 'ACWI'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD06'
      chmoth = 'AIR6'
      ndiv = 8
      iaxis = 2
      step = 6.67
      c0 = -27.08
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 25
      natmed = 'AIS6 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIS6'
      chshap = 'TUBS'
      nmed = 25
      npar = 5
      par(1) = 0.64
      par(2) = 0.7
      par(3) = 0.85
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.31) stop 'consistency check #1 failed'

      irot = 10
      theta1 = 90
      phi1 = 0.415
      theta2 = 90
      phi2 = 90.415
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'AIS6'
      nr = 1
      chmoth = 'SD06'
      x = 0
      y = 0
      z = 0
      irot = 10
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 6
      chmoth = 'AIS6'
      x = 0.675
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 26
      natmed = 'AIR7 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIR7'
      chshap = 'TUBS'
      nmed = 26
      npar = 5
      par(1) = 0.7
      par(2) = 0.78
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.32) stop 'consistency check #1 failed'

      chname = 'AIR7'
      nr = 1
      chmoth = 'ACWI'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD07'
      chmoth = 'AIR7'
      ndiv = 9
      iaxis = 2
      step = 6
      c0 = -27.33
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 27
      natmed = 'AIS7 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIS7'
      chshap = 'TUBS'
      nmed = 27
      npar = 5
      par(1) = 0.7
      par(2) = 0.78
      par(3) = 0.85
      par(4) = -3.33
      par(5) = 3.34
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.34) stop 'consistency check #1 failed'

      irot = 11
      theta1 = 90
      phi1 = 0.33
      theta2 = 90
      phi2 = 90.33
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'AIS7'
      nr = 1
      chmoth = 'SD07'
      x = 0
      y = 0
      z = 0
      irot = 11
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 7
      chmoth = 'AIS7'
      x = 0.75
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 28
      natmed = 'AIR8 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIR8'
      chshap = 'TUBS'
      nmed = 28
      npar = 5
      par(1) = 0.78
      par(2) = 0.85
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.35) stop 'consistency check #1 failed'

      chname = 'AIR8'
      nr = 1
      chmoth = 'ACWI'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD08'
      chmoth = 'AIR8'
      ndiv = 10
      iaxis = 2
      step = 5.45
      c0 = -27.55
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 29
      natmed = 'AIS8 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AIS8'
      chshap = 'TUBS'
      nmed = 29
      npar = 5
      par(1) = 0.78
      par(2) = 0.85
      par(3) = 0.85
      par(4) = -3
      par(5) = 3
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.37) stop 'consistency check #1 failed'

      irot = 12
      theta1 = 90
      phi1 = 0.275
      theta2 = 90
      phi2 = 90.275
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'AIS8'
      nr = 1
      chmoth = 'SD08'
      x = 0
      y = 0
      z = 0
      irot = 12
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 8
      chmoth = 'AIS8'
      x = 0.825
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 13
      theta1 = 90
      phi1 = 135
      theta2 = 90
      phi2 = -135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ACWI'
      nr = 2
      chmoth = 'AIRH'
      x = 0
      y = 0
      z = 0
      irot = 13
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 14
      theta1 = 90
      phi1 = -135
      theta2 = 90
      phi2 = -45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ACWI'
      nr = 3
      chmoth = 'AIRH'
      x = 0
      y = 0
      z = 0
      irot = 14
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 15
      theta1 = 90
      phi1 = -45
      theta2 = 90
      phi2 = 45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ACWI'
      nr = 4
      chmoth = 'AIRH'
      x = 0
      y = 0
      z = 0
      irot = 15
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 30
      natmed = 'ACWO Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'ACWO'
      chshap = 'TUBS'
      nmed = 30
      npar = 5
      par(1) = 3
      par(2) = 6
      par(3) = 1.25
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.38) stop 'consistency check #1 failed'

      irot = 16
      theta1 = 90
      phi1 = 45
      theta2 = 90
      phi2 = 135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ACWO'
      nr = 1
      chmoth = 'AIRH'
      x = 0
      y = 0
      z = 0
      irot = 16
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 31
      natmed = 'ACBO SoftTungsten'
      nmat = 14
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'ACBO'
      chshap = 'TUBS'
      nmed = 31
      npar = 5
      par(1) = 3
      par(2) = 6
      par(3) = 0.4
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.39) stop 'consistency check #1 failed'

      chname = 'ACBO'
      nr = 1
      chmoth = 'ACWO'
      x = 0
      y = 0
      z = -0.85
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 32
      natmed = 'AOR1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOR1'
      chshap = 'TUBS'
      nmed = 32
      npar = 5
      par(1) = 3
      par(2) = 3.08
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.40) stop 'consistency check #1 failed'

      chname = 'AOR1'
      nr = 1
      chmoth = 'ACWO'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD09'
      chmoth = 'AOR1'
      ndiv = 40
      iaxis = 2
      step = 1.463
      c0 = -29.392
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 33
      natmed = 'AOS1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOS1'
      chshap = 'TUBS'
      nmed = 33
      npar = 5
      par(1) = 3
      par(2) = 3.08
      par(3) = 0.85
      par(4) = -0.732
      par(5) = 0.731
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.42) stop 'consistency check #1 failed'

      chname = 'AOS1'
      nr = 1
      chmoth = 'SD09'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 9
      chmoth = 'AOS1'
      x = 3.05
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 34
      natmed = 'AOR2 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOR2'
      chshap = 'TUBS'
      nmed = 34
      npar = 5
      par(1) = 3.08
      par(2) = 3.16
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.43) stop 'consistency check #1 failed'

      chname = 'AOR2'
      nr = 1
      chmoth = 'ACWO'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD0A'
      chmoth = 'AOR2'
      ndiv = 41
      iaxis = 2
      step = 1.429
      c0 = -29.383
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 35
      natmed = 'AOS2 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOS2'
      chshap = 'TUBS'
      nmed = 35
      npar = 5
      par(1) = 3.08
      par(2) = 3.16
      par(3) = 0.85
      par(4) = -0.715
      par(5) = 0.714
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.45) stop 'consistency check #1 failed'

      chname = 'AOS2'
      nr = 1
      chmoth = 'SD0A'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 10
      chmoth = 'AOS2'
      x = 3.125
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 36
      natmed = 'AOR3 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOR3'
      chshap = 'TUBS'
      nmed = 36
      npar = 5
      par(1) = 3.16
      par(2) = 3.24
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.46) stop 'consistency check #1 failed'

      chname = 'AOR3'
      nr = 1
      chmoth = 'ACWO'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD0B'
      chmoth = 'AOR3'
      ndiv = 42
      iaxis = 2
      step = 1.395
      c0 = -29.384
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 37
      natmed = 'AOS3 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOS3'
      chshap = 'TUBS'
      nmed = 37
      npar = 5
      par(1) = 3.16
      par(2) = 3.24
      par(3) = 0.85
      par(4) = -0.698
      par(5) = 0.697
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.48) stop 'consistency check #1 failed'

      chname = 'AOS3'
      nr = 1
      chmoth = 'SD0B'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 11
      chmoth = 'AOS3'
      x = 3.2
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 38
      natmed = 'AOR4 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOR4'
      chshap = 'TUBS'
      nmed = 38
      npar = 5
      par(1) = 3.24
      par(2) = 3.32
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.49) stop 'consistency check #1 failed'

      chname = 'AOR4'
      nr = 1
      chmoth = 'ACWO'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD0C'
      chmoth = 'AOR4'
      ndiv = 43
      iaxis = 2
      step = 1.364
      c0 = -29.385
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 39
      natmed = 'AOS4 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOS4'
      chshap = 'TUBS'
      nmed = 39
      npar = 5
      par(1) = 3.24
      par(2) = 3.32
      par(3) = 0.85
      par(4) = -0.682
      par(5) = 0.682
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.51) stop 'consistency check #1 failed'

      chname = 'AOS4'
      nr = 1
      chmoth = 'SD0C'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 12
      chmoth = 'AOS4'
      x = 3.275
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 40
      natmed = 'AOR5 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOR5'
      chshap = 'TUBS'
      nmed = 40
      npar = 5
      par(1) = 3.32
      par(2) = 3.38
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.52) stop 'consistency check #1 failed'

      chname = 'AOR5'
      nr = 1
      chmoth = 'ACWO'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD0D'
      chmoth = 'AOR5'
      ndiv = 44
      iaxis = 2
      step = 1.333
      c0 = -29.385
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 41
      natmed = 'AOS5 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOS5'
      chshap = 'TUBS'
      nmed = 41
      npar = 5
      par(1) = 3.32
      par(2) = 3.38
      par(3) = 0.85
      par(4) = -0.667
      par(5) = 0.666
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.54) stop 'consistency check #1 failed'

      chname = 'AOS5'
      nr = 1
      chmoth = 'SD0D'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 13
      chmoth = 'AOS5'
      x = 3.35
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 42
      natmed = 'AOR6 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOR6'
      chshap = 'TUBS'
      nmed = 42
      npar = 5
      par(1) = 3.38
      par(2) = 3.46
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.55) stop 'consistency check #1 failed'

      chname = 'AOR6'
      nr = 1
      chmoth = 'ACWO'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD0E'
      chmoth = 'AOR6'
      ndiv = 45
      iaxis = 2
      step = 1.304
      c0 = -29.385
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 43
      natmed = 'AOS6 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOS6'
      chshap = 'TUBS'
      nmed = 43
      npar = 5
      par(1) = 3.38
      par(2) = 3.46
      par(3) = 0.85
      par(4) = -0.652
      par(5) = 0.652
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.57) stop 'consistency check #1 failed'

      chname = 'AOS6'
      nr = 1
      chmoth = 'SD0E'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 14
      chmoth = 'AOS6'
      x = 3.425
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 44
      natmed = 'AOR7 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOR7'
      chshap = 'TUBS'
      nmed = 44
      npar = 5
      par(1) = 3.46
      par(2) = 3.54
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.58) stop 'consistency check #1 failed'

      chname = 'AOR7'
      nr = 1
      chmoth = 'ACWO'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD0F'
      chmoth = 'AOR7'
      ndiv = 46
      iaxis = 2
      step = 1.277
      c0 = -29.387
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 45
      natmed = 'AOS7 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOS7'
      chshap = 'TUBS'
      nmed = 45
      npar = 5
      par(1) = 3.46
      par(2) = 3.54
      par(3) = 0.85
      par(4) = -0.639
      par(5) = 0.638
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.60) stop 'consistency check #1 failed'

      chname = 'AOS7'
      nr = 1
      chmoth = 'SD0F'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 15
      chmoth = 'AOS7'
      x = 3.5
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 46
      natmed = 'AOR8 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOR8'
      chshap = 'TUBS'
      nmed = 46
      npar = 5
      par(1) = 3.54
      par(2) = 3.62
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.61) stop 'consistency check #1 failed'

      chname = 'AOR8'
      nr = 1
      chmoth = 'ACWO'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD10'
      chmoth = 'AOR8'
      ndiv = 47
      iaxis = 2
      step = 1.25
      c0 = -29.387
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 47
      natmed = 'AOS8 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOS8'
      chshap = 'TUBS'
      nmed = 47
      npar = 5
      par(1) = 3.54
      par(2) = 3.62
      par(3) = 0.85
      par(4) = -0.625
      par(5) = 0.625
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.63) stop 'consistency check #1 failed'

      chname = 'AOS8'
      nr = 1
      chmoth = 'SD10'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 16
      chmoth = 'AOS8'
      x = 3.575
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 48
      natmed = 'AOR9 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOR9'
      chshap = 'TUBS'
      nmed = 48
      npar = 5
      par(1) = 3.62
      par(2) = 3.7
      par(3) = 0.85
      par(4) = -30
      par(5) = 30
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.64) stop 'consistency check #1 failed'

      chname = 'AOR9'
      nr = 1
      chmoth = 'ACWO'
      x = 0
      y = 0
      z = 0.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD11'
      chmoth = 'AOR9'
      ndiv = 48
      iaxis = 2
      step = 1.224
      c0 = -29.387
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 49
      natmed = 'AOS9 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'AOS9'
      chshap = 'TUBS'
      nmed = 49
      npar = 5
      par(1) = 3.62
      par(2) = 3.7
      par(3) = 0.85
      par(4) = -0.612
      par(5) = 0.612
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.66) stop 'consistency check #1 failed'

      chname = 'AOS9'
      nr = 1
      chmoth = 'SD11'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'PIN1'
      nr = 17
      chmoth = 'AOS9'
      x = 3.65
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 17
      theta1 = 90
      phi1 = 135
      theta2 = 90
      phi2 = -135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ACWO'
      nr = 2
      chmoth = 'AIRH'
      x = 0
      y = 0
      z = 0
      irot = 17
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 18
      theta1 = 90
      phi1 = -135
      theta2 = 90
      phi2 = -45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ACWO'
      nr = 3
      chmoth = 'AIRH'
      x = 0
      y = 0
      z = 0
      irot = 18
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 19
      theta1 = 90
      phi1 = -45
      theta2 = 90
      phi2 = 45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ACWO'
      nr = 4
      chmoth = 'AIRH'
      x = 0
      y = 0
      z = 0
      irot = 19
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 50
      natmed = 'HOUF Aluminum'
      nmat = 7
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'HOUF'
      chshap = 'TUBE'
      nmed = 50
      npar = 3
      par(1) = 0.25
      par(2) = 6.85
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.67) stop 'consistency check #1 failed'

      chname = 'HOUF'
      nr = 1
      chmoth = 'INSU'
      x = 0
      y = 0
      z = -1.85
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 51
      natmed = 'DET1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DET1'
      chshap = 'TUBE'
      nmed = 51
      npar = 3
      par(1) = 0
      par(2) = 50
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.68) stop 'consistency check #1 failed'

      chname = 'DET1'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = -455.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 52
      natmed = 'COL1 Tungsten'
      nmat = 15
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'COL1'
      chshap = 'TUBE'
      nmed = 52
      npar = 3
      par(1) = 0.17
      par(2) = 10
      par(3) = 15
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.69) stop 'consistency check #1 failed'

      chname = 'COL1'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = -435
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 53
      natmed = 'MAG1 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'MAG1'
      chshap = 'BOX '
      nmed = 53
      npar = 3
      par(1) = 10
      par(2) = 25
      par(3) = 15
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.70) stop 'consistency check #1 failed'

      irot = 20
      theta1 = 90
      phi1 = 0
      theta2 = 3.50824e-15
      phi2 = 90
      theta3 = 90
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'MAG1'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = -375
      irot = 20
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 54
      natmed = 'POL1 Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'POL1'
      chshap = 'BOX '
      nmed = 54
      npar = 3
      par(1) = 10
      par(2) = 25
      par(3) = 7
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.71) stop 'consistency check #1 failed'

      chname = 'POL1'
      nr = 1
      chmoth = 'MAG1'
      x = 0
      y = 0
      z = -8
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'POL1'
      nr = 2
      chmoth = 'MAG1'
      x = 0
      y = 0
      z = 8
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 17
      chnama = 'Lead'
      a = 207.2
      z = 82
      dens = 11.35
      radl = 0.561233
      absl = 17.0925
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      itmed = 55
      natmed = 'GAP1 Lead'
      nmat = 17
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'GAP1'
      chshap = 'BOX '
      nmed = 55
      npar = 3
      par(1) = 4.5
      par(2) = 25
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.72) stop 'consistency check #1 failed'

      chname = 'GAP1'
      nr = 1
      chmoth = 'MAG1'
      x = -5.5
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'GAP1'
      nr = 2
      chmoth = 'MAG1'
      x = 5.5
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 56
      natmed = 'ABS1 Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'ABS1'
      chshap = 'BOX '
      nmed = 56
      npar = 3
      par(1) = 25
      par(2) = 25
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.73) stop 'consistency check #1 failed'

      chname = 'ABS1'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = -240
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 57
      natmed = 'HOL1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'HOL1'
      chshap = 'BOX '
      nmed = 57
      npar = 3
      par(1) = 1
      par(2) = 1
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.74) stop 'consistency check #1 failed'

      chname = 'HOL1'
      nr = 1
      chmoth = 'ABS1'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 58
      natmed = 'BLC1 Concrete'
      nmat = 6
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BLC1'
      chshap = 'BOX '
      nmed = 58
      npar = 3
      par(1) = 100
      par(2) = 100
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.75) stop 'consistency check #1 failed'

      chname = 'BLC1'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = -50
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 59
      natmed = 'BHO1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BHO1'
      chshap = 'BOX '
      nmed = 59
      npar = 3
      par(1) = 1
      par(2) = 1
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.76) stop 'consistency check #1 failed'

      chname = 'BHO1'
      nr = 1
      chmoth = 'BLC1'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 18
      namate = 'Nickel'
      a = 58.7
      z = 28
      dens = 8.876
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      itmed = 60
      natmed = 'COL2 Nickel'
      nmat = 18
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'COL2'
      chshap = 'TUBE'
      nmed = 60
      npar = 3
      par(1) = 0.5
      par(2) = 10
      par(3) = 25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.77) stop 'consistency check #1 failed'

      chname = 'COL2'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = 195
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 61
      natmed = 'MAG2 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'MAG2'
      chshap = 'BOX '
      nmed = 61
      npar = 3
      par(1) = 10
      par(2) = 25
      par(3) = 15
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.78) stop 'consistency check #1 failed'

      irot = 21
      theta1 = 90
      phi1 = 0
      theta2 = 3.50824e-15
      phi2 = 90
      theta3 = 90
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'MAG2'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = 255
      irot = 21
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 62
      natmed = 'POL2 Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'POL2'
      chshap = 'BOX '
      nmed = 62
      npar = 3
      par(1) = 10
      par(2) = 25
      par(3) = 6.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.79) stop 'consistency check #1 failed'

      chname = 'POL2'
      nr = 1
      chmoth = 'MAG2'
      x = 0
      y = 0
      z = -8.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'POL2'
      nr = 2
      chmoth = 'MAG2'
      x = 0
      y = 0
      z = 8.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 63
      natmed = 'GAP2 Lead'
      nmat = 17
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'GAP2'
      chshap = 'BOX '
      nmed = 63
      npar = 3
      par(1) = 3.75
      par(2) = 25
      par(3) = 2.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.80) stop 'consistency check #1 failed'

      chname = 'GAP2'
      nr = 1
      chmoth = 'MAG2'
      x = -6.25
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'GAP2'
      nr = 2
      chmoth = 'MAG2'
      x = 6.25
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 64
      natmed = 'OMHO Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'OMHO'
      chshap = 'TUBE'
      nmed = 64
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.81) stop 'consistency check #1 failed'

      irot = 22
      theta1 = 90
      phi1 = 0
      theta2 = 3.50824e-15
      phi2 = 90
      theta3 = 90
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'OMHO'
      nr = 1
      chmoth = 'MAG2'
      x = 0
      y = 0
      z = 0
      irot = 22
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 65
      natmed = 'IMHO Vacuum'
      nmat = 11
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'IMHO'
      chshap = 'TUBE'
      nmed = 65
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.82) stop 'consistency check #1 failed'

      chname = 'IMHO'
      nr = 1
      chmoth = 'OMHO'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 20
      chnama = 'Carbon'
      a = 12.011
      z = 6
      dens = 2.265
      radl = 18.8521
      absl = 38.1015
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 19
      namate = 'Mylar'
      wmat(1) = 5
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 4
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 2
      call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.39
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 66
      natmed = 'CAP1 Mylar'
      nmat = 19
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CAP1'
      chshap = 'TUBE'
      nmed = 66
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 0.025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.83) stop 'consistency check #1 failed'

      chname = 'CAP1'
      nr = 1
      chmoth = 'IMHO'
      x = 0
      y = 0
      z = 24.975
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 67
      natmed = 'OCH1 Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'OCH1'
      chshap = 'TUBE'
      nmed = 67
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.84) stop 'consistency check #1 failed'

      chname = 'OCH1'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = 285
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 68
      natmed = 'ICH1 Vacuum'
      nmat = 11
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'ICH1'
      chshap = 'TUBE'
      nmed = 68
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.85) stop 'consistency check #1 failed'

      chname = 'ICH1'
      nr = 1
      chmoth = 'OCH1'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 69
      natmed = 'ABS2 Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'ABS2'
      chshap = 'BOX '
      nmed = 69
      npar = 3
      par(1) = 50
      par(2) = 50
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.86) stop 'consistency check #1 failed'

      chname = 'ABS2'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = 340
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 70
      natmed = 'OAHO Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'OAHO'
      chshap = 'TUBE'
      nmed = 70
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.87) stop 'consistency check #1 failed'

      chname = 'OAHO'
      nr = 1
      chmoth = 'ABS2'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 71
      natmed = 'IAHO Vacuum'
      nmat = 11
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'IAHO'
      chshap = 'TUBE'
      nmed = 71
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.88) stop 'consistency check #1 failed'

      chname = 'IAHO'
      nr = 1
      chmoth = 'OAHO'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 72
      natmed = 'OCH2 Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'OCH2'
      chshap = 'TUBE'
      nmed = 72
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 20
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.89) stop 'consistency check #1 failed'

      chname = 'OCH2'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = 410
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 73
      natmed = 'ICH2 Vacuum'
      nmat = 11
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'ICH2'
      chshap = 'TUBE'
      nmed = 73
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 20
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.90) stop 'consistency check #1 failed'

      chname = 'ICH2'
      nr = 1
      chmoth = 'OCH2'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 74
      natmed = 'BLC2 Concrete'
      nmat = 6
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BLC2'
      chshap = 'BOX '
      nmed = 74
      npar = 3
      par(1) = 200
      par(2) = 125
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.91) stop 'consistency check #1 failed'

      chname = 'BLC2'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -10
      z = 480
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 75
      natmed = 'OBHO Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'OBHO'
      chshap = 'TUBE'
      nmed = 75
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.92) stop 'consistency check #1 failed'

      chname = 'OBHO'
      nr = 1
      chmoth = 'BLC2'
      x = 0
      y = -25
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 76
      natmed = 'IBHO Vacuum'
      nmat = 11
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'IBHO'
      chshap = 'TUBE'
      nmed = 76
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.93) stop 'consistency check #1 failed'

      chname = 'IBHO'
      nr = 1
      chmoth = 'OBHO'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 77
      natmed = 'OCH3 Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'OCH3'
      chshap = 'TUBE'
      nmed = 77
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.94) stop 'consistency check #1 failed'

      chname = 'OCH3'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -35
      z = 585
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 78
      natmed = 'ICH3 Vacuum'
      nmat = 11
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'ICH3'
      chshap = 'TUBE'
      nmed = 78
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.95) stop 'consistency check #1 failed'

      chname = 'ICH3'
      nr = 1
      chmoth = 'OCH3'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 79
      natmed = 'WALL Lead'
      nmat = 17
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'WALL'
      chshap = 'BOX '
      nmed = 79
      npar = 3
      par(1) = 235
      par(2) = 135
      par(3) = 7.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.96) stop 'consistency check #1 failed'

      chname = 'WALL'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = 0
      z = 592.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 80
      natmed = 'OWHO Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'OWHO'
      chshap = 'TUBE'
      nmed = 80
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 7.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.97) stop 'consistency check #1 failed'

      chname = 'OWHO'
      nr = 1
      chmoth = 'WALL'
      x = 0
      y = -35
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 81
      natmed = 'IWHO Vacuum'
      nmat = 11
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'IWHO'
      chshap = 'TUBE'
      nmed = 81
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 7.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.98) stop 'consistency check #1 failed'

      chname = 'IWHO'
      nr = 1
      chmoth = 'OWHO'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 82
      natmed = 'DET2 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DET2'
      chshap = 'BOX '
      nmed = 82
      npar = 3
      par(1) = 225
      par(2) = 135
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.99) stop 'consistency check #1 failed'

      chname = 'DET2'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = 0
      z = 75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 83
      natmed = 'DET3 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DET3'
      chshap = 'BOX '
      nmed = 83
      npar = 3
      par(1) = 225
      par(2) = 1
      par(3) = 600
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.100) stop 'consistency check #1 failed'

      chname = 'DET3'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = 132
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 84
      natmed = 'HALL Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'HALL'
      chshap = 'BOX '
      nmed = 84
      npar = 3
      par(1) = 850
      par(2) = 750
      par(3) = 1500
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.101) stop 'consistency check #1 failed'

      chname = 'HALL'
      nr = 1
      chmoth = 'SITE'
      x = -150
      y = 350
      z = 500
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 85
      natmed = 'TARG Vacuum'
      nmat = 11
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'TARG'
      chshap = 'TUBE'
      nmed = 85
      npar = 3
      par(1) = 0
      par(2) = 4
      par(3) = 27.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.102) stop 'consistency check #1 failed'

      chname = 'TARG'
      nr = 1
      chmoth = 'HALL'
      x = 150
      y = -350
      z = -437.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 21
      namate = 'HighDensityROHACELL'
      wmat(1) = 11
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 8
      call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 1
      call gfmate(2,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 2
      call gfmate(3,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 0.11
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 86
      natmed = 'CYLW HighDensityROHACELL'
      nmat = 21
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CYLW'
      chshap = 'TUBE'
      nmed = 86
      npar = 3
      par(1) = 3
      par(2) = 4
      par(3) = 27.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.103) stop 'consistency check #1 failed'

      chname = 'CYLW'
      nr = 1
      chmoth = 'TARG'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 87
      natmed = 'UWIT Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UWIT'
      chshap = 'TUBE'
      nmed = 87
      npar = 3
      par(1) = 0
      par(2) = 2
      par(3) = 0.0035
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.104) stop 'consistency check #1 failed'

      chname = 'UWIT'
      nr = 1
      chmoth = 'TARG'
      x = 0
      y = 0
      z = -27.495
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 88
      natmed = 'DWIT Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DWIT'
      chshap = 'TUBE'
      nmed = 88
      npar = 3
      par(1) = 0
      par(2) = 2
      par(3) = 0.0035
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.105) stop 'consistency check #1 failed'

      chname = 'DWIT'
      nr = 1
      chmoth = 'TARG'
      x = 0
      y = 0
      z = 27.495
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 89
      natmed = 'UFLT Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UFLT'
      chshap = 'TUBE'
      nmed = 89
      npar = 3
      par(1) = 2
      par(2) = 3
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.106) stop 'consistency check #1 failed'

      chname = 'UFLT'
      nr = 1
      chmoth = 'TARG'
      x = 0
      y = 0
      z = -27.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 90
      natmed = 'DFLT HighDensityROHACELL'
      nmat = 21
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DFLT'
      chshap = 'TUBE'
      nmed = 90
      npar = 3
      par(1) = 2
      par(2) = 3
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.107) stop 'consistency check #1 failed'

      chname = 'DFLT'
      nr = 1
      chmoth = 'TARG'
      x = 0
      y = 0
      z = 27
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 22
      namate = 'Kapton'
      wmat(1) = 22
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 10
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 5
      call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 2
      call gfmate(2,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 1.42
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 91
      natmed = 'TGTV Kapton'
      nmat = 22
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'TGTV'
      chshap = 'TUBE'
      nmed = 91
      npar = 3
      par(1) = 0
      par(2) = 1.515
      par(3) = 15.015
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.108) stop 'consistency check #1 failed'

      chname = 'TGTV'
      nr = 1
      chmoth = 'TARG'
      x = 0
      y = 0
      z = 2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 23
      chnama = 'LiqHydrogen'
      a = 1.00797
      z = 1
      dens = 0.0708
      radl = 865.537
      absl = 717.514
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      itmed = 92
      natmed = 'LIH2 LiqHydrogen'
      nmat = 23
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'LIH2'
      chshap = 'TUBE'
      nmed = 92
      npar = 3
      par(1) = 0
      par(2) = 1.5
      par(3) = 15
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.109) stop 'consistency check #1 failed'

      chname = 'LIH2'
      nr = 1
      chmoth = 'TGTV'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 93
      natmed = 'LASS Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'LASS'
      chshap = 'PCON'
      nmed = 93
      npar = 21
      par(1) = 0
      par(2) = 360
      par(3) = 6
      par(4) = -60.8
      par(5) = 4.5
      par(6) = 188
      par(7) = 92
      par(8) = 4.5
      par(9) = 188
      par(10) = 92
      par(11) = 0
      par(12) = 188
      par(13) = 406
      par(14) = 0
      par(15) = 188
      par(16) = 406
      par(17) = 62
      par(18) = 188
      par(19) = 443.8
      par(20) = 62
      par(21) = 188
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.110) stop 'consistency check #1 failed'

      chname = 'LASS'
      nr = 1
      chmoth = 'HALL'
      x = 150
      y = -350
      z = -500
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 94
      natmed = 'IYUP Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'IYUP'
      chshap = 'TUBE'
      nmed = 94
      npar = 3
      par(1) = 92.71
      par(2) = 187.96
      par(3) = 25.4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.111) stop 'consistency check #1 failed'

      chname = 'IYUP'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = -25.4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 95
      natmed = 'IYOK Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'IYOK'
      chshap = 'TUBE'
      nmed = 95
      npar = 3
      par(1) = 95
      par(2) = 187.96
      par(3) = 188.9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.112) stop 'consistency check #1 failed'

      chname = 'IYOK'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 188.9
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 96
      natmed = 'IYDN Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'IYDN'
      chshap = 'TUBE'
      nmed = 96
      npar = 3
      par(1) = 92.71
      par(2) = 187.96
      par(3) = 33
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.113) stop 'consistency check #1 failed'

      chname = 'IYDN'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 410.8
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 24
      namate = 'LowDensityROHACELL'
      wmat(1) = 11
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 8
      call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 1
      call gfmate(2,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 2
      call gfmate(3,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 0.032
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 97
      natmed = 'STRT LowDensityROHACELL'
      nmat = 24
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STRT'
      chshap = 'PGON'
      nmed = 97
      npar = 25
      par(1) = 0
      par(2) = 360
      par(3) = 24
      par(4) = 7
      par(5) = 0
      par(6) = 6.951
      par(7) = 8.675
      par(8) = 51.383
      par(9) = 6.951
      par(10) = 8.675
      par(11) = 51.726
      par(12) = 6.809
      par(13) = 8.675
      par(14) = 53.938
      par(15) = 5.893
      par(16) = 7.759
      par(17) = 54.914
      par(18) = 4.916
      par(19) = 7.354
      par(20) = 57.915
      par(21) = 1.915
      par(22) = 4.353
      par(23) = 59.134
      par(24) = 3.134
      par(25) = 3.134
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.114) stop 'consistency check #1 failed'

      chname = 'STRT'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 37.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 25
      namate = 'Scintillator'
      wmat(1) = 8
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 9
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.032
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 98
      natmed = 'STRC Scintillator'
      nmat = 25
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STRC'
      chshap = 'PGON'
      nmed = 98
      npar = 25
      par(1) = -7.5
      par(2) = 15
      par(3) = 1
      par(4) = 7
      par(5) = 0
      par(6) = 7.481
      par(7) = 7.696
      par(8) = 51.488
      par(9) = 7.481
      par(10) = 7.696
      par(11) = 51.531
      par(12) = 7.463
      par(13) = 7.696
      par(14) = 54.238
      par(15) = 6.342
      par(16) = 6.575
      par(17) = 54.36
      par(18) = 6.22
      par(19) = 6.524
      par(20) = 58.29
      par(21) = 2.29
      par(22) = 2.594
      par(23) = 58.442
      par(24) = 2.442
      par(25) = 2.442
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.115) stop 'consistency check #1 failed'

      irot = 23
      theta1 = 90
      phi1 = 7.5
      theta2 = 90
      phi2 = 97.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 1
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 23
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 24
      theta1 = 90
      phi1 = 22.5
      theta2 = 90
      phi2 = 112.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 2
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 24
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 25
      theta1 = 90
      phi1 = 37.5
      theta2 = 90
      phi2 = 127.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 3
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 25
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 26
      theta1 = 90
      phi1 = 52.5
      theta2 = 90
      phi2 = 142.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 4
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 26
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 27
      theta1 = 90
      phi1 = 67.5
      theta2 = 90
      phi2 = 157.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 5
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 27
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 28
      theta1 = 90
      phi1 = 82.5
      theta2 = 90
      phi2 = 172.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 6
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 28
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 29
      theta1 = 90
      phi1 = 97.5
      theta2 = 90
      phi2 = -172.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 7
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 29
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 30
      theta1 = 90
      phi1 = 112.5
      theta2 = 90
      phi2 = -157.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 8
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 30
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 31
      theta1 = 90
      phi1 = 127.5
      theta2 = 90
      phi2 = -142.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 9
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 31
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 32
      theta1 = 90
      phi1 = 142.5
      theta2 = 90
      phi2 = -127.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 10
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 32
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 33
      theta1 = 90
      phi1 = 157.5
      theta2 = 90
      phi2 = -112.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 11
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 33
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 34
      theta1 = 90
      phi1 = 172.5
      theta2 = 90
      phi2 = -97.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 12
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 34
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 35
      theta1 = 90
      phi1 = -172.5
      theta2 = 90
      phi2 = -82.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 13
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 35
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 36
      theta1 = 90
      phi1 = -157.5
      theta2 = 90
      phi2 = -67.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 14
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 36
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 37
      theta1 = 90
      phi1 = -142.5
      theta2 = 90
      phi2 = -52.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 15
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 37
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 38
      theta1 = 90
      phi1 = -127.5
      theta2 = 90
      phi2 = -37.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 16
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 38
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 39
      theta1 = 90
      phi1 = -112.5
      theta2 = 90
      phi2 = -22.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 17
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 39
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 40
      theta1 = 90
      phi1 = -97.5
      theta2 = 90
      phi2 = -7.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 18
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 40
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 41
      theta1 = 90
      phi1 = -82.5
      theta2 = 90
      phi2 = 7.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 19
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 41
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 42
      theta1 = 90
      phi1 = -67.5
      theta2 = 90
      phi2 = 22.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 20
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 42
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 43
      theta1 = 90
      phi1 = -52.5
      theta2 = 90
      phi2 = 37.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 21
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 43
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 44
      theta1 = 90
      phi1 = -37.5
      theta2 = 90
      phi2 = 52.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 22
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 44
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 45
      theta1 = 90
      phi1 = -22.5
      theta2 = 90
      phi2 = 67.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 23
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 45
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 46
      theta1 = 90
      phi1 = -7.5
      theta2 = 90
      phi2 = 82.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 24
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 46
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 99
      natmed = 'STSU HighDensityROHACELL'
      nmat = 21
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STSU'
      chshap = 'PGON'
      nmed = 99
      npar = 25
      par(1) = 0
      par(2) = 360
      par(3) = 24
      par(4) = 7
      par(5) = 0
      par(6) = 6.951
      par(7) = 7.481
      par(8) = 51.383
      par(9) = 6.951
      par(10) = 7.481
      par(11) = 51.488
      par(12) = 6.907
      par(13) = 7.481
      par(14) = 53.938
      par(15) = 5.893
      par(16) = 6.467
      par(17) = 54.238
      par(18) = 5.593
      par(19) = 6.342
      par(20) = 57.915
      par(21) = 1.915
      par(22) = 2.665
      par(23) = 58.29
      par(24) = 2.29
      par(25) = 2.29
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.116) stop 'consistency check #1 failed'

      chname = 'STSU'
      nr = 1
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 26
      namate = 'Cellulose'
      wmat(1) = 10
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 6
      call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 5
      call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.1
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 100
      natmed = 'STWR Cellulose'
      nmat = 26
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STWR'
      chshap = 'PGON'
      nmed = 100
      npar = 25
      par(1) = 0
      par(2) = 360
      par(3) = 24
      par(4) = 7
      par(5) = 0
      par(6) = 8.675
      par(7) = 8.725
      par(8) = 51.726
      par(9) = 8.675
      par(10) = 8.725
      par(11) = 51.736
      par(12) = 8.671
      par(13) = 8.725
      par(14) = 54.914
      par(15) = 7.354
      par(16) = 7.409
      par(17) = 54.942
      par(18) = 7.326
      par(19) = 7.397
      par(20) = 59.134
      par(21) = 3.134
      par(22) = 3.205
      par(23) = 59.17
      par(24) = 3.17
      par(25) = 3.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.117) stop 'consistency check #1 failed'

      chname = 'STWR'
      nr = 1
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STWR'
      nr = 2
      chmoth = 'STRT'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 101
      natmed = 'TARM Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'TARM'
      chshap = 'TUBE'
      nmed = 101
      npar = 3
      par(1) = 6.5
      par(2) = 8.32
      par(3) = 70
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.118) stop 'consistency check #1 failed'

      chname = 'TARM'
      nr = 1
      chmoth = 'STRT'
      x = 0
      y = 0
      z = -70
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 27
      namate = 'Plexiglas'
      wmat(1) = 5
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 8
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 2
      call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.2
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 102
      natmed = 'STLG Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STLG'
      chshap = 'TUBE'
      nmed = 102
      npar = 3
      par(1) = 7
      par(2) = 8.32
      par(3) = 70
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.119) stop 'consistency check #1 failed'

      chname = 'STLG'
      nr = 1
      chmoth = 'TARM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 103
      natmed = 'CDC Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDC'
      chshap = 'TUBE'
      nmed = 103
      npar = 3
      par(1) = 9
      par(2) = 60
      par(3) = 87.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.120) stop 'consistency check #1 failed'

      chname = 'CDC'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 92
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 104
      natmed = 'DC1 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC1'
      chshap = 'TUBE'
      nmed = 104
      npar = 3
      par(1) = 10
      par(2) = 11.9
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.121) stop 'consistency check #1 failed'

      chname = 'DC1'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD12'
      chmoth = 'DC1'
      ndiv = 43
      iaxis = 2
      step = 8.37209
      c0 = -4.186
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 105
      natmed = 'DS1 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS1'
      chshap = 'TUBS'
      nmed = 105
      npar = 5
      par(1) = 10
      par(2) = 11.9
      par(3) = 75.75
      par(4) = -4.186
      par(5) = 4.186
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.123) stop 'consistency check #1 failed'

      chname = 'DS1'
      nr = 1
      chmoth = 'SD12'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 29
      namate = 'CO2'
      wmat(1) = 1
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 2
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.001977
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 28
      namate = 'CDchamberGas'
      wmat(1) = 0.85
      call gfmate(4,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.15
      call gfmate(29,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.00170091
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 106
      natmed = 'STRA CDchamberGas'
      nmat = 28
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STRA'
      chshap = 'TUBE'
      nmed = 106
      npar = 3
      par(1) = 0
      par(2) = 0.8
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.124) stop 'consistency check #1 failed'

      chname = 'STRA'
      nr = 1
      chmoth = 'DS1'
      x = 10.96
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 30
      namate = 'AluminizedKapton'
      wmat(1) = 0.087
      call gfmate(7,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.913
      call gfmate(22,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.48109
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 107
      natmed = 'STRW AluminizedKapton'
      nmat = 30
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STRW'
      chshap = 'TUBE'
      nmed = 107
      npar = 3
      par(1) = 0.7895
      par(2) = 0.8
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.125) stop 'consistency check #1 failed'

      chname = 'STRW'
      nr = 1
      chmoth = 'STRA'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 108
      natmed = 'WIRE Tungsten'
      nmat = 15
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'WIRE'
      chshap = 'TUBE'
      nmed = 108
      npar = 3
      par(1) = 0
      par(2) = 0.0015
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.126) stop 'consistency check #1 failed'

      chname = 'WIRE'
      nr = 1
      chmoth = 'STRA'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 109
      natmed = 'UPLG Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPLG'
      chshap = 'TUBE'
      nmed = 109
      npar = 3
      par(1) = 0
      par(2) = 0.8
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.127) stop 'consistency check #1 failed'

      chname = 'UPLG'
      nr = 1
      chmoth = 'STRA'
      x = 0
      y = 0
      z = -75.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 31
      namate = 'Delrin'
      wmat(1) = 1
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 2
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 1
      call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.42
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 110
      natmed = 'DPLG Delrin'
      nmat = 31
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DPLG'
      chshap = 'TUBE'
      nmed = 110
      npar = 3
      par(1) = 0
      par(2) = 0.8
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.128) stop 'consistency check #1 failed'

      chname = 'DPLG'
      nr = 1
      chmoth = 'STRA'
      x = 0
      y = 0
      z = 75.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 111
      natmed = 'CDPU Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDPU'
      chshap = 'TUBE'
      nmed = 111
      npar = 3
      par(1) = 9
      par(2) = 60
      par(3) = 0.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.129) stop 'consistency check #1 failed'

      chname = 'CDPU'
      nr = 1
      chmoth = 'DS1'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 33
      namate = 'CarbonFiber'
      wmat(1) = 1
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      dens = 2.265
      nlmat = -1
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 34
      namate = 'EpoxyResin'
      wmat(1) = 18
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 20
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 3
      call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.3
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 32
      namate = 'CarbonFiberEpoxy'
      wmat(1) = 0.375
      call gfmate(33,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.25
      call gfmate(34,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.375
      call gfmate(33,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.91046
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 112
      natmed = 'CDPD CarbonFiberEpoxy'
      nmat = 32
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDPD'
      chshap = 'TUBE'
      nmed = 112
      npar = 3
      par(1) = 9
      par(2) = 60
      par(3) = 0.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.130) stop 'consistency check #1 failed'

      chname = 'CDPD'
      nr = 1
      chmoth = 'DS1'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 113
      natmed = 'DC2 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC2'
      chshap = 'TUBE'
      nmed = 113
      npar = 3
      par(1) = 11.9
      par(2) = 13.6
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.131) stop 'consistency check #1 failed'

      chname = 'DC2'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD13'
      chmoth = 'DC2'
      ndiv = 50
      iaxis = 2
      step = 7.2
      c0 = -3.6
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 114
      natmed = 'DS2 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS2'
      chshap = 'TUBS'
      nmed = 114
      npar = 5
      par(1) = 11.9
      par(2) = 13.6
      par(3) = 75.75
      par(4) = -3.6
      par(5) = 3.6
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.133) stop 'consistency check #1 failed'

      chname = 'DS2'
      nr = 1
      chmoth = 'SD13'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 2
      chmoth = 'DS2'
      x = 12.741
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 2
      chmoth = 'DS2'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 2
      chmoth = 'DS2'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 115
      natmed = 'DC3 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC3'
      chshap = 'TUBE'
      nmed = 115
      npar = 3
      par(1) = 13.6
      par(2) = 15.4
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.134) stop 'consistency check #1 failed'

      chname = 'DC3'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD14'
      chmoth = 'DC3'
      ndiv = 57
      iaxis = 2
      step = 6.31579
      c0 = -3.158
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 116
      natmed = 'DS3 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS3'
      chshap = 'TUBS'
      nmed = 116
      npar = 5
      par(1) = 13.6
      par(2) = 15.4
      par(3) = 75.75
      par(4) = -3.158
      par(5) = 3.158
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.136) stop 'consistency check #1 failed'

      chname = 'DS3'
      nr = 1
      chmoth = 'SD14'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 3
      chmoth = 'DS3'
      x = 14.522
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 3
      chmoth = 'DS3'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 3
      chmoth = 'DS3'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 117
      natmed = 'DC4 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC4'
      chshap = 'TUBE'
      nmed = 117
      npar = 3
      par(1) = 15.4
      par(2) = 22.3
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.137) stop 'consistency check #1 failed'

      chname = 'DC4'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 118
      natmed = 'STLA CDchamberGas'
      nmat = 28
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STLA'
      chshap = 'TUBE'
      nmed = 118
      npar = 3
      par(1) = 0
      par(2) = 0.8
      par(3) = 76.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.138) stop 'consistency check #1 failed'

      irot = 47
      theta1 = 90
      phi1 = 0
      theta2 = 84
      phi2 = 90
      theta3 = 6
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1
      chmoth = 'DC4'
      x = 16.304
      y = 0
      z = 0
      irot = 47
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 119
      natmed = 'STLW AluminizedKapton'
      nmat = 30
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STLW'
      chshap = 'TUBE'
      nmed = 119
      npar = 3
      par(1) = 0.7895
      par(2) = 0.8
      par(3) = 76.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.139) stop 'consistency check #1 failed'

      chname = 'STLW'
      nr = 1
      chmoth = 'STLA'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 120
      natmed = 'WILE Tungsten'
      nmat = 15
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'WILE'
      chshap = 'TUBE'
      nmed = 120
      npar = 3
      par(1) = 0
      par(2) = 0.0015
      par(3) = 75.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.140) stop 'consistency check #1 failed'

      chname = 'WILE'
      nr = 1
      chmoth = 'STLA'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPLG'
      nr = 2
      chmoth = 'STLA'
      x = 0
      y = 0
      z = -75.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'DPLG'
      nr = 2
      chmoth = 'STLA'
      x = 0
      y = 0
      z = 75.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 48
      theta1 = 90
      phi1 = 5.625
      theta2 = 84
      phi2 = 95.625
      theta3 = 6
      phi3 = -84.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 2
      chmoth = 'DC4'
      x = 16.2255
      y = 1.59807
      z = 0
      irot = 48
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 49
      theta1 = 90
      phi1 = 11.25
      theta2 = 84
      phi2 = 101.25
      theta3 = 6
      phi3 = -78.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 3
      chmoth = 'DC4'
      x = 15.9907
      y = 3.18075
      z = 0
      irot = 49
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 50
      theta1 = 90
      phi1 = 16.875
      theta2 = 84
      phi2 = 106.875
      theta3 = 6
      phi3 = -73.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 4
      chmoth = 'DC4'
      x = 15.602
      y = 4.7328
      z = 0
      irot = 50
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 51
      theta1 = 90
      phi1 = 22.5
      theta2 = 84
      phi2 = 112.5
      theta3 = 6
      phi3 = -67.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 5
      chmoth = 'DC4'
      x = 15.0629
      y = 6.23927
      z = 0
      irot = 51
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 52
      theta1 = 90
      phi1 = 28.125
      theta2 = 84
      phi2 = 118.125
      theta3 = 6
      phi3 = -61.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 6
      chmoth = 'DC4'
      x = 14.3788
      y = 7.68565
      z = 0
      irot = 52
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 53
      theta1 = 90
      phi1 = 33.75
      theta2 = 84
      phi2 = 123.75
      theta3 = 6
      phi3 = -56.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 7
      chmoth = 'DC4'
      x = 13.5563
      y = 9.05802
      z = 0
      irot = 53
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 54
      theta1 = 90
      phi1 = 39.375
      theta2 = 84
      phi2 = 129.375
      theta3 = 6
      phi3 = -50.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 8
      chmoth = 'DC4'
      x = 12.6032
      y = 10.3431
      z = 0
      irot = 54
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 55
      theta1 = 90
      phi1 = 45
      theta2 = 84
      phi2 = 135
      theta3 = 6
      phi3 = -45
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 9
      chmoth = 'DC4'
      x = 11.5287
      y = 11.5287
      z = 0
      irot = 55
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 56
      theta1 = 90
      phi1 = 50.625
      theta2 = 84
      phi2 = 140.625
      theta3 = 6
      phi3 = -39.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 10
      chmoth = 'DC4'
      x = 10.3431
      y = 12.6032
      z = 0
      irot = 56
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 57
      theta1 = 90
      phi1 = 56.25
      theta2 = 84
      phi2 = 146.25
      theta3 = 6
      phi3 = -33.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 11
      chmoth = 'DC4'
      x = 9.05802
      y = 13.5563
      z = 0
      irot = 57
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 58
      theta1 = 90
      phi1 = 61.875
      theta2 = 84
      phi2 = 151.875
      theta3 = 6
      phi3 = -28.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 12
      chmoth = 'DC4'
      x = 7.68565
      y = 14.3788
      z = 0
      irot = 58
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 59
      theta1 = 90
      phi1 = 67.5
      theta2 = 84
      phi2 = 157.5
      theta3 = 6
      phi3 = -22.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 13
      chmoth = 'DC4'
      x = 6.23927
      y = 15.0629
      z = 0
      irot = 59
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 60
      theta1 = 90
      phi1 = 73.125
      theta2 = 84
      phi2 = 163.125
      theta3 = 6
      phi3 = -16.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 14
      chmoth = 'DC4'
      x = 4.7328
      y = 15.602
      z = 0
      irot = 60
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 61
      theta1 = 90
      phi1 = 78.75
      theta2 = 84
      phi2 = 168.75
      theta3 = 6
      phi3 = -11.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 15
      chmoth = 'DC4'
      x = 3.18075
      y = 15.9907
      z = 0
      irot = 61
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 62
      theta1 = 90
      phi1 = 84.375
      theta2 = 84
      phi2 = 174.375
      theta3 = 6
      phi3 = -5.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 16
      chmoth = 'DC4'
      x = 1.59807
      y = 16.2255
      z = 0
      irot = 62
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 63
      theta1 = 90
      phi1 = 90
      theta2 = 84
      phi2 = -180
      theta3 = 6
      phi3 = 2.19362e-14
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 17
      chmoth = 'DC4'
      x = 9.98299e-16
      y = 16.304
      z = 0
      irot = 63
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 64
      theta1 = 90
      phi1 = 95.625
      theta2 = 84
      phi2 = -174.375
      theta3 = 6
      phi3 = 5.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 18
      chmoth = 'DC4'
      x = -1.59807
      y = 16.2255
      z = 0
      irot = 64
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 65
      theta1 = 90
      phi1 = 101.25
      theta2 = 84
      phi2 = -168.75
      theta3 = 6
      phi3 = 11.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 19
      chmoth = 'DC4'
      x = -3.18075
      y = 15.9907
      z = 0
      irot = 65
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 66
      theta1 = 90
      phi1 = 106.875
      theta2 = 84
      phi2 = -163.125
      theta3 = 6
      phi3 = 16.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 20
      chmoth = 'DC4'
      x = -4.7328
      y = 15.602
      z = 0
      irot = 66
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 67
      theta1 = 90
      phi1 = 112.5
      theta2 = 84
      phi2 = -157.5
      theta3 = 6
      phi3 = 22.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 21
      chmoth = 'DC4'
      x = -6.23927
      y = 15.0629
      z = 0
      irot = 67
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 68
      theta1 = 90
      phi1 = 118.125
      theta2 = 84
      phi2 = -151.875
      theta3 = 6
      phi3 = 28.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 22
      chmoth = 'DC4'
      x = -7.68565
      y = 14.3788
      z = 0
      irot = 68
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 69
      theta1 = 90
      phi1 = 123.75
      theta2 = 84
      phi2 = -146.25
      theta3 = 6
      phi3 = 33.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 23
      chmoth = 'DC4'
      x = -9.05802
      y = 13.5563
      z = 0
      irot = 69
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 70
      theta1 = 90
      phi1 = 129.375
      theta2 = 84
      phi2 = -140.625
      theta3 = 6
      phi3 = 39.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 24
      chmoth = 'DC4'
      x = -10.3431
      y = 12.6032
      z = 0
      irot = 70
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 71
      theta1 = 90
      phi1 = 135
      theta2 = 84
      phi2 = -135
      theta3 = 6
      phi3 = 45
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 25
      chmoth = 'DC4'
      x = -11.5287
      y = 11.5287
      z = 0
      irot = 71
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 72
      theta1 = 90
      phi1 = 140.625
      theta2 = 84
      phi2 = -129.375
      theta3 = 6
      phi3 = 50.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 26
      chmoth = 'DC4'
      x = -12.6032
      y = 10.3431
      z = 0
      irot = 72
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 73
      theta1 = 90
      phi1 = 146.25
      theta2 = 84
      phi2 = -123.75
      theta3 = 6
      phi3 = 56.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 27
      chmoth = 'DC4'
      x = -13.5563
      y = 9.05802
      z = 0
      irot = 73
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 74
      theta1 = 90
      phi1 = 151.875
      theta2 = 84
      phi2 = -118.125
      theta3 = 6
      phi3 = 61.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 28
      chmoth = 'DC4'
      x = -14.3788
      y = 7.68565
      z = 0
      irot = 74
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 75
      theta1 = 90
      phi1 = 157.5
      theta2 = 84
      phi2 = -112.5
      theta3 = 6
      phi3 = 67.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 29
      chmoth = 'DC4'
      x = -15.0629
      y = 6.23927
      z = 0
      irot = 75
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 76
      theta1 = 90
      phi1 = 163.125
      theta2 = 84
      phi2 = -106.875
      theta3 = 6
      phi3 = 73.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 30
      chmoth = 'DC4'
      x = -15.602
      y = 4.7328
      z = 0
      irot = 76
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 77
      theta1 = 90
      phi1 = 168.75
      theta2 = 84
      phi2 = -101.25
      theta3 = 6
      phi3 = 78.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 31
      chmoth = 'DC4'
      x = -15.9907
      y = 3.18075
      z = 0
      irot = 77
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 78
      theta1 = 90
      phi1 = 174.375
      theta2 = 84
      phi2 = -95.625
      theta3 = 6
      phi3 = 84.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 32
      chmoth = 'DC4'
      x = -16.2255
      y = 1.59807
      z = 0
      irot = 78
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 79
      theta1 = 90
      phi1 = -180
      theta2 = 84
      phi2 = -90
      theta3 = 6
      phi3 = 90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 33
      chmoth = 'DC4'
      x = -16.304
      y = 1.9966e-15
      z = 0
      irot = 79
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 80
      theta1 = 90
      phi1 = -174.375
      theta2 = 84
      phi2 = -84.375
      theta3 = 6
      phi3 = 95.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 34
      chmoth = 'DC4'
      x = -16.2255
      y = -1.59807
      z = 0
      irot = 80
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 81
      theta1 = 90
      phi1 = -168.75
      theta2 = 84
      phi2 = -78.75
      theta3 = 6
      phi3 = 101.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 35
      chmoth = 'DC4'
      x = -15.9907
      y = -3.18075
      z = 0
      irot = 81
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 82
      theta1 = 90
      phi1 = -163.125
      theta2 = 84
      phi2 = -73.125
      theta3 = 6
      phi3 = 106.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 36
      chmoth = 'DC4'
      x = -15.602
      y = -4.7328
      z = 0
      irot = 82
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 83
      theta1 = 90
      phi1 = -157.5
      theta2 = 84
      phi2 = -67.5
      theta3 = 6
      phi3 = 112.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 37
      chmoth = 'DC4'
      x = -15.0629
      y = -6.23927
      z = 0
      irot = 83
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 84
      theta1 = 90
      phi1 = -151.875
      theta2 = 84
      phi2 = -61.875
      theta3 = 6
      phi3 = 118.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 38
      chmoth = 'DC4'
      x = -14.3788
      y = -7.68565
      z = 0
      irot = 84
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 85
      theta1 = 90
      phi1 = -146.25
      theta2 = 84
      phi2 = -56.25
      theta3 = 6
      phi3 = 123.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 39
      chmoth = 'DC4'
      x = -13.5563
      y = -9.05802
      z = 0
      irot = 85
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 86
      theta1 = 90
      phi1 = -140.625
      theta2 = 84
      phi2 = -50.625
      theta3 = 6
      phi3 = 129.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 40
      chmoth = 'DC4'
      x = -12.6032
      y = -10.3431
      z = 0
      irot = 86
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 87
      theta1 = 90
      phi1 = -135
      theta2 = 84
      phi2 = -45
      theta3 = 6
      phi3 = 135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 41
      chmoth = 'DC4'
      x = -11.5287
      y = -11.5287
      z = 0
      irot = 87
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 88
      theta1 = 90
      phi1 = -129.375
      theta2 = 84
      phi2 = -39.375
      theta3 = 6
      phi3 = 140.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 42
      chmoth = 'DC4'
      x = -10.3431
      y = -12.6032
      z = 0
      irot = 88
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 89
      theta1 = 90
      phi1 = -123.75
      theta2 = 84
      phi2 = -33.75
      theta3 = 6
      phi3 = 146.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 43
      chmoth = 'DC4'
      x = -9.05802
      y = -13.5563
      z = 0
      irot = 89
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 90
      theta1 = 90
      phi1 = -118.125
      theta2 = 84
      phi2 = -28.125
      theta3 = 6
      phi3 = 151.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 44
      chmoth = 'DC4'
      x = -7.68565
      y = -14.3788
      z = 0
      irot = 90
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 91
      theta1 = 90
      phi1 = -112.5
      theta2 = 84
      phi2 = -22.5
      theta3 = 6
      phi3 = 157.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 45
      chmoth = 'DC4'
      x = -6.23927
      y = -15.0629
      z = 0
      irot = 91
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 92
      theta1 = 90
      phi1 = -106.875
      theta2 = 84
      phi2 = -16.875
      theta3 = 6
      phi3 = 163.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 46
      chmoth = 'DC4'
      x = -4.7328
      y = -15.602
      z = 0
      irot = 92
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 93
      theta1 = 90
      phi1 = -101.25
      theta2 = 84
      phi2 = -11.25
      theta3 = 6
      phi3 = 168.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 47
      chmoth = 'DC4'
      x = -3.18075
      y = -15.9907
      z = 0
      irot = 93
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 94
      theta1 = 90
      phi1 = -95.625
      theta2 = 84
      phi2 = -5.625
      theta3 = 6
      phi3 = 174.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 48
      chmoth = 'DC4'
      x = -1.59807
      y = -16.2255
      z = 0
      irot = 94
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 95
      theta1 = 90
      phi1 = -90
      theta2 = 84
      phi2 = 4.03642e-14
      theta3 = 6
      phi3 = -180
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 49
      chmoth = 'DC4'
      x = -2.9949e-15
      y = -16.304
      z = 0
      irot = 95
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 96
      theta1 = 90
      phi1 = -84.375
      theta2 = 84
      phi2 = 5.625
      theta3 = 6
      phi3 = -174.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 50
      chmoth = 'DC4'
      x = 1.59807
      y = -16.2255
      z = 0
      irot = 96
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 97
      theta1 = 90
      phi1 = -78.75
      theta2 = 84
      phi2 = 11.25
      theta3 = 6
      phi3 = -168.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 51
      chmoth = 'DC4'
      x = 3.18075
      y = -15.9907
      z = 0
      irot = 97
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 98
      theta1 = 90
      phi1 = -73.125
      theta2 = 84
      phi2 = 16.875
      theta3 = 6
      phi3 = -163.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 52
      chmoth = 'DC4'
      x = 4.7328
      y = -15.602
      z = 0
      irot = 98
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 99
      theta1 = 90
      phi1 = -67.5
      theta2 = 84
      phi2 = 22.5
      theta3 = 6
      phi3 = -157.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 53
      chmoth = 'DC4'
      x = 6.23927
      y = -15.0629
      z = 0
      irot = 99
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 100
      theta1 = 90
      phi1 = -61.875
      theta2 = 84
      phi2 = 28.125
      theta3 = 6
      phi3 = -151.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 54
      chmoth = 'DC4'
      x = 7.68565
      y = -14.3788
      z = 0
      irot = 100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 101
      theta1 = 90
      phi1 = -56.25
      theta2 = 84
      phi2 = 33.75
      theta3 = 6
      phi3 = -146.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 55
      chmoth = 'DC4'
      x = 9.05802
      y = -13.5563
      z = 0
      irot = 101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 102
      theta1 = 90
      phi1 = -50.625
      theta2 = 84
      phi2 = 39.375
      theta3 = 6
      phi3 = -140.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 56
      chmoth = 'DC4'
      x = 10.3431
      y = -12.6032
      z = 0
      irot = 102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 103
      theta1 = 90
      phi1 = -45
      theta2 = 84
      phi2 = 45
      theta3 = 6
      phi3 = -135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 57
      chmoth = 'DC4'
      x = 11.5287
      y = -11.5287
      z = 0
      irot = 103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 104
      theta1 = 90
      phi1 = -39.375
      theta2 = 84
      phi2 = 50.625
      theta3 = 6
      phi3 = -129.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 58
      chmoth = 'DC4'
      x = 12.6032
      y = -10.3431
      z = 0
      irot = 104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 105
      theta1 = 90
      phi1 = -33.75
      theta2 = 84
      phi2 = 56.25
      theta3 = 6
      phi3 = -123.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 59
      chmoth = 'DC4'
      x = 13.5563
      y = -9.05802
      z = 0
      irot = 105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 106
      theta1 = 90
      phi1 = -28.125
      theta2 = 84
      phi2 = 61.875
      theta3 = 6
      phi3 = -118.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 60
      chmoth = 'DC4'
      x = 14.3788
      y = -7.68565
      z = 0
      irot = 106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 107
      theta1 = 90
      phi1 = -22.5
      theta2 = 84
      phi2 = 67.5
      theta3 = 6
      phi3 = -112.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 61
      chmoth = 'DC4'
      x = 15.0629
      y = -6.23927
      z = 0
      irot = 107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 108
      theta1 = 90
      phi1 = -16.875
      theta2 = 84
      phi2 = 73.125
      theta3 = 6
      phi3 = -106.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 62
      chmoth = 'DC4'
      x = 15.602
      y = -4.7328
      z = 0
      irot = 108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 109
      theta1 = 90
      phi1 = -11.25
      theta2 = 84
      phi2 = 78.75
      theta3 = 6
      phi3 = -101.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 63
      chmoth = 'DC4'
      x = 15.9907
      y = -3.18075
      z = 0
      irot = 109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 110
      theta1 = 90
      phi1 = -5.625
      theta2 = 84
      phi2 = 84.375
      theta3 = 6
      phi3 = -95.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 64
      chmoth = 'DC4'
      x = 16.2255
      y = -1.59807
      z = 0
      irot = 110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 111
      theta1 = 90
      phi1 = 0
      theta2 = 84
      phi2 = 90
      theta3 = 6
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 65
      chmoth = 'DC4'
      x = 18.086
      y = 0
      z = 0
      irot = 111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 112
      theta1 = 90
      phi1 = 5.07042
      theta2 = 84
      phi2 = 95.0704
      theta3 = 6
      phi3 = -84.9296
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 66
      chmoth = 'DC4'
      x = 18.0152
      y = 1.59844
      z = 0
      irot = 112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 113
      theta1 = 90
      phi1 = 10.1408
      theta2 = 84
      phi2 = 100.141
      theta3 = 6
      phi3 = -79.8592
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 67
      chmoth = 'DC4'
      x = 17.8035
      y = 3.18438
      z = 0
      irot = 113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 114
      theta1 = 90
      phi1 = 15.2113
      theta2 = 84
      phi2 = 105.211
      theta3 = 6
      phi3 = -74.7887
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 68
      chmoth = 'DC4'
      x = 17.4524
      y = 4.74539
      z = 0
      irot = 114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 115
      theta1 = 90
      phi1 = 20.2817
      theta2 = 84
      phi2 = 110.282
      theta3 = 6
      phi3 = -69.7183
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 69
      chmoth = 'DC4'
      x = 16.9647
      y = 6.26926
      z = 0
      irot = 115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 116
      theta1 = 90
      phi1 = 25.3521
      theta2 = 84
      phi2 = 115.352
      theta3 = 6
      phi3 = -64.6479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 70
      chmoth = 'DC4'
      x = 16.3442
      y = 7.74406
      z = 0
      irot = 116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 117
      theta1 = 90
      phi1 = 30.4225
      theta2 = 84
      phi2 = 120.423
      theta3 = 6
      phi3 = -59.5775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 71
      chmoth = 'DC4'
      x = 15.5958
      y = 9.15826
      z = 0
      irot = 117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 118
      theta1 = 90
      phi1 = 35.493
      theta2 = 84
      phi2 = 125.493
      theta3 = 6
      phi3 = -54.507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 72
      chmoth = 'DC4'
      x = 14.7254
      y = 10.5008
      z = 0
      irot = 118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 119
      theta1 = 90
      phi1 = 40.5634
      theta2 = 84
      phi2 = 130.563
      theta3 = 6
      phi3 = -49.4366
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 73
      chmoth = 'DC4'
      x = 13.7397
      y = 11.7611
      z = 0
      irot = 119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 120
      theta1 = 90
      phi1 = 45.6338
      theta2 = 84
      phi2 = 135.634
      theta3 = 6
      phi3 = -44.3662
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 74
      chmoth = 'DC4'
      x = 12.6465
      y = 12.9294
      z = 0
      irot = 120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 121
      theta1 = 90
      phi1 = 50.7042
      theta2 = 84
      phi2 = 140.704
      theta3 = 6
      phi3 = -39.2958
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 75
      chmoth = 'DC4'
      x = 11.4543
      y = 13.9965
      z = 0
      irot = 121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 122
      theta1 = 90
      phi1 = 55.7746
      theta2 = 84
      phi2 = 145.775
      theta3 = 6
      phi3 = -34.2254
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 76
      chmoth = 'DC4'
      x = 10.1725
      y = 14.9541
      z = 0
      irot = 122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 123
      theta1 = 90
      phi1 = 60.8451
      theta2 = 84
      phi2 = 150.845
      theta3 = 6
      phi3 = -29.1549
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 77
      chmoth = 'DC4'
      x = 8.81101
      y = 15.7946
      z = 0
      irot = 123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 124
      theta1 = 90
      phi1 = 65.9155
      theta2 = 84
      phi2 = 155.915
      theta3 = 6
      phi3 = -24.0845
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 78
      chmoth = 'DC4'
      x = 7.3806
      y = 16.5115
      z = 0
      irot = 124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 125
      theta1 = 90
      phi1 = 70.9859
      theta2 = 84
      phi2 = 160.986
      theta3 = 6
      phi3 = -19.0141
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 79
      chmoth = 'DC4'
      x = 5.89243
      y = 17.0992
      z = 0
      irot = 125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 126
      theta1 = 90
      phi1 = 76.0563
      theta2 = 84
      phi2 = 166.056
      theta3 = 6
      phi3 = -13.9437
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 80
      chmoth = 'DC4'
      x = 4.35814
      y = 17.5531
      z = 0
      irot = 126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 127
      theta1 = 90
      phi1 = 81.1268
      theta2 = 84
      phi2 = 171.127
      theta3 = 6
      phi3 = -8.87324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 81
      chmoth = 'DC4'
      x = 2.78975
      y = 17.8695
      z = 0
      irot = 127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 128
      theta1 = 90
      phi1 = 86.1972
      theta2 = 84
      phi2 = 176.197
      theta3 = 6
      phi3 = -3.80282
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 82
      chmoth = 'DC4'
      x = 1.19952
      y = 18.0462
      z = 0
      irot = 128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 129
      theta1 = 90
      phi1 = 91.2676
      theta2 = 84
      phi2 = -178.732
      theta3 = 6
      phi3 = 1.26761
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 83
      chmoth = 'DC4'
      x = -0.4001
      y = 18.0816
      z = 0
      irot = 129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 130
      theta1 = 90
      phi1 = 96.338
      theta2 = 84
      phi2 = -173.662
      theta3 = 6
      phi3 = 6.33803
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 84
      chmoth = 'DC4'
      x = -1.99659
      y = 17.9755
      z = 0
      irot = 130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 131
      theta1 = 90
      phi1 = 101.408
      theta2 = 84
      phi2 = -168.592
      theta3 = 6
      phi3 = 11.4085
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 85
      chmoth = 'DC4'
      x = -3.57745
      y = 17.7287
      z = 0
      irot = 131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 132
      theta1 = 90
      phi1 = 106.479
      theta2 = 84
      phi2 = -163.521
      theta3 = 6
      phi3 = 16.4789
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 86
      chmoth = 'DC4'
      x = -5.13031
      y = 17.3431
      z = 0
      irot = 132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 133
      theta1 = 90
      phi1 = 111.549
      theta2 = 84
      phi2 = -158.451
      theta3 = 6
      phi3 = 21.5493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 87
      chmoth = 'DC4'
      x = -6.64302
      y = 16.8218
      z = 0
      irot = 133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 134
      theta1 = 90
      phi1 = 116.62
      theta2 = 84
      phi2 = -153.38
      theta3 = 6
      phi3 = 26.6197
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 88
      chmoth = 'DC4'
      x = -8.10374
      y = 16.1689
      z = 0
      irot = 134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 135
      theta1 = 90
      phi1 = 121.69
      theta2 = 84
      phi2 = -148.31
      theta3 = 6
      phi3 = 31.6901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 89
      chmoth = 'DC4'
      x = -9.50103
      y = 15.3894
      z = 0
      irot = 135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 136
      theta1 = 90
      phi1 = 126.761
      theta2 = 84
      phi2 = -143.239
      theta3 = 6
      phi3 = 36.7606
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 90
      chmoth = 'DC4'
      x = -10.824
      y = 14.4895
      z = 0
      irot = 136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 137
      theta1 = 90
      phi1 = 131.831
      theta2 = 84
      phi2 = -138.169
      theta3 = 6
      phi3 = 41.831
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 91
      chmoth = 'DC4'
      x = -12.0622
      y = 13.4762
      z = 0
      irot = 137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 138
      theta1 = 90
      phi1 = 136.901
      theta2 = 84
      phi2 = -133.099
      theta3 = 6
      phi3 = 46.9014
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 92
      chmoth = 'DC4'
      x = -13.206
      y = 12.3574
      z = 0
      irot = 138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 139
      theta1 = 90
      phi1 = 141.972
      theta2 = 84
      phi2 = -128.028
      theta3 = 6
      phi3 = 51.9718
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 93
      chmoth = 'DC4'
      x = -14.2465
      y = 11.1419
      z = 0
      irot = 139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 140
      theta1 = 90
      phi1 = 147.042
      theta2 = 84
      phi2 = -122.958
      theta3 = 6
      phi3 = 57.0423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 94
      chmoth = 'DC4'
      x = -15.1755
      y = 9.83915
      z = 0
      irot = 140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 141
      theta1 = 90
      phi1 = 152.113
      theta2 = 84
      phi2 = -117.887
      theta3 = 6
      phi3 = 62.1127
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 95
      chmoth = 'DC4'
      x = -15.9857
      y = 8.45944
      z = 0
      irot = 141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 142
      theta1 = 90
      phi1 = 157.183
      theta2 = 84
      phi2 = -112.817
      theta3 = 6
      phi3 = 67.1831
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 96
      chmoth = 'DC4'
      x = -16.6707
      y = 7.01352
      z = 0
      irot = 142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 143
      theta1 = 90
      phi1 = 162.254
      theta2 = 84
      phi2 = -107.746
      theta3 = 6
      phi3 = 72.2535
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 97
      chmoth = 'DC4'
      x = -17.2254
      y = 5.51272
      z = 0
      irot = 143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 144
      theta1 = 90
      phi1 = 167.324
      theta2 = 84
      phi2 = -102.676
      theta3 = 6
      phi3 = 77.3239
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 98
      chmoth = 'DC4'
      x = -17.6452
      y = 3.96876
      z = 0
      irot = 144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 145
      theta1 = 90
      phi1 = 172.394
      theta2 = 84
      phi2 = -97.6056
      theta3 = 6
      phi3 = 82.3944
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 99
      chmoth = 'DC4'
      x = -17.9269
      y = 2.39375
      z = 0
      irot = 145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 146
      theta1 = 90
      phi1 = 177.465
      theta2 = 84
      phi2 = -92.5352
      theta3 = 6
      phi3 = 87.4648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 100
      chmoth = 'DC4'
      x = -18.0683
      y = 0.800004
      z = 0
      irot = 146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 147
      theta1 = 90
      phi1 = -177.465
      theta2 = 84
      phi2 = -87.4648
      theta3 = 6
      phi3 = 92.5352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 101
      chmoth = 'DC4'
      x = -18.0683
      y = -0.800004
      z = 0
      irot = 147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 148
      theta1 = 90
      phi1 = -172.394
      theta2 = 84
      phi2 = -82.3944
      theta3 = 6
      phi3 = 97.6056
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 102
      chmoth = 'DC4'
      x = -17.9269
      y = -2.39375
      z = 0
      irot = 148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 149
      theta1 = 90
      phi1 = -167.324
      theta2 = 84
      phi2 = -77.3239
      theta3 = 6
      phi3 = 102.676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 103
      chmoth = 'DC4'
      x = -17.6452
      y = -3.96876
      z = 0
      irot = 149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 150
      theta1 = 90
      phi1 = -162.254
      theta2 = 84
      phi2 = -72.2535
      theta3 = 6
      phi3 = 107.746
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 104
      chmoth = 'DC4'
      x = -17.2254
      y = -5.51272
      z = 0
      irot = 150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 151
      theta1 = 90
      phi1 = -157.183
      theta2 = 84
      phi2 = -67.1831
      theta3 = 6
      phi3 = 112.817
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 105
      chmoth = 'DC4'
      x = -16.6707
      y = -7.01352
      z = 0
      irot = 151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 152
      theta1 = 90
      phi1 = -152.113
      theta2 = 84
      phi2 = -62.1127
      theta3 = 6
      phi3 = 117.887
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 106
      chmoth = 'DC4'
      x = -15.9857
      y = -8.45944
      z = 0
      irot = 152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 153
      theta1 = 90
      phi1 = -147.042
      theta2 = 84
      phi2 = -57.0423
      theta3 = 6
      phi3 = 122.958
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 107
      chmoth = 'DC4'
      x = -15.1755
      y = -9.83915
      z = 0
      irot = 153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 154
      theta1 = 90
      phi1 = -141.972
      theta2 = 84
      phi2 = -51.9718
      theta3 = 6
      phi3 = 128.028
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 108
      chmoth = 'DC4'
      x = -14.2465
      y = -11.1419
      z = 0
      irot = 154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 155
      theta1 = 90
      phi1 = -136.901
      theta2 = 84
      phi2 = -46.9014
      theta3 = 6
      phi3 = 133.099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 109
      chmoth = 'DC4'
      x = -13.206
      y = -12.3574
      z = 0
      irot = 155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 156
      theta1 = 90
      phi1 = -131.831
      theta2 = 84
      phi2 = -41.831
      theta3 = 6
      phi3 = 138.169
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 110
      chmoth = 'DC4'
      x = -12.0622
      y = -13.4762
      z = 0
      irot = 156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 157
      theta1 = 90
      phi1 = -126.761
      theta2 = 84
      phi2 = -36.7606
      theta3 = 6
      phi3 = 143.239
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 111
      chmoth = 'DC4'
      x = -10.824
      y = -14.4895
      z = 0
      irot = 157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 158
      theta1 = 90
      phi1 = -121.69
      theta2 = 84
      phi2 = -31.6901
      theta3 = 6
      phi3 = 148.31
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 112
      chmoth = 'DC4'
      x = -9.50103
      y = -15.3894
      z = 0
      irot = 158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 159
      theta1 = 90
      phi1 = -116.62
      theta2 = 84
      phi2 = -26.6197
      theta3 = 6
      phi3 = 153.38
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 113
      chmoth = 'DC4'
      x = -8.10374
      y = -16.1689
      z = 0
      irot = 159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 160
      theta1 = 90
      phi1 = -111.549
      theta2 = 84
      phi2 = -21.5493
      theta3 = 6
      phi3 = 158.451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 114
      chmoth = 'DC4'
      x = -6.64302
      y = -16.8218
      z = 0
      irot = 160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 161
      theta1 = 90
      phi1 = -106.479
      theta2 = 84
      phi2 = -16.4789
      theta3 = 6
      phi3 = 163.521
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 115
      chmoth = 'DC4'
      x = -5.13031
      y = -17.3431
      z = 0
      irot = 161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 162
      theta1 = 90
      phi1 = -101.408
      theta2 = 84
      phi2 = -11.4085
      theta3 = 6
      phi3 = 168.592
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 116
      chmoth = 'DC4'
      x = -3.57745
      y = -17.7287
      z = 0
      irot = 162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 163
      theta1 = 90
      phi1 = -96.338
      theta2 = 84
      phi2 = -6.33803
      theta3 = 6
      phi3 = 173.662
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 117
      chmoth = 'DC4'
      x = -1.99659
      y = -17.9755
      z = 0
      irot = 163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 164
      theta1 = 90
      phi1 = -91.2676
      theta2 = 84
      phi2 = -1.26761
      theta3 = 6
      phi3 = 178.732
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 118
      chmoth = 'DC4'
      x = -0.4001
      y = -18.0816
      z = 0
      irot = 164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 165
      theta1 = 90
      phi1 = -86.1972
      theta2 = 84
      phi2 = 3.80282
      theta3 = 6
      phi3 = -176.197
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 119
      chmoth = 'DC4'
      x = 1.19952
      y = -18.0462
      z = 0
      irot = 165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 166
      theta1 = 90
      phi1 = -81.1268
      theta2 = 84
      phi2 = 8.87324
      theta3 = 6
      phi3 = -171.127
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 120
      chmoth = 'DC4'
      x = 2.78975
      y = -17.8695
      z = 0
      irot = 166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 167
      theta1 = 90
      phi1 = -76.0563
      theta2 = 84
      phi2 = 13.9437
      theta3 = 6
      phi3 = -166.056
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 121
      chmoth = 'DC4'
      x = 4.35814
      y = -17.5531
      z = 0
      irot = 167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 168
      theta1 = 90
      phi1 = -70.9859
      theta2 = 84
      phi2 = 19.0141
      theta3 = 6
      phi3 = -160.986
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 122
      chmoth = 'DC4'
      x = 5.89243
      y = -17.0992
      z = 0
      irot = 168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 169
      theta1 = 90
      phi1 = -65.9155
      theta2 = 84
      phi2 = 24.0845
      theta3 = 6
      phi3 = -155.915
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 123
      chmoth = 'DC4'
      x = 7.3806
      y = -16.5115
      z = 0
      irot = 169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 170
      theta1 = 90
      phi1 = -60.8451
      theta2 = 84
      phi2 = 29.1549
      theta3 = 6
      phi3 = -150.845
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 124
      chmoth = 'DC4'
      x = 8.81101
      y = -15.7946
      z = 0
      irot = 170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 171
      theta1 = 90
      phi1 = -55.7746
      theta2 = 84
      phi2 = 34.2254
      theta3 = 6
      phi3 = -145.775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 125
      chmoth = 'DC4'
      x = 10.1725
      y = -14.9541
      z = 0
      irot = 171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 172
      theta1 = 90
      phi1 = -50.7042
      theta2 = 84
      phi2 = 39.2958
      theta3 = 6
      phi3 = -140.704
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 126
      chmoth = 'DC4'
      x = 11.4543
      y = -13.9965
      z = 0
      irot = 172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 173
      theta1 = 90
      phi1 = -45.6338
      theta2 = 84
      phi2 = 44.3662
      theta3 = 6
      phi3 = -135.634
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 127
      chmoth = 'DC4'
      x = 12.6465
      y = -12.9294
      z = 0
      irot = 173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 174
      theta1 = 90
      phi1 = -40.5634
      theta2 = 84
      phi2 = 49.4366
      theta3 = 6
      phi3 = -130.563
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 128
      chmoth = 'DC4'
      x = 13.7397
      y = -11.7611
      z = 0
      irot = 174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 175
      theta1 = 90
      phi1 = -35.493
      theta2 = 84
      phi2 = 54.507
      theta3 = 6
      phi3 = -125.493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 129
      chmoth = 'DC4'
      x = 14.7254
      y = -10.5008
      z = 0
      irot = 175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 176
      theta1 = 90
      phi1 = -30.4225
      theta2 = 84
      phi2 = 59.5775
      theta3 = 6
      phi3 = -120.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 130
      chmoth = 'DC4'
      x = 15.5958
      y = -9.15826
      z = 0
      irot = 176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 177
      theta1 = 90
      phi1 = -25.3521
      theta2 = 84
      phi2 = 64.6479
      theta3 = 6
      phi3 = -115.352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 131
      chmoth = 'DC4'
      x = 16.3442
      y = -7.74406
      z = 0
      irot = 177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 178
      theta1 = 90
      phi1 = -20.2817
      theta2 = 84
      phi2 = 69.7183
      theta3 = 6
      phi3 = -110.282
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 132
      chmoth = 'DC4'
      x = 16.9647
      y = -6.26926
      z = 0
      irot = 178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 179
      theta1 = 90
      phi1 = -15.2113
      theta2 = 84
      phi2 = 74.7887
      theta3 = 6
      phi3 = -105.211
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 133
      chmoth = 'DC4'
      x = 17.4524
      y = -4.74539
      z = 0
      irot = 179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 180
      theta1 = 90
      phi1 = -10.1408
      theta2 = 84
      phi2 = 79.8592
      theta3 = 6
      phi3 = -100.141
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 134
      chmoth = 'DC4'
      x = 17.8035
      y = -3.18438
      z = 0
      irot = 180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 181
      theta1 = 90
      phi1 = -5.07042
      theta2 = 84
      phi2 = 84.9296
      theta3 = 6
      phi3 = -95.0704
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 135
      chmoth = 'DC4'
      x = 18.0152
      y = -1.59844
      z = 0
      irot = 181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 182
      theta1 = 90
      phi1 = 0
      theta2 = 84
      phi2 = 90
      theta3 = 6
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 136
      chmoth = 'DC4'
      x = 19.868
      y = 0
      z = 0
      irot = 182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 183
      theta1 = 90
      phi1 = 4.61538
      theta2 = 84
      phi2 = 94.6154
      theta3 = 6
      phi3 = -85.3846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 137
      chmoth = 'DC4'
      x = 19.8036
      y = 1.59871
      z = 0
      irot = 183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 184
      theta1 = 90
      phi1 = 9.23077
      theta2 = 84
      phi2 = 99.2308
      theta3 = 6
      phi3 = -80.7692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 138
      chmoth = 'DC4'
      x = 19.6107
      y = 3.18705
      z = 0
      irot = 184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 185
      theta1 = 90
      phi1 = 13.8462
      theta2 = 84
      phi2 = 103.846
      theta3 = 6
      phi3 = -76.1538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 139
      chmoth = 'DC4'
      x = 19.2907
      y = 4.75472
      z = 0
      irot = 185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 186
      theta1 = 90
      phi1 = 18.4615
      theta2 = 84
      phi2 = 108.462
      theta3 = 6
      phi3 = -71.5385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 140
      chmoth = 'DC4'
      x = 18.8455
      y = 6.29156
      z = 0
      irot = 186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 187
      theta1 = 90
      phi1 = 23.0769
      theta2 = 84
      phi2 = 113.077
      theta3 = 6
      phi3 = -66.9231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 141
      chmoth = 'DC4'
      x = 18.2782
      y = 7.78759
      z = 0
      irot = 187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 188
      theta1 = 90
      phi1 = 27.6923
      theta2 = 84
      phi2 = 117.692
      theta3 = 6
      phi3 = -62.3077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 142
      chmoth = 'DC4'
      x = 17.5922
      y = 9.23312
      z = 0
      irot = 188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 189
      theta1 = 90
      phi1 = 32.3077
      theta2 = 84
      phi2 = 122.308
      theta3 = 6
      phi3 = -57.6923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 143
      chmoth = 'DC4'
      x = 16.7922
      y = 10.6188
      z = 0
      irot = 189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 190
      theta1 = 90
      phi1 = 36.9231
      theta2 = 84
      phi2 = 126.923
      theta3 = 6
      phi3 = -53.0769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 144
      chmoth = 'DC4'
      x = 15.8833
      y = 11.9355
      z = 0
      irot = 190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 191
      theta1 = 90
      phi1 = 41.5385
      theta2 = 84
      phi2 = 131.538
      theta3 = 6
      phi3 = -48.4615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 145
      chmoth = 'DC4'
      x = 14.8714
      y = 13.1749
      z = 0
      irot = 191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 192
      theta1 = 90
      phi1 = 46.1538
      theta2 = 84
      phi2 = 136.154
      theta3 = 6
      phi3 = -43.8462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 146
      chmoth = 'DC4'
      x = 13.763
      y = 14.3289
      z = 0
      irot = 192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 193
      theta1 = 90
      phi1 = 50.7692
      theta2 = 84
      phi2 = 140.769
      theta3 = 6
      phi3 = -39.2308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 147
      chmoth = 'DC4'
      x = 12.5654
      y = 15.3899
      z = 0
      irot = 193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 194
      theta1 = 90
      phi1 = 55.3846
      theta2 = 84
      phi2 = 145.385
      theta3 = 6
      phi3 = -34.6154
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 148
      chmoth = 'DC4'
      x = 11.2863
      y = 16.351
      z = 0
      irot = 194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 195
      theta1 = 90
      phi1 = 60
      theta2 = 84
      phi2 = 150
      theta3 = 6
      phi3 = -30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 149
      chmoth = 'DC4'
      x = 9.934
      y = 17.2062
      z = 0
      irot = 195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 196
      theta1 = 90
      phi1 = 64.6154
      theta2 = 84
      phi2 = 154.615
      theta3 = 6
      phi3 = -25.3846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 150
      chmoth = 'DC4'
      x = 8.51726
      y = 17.9498
      z = 0
      irot = 196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 197
      theta1 = 90
      phi1 = 69.2308
      theta2 = 84
      phi2 = 159.231
      theta3 = 6
      phi3 = -20.7692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 151
      chmoth = 'DC4'
      x = 7.04529
      y = 18.5769
      z = 0
      irot = 197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 198
      theta1 = 90
      phi1 = 73.8462
      theta2 = 84
      phi2 = 163.846
      theta3 = 6
      phi3 = -16.1538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 152
      chmoth = 'DC4'
      x = 5.52762
      y = 19.0836
      z = 0
      irot = 198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 199
      theta1 = 90
      phi1 = 78.4615
      theta2 = 84
      phi2 = 168.462
      theta3 = 6
      phi3 = -11.5385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 153
      chmoth = 'DC4'
      x = 3.97411
      y = 19.4665
      z = 0
      irot = 199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 200
      theta1 = 90
      phi1 = 83.0769
      theta2 = 84
      phi2 = 173.077
      theta3 = 6
      phi3 = -6.92308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 154
      chmoth = 'DC4'
      x = 2.39482
      y = 19.7231
      z = 0
      irot = 200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 201
      theta1 = 90
      phi1 = 87.6923
      theta2 = 84
      phi2 = 177.692
      theta3 = 6
      phi3 = -2.30769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 155
      chmoth = 'DC4'
      x = 0.800004
      y = 19.8519
      z = 0
      irot = 201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 202
      theta1 = 90
      phi1 = 92.3077
      theta2 = 84
      phi2 = -177.692
      theta3 = 6
      phi3 = 2.30769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 156
      chmoth = 'DC4'
      x = -0.800004
      y = 19.8519
      z = 0
      irot = 202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 203
      theta1 = 90
      phi1 = 96.9231
      theta2 = 84
      phi2 = -173.077
      theta3 = 6
      phi3 = 6.92308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 157
      chmoth = 'DC4'
      x = -2.39482
      y = 19.7231
      z = 0
      irot = 203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 204
      theta1 = 90
      phi1 = 101.538
      theta2 = 84
      phi2 = -168.462
      theta3 = 6
      phi3 = 11.5385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 158
      chmoth = 'DC4'
      x = -3.97411
      y = 19.4665
      z = 0
      irot = 204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 205
      theta1 = 90
      phi1 = 106.154
      theta2 = 84
      phi2 = -163.846
      theta3 = 6
      phi3 = 16.1538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 159
      chmoth = 'DC4'
      x = -5.52762
      y = 19.0836
      z = 0
      irot = 205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 206
      theta1 = 90
      phi1 = 110.769
      theta2 = 84
      phi2 = -159.231
      theta3 = 6
      phi3 = 20.7692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 160
      chmoth = 'DC4'
      x = -7.04529
      y = 18.5769
      z = 0
      irot = 206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 207
      theta1 = 90
      phi1 = 115.385
      theta2 = 84
      phi2 = -154.615
      theta3 = 6
      phi3 = 25.3846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 161
      chmoth = 'DC4'
      x = -8.51726
      y = 17.9498
      z = 0
      irot = 207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 208
      theta1 = 90
      phi1 = 120
      theta2 = 84
      phi2 = -150
      theta3 = 6
      phi3 = 30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 162
      chmoth = 'DC4'
      x = -9.934
      y = 17.2062
      z = 0
      irot = 208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 209
      theta1 = 90
      phi1 = 124.615
      theta2 = 84
      phi2 = -145.385
      theta3 = 6
      phi3 = 34.6154
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 163
      chmoth = 'DC4'
      x = -11.2863
      y = 16.351
      z = 0
      irot = 209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 210
      theta1 = 90
      phi1 = 129.231
      theta2 = 84
      phi2 = -140.769
      theta3 = 6
      phi3 = 39.2308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 164
      chmoth = 'DC4'
      x = -12.5654
      y = 15.3899
      z = 0
      irot = 210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 211
      theta1 = 90
      phi1 = 133.846
      theta2 = 84
      phi2 = -136.154
      theta3 = 6
      phi3 = 43.8462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 165
      chmoth = 'DC4'
      x = -13.763
      y = 14.3289
      z = 0
      irot = 211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 212
      theta1 = 90
      phi1 = 138.462
      theta2 = 84
      phi2 = -131.538
      theta3 = 6
      phi3 = 48.4615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 166
      chmoth = 'DC4'
      x = -14.8714
      y = 13.1749
      z = 0
      irot = 212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 213
      theta1 = 90
      phi1 = 143.077
      theta2 = 84
      phi2 = -126.923
      theta3 = 6
      phi3 = 53.0769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 167
      chmoth = 'DC4'
      x = -15.8833
      y = 11.9355
      z = 0
      irot = 213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 214
      theta1 = 90
      phi1 = 147.692
      theta2 = 84
      phi2 = -122.308
      theta3 = 6
      phi3 = 57.6923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 168
      chmoth = 'DC4'
      x = -16.7922
      y = 10.6188
      z = 0
      irot = 214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 215
      theta1 = 90
      phi1 = 152.308
      theta2 = 84
      phi2 = -117.692
      theta3 = 6
      phi3 = 62.3077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 169
      chmoth = 'DC4'
      x = -17.5922
      y = 9.23312
      z = 0
      irot = 215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 216
      theta1 = 90
      phi1 = 156.923
      theta2 = 84
      phi2 = -113.077
      theta3 = 6
      phi3 = 66.9231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 170
      chmoth = 'DC4'
      x = -18.2782
      y = 7.78759
      z = 0
      irot = 216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 217
      theta1 = 90
      phi1 = 161.538
      theta2 = 84
      phi2 = -108.462
      theta3 = 6
      phi3 = 71.5385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 171
      chmoth = 'DC4'
      x = -18.8455
      y = 6.29156
      z = 0
      irot = 217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 218
      theta1 = 90
      phi1 = 166.154
      theta2 = 84
      phi2 = -103.846
      theta3 = 6
      phi3 = 76.1538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 172
      chmoth = 'DC4'
      x = -19.2907
      y = 4.75472
      z = 0
      irot = 218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 219
      theta1 = 90
      phi1 = 170.769
      theta2 = 84
      phi2 = -99.2308
      theta3 = 6
      phi3 = 80.7692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 173
      chmoth = 'DC4'
      x = -19.6107
      y = 3.18705
      z = 0
      irot = 219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 220
      theta1 = 90
      phi1 = 175.385
      theta2 = 84
      phi2 = -94.6154
      theta3 = 6
      phi3 = 85.3846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 174
      chmoth = 'DC4'
      x = -19.8036
      y = 1.59871
      z = 0
      irot = 220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 221
      theta1 = 90
      phi1 = -180
      theta2 = 84
      phi2 = -90
      theta3 = 6
      phi3 = 90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 175
      chmoth = 'DC4'
      x = -19.868
      y = 2.43305e-15
      z = 0
      irot = 221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 222
      theta1 = 90
      phi1 = -175.385
      theta2 = 84
      phi2 = -85.3846
      theta3 = 6
      phi3 = 94.6154
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 176
      chmoth = 'DC4'
      x = -19.8036
      y = -1.59871
      z = 0
      irot = 222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 223
      theta1 = 90
      phi1 = -170.769
      theta2 = 84
      phi2 = -80.7692
      theta3 = 6
      phi3 = 99.2308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 177
      chmoth = 'DC4'
      x = -19.6107
      y = -3.18705
      z = 0
      irot = 223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 224
      theta1 = 90
      phi1 = -166.154
      theta2 = 84
      phi2 = -76.1538
      theta3 = 6
      phi3 = 103.846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 178
      chmoth = 'DC4'
      x = -19.2907
      y = -4.75472
      z = 0
      irot = 224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 225
      theta1 = 90
      phi1 = -161.538
      theta2 = 84
      phi2 = -71.5385
      theta3 = 6
      phi3 = 108.462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 179
      chmoth = 'DC4'
      x = -18.8455
      y = -6.29156
      z = 0
      irot = 225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 226
      theta1 = 90
      phi1 = -156.923
      theta2 = 84
      phi2 = -66.9231
      theta3 = 6
      phi3 = 113.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 180
      chmoth = 'DC4'
      x = -18.2782
      y = -7.78759
      z = 0
      irot = 226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 227
      theta1 = 90
      phi1 = -152.308
      theta2 = 84
      phi2 = -62.3077
      theta3 = 6
      phi3 = 117.692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 181
      chmoth = 'DC4'
      x = -17.5922
      y = -9.23312
      z = 0
      irot = 227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 228
      theta1 = 90
      phi1 = -147.692
      theta2 = 84
      phi2 = -57.6923
      theta3 = 6
      phi3 = 122.308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 182
      chmoth = 'DC4'
      x = -16.7922
      y = -10.6188
      z = 0
      irot = 228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 229
      theta1 = 90
      phi1 = -143.077
      theta2 = 84
      phi2 = -53.0769
      theta3 = 6
      phi3 = 126.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 183
      chmoth = 'DC4'
      x = -15.8833
      y = -11.9355
      z = 0
      irot = 229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 230
      theta1 = 90
      phi1 = -138.462
      theta2 = 84
      phi2 = -48.4615
      theta3 = 6
      phi3 = 131.538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 184
      chmoth = 'DC4'
      x = -14.8714
      y = -13.1749
      z = 0
      irot = 230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 231
      theta1 = 90
      phi1 = -133.846
      theta2 = 84
      phi2 = -43.8462
      theta3 = 6
      phi3 = 136.154
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 185
      chmoth = 'DC4'
      x = -13.763
      y = -14.3289
      z = 0
      irot = 231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 232
      theta1 = 90
      phi1 = -129.231
      theta2 = 84
      phi2 = -39.2308
      theta3 = 6
      phi3 = 140.769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 186
      chmoth = 'DC4'
      x = -12.5654
      y = -15.3899
      z = 0
      irot = 232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 233
      theta1 = 90
      phi1 = -124.615
      theta2 = 84
      phi2 = -34.6154
      theta3 = 6
      phi3 = 145.385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 187
      chmoth = 'DC4'
      x = -11.2863
      y = -16.351
      z = 0
      irot = 233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 234
      theta1 = 90
      phi1 = -120
      theta2 = 84
      phi2 = -30
      theta3 = 6
      phi3 = 150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 188
      chmoth = 'DC4'
      x = -9.934
      y = -17.2062
      z = 0
      irot = 234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 235
      theta1 = 90
      phi1 = -115.385
      theta2 = 84
      phi2 = -25.3846
      theta3 = 6
      phi3 = 154.615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 189
      chmoth = 'DC4'
      x = -8.51726
      y = -17.9498
      z = 0
      irot = 235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 236
      theta1 = 90
      phi1 = -110.769
      theta2 = 84
      phi2 = -20.7692
      theta3 = 6
      phi3 = 159.231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 190
      chmoth = 'DC4'
      x = -7.04529
      y = -18.5769
      z = 0
      irot = 236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 237
      theta1 = 90
      phi1 = -106.154
      theta2 = 84
      phi2 = -16.1538
      theta3 = 6
      phi3 = 163.846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 191
      chmoth = 'DC4'
      x = -5.52762
      y = -19.0836
      z = 0
      irot = 237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 238
      theta1 = 90
      phi1 = -101.538
      theta2 = 84
      phi2 = -11.5385
      theta3 = 6
      phi3 = 168.462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 192
      chmoth = 'DC4'
      x = -3.97411
      y = -19.4665
      z = 0
      irot = 238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 239
      theta1 = 90
      phi1 = -96.9231
      theta2 = 84
      phi2 = -6.92308
      theta3 = 6
      phi3 = 173.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 193
      chmoth = 'DC4'
      x = -2.39482
      y = -19.7231
      z = 0
      irot = 239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 240
      theta1 = 90
      phi1 = -92.3077
      theta2 = 84
      phi2 = -2.30769
      theta3 = 6
      phi3 = 177.692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 194
      chmoth = 'DC4'
      x = -0.800004
      y = -19.8519
      z = 0
      irot = 240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 241
      theta1 = 90
      phi1 = -87.6923
      theta2 = 84
      phi2 = 2.30769
      theta3 = 6
      phi3 = -177.692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 195
      chmoth = 'DC4'
      x = 0.800004
      y = -19.8519
      z = 0
      irot = 241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 242
      theta1 = 90
      phi1 = -83.0769
      theta2 = 84
      phi2 = 6.92308
      theta3 = 6
      phi3 = -173.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 196
      chmoth = 'DC4'
      x = 2.39482
      y = -19.7231
      z = 0
      irot = 242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 243
      theta1 = 90
      phi1 = -78.4615
      theta2 = 84
      phi2 = 11.5385
      theta3 = 6
      phi3 = -168.462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 197
      chmoth = 'DC4'
      x = 3.97411
      y = -19.4665
      z = 0
      irot = 243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 244
      theta1 = 90
      phi1 = -73.8462
      theta2 = 84
      phi2 = 16.1538
      theta3 = 6
      phi3 = -163.846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 198
      chmoth = 'DC4'
      x = 5.52762
      y = -19.0836
      z = 0
      irot = 244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 245
      theta1 = 90
      phi1 = -69.2308
      theta2 = 84
      phi2 = 20.7692
      theta3 = 6
      phi3 = -159.231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 199
      chmoth = 'DC4'
      x = 7.04529
      y = -18.5769
      z = 0
      irot = 245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 246
      theta1 = 90
      phi1 = -64.6154
      theta2 = 84
      phi2 = 25.3846
      theta3 = 6
      phi3 = -154.615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 200
      chmoth = 'DC4'
      x = 8.51726
      y = -17.9498
      z = 0
      irot = 246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 247
      theta1 = 90
      phi1 = -60
      theta2 = 84
      phi2 = 30
      theta3 = 6
      phi3 = -150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 201
      chmoth = 'DC4'
      x = 9.934
      y = -17.2062
      z = 0
      irot = 247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 248
      theta1 = 90
      phi1 = -55.3846
      theta2 = 84
      phi2 = 34.6154
      theta3 = 6
      phi3 = -145.385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 202
      chmoth = 'DC4'
      x = 11.2863
      y = -16.351
      z = 0
      irot = 248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 249
      theta1 = 90
      phi1 = -50.7692
      theta2 = 84
      phi2 = 39.2308
      theta3 = 6
      phi3 = -140.769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 203
      chmoth = 'DC4'
      x = 12.5654
      y = -15.3899
      z = 0
      irot = 249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 250
      theta1 = 90
      phi1 = -46.1538
      theta2 = 84
      phi2 = 43.8462
      theta3 = 6
      phi3 = -136.154
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 204
      chmoth = 'DC4'
      x = 13.763
      y = -14.3289
      z = 0
      irot = 250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 251
      theta1 = 90
      phi1 = -41.5385
      theta2 = 84
      phi2 = 48.4615
      theta3 = 6
      phi3 = -131.538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 205
      chmoth = 'DC4'
      x = 14.8714
      y = -13.1749
      z = 0
      irot = 251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 252
      theta1 = 90
      phi1 = -36.9231
      theta2 = 84
      phi2 = 53.0769
      theta3 = 6
      phi3 = -126.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 206
      chmoth = 'DC4'
      x = 15.8833
      y = -11.9355
      z = 0
      irot = 252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 253
      theta1 = 90
      phi1 = -32.3077
      theta2 = 84
      phi2 = 57.6923
      theta3 = 6
      phi3 = -122.308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 207
      chmoth = 'DC4'
      x = 16.7922
      y = -10.6188
      z = 0
      irot = 253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 254
      theta1 = 90
      phi1 = -27.6923
      theta2 = 84
      phi2 = 62.3077
      theta3 = 6
      phi3 = -117.692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 208
      chmoth = 'DC4'
      x = 17.5922
      y = -9.23312
      z = 0
      irot = 254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 255
      theta1 = 90
      phi1 = -23.0769
      theta2 = 84
      phi2 = 66.9231
      theta3 = 6
      phi3 = -113.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 209
      chmoth = 'DC4'
      x = 18.2782
      y = -7.78759
      z = 0
      irot = 255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 256
      theta1 = 90
      phi1 = -18.4615
      theta2 = 84
      phi2 = 71.5385
      theta3 = 6
      phi3 = -108.462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 210
      chmoth = 'DC4'
      x = 18.8455
      y = -6.29156
      z = 0
      irot = 256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 257
      theta1 = 90
      phi1 = -13.8462
      theta2 = 84
      phi2 = 76.1538
      theta3 = 6
      phi3 = -103.846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 211
      chmoth = 'DC4'
      x = 19.2907
      y = -4.75472
      z = 0
      irot = 257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 258
      theta1 = 90
      phi1 = -9.23077
      theta2 = 84
      phi2 = 80.7692
      theta3 = 6
      phi3 = -99.2308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 212
      chmoth = 'DC4'
      x = 19.6107
      y = -3.18705
      z = 0
      irot = 258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 259
      theta1 = 90
      phi1 = -4.61538
      theta2 = 84
      phi2 = 85.3846
      theta3 = 6
      phi3 = -94.6154
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 213
      chmoth = 'DC4'
      x = 19.8036
      y = -1.59871
      z = 0
      irot = 259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 4
      chmoth = 'DC4'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 4
      chmoth = 'DC4'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 121
      natmed = 'DC7 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC7'
      chshap = 'TUBE'
      nmed = 121
      npar = 3
      par(1) = 22.3
      par(2) = 24.1
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.141) stop 'consistency check #1 failed'

      chname = 'DC7'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD15'
      chmoth = 'DC7'
      ndiv = 91
      iaxis = 2
      step = 3.95604
      c0 = -1.978
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 122
      natmed = 'DS7 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS7'
      chshap = 'TUBS'
      nmed = 122
      npar = 5
      par(1) = 22.3
      par(2) = 24.1
      par(3) = 75.75
      par(4) = -1.978
      par(5) = 1.978
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.143) stop 'consistency check #1 failed'

      chname = 'DS7'
      nr = 1
      chmoth = 'SD15'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 4
      chmoth = 'DS7'
      x = 23.178
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 5
      chmoth = 'DS7'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 5
      chmoth = 'DS7'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 123
      natmed = 'DC8 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC8'
      chshap = 'TUBE'
      nmed = 123
      npar = 3
      par(1) = 24.1
      par(2) = 25.9
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.144) stop 'consistency check #1 failed'

      chname = 'DC8'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD16'
      chmoth = 'DC8'
      ndiv = 98
      iaxis = 2
      step = 3.67347
      c0 = -1.837
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 124
      natmed = 'DS8 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS8'
      chshap = 'TUBS'
      nmed = 124
      npar = 5
      par(1) = 24.1
      par(2) = 25.9
      par(3) = 75.75
      par(4) = -1.837
      par(5) = 1.836
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.146) stop 'consistency check #1 failed'

      chname = 'DS8'
      nr = 1
      chmoth = 'SD16'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 5
      chmoth = 'DS8'
      x = 24.96
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 6
      chmoth = 'DS8'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 6
      chmoth = 'DS8'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 125
      natmed = 'DC9 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC9'
      chshap = 'TUBE'
      nmed = 125
      npar = 3
      par(1) = 25.9
      par(2) = 27.6
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.147) stop 'consistency check #1 failed'

      chname = 'DC9'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD17'
      chmoth = 'DC9'
      ndiv = 105
      iaxis = 2
      step = 3.42857
      c0 = -1.714
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 126
      natmed = 'DS9 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS9'
      chshap = 'TUBS'
      nmed = 126
      npar = 5
      par(1) = 25.9
      par(2) = 27.6
      par(3) = 75.75
      par(4) = -1.714
      par(5) = 1.715
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.149) stop 'consistency check #1 failed'

      chname = 'DS9'
      nr = 1
      chmoth = 'SD17'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 6
      chmoth = 'DS9'
      x = 26.742
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 7
      chmoth = 'DS9'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 7
      chmoth = 'DS9'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 127
      natmed = 'DC10 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC10'
      chshap = 'TUBE'
      nmed = 127
      npar = 3
      par(1) = 27.6
      par(2) = 29.4
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.150) stop 'consistency check #1 failed'

      chname = 'DC10'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD18'
      chmoth = 'DC10'
      ndiv = 112
      iaxis = 2
      step = 3.21429
      c0 = -1.607
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 128
      natmed = 'DS10 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS10'
      chshap = 'TUBS'
      nmed = 128
      npar = 5
      par(1) = 27.6
      par(2) = 29.4
      par(3) = 75.75
      par(4) = -1.607
      par(5) = 1.607
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.152) stop 'consistency check #1 failed'

      chname = 'DS10'
      nr = 1
      chmoth = 'SD18'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 7
      chmoth = 'DS10'
      x = 28.524
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 8
      chmoth = 'DS10'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 8
      chmoth = 'DS10'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 129
      natmed = 'DC11 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC11'
      chshap = 'TUBE'
      nmed = 129
      npar = 3
      par(1) = 29.4
      par(2) = 31.2
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.153) stop 'consistency check #1 failed'

      chname = 'DC11'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD19'
      chmoth = 'DC11'
      ndiv = 119
      iaxis = 2
      step = 3.02521
      c0 = -1.513
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 130
      natmed = 'DS11 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS11'
      chshap = 'TUBS'
      nmed = 130
      npar = 5
      par(1) = 29.4
      par(2) = 31.2
      par(3) = 75.75
      par(4) = -1.513
      par(5) = 1.512
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.155) stop 'consistency check #1 failed'

      chname = 'DS11'
      nr = 1
      chmoth = 'SD19'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 8
      chmoth = 'DS11'
      x = 30.307
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 9
      chmoth = 'DS11'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 9
      chmoth = 'DS11'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 131
      natmed = 'DC12 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC12'
      chshap = 'TUBE'
      nmed = 131
      npar = 3
      par(1) = 31.2
      par(2) = 37.3
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.156) stop 'consistency check #1 failed'

      chname = 'DC12'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 260
      theta1 = 90
      phi1 = 0
      theta2 = 96
      phi2 = 90
      theta3 = 6
      phi3 = 90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 214
      chmoth = 'DC12'
      x = 32.089
      y = 0
      z = 0
      irot = 260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 261
      theta1 = 90
      phi1 = 2.85714
      theta2 = 96
      phi2 = 92.8571
      theta3 = 6
      phi3 = 92.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 215
      chmoth = 'DC12'
      x = 32.0491
      y = 1.5995
      z = 0
      irot = 261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 262
      theta1 = 90
      phi1 = 5.71429
      theta2 = 96
      phi2 = 95.7143
      theta3 = 6
      phi3 = 95.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 216
      chmoth = 'DC12'
      x = 31.9295
      y = 3.19503
      z = 0
      irot = 262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 263
      theta1 = 90
      phi1 = 8.57143
      theta2 = 96
      phi2 = 98.5714
      theta3 = 6
      phi3 = 98.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 217
      chmoth = 'DC12'
      x = 31.7306
      y = 4.78262
      z = 0
      irot = 263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 264
      theta1 = 90
      phi1 = 11.4286
      theta2 = 96
      phi2 = 101.429
      theta3 = 6
      phi3 = 101.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 218
      chmoth = 'DC12'
      x = 31.4528
      y = 6.35831
      z = 0
      irot = 264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 265
      theta1 = 90
      phi1 = 14.2857
      theta2 = 96
      phi2 = 104.286
      theta3 = 6
      phi3 = 104.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 219
      chmoth = 'DC12'
      x = 31.0967
      y = 7.9182
      z = 0
      irot = 265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 266
      theta1 = 90
      phi1 = 17.1429
      theta2 = 96
      phi2 = 107.143
      theta3 = 6
      phi3 = 107.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 220
      chmoth = 'DC12'
      x = 30.6634
      y = 9.4584
      z = 0
      irot = 266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 267
      theta1 = 90
      phi1 = 20
      theta2 = 96
      phi2 = 110
      theta3 = 6
      phi3 = 110
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 221
      chmoth = 'DC12'
      x = 30.1538
      y = 10.9751
      z = 0
      irot = 267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 268
      theta1 = 90
      phi1 = 22.8571
      theta2 = 96
      phi2 = 112.857
      theta3 = 6
      phi3 = 112.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 222
      chmoth = 'DC12'
      x = 29.5693
      y = 12.4645
      z = 0
      irot = 268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 269
      theta1 = 90
      phi1 = 25.7143
      theta2 = 96
      phi2 = 115.714
      theta3 = 6
      phi3 = 115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 223
      chmoth = 'DC12'
      x = 28.9112
      y = 13.9229
      z = 0
      irot = 269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 270
      theta1 = 90
      phi1 = 28.5714
      theta2 = 96
      phi2 = 118.571
      theta3 = 6
      phi3 = 118.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 224
      chmoth = 'DC12'
      x = 28.1813
      y = 15.3467
      z = 0
      irot = 270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 271
      theta1 = 90
      phi1 = 31.4286
      theta2 = 96
      phi2 = 121.429
      theta3 = 6
      phi3 = 121.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 225
      chmoth = 'DC12'
      x = 27.3813
      y = 16.7323
      z = 0
      irot = 271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 272
      theta1 = 90
      phi1 = 34.2857
      theta2 = 96
      phi2 = 124.286
      theta3 = 6
      phi3 = 124.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 226
      chmoth = 'DC12'
      x = 26.5132
      y = 18.0764
      z = 0
      irot = 272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 273
      theta1 = 90
      phi1 = 37.1429
      theta2 = 96
      phi2 = 127.143
      theta3 = 6
      phi3 = 127.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 227
      chmoth = 'DC12'
      x = 25.5792
      y = 19.3755
      z = 0
      irot = 273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 274
      theta1 = 90
      phi1 = 40
      theta2 = 96
      phi2 = 130
      theta3 = 6
      phi3 = 130
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 228
      chmoth = 'DC12'
      x = 24.5816
      y = 20.6264
      z = 0
      irot = 274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 275
      theta1 = 90
      phi1 = 42.8571
      theta2 = 96
      phi2 = 132.857
      theta3 = 6
      phi3 = 132.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 229
      chmoth = 'DC12'
      x = 23.5229
      y = 21.8261
      z = 0
      irot = 275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 276
      theta1 = 90
      phi1 = 45.7143
      theta2 = 96
      phi2 = 135.714
      theta3 = 6
      phi3 = 135.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 230
      chmoth = 'DC12'
      x = 22.4057
      y = 22.9715
      z = 0
      irot = 276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 277
      theta1 = 90
      phi1 = 48.5714
      theta2 = 96
      phi2 = 138.571
      theta3 = 6
      phi3 = 138.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 231
      chmoth = 'DC12'
      x = 21.2328
      y = 24.0597
      z = 0
      irot = 277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 278
      theta1 = 90
      phi1 = 51.4286
      theta2 = 96
      phi2 = 141.429
      theta3 = 6
      phi3 = 141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 232
      chmoth = 'DC12'
      x = 20.0072
      y = 25.0882
      z = 0
      irot = 278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 279
      theta1 = 90
      phi1 = 54.2857
      theta2 = 96
      phi2 = 144.286
      theta3 = 6
      phi3 = 144.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 233
      chmoth = 'DC12'
      x = 18.7318
      y = 26.0543
      z = 0
      irot = 279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 280
      theta1 = 90
      phi1 = 57.1429
      theta2 = 96
      phi2 = 147.143
      theta3 = 6
      phi3 = 147.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 234
      chmoth = 'DC12'
      x = 17.4098
      y = 26.9556
      z = 0
      irot = 280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 281
      theta1 = 90
      phi1 = 60
      theta2 = 96
      phi2 = 150
      theta3 = 6
      phi3 = 150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 235
      chmoth = 'DC12'
      x = 16.0445
      y = 27.7899
      z = 0
      irot = 281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 282
      theta1 = 90
      phi1 = 62.8571
      theta2 = 96
      phi2 = 152.857
      theta3 = 6
      phi3 = 152.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 236
      chmoth = 'DC12'
      x = 14.6393
      y = 28.5551
      z = 0
      irot = 282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 283
      theta1 = 90
      phi1 = 65.7143
      theta2 = 96
      phi2 = 155.714
      theta3 = 6
      phi3 = 155.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 237
      chmoth = 'DC12'
      x = 13.1978
      y = 29.2493
      z = 0
      irot = 283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 284
      theta1 = 90
      phi1 = 68.5714
      theta2 = 96
      phi2 = 158.571
      theta3 = 6
      phi3 = 158.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 238
      chmoth = 'DC12'
      x = 11.7234
      y = 29.8708
      z = 0
      irot = 284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 285
      theta1 = 90
      phi1 = 71.4286
      theta2 = 96
      phi2 = 161.429
      theta3 = 6
      phi3 = 161.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 239
      chmoth = 'DC12'
      x = 10.2199
      y = 30.418
      z = 0
      irot = 285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 286
      theta1 = 90
      phi1 = 74.2857
      theta2 = 96
      phi2 = 164.286
      theta3 = 6
      phi3 = 164.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 240
      chmoth = 'DC12'
      x = 8.691
      y = 30.8896
      z = 0
      irot = 286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 287
      theta1 = 90
      phi1 = 77.1429
      theta2 = 96
      phi2 = 167.143
      theta3 = 6
      phi3 = 167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 241
      chmoth = 'DC12'
      x = 7.14047
      y = 31.2845
      z = 0
      irot = 287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 288
      theta1 = 90
      phi1 = 80
      theta2 = 96
      phi2 = 170
      theta3 = 6
      phi3 = 170
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 242
      chmoth = 'DC12'
      x = 5.5722
      y = 31.6015
      z = 0
      irot = 288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 289
      theta1 = 90
      phi1 = 82.8571
      theta2 = 96
      phi2 = 172.857
      theta3 = 6
      phi3 = 172.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 243
      chmoth = 'DC12'
      x = 3.99007
      y = 31.84
      z = 0
      irot = 289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 290
      theta1 = 90
      phi1 = 85.7143
      theta2 = 96
      phi2 = 175.714
      theta3 = 6
      phi3 = 175.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 244
      chmoth = 'DC12'
      x = 2.39801
      y = 31.9993
      z = 0
      irot = 290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 291
      theta1 = 90
      phi1 = 88.5714
      theta2 = 96
      phi2 = 178.571
      theta3 = 6
      phi3 = 178.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 245
      chmoth = 'DC12'
      x = 0.800001
      y = 32.079
      z = 0
      irot = 291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 292
      theta1 = 90
      phi1 = 91.4286
      theta2 = 96
      phi2 = -178.571
      theta3 = 6
      phi3 = -178.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 246
      chmoth = 'DC12'
      x = -0.800001
      y = 32.079
      z = 0
      irot = 292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 293
      theta1 = 90
      phi1 = 94.2857
      theta2 = 96
      phi2 = -175.714
      theta3 = 6
      phi3 = -175.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 247
      chmoth = 'DC12'
      x = -2.39801
      y = 31.9993
      z = 0
      irot = 293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 294
      theta1 = 90
      phi1 = 97.1429
      theta2 = 96
      phi2 = -172.857
      theta3 = 6
      phi3 = -172.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 248
      chmoth = 'DC12'
      x = -3.99007
      y = 31.84
      z = 0
      irot = 294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 295
      theta1 = 90
      phi1 = 100
      theta2 = 96
      phi2 = -170
      theta3 = 6
      phi3 = -170
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 249
      chmoth = 'DC12'
      x = -5.5722
      y = 31.6015
      z = 0
      irot = 295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 296
      theta1 = 90
      phi1 = 102.857
      theta2 = 96
      phi2 = -167.143
      theta3 = 6
      phi3 = -167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 250
      chmoth = 'DC12'
      x = -7.14047
      y = 31.2845
      z = 0
      irot = 296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 297
      theta1 = 90
      phi1 = 105.714
      theta2 = 96
      phi2 = -164.286
      theta3 = 6
      phi3 = -164.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 251
      chmoth = 'DC12'
      x = -8.691
      y = 30.8896
      z = 0
      irot = 297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 298
      theta1 = 90
      phi1 = 108.571
      theta2 = 96
      phi2 = -161.429
      theta3 = 6
      phi3 = -161.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 252
      chmoth = 'DC12'
      x = -10.2199
      y = 30.418
      z = 0
      irot = 298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 299
      theta1 = 90
      phi1 = 111.429
      theta2 = 96
      phi2 = -158.571
      theta3 = 6
      phi3 = -158.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 253
      chmoth = 'DC12'
      x = -11.7234
      y = 29.8708
      z = 0
      irot = 299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 300
      theta1 = 90
      phi1 = 114.286
      theta2 = 96
      phi2 = -155.714
      theta3 = 6
      phi3 = -155.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 254
      chmoth = 'DC12'
      x = -13.1978
      y = 29.2493
      z = 0
      irot = 300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 301
      theta1 = 90
      phi1 = 117.143
      theta2 = 96
      phi2 = -152.857
      theta3 = 6
      phi3 = -152.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 255
      chmoth = 'DC12'
      x = -14.6393
      y = 28.5551
      z = 0
      irot = 301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 302
      theta1 = 90
      phi1 = 120
      theta2 = 96
      phi2 = -150
      theta3 = 6
      phi3 = -150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 256
      chmoth = 'DC12'
      x = -16.0445
      y = 27.7899
      z = 0
      irot = 302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 303
      theta1 = 90
      phi1 = 122.857
      theta2 = 96
      phi2 = -147.143
      theta3 = 6
      phi3 = -147.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 257
      chmoth = 'DC12'
      x = -17.4098
      y = 26.9556
      z = 0
      irot = 303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 304
      theta1 = 90
      phi1 = 125.714
      theta2 = 96
      phi2 = -144.286
      theta3 = 6
      phi3 = -144.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 258
      chmoth = 'DC12'
      x = -18.7318
      y = 26.0543
      z = 0
      irot = 304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 305
      theta1 = 90
      phi1 = 128.571
      theta2 = 96
      phi2 = -141.429
      theta3 = 6
      phi3 = -141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 259
      chmoth = 'DC12'
      x = -20.0072
      y = 25.0882
      z = 0
      irot = 305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 306
      theta1 = 90
      phi1 = 131.429
      theta2 = 96
      phi2 = -138.571
      theta3 = 6
      phi3 = -138.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 260
      chmoth = 'DC12'
      x = -21.2328
      y = 24.0597
      z = 0
      irot = 306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 307
      theta1 = 90
      phi1 = 134.286
      theta2 = 96
      phi2 = -135.714
      theta3 = 6
      phi3 = -135.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 261
      chmoth = 'DC12'
      x = -22.4057
      y = 22.9715
      z = 0
      irot = 307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 308
      theta1 = 90
      phi1 = 137.143
      theta2 = 96
      phi2 = -132.857
      theta3 = 6
      phi3 = -132.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 262
      chmoth = 'DC12'
      x = -23.5229
      y = 21.8261
      z = 0
      irot = 308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 309
      theta1 = 90
      phi1 = 140
      theta2 = 96
      phi2 = -130
      theta3 = 6
      phi3 = -130
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 263
      chmoth = 'DC12'
      x = -24.5816
      y = 20.6264
      z = 0
      irot = 309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 310
      theta1 = 90
      phi1 = 142.857
      theta2 = 96
      phi2 = -127.143
      theta3 = 6
      phi3 = -127.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 264
      chmoth = 'DC12'
      x = -25.5792
      y = 19.3755
      z = 0
      irot = 310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 311
      theta1 = 90
      phi1 = 145.714
      theta2 = 96
      phi2 = -124.286
      theta3 = 6
      phi3 = -124.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 265
      chmoth = 'DC12'
      x = -26.5132
      y = 18.0764
      z = 0
      irot = 311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 312
      theta1 = 90
      phi1 = 148.571
      theta2 = 96
      phi2 = -121.429
      theta3 = 6
      phi3 = -121.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 266
      chmoth = 'DC12'
      x = -27.3813
      y = 16.7323
      z = 0
      irot = 312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 313
      theta1 = 90
      phi1 = 151.429
      theta2 = 96
      phi2 = -118.571
      theta3 = 6
      phi3 = -118.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 267
      chmoth = 'DC12'
      x = -28.1813
      y = 15.3467
      z = 0
      irot = 313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 314
      theta1 = 90
      phi1 = 154.286
      theta2 = 96
      phi2 = -115.714
      theta3 = 6
      phi3 = -115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 268
      chmoth = 'DC12'
      x = -28.9112
      y = 13.9229
      z = 0
      irot = 314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 315
      theta1 = 90
      phi1 = 157.143
      theta2 = 96
      phi2 = -112.857
      theta3 = 6
      phi3 = -112.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 269
      chmoth = 'DC12'
      x = -29.5693
      y = 12.4645
      z = 0
      irot = 315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 316
      theta1 = 90
      phi1 = 160
      theta2 = 96
      phi2 = -110
      theta3 = 6
      phi3 = -110
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 270
      chmoth = 'DC12'
      x = -30.1538
      y = 10.9751
      z = 0
      irot = 316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 317
      theta1 = 90
      phi1 = 162.857
      theta2 = 96
      phi2 = -107.143
      theta3 = 6
      phi3 = -107.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 271
      chmoth = 'DC12'
      x = -30.6634
      y = 9.4584
      z = 0
      irot = 317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 318
      theta1 = 90
      phi1 = 165.714
      theta2 = 96
      phi2 = -104.286
      theta3 = 6
      phi3 = -104.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 272
      chmoth = 'DC12'
      x = -31.0967
      y = 7.9182
      z = 0
      irot = 318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 319
      theta1 = 90
      phi1 = 168.571
      theta2 = 96
      phi2 = -101.429
      theta3 = 6
      phi3 = -101.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 273
      chmoth = 'DC12'
      x = -31.4528
      y = 6.35831
      z = 0
      irot = 319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 320
      theta1 = 90
      phi1 = 171.429
      theta2 = 96
      phi2 = -98.5714
      theta3 = 6
      phi3 = -98.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 274
      chmoth = 'DC12'
      x = -31.7306
      y = 4.78262
      z = 0
      irot = 320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 321
      theta1 = 90
      phi1 = 174.286
      theta2 = 96
      phi2 = -95.7143
      theta3 = 6
      phi3 = -95.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 275
      chmoth = 'DC12'
      x = -31.9295
      y = 3.19503
      z = 0
      irot = 321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 322
      theta1 = 90
      phi1 = 177.143
      theta2 = 96
      phi2 = -92.8571
      theta3 = 6
      phi3 = -92.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 276
      chmoth = 'DC12'
      x = -32.0491
      y = 1.5995
      z = 0
      irot = 322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 323
      theta1 = 90
      phi1 = -180
      theta2 = 96
      phi2 = -90
      theta3 = 6
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 277
      chmoth = 'DC12'
      x = -32.089
      y = 3.92964e-15
      z = 0
      irot = 323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 324
      theta1 = 90
      phi1 = -177.143
      theta2 = 96
      phi2 = -87.1429
      theta3 = 6
      phi3 = -87.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 278
      chmoth = 'DC12'
      x = -32.0491
      y = -1.5995
      z = 0
      irot = 324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 325
      theta1 = 90
      phi1 = -174.286
      theta2 = 96
      phi2 = -84.2857
      theta3 = 6
      phi3 = -84.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 279
      chmoth = 'DC12'
      x = -31.9295
      y = -3.19503
      z = 0
      irot = 325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 326
      theta1 = 90
      phi1 = -171.429
      theta2 = 96
      phi2 = -81.4286
      theta3 = 6
      phi3 = -81.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 280
      chmoth = 'DC12'
      x = -31.7306
      y = -4.78262
      z = 0
      irot = 326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 327
      theta1 = 90
      phi1 = -168.571
      theta2 = 96
      phi2 = -78.5714
      theta3 = 6
      phi3 = -78.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 281
      chmoth = 'DC12'
      x = -31.4528
      y = -6.35831
      z = 0
      irot = 327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 328
      theta1 = 90
      phi1 = -165.714
      theta2 = 96
      phi2 = -75.7143
      theta3 = 6
      phi3 = -75.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 282
      chmoth = 'DC12'
      x = -31.0967
      y = -7.9182
      z = 0
      irot = 328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 329
      theta1 = 90
      phi1 = -162.857
      theta2 = 96
      phi2 = -72.8571
      theta3 = 6
      phi3 = -72.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 283
      chmoth = 'DC12'
      x = -30.6634
      y = -9.4584
      z = 0
      irot = 329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 330
      theta1 = 90
      phi1 = -160
      theta2 = 96
      phi2 = -70
      theta3 = 6
      phi3 = -70
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 284
      chmoth = 'DC12'
      x = -30.1538
      y = -10.9751
      z = 0
      irot = 330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 331
      theta1 = 90
      phi1 = -157.143
      theta2 = 96
      phi2 = -67.1429
      theta3 = 6
      phi3 = -67.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 285
      chmoth = 'DC12'
      x = -29.5693
      y = -12.4645
      z = 0
      irot = 331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 332
      theta1 = 90
      phi1 = -154.286
      theta2 = 96
      phi2 = -64.2857
      theta3 = 6
      phi3 = -64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 286
      chmoth = 'DC12'
      x = -28.9112
      y = -13.9229
      z = 0
      irot = 332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 333
      theta1 = 90
      phi1 = -151.429
      theta2 = 96
      phi2 = -61.4286
      theta3 = 6
      phi3 = -61.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 287
      chmoth = 'DC12'
      x = -28.1813
      y = -15.3467
      z = 0
      irot = 333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 334
      theta1 = 90
      phi1 = -148.571
      theta2 = 96
      phi2 = -58.5714
      theta3 = 6
      phi3 = -58.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 288
      chmoth = 'DC12'
      x = -27.3813
      y = -16.7323
      z = 0
      irot = 334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 335
      theta1 = 90
      phi1 = -145.714
      theta2 = 96
      phi2 = -55.7143
      theta3 = 6
      phi3 = -55.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 289
      chmoth = 'DC12'
      x = -26.5132
      y = -18.0764
      z = 0
      irot = 335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 336
      theta1 = 90
      phi1 = -142.857
      theta2 = 96
      phi2 = -52.8571
      theta3 = 6
      phi3 = -52.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 290
      chmoth = 'DC12'
      x = -25.5792
      y = -19.3755
      z = 0
      irot = 336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 337
      theta1 = 90
      phi1 = -140
      theta2 = 96
      phi2 = -50
      theta3 = 6
      phi3 = -50
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 291
      chmoth = 'DC12'
      x = -24.5816
      y = -20.6264
      z = 0
      irot = 337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 338
      theta1 = 90
      phi1 = -137.143
      theta2 = 96
      phi2 = -47.1429
      theta3 = 6
      phi3 = -47.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 292
      chmoth = 'DC12'
      x = -23.5229
      y = -21.8261
      z = 0
      irot = 338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 339
      theta1 = 90
      phi1 = -134.286
      theta2 = 96
      phi2 = -44.2857
      theta3 = 6
      phi3 = -44.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 293
      chmoth = 'DC12'
      x = -22.4057
      y = -22.9715
      z = 0
      irot = 339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 340
      theta1 = 90
      phi1 = -131.429
      theta2 = 96
      phi2 = -41.4286
      theta3 = 6
      phi3 = -41.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 294
      chmoth = 'DC12'
      x = -21.2328
      y = -24.0597
      z = 0
      irot = 340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 341
      theta1 = 90
      phi1 = -128.571
      theta2 = 96
      phi2 = -38.5714
      theta3 = 6
      phi3 = -38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 295
      chmoth = 'DC12'
      x = -20.0072
      y = -25.0882
      z = 0
      irot = 341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 342
      theta1 = 90
      phi1 = -125.714
      theta2 = 96
      phi2 = -35.7143
      theta3 = 6
      phi3 = -35.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 296
      chmoth = 'DC12'
      x = -18.7318
      y = -26.0543
      z = 0
      irot = 342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 343
      theta1 = 90
      phi1 = -122.857
      theta2 = 96
      phi2 = -32.8571
      theta3 = 6
      phi3 = -32.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 297
      chmoth = 'DC12'
      x = -17.4098
      y = -26.9556
      z = 0
      irot = 343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 344
      theta1 = 90
      phi1 = -120
      theta2 = 96
      phi2 = -30
      theta3 = 6
      phi3 = -30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 298
      chmoth = 'DC12'
      x = -16.0445
      y = -27.7899
      z = 0
      irot = 344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 345
      theta1 = 90
      phi1 = -117.143
      theta2 = 96
      phi2 = -27.1429
      theta3 = 6
      phi3 = -27.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 299
      chmoth = 'DC12'
      x = -14.6393
      y = -28.5551
      z = 0
      irot = 345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 346
      theta1 = 90
      phi1 = -114.286
      theta2 = 96
      phi2 = -24.2857
      theta3 = 6
      phi3 = -24.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 300
      chmoth = 'DC12'
      x = -13.1978
      y = -29.2493
      z = 0
      irot = 346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 347
      theta1 = 90
      phi1 = -111.429
      theta2 = 96
      phi2 = -21.4286
      theta3 = 6
      phi3 = -21.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 301
      chmoth = 'DC12'
      x = -11.7234
      y = -29.8708
      z = 0
      irot = 347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 348
      theta1 = 90
      phi1 = -108.571
      theta2 = 96
      phi2 = -18.5714
      theta3 = 6
      phi3 = -18.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 302
      chmoth = 'DC12'
      x = -10.2199
      y = -30.418
      z = 0
      irot = 348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 349
      theta1 = 90
      phi1 = -105.714
      theta2 = 96
      phi2 = -15.7143
      theta3 = 6
      phi3 = -15.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 303
      chmoth = 'DC12'
      x = -8.691
      y = -30.8896
      z = 0
      irot = 349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 350
      theta1 = 90
      phi1 = -102.857
      theta2 = 96
      phi2 = -12.8571
      theta3 = 6
      phi3 = -12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 304
      chmoth = 'DC12'
      x = -7.14047
      y = -31.2845
      z = 0
      irot = 350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 351
      theta1 = 90
      phi1 = -100
      theta2 = 96
      phi2 = -10
      theta3 = 6
      phi3 = -10
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 305
      chmoth = 'DC12'
      x = -5.5722
      y = -31.6015
      z = 0
      irot = 351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 352
      theta1 = 90
      phi1 = -97.1429
      theta2 = 96
      phi2 = -7.14286
      theta3 = 6
      phi3 = -7.14286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 306
      chmoth = 'DC12'
      x = -3.99007
      y = -31.84
      z = 0
      irot = 352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 353
      theta1 = 90
      phi1 = -94.2857
      theta2 = 96
      phi2 = -4.28571
      theta3 = 6
      phi3 = -4.28571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 307
      chmoth = 'DC12'
      x = -2.39801
      y = -31.9993
      z = 0
      irot = 353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 354
      theta1 = 90
      phi1 = -91.4286
      theta2 = 96
      phi2 = -1.42857
      theta3 = 6
      phi3 = -1.42857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 308
      chmoth = 'DC12'
      x = -0.800001
      y = -32.079
      z = 0
      irot = 354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 355
      theta1 = 90
      phi1 = -88.5714
      theta2 = 96
      phi2 = 1.42857
      theta3 = 6
      phi3 = 1.42857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 309
      chmoth = 'DC12'
      x = 0.800001
      y = -32.079
      z = 0
      irot = 355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 356
      theta1 = 90
      phi1 = -85.7143
      theta2 = 96
      phi2 = 4.28571
      theta3 = 6
      phi3 = 4.28571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 310
      chmoth = 'DC12'
      x = 2.39801
      y = -31.9993
      z = 0
      irot = 356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 357
      theta1 = 90
      phi1 = -82.8571
      theta2 = 96
      phi2 = 7.14286
      theta3 = 6
      phi3 = 7.14286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 311
      chmoth = 'DC12'
      x = 3.99007
      y = -31.84
      z = 0
      irot = 357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 358
      theta1 = 90
      phi1 = -80
      theta2 = 96
      phi2 = 10
      theta3 = 6
      phi3 = 10
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 312
      chmoth = 'DC12'
      x = 5.5722
      y = -31.6015
      z = 0
      irot = 358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 359
      theta1 = 90
      phi1 = -77.1429
      theta2 = 96
      phi2 = 12.8571
      theta3 = 6
      phi3 = 12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 313
      chmoth = 'DC12'
      x = 7.14047
      y = -31.2845
      z = 0
      irot = 359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 360
      theta1 = 90
      phi1 = -74.2857
      theta2 = 96
      phi2 = 15.7143
      theta3 = 6
      phi3 = 15.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 314
      chmoth = 'DC12'
      x = 8.691
      y = -30.8896
      z = 0
      irot = 360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 361
      theta1 = 90
      phi1 = -71.4286
      theta2 = 96
      phi2 = 18.5714
      theta3 = 6
      phi3 = 18.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 315
      chmoth = 'DC12'
      x = 10.2199
      y = -30.418
      z = 0
      irot = 361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 362
      theta1 = 90
      phi1 = -68.5714
      theta2 = 96
      phi2 = 21.4286
      theta3 = 6
      phi3 = 21.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 316
      chmoth = 'DC12'
      x = 11.7234
      y = -29.8708
      z = 0
      irot = 362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 363
      theta1 = 90
      phi1 = -65.7143
      theta2 = 96
      phi2 = 24.2857
      theta3 = 6
      phi3 = 24.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 317
      chmoth = 'DC12'
      x = 13.1978
      y = -29.2493
      z = 0
      irot = 363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 364
      theta1 = 90
      phi1 = -62.8571
      theta2 = 96
      phi2 = 27.1429
      theta3 = 6
      phi3 = 27.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 318
      chmoth = 'DC12'
      x = 14.6393
      y = -28.5551
      z = 0
      irot = 364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 365
      theta1 = 90
      phi1 = -60
      theta2 = 96
      phi2 = 30
      theta3 = 6
      phi3 = 30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 319
      chmoth = 'DC12'
      x = 16.0445
      y = -27.7899
      z = 0
      irot = 365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 366
      theta1 = 90
      phi1 = -57.1429
      theta2 = 96
      phi2 = 32.8571
      theta3 = 6
      phi3 = 32.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 320
      chmoth = 'DC12'
      x = 17.4098
      y = -26.9556
      z = 0
      irot = 366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 367
      theta1 = 90
      phi1 = -54.2857
      theta2 = 96
      phi2 = 35.7143
      theta3 = 6
      phi3 = 35.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 321
      chmoth = 'DC12'
      x = 18.7318
      y = -26.0543
      z = 0
      irot = 367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 368
      theta1 = 90
      phi1 = -51.4286
      theta2 = 96
      phi2 = 38.5714
      theta3 = 6
      phi3 = 38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 322
      chmoth = 'DC12'
      x = 20.0072
      y = -25.0882
      z = 0
      irot = 368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 369
      theta1 = 90
      phi1 = -48.5714
      theta2 = 96
      phi2 = 41.4286
      theta3 = 6
      phi3 = 41.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 323
      chmoth = 'DC12'
      x = 21.2328
      y = -24.0597
      z = 0
      irot = 369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 370
      theta1 = 90
      phi1 = -45.7143
      theta2 = 96
      phi2 = 44.2857
      theta3 = 6
      phi3 = 44.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 324
      chmoth = 'DC12'
      x = 22.4057
      y = -22.9715
      z = 0
      irot = 370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 371
      theta1 = 90
      phi1 = -42.8571
      theta2 = 96
      phi2 = 47.1429
      theta3 = 6
      phi3 = 47.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 325
      chmoth = 'DC12'
      x = 23.5229
      y = -21.8261
      z = 0
      irot = 371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 372
      theta1 = 90
      phi1 = -40
      theta2 = 96
      phi2 = 50
      theta3 = 6
      phi3 = 50
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 326
      chmoth = 'DC12'
      x = 24.5816
      y = -20.6264
      z = 0
      irot = 372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 373
      theta1 = 90
      phi1 = -37.1429
      theta2 = 96
      phi2 = 52.8571
      theta3 = 6
      phi3 = 52.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 327
      chmoth = 'DC12'
      x = 25.5792
      y = -19.3755
      z = 0
      irot = 373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 374
      theta1 = 90
      phi1 = -34.2857
      theta2 = 96
      phi2 = 55.7143
      theta3 = 6
      phi3 = 55.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 328
      chmoth = 'DC12'
      x = 26.5132
      y = -18.0764
      z = 0
      irot = 374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 375
      theta1 = 90
      phi1 = -31.4286
      theta2 = 96
      phi2 = 58.5714
      theta3 = 6
      phi3 = 58.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 329
      chmoth = 'DC12'
      x = 27.3813
      y = -16.7323
      z = 0
      irot = 375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 376
      theta1 = 90
      phi1 = -28.5714
      theta2 = 96
      phi2 = 61.4286
      theta3 = 6
      phi3 = 61.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 330
      chmoth = 'DC12'
      x = 28.1813
      y = -15.3467
      z = 0
      irot = 376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 377
      theta1 = 90
      phi1 = -25.7143
      theta2 = 96
      phi2 = 64.2857
      theta3 = 6
      phi3 = 64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 331
      chmoth = 'DC12'
      x = 28.9112
      y = -13.9229
      z = 0
      irot = 377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 378
      theta1 = 90
      phi1 = -22.8571
      theta2 = 96
      phi2 = 67.1429
      theta3 = 6
      phi3 = 67.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 332
      chmoth = 'DC12'
      x = 29.5693
      y = -12.4645
      z = 0
      irot = 378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 379
      theta1 = 90
      phi1 = -20
      theta2 = 96
      phi2 = 70
      theta3 = 6
      phi3 = 70
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 333
      chmoth = 'DC12'
      x = 30.1538
      y = -10.9751
      z = 0
      irot = 379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 380
      theta1 = 90
      phi1 = -17.1429
      theta2 = 96
      phi2 = 72.8571
      theta3 = 6
      phi3 = 72.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 334
      chmoth = 'DC12'
      x = 30.6634
      y = -9.4584
      z = 0
      irot = 380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 381
      theta1 = 90
      phi1 = -14.2857
      theta2 = 96
      phi2 = 75.7143
      theta3 = 6
      phi3 = 75.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 335
      chmoth = 'DC12'
      x = 31.0967
      y = -7.9182
      z = 0
      irot = 381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 382
      theta1 = 90
      phi1 = -11.4286
      theta2 = 96
      phi2 = 78.5714
      theta3 = 6
      phi3 = 78.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 336
      chmoth = 'DC12'
      x = 31.4528
      y = -6.35831
      z = 0
      irot = 382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 383
      theta1 = 90
      phi1 = -8.57143
      theta2 = 96
      phi2 = 81.4286
      theta3 = 6
      phi3 = 81.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 337
      chmoth = 'DC12'
      x = 31.7306
      y = -4.78262
      z = 0
      irot = 383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 384
      theta1 = 90
      phi1 = -5.71429
      theta2 = 96
      phi2 = 84.2857
      theta3 = 6
      phi3 = 84.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 338
      chmoth = 'DC12'
      x = 31.9295
      y = -3.19503
      z = 0
      irot = 384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 385
      theta1 = 90
      phi1 = -2.85714
      theta2 = 96
      phi2 = 87.1429
      theta3 = 6
      phi3 = 87.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 339
      chmoth = 'DC12'
      x = 32.0491
      y = -1.5995
      z = 0
      irot = 385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 386
      theta1 = 90
      phi1 = 0
      theta2 = 96
      phi2 = 90
      theta3 = 6
      phi3 = 90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 340
      chmoth = 'DC12'
      x = 33.871
      y = 0
      z = 0
      irot = 386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 387
      theta1 = 90
      phi1 = 2.70677
      theta2 = 96
      phi2 = 92.7068
      theta3 = 6
      phi3 = 92.7068
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 341
      chmoth = 'DC12'
      x = 33.8332
      y = 1.59954
      z = 0
      irot = 387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 388
      theta1 = 90
      phi1 = 5.41353
      theta2 = 96
      phi2 = 95.4135
      theta3 = 6
      phi3 = 95.4135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 342
      chmoth = 'DC12'
      x = 33.7199
      y = 3.19551
      z = 0
      irot = 388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 389
      theta1 = 90
      phi1 = 8.1203
      theta2 = 96
      phi2 = 98.1203
      theta3 = 6
      phi3 = 98.1203
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 343
      chmoth = 'DC12'
      x = 33.5314
      y = 4.78435
      z = 0
      irot = 389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 390
      theta1 = 90
      phi1 = 10.8271
      theta2 = 96
      phi2 = 100.827
      theta3 = 6
      phi3 = 100.827
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 344
      chmoth = 'DC12'
      x = 33.268
      y = 6.36251
      z = 0
      irot = 390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 391
      theta1 = 90
      phi1 = 13.5338
      theta2 = 96
      phi2 = 103.534
      theta3 = 6
      phi3 = 103.534
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 345
      chmoth = 'DC12'
      x = 32.9305
      y = 7.92648
      z = 0
      irot = 391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 392
      theta1 = 90
      phi1 = 16.2406
      theta2 = 96
      phi2 = 106.241
      theta3 = 6
      phi3 = 106.241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 346
      chmoth = 'DC12'
      x = 32.5194
      y = 9.47275
      z = 0
      irot = 392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 393
      theta1 = 90
      phi1 = 18.9474
      theta2 = 96
      phi2 = 108.947
      theta3 = 6
      phi3 = 108.947
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 347
      chmoth = 'DC12'
      x = 32.0358
      y = 10.9979
      z = 0
      irot = 393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 394
      theta1 = 90
      phi1 = 21.6541
      theta2 = 96
      phi2 = 111.654
      theta3 = 6
      phi3 = 111.654
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 348
      chmoth = 'DC12'
      x = 31.4807
      y = 12.4985
      z = 0
      irot = 394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 395
      theta1 = 90
      phi1 = 24.3609
      theta2 = 96
      phi2 = 114.361
      theta3 = 6
      phi3 = 114.361
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 349
      chmoth = 'DC12'
      x = 30.8553
      y = 13.9712
      z = 0
      irot = 395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 396
      theta1 = 90
      phi1 = 27.0677
      theta2 = 96
      phi2 = 117.068
      theta3 = 6
      phi3 = 117.068
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 350
      chmoth = 'DC12'
      x = 30.1611
      y = 15.4127
      z = 0
      irot = 396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 397
      theta1 = 90
      phi1 = 29.7744
      theta2 = 96
      phi2 = 119.774
      theta3 = 6
      phi3 = 119.774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 351
      chmoth = 'DC12'
      x = 29.3996
      y = 16.8199
      z = 0
      irot = 397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 398
      theta1 = 90
      phi1 = 32.4812
      theta2 = 96
      phi2 = 122.481
      theta3 = 6
      phi3 = 122.481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 352
      chmoth = 'DC12'
      x = 28.5725
      y = 18.1895
      z = 0
      irot = 398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 399
      theta1 = 90
      phi1 = 35.188
      theta2 = 96
      phi2 = 125.188
      theta3 = 6
      phi3 = 125.188
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 353
      chmoth = 'DC12'
      x = 27.6816
      y = 19.5185
      z = 0
      irot = 399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 400
      theta1 = 90
      phi1 = 37.8947
      theta2 = 96
      phi2 = 127.895
      theta3 = 6
      phi3 = 127.895
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 354
      chmoth = 'DC12'
      x = 26.729
      y = 20.804
      z = 0
      irot = 400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 401
      theta1 = 90
      phi1 = 40.6015
      theta2 = 96
      phi2 = 130.602
      theta3 = 6
      phi3 = 130.602
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 355
      chmoth = 'DC12'
      x = 25.7167
      y = 22.043
      z = 0
      irot = 401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 402
      theta1 = 90
      phi1 = 43.3083
      theta2 = 96
      phi2 = 133.308
      theta3 = 6
      phi3 = 133.308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 356
      chmoth = 'DC12'
      x = 24.647
      y = 23.2329
      z = 0
      irot = 402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 403
      theta1 = 90
      phi1 = 46.015
      theta2 = 96
      phi2 = 136.015
      theta3 = 6
      phi3 = 136.015
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 357
      chmoth = 'DC12'
      x = 23.5224
      y = 24.3709
      z = 0
      irot = 403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 404
      theta1 = 90
      phi1 = 48.7218
      theta2 = 96
      phi2 = 138.722
      theta3 = 6
      phi3 = 138.722
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 358
      chmoth = 'DC12'
      x = 22.3452
      y = 25.4546
      z = 0
      irot = 404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 405
      theta1 = 90
      phi1 = 51.4286
      theta2 = 96
      phi2 = 141.429
      theta3 = 6
      phi3 = 141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 359
      chmoth = 'DC12'
      x = 21.1182
      y = 26.4814
      z = 0
      irot = 405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 406
      theta1 = 90
      phi1 = 54.1353
      theta2 = 96
      phi2 = 144.135
      theta3 = 6
      phi3 = 144.135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 360
      chmoth = 'DC12'
      x = 19.8441
      y = 27.4492
      z = 0
      irot = 406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 407
      theta1 = 90
      phi1 = 56.8421
      theta2 = 96
      phi2 = 146.842
      theta3 = 6
      phi3 = 146.842
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 361
      chmoth = 'DC12'
      x = 18.5257
      y = 28.3557
      z = 0
      irot = 407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 408
      theta1 = 90
      phi1 = 59.5489
      theta2 = 96
      phi2 = 149.549
      theta3 = 6
      phi3 = 149.549
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 362
      chmoth = 'DC12'
      x = 17.1659
      y = 29.1989
      z = 0
      irot = 408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 409
      theta1 = 90
      phi1 = 62.2556
      theta2 = 96
      phi2 = 152.256
      theta3 = 6
      phi3 = 152.256
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 363
      chmoth = 'DC12'
      x = 15.7679
      y = 29.977
      z = 0
      irot = 409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 410
      theta1 = 90
      phi1 = 64.9624
      theta2 = 96
      phi2 = 154.962
      theta3 = 6
      phi3 = 154.962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 364
      chmoth = 'DC12'
      x = 14.3346
      y = 30.6882
      z = 0
      irot = 410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 411
      theta1 = 90
      phi1 = 67.6692
      theta2 = 96
      phi2 = 157.669
      theta3 = 6
      phi3 = 157.669
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 365
      chmoth = 'DC12'
      x = 12.8694
      y = 31.3309
      z = 0
      irot = 411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 412
      theta1 = 90
      phi1 = 70.3759
      theta2 = 96
      phi2 = 160.376
      theta3 = 6
      phi3 = 160.376
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 366
      chmoth = 'DC12'
      x = 11.3755
      y = 31.9037
      z = 0
      irot = 412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 413
      theta1 = 90
      phi1 = 73.0827
      theta2 = 96
      phi2 = 163.083
      theta3 = 6
      phi3 = 163.083
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 367
      chmoth = 'DC12'
      x = 9.85616
      y = 32.4053
      z = 0
      irot = 413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 414
      theta1 = 90
      phi1 = 75.7895
      theta2 = 96
      phi2 = 165.789
      theta3 = 6
      phi3 = 165.789
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 368
      chmoth = 'DC12'
      x = 8.31484
      y = 32.8346
      z = 0
      irot = 414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 415
      theta1 = 90
      phi1 = 78.4962
      theta2 = 96
      phi2 = 168.496
      theta3 = 6
      phi3 = 168.496
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 369
      chmoth = 'DC12'
      x = 6.75497
      y = 33.1906
      z = 0
      irot = 415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 416
      theta1 = 90
      phi1 = 81.203
      theta2 = 96
      phi2 = 171.203
      theta3 = 6
      phi3 = 171.203
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 370
      chmoth = 'DC12'
      x = 5.18003
      y = 33.4726
      z = 0
      irot = 416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 417
      theta1 = 90
      phi1 = 83.9098
      theta2 = 96
      phi2 = 173.91
      theta3 = 6
      phi3 = 173.91
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 371
      chmoth = 'DC12'
      x = 3.59352
      y = 33.6798
      z = 0
      irot = 417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 418
      theta1 = 90
      phi1 = 86.6165
      theta2 = 96
      phi2 = 176.617
      theta3 = 6
      phi3 = 176.617
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 372
      chmoth = 'DC12'
      x = 1.999
      y = 33.812
      z = 0
      irot = 418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 419
      theta1 = 90
      phi1 = 89.3233
      theta2 = 96
      phi2 = 179.323
      theta3 = 6
      phi3 = 179.323
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 373
      chmoth = 'DC12'
      x = 0.400024
      y = 33.8686
      z = 0
      irot = 419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 420
      theta1 = 90
      phi1 = 92.0301
      theta2 = 96
      phi2 = -177.97
      theta3 = 6
      phi3 = -177.97
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 374
      chmoth = 'DC12'
      x = -1.19985
      y = 33.8497
      z = 0
      irot = 420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 421
      theta1 = 90
      phi1 = 94.7368
      theta2 = 96
      phi2 = -175.263
      theta3 = 6
      phi3 = -175.263
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 375
      chmoth = 'DC12'
      x = -2.79705
      y = 33.7553
      z = 0
      irot = 421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 422
      theta1 = 90
      phi1 = 97.4436
      theta2 = 96
      phi2 = -172.556
      theta3 = 6
      phi3 = -172.556
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 376
      chmoth = 'DC12'
      x = -4.388
      y = 33.5856
      z = 0
      irot = 422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 423
      theta1 = 90
      phi1 = 100.15
      theta2 = 96
      phi2 = -169.85
      theta3 = 6
      phi3 = -169.85
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 377
      chmoth = 'DC12'
      x = -5.96916
      y = 33.3409
      z = 0
      irot = 423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 424
      theta1 = 90
      phi1 = 102.857
      theta2 = 96
      phi2 = -167.143
      theta3 = 6
      phi3 = -167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 378
      chmoth = 'DC12'
      x = -7.53701
      y = 33.0218
      z = 0
      irot = 424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 425
      theta1 = 90
      phi1 = 105.564
      theta2 = 96
      phi2 = -164.436
      theta3 = 6
      phi3 = -164.436
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 379
      chmoth = 'DC12'
      x = -9.08803
      y = 32.629
      z = 0
      irot = 425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 426
      theta1 = 90
      phi1 = 108.271
      theta2 = 96
      phi2 = -161.729
      theta3 = 6
      phi3 = -161.729
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 380
      chmoth = 'DC12'
      x = -10.6188
      y = 32.1634
      z = 0
      irot = 426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 427
      theta1 = 90
      phi1 = 110.977
      theta2 = 96
      phi2 = -159.023
      theta3 = 6
      phi3 = -159.023
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 381
      chmoth = 'DC12'
      x = -12.1258
      y = 31.6261
      z = 0
      irot = 427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 428
      theta1 = 90
      phi1 = 113.684
      theta2 = 96
      phi2 = -156.316
      theta3 = 6
      phi3 = -156.316
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 382
      chmoth = 'DC12'
      x = -13.6058
      y = 31.0182
      z = 0
      irot = 428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 429
      theta1 = 90
      phi1 = 116.391
      theta2 = 96
      phi2 = -153.609
      theta3 = 6
      phi3 = -153.609
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 383
      chmoth = 'DC12'
      x = -15.0555
      y = 30.341
      z = 0
      irot = 429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 430
      theta1 = 90
      phi1 = 119.098
      theta2 = 96
      phi2 = -150.902
      theta3 = 6
      phi3 = -150.902
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 384
      chmoth = 'DC12'
      x = -16.4715
      y = 29.5962
      z = 0
      irot = 430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 431
      theta1 = 90
      phi1 = 121.805
      theta2 = 96
      phi2 = -148.195
      theta3 = 6
      phi3 = -148.195
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 385
      chmoth = 'DC12'
      x = -17.8508
      y = 28.7853
      z = 0
      irot = 431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 432
      theta1 = 90
      phi1 = 124.511
      theta2 = 96
      phi2 = -145.489
      theta3 = 6
      phi3 = -145.489
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 386
      chmoth = 'DC12'
      x = -19.1902
      y = 27.9102
      z = 0
      irot = 432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 433
      theta1 = 90
      phi1 = 127.218
      theta2 = 96
      phi2 = -142.782
      theta3 = 6
      phi3 = -142.782
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 387
      chmoth = 'DC12'
      x = -20.4869
      y = 26.9728
      z = 0
      irot = 433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 434
      theta1 = 90
      phi1 = 129.925
      theta2 = 96
      phi2 = -140.075
      theta3 = 6
      phi3 = -140.075
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 388
      chmoth = 'DC12'
      x = -21.7378
      y = 25.9752
      z = 0
      irot = 434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 435
      theta1 = 90
      phi1 = 132.632
      theta2 = 96
      phi2 = -137.368
      theta3 = 6
      phi3 = -137.368
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 389
      chmoth = 'DC12'
      x = -22.9402
      y = 24.9197
      z = 0
      irot = 435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 436
      theta1 = 90
      phi1 = 135.338
      theta2 = 96
      phi2 = -134.662
      theta3 = 6
      phi3 = -134.662
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 390
      chmoth = 'DC12'
      x = -24.0914
      y = 23.8086
      z = 0
      irot = 436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 437
      theta1 = 90
      phi1 = 138.045
      theta2 = 96
      phi2 = -131.955
      theta3 = 6
      phi3 = -131.955
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 391
      chmoth = 'DC12'
      x = -25.1889
      y = 22.6443
      z = 0
      irot = 437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 438
      theta1 = 90
      phi1 = 140.752
      theta2 = 96
      phi2 = -129.248
      theta3 = 6
      phi3 = -129.248
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 392
      chmoth = 'DC12'
      x = -26.2302
      y = 21.4295
      z = 0
      irot = 438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 439
      theta1 = 90
      phi1 = 143.459
      theta2 = 96
      phi2 = -126.541
      theta3 = 6
      phi3 = -126.541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 393
      chmoth = 'DC12'
      x = -27.2129
      y = 20.1669
      z = 0
      irot = 439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 440
      theta1 = 90
      phi1 = 146.165
      theta2 = 96
      phi2 = -123.835
      theta3 = 6
      phi3 = -123.835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 394
      chmoth = 'DC12'
      x = -28.1349
      y = 18.8593
      z = 0
      irot = 440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 441
      theta1 = 90
      phi1 = 148.872
      theta2 = 96
      phi2 = -121.128
      theta3 = 6
      phi3 = -121.128
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 395
      chmoth = 'DC12'
      x = -28.9941
      y = 17.5096
      z = 0
      irot = 441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 442
      theta1 = 90
      phi1 = 151.579
      theta2 = 96
      phi2 = -118.421
      theta3 = 6
      phi3 = -118.421
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 396
      chmoth = 'DC12'
      x = -29.7887
      y = 16.1208
      z = 0
      irot = 442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 443
      theta1 = 90
      phi1 = 154.286
      theta2 = 96
      phi2 = -115.714
      theta3 = 6
      phi3 = -115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 397
      chmoth = 'DC12'
      x = -30.5167
      y = 14.6961
      z = 0
      irot = 443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 444
      theta1 = 90
      phi1 = 156.992
      theta2 = 96
      phi2 = -113.008
      theta3 = 6
      phi3 = -113.008
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 398
      chmoth = 'DC12'
      x = -31.1767
      y = 13.2385
      z = 0
      irot = 444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 445
      theta1 = 90
      phi1 = 159.699
      theta2 = 96
      phi2 = -110.301
      theta3 = 6
      phi3 = -110.301
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 399
      chmoth = 'DC12'
      x = -31.7671
      y = 11.7515
      z = 0
      irot = 445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 446
      theta1 = 90
      phi1 = 162.406
      theta2 = 96
      phi2 = -107.594
      theta3 = 6
      phi3 = -107.594
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 400
      chmoth = 'DC12'
      x = -32.2866
      y = 10.2382
      z = 0
      irot = 446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 447
      theta1 = 90
      phi1 = 165.113
      theta2 = 96
      phi2 = -104.887
      theta3 = 6
      phi3 = -104.887
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 401
      chmoth = 'DC12'
      x = -32.7341
      y = 8.70204
      z = 0
      irot = 447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 448
      theta1 = 90
      phi1 = 167.82
      theta2 = 96
      phi2 = -102.18
      theta3 = 6
      phi3 = -102.18
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 402
      chmoth = 'DC12'
      x = -33.1085
      y = 7.14649
      z = 0
      irot = 448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 449
      theta1 = 90
      phi1 = 170.526
      theta2 = 96
      phi2 = -99.4737
      theta3 = 6
      phi3 = -99.4737
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 403
      chmoth = 'DC12'
      x = -33.409
      y = 5.57498
      z = 0
      irot = 449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 450
      theta1 = 90
      phi1 = 173.233
      theta2 = 96
      phi2 = -96.7669
      theta3 = 6
      phi3 = -96.7669
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 404
      chmoth = 'DC12'
      x = -33.635
      y = 3.99104
      z = 0
      irot = 450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 451
      theta1 = 90
      phi1 = 175.94
      theta2 = 96
      phi2 = -94.0602
      theta3 = 6
      phi3 = -94.0602
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 405
      chmoth = 'DC12'
      x = -33.786
      y = 2.39819
      z = 0
      irot = 451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 452
      theta1 = 90
      phi1 = 178.647
      theta2 = 96
      phi2 = -91.3534
      theta3 = 6
      phi3 = -91.3534
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 406
      chmoth = 'DC12'
      x = -33.8616
      y = 0.799992
      z = 0
      irot = 452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 453
      theta1 = 90
      phi1 = -178.647
      theta2 = 96
      phi2 = -88.6466
      theta3 = 6
      phi3 = -88.6466
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 407
      chmoth = 'DC12'
      x = -33.8616
      y = -0.799992
      z = 0
      irot = 453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 454
      theta1 = 90
      phi1 = -175.94
      theta2 = 96
      phi2 = -85.9398
      theta3 = 6
      phi3 = -85.9398
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 408
      chmoth = 'DC12'
      x = -33.786
      y = -2.39819
      z = 0
      irot = 454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 455
      theta1 = 90
      phi1 = -173.233
      theta2 = 96
      phi2 = -83.2331
      theta3 = 6
      phi3 = -83.2331
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 409
      chmoth = 'DC12'
      x = -33.635
      y = -3.99104
      z = 0
      irot = 455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 456
      theta1 = 90
      phi1 = -170.526
      theta2 = 96
      phi2 = -80.5263
      theta3 = 6
      phi3 = -80.5263
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 410
      chmoth = 'DC12'
      x = -33.409
      y = -5.57498
      z = 0
      irot = 456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 457
      theta1 = 90
      phi1 = -167.82
      theta2 = 96
      phi2 = -77.8195
      theta3 = 6
      phi3 = -77.8195
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 411
      chmoth = 'DC12'
      x = -33.1085
      y = -7.14649
      z = 0
      irot = 457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 458
      theta1 = 90
      phi1 = -165.113
      theta2 = 96
      phi2 = -75.1128
      theta3 = 6
      phi3 = -75.1128
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 412
      chmoth = 'DC12'
      x = -32.7341
      y = -8.70204
      z = 0
      irot = 458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 459
      theta1 = 90
      phi1 = -162.406
      theta2 = 96
      phi2 = -72.406
      theta3 = 6
      phi3 = -72.406
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 413
      chmoth = 'DC12'
      x = -32.2866
      y = -10.2382
      z = 0
      irot = 459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 460
      theta1 = 90
      phi1 = -159.699
      theta2 = 96
      phi2 = -69.6992
      theta3 = 6
      phi3 = -69.6992
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 414
      chmoth = 'DC12'
      x = -31.7671
      y = -11.7515
      z = 0
      irot = 460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 461
      theta1 = 90
      phi1 = -156.992
      theta2 = 96
      phi2 = -66.9925
      theta3 = 6
      phi3 = -66.9925
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 415
      chmoth = 'DC12'
      x = -31.1767
      y = -13.2385
      z = 0
      irot = 461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 462
      theta1 = 90
      phi1 = -154.286
      theta2 = 96
      phi2 = -64.2857
      theta3 = 6
      phi3 = -64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 416
      chmoth = 'DC12'
      x = -30.5167
      y = -14.6961
      z = 0
      irot = 462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 463
      theta1 = 90
      phi1 = -151.579
      theta2 = 96
      phi2 = -61.5789
      theta3 = 6
      phi3 = -61.5789
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 417
      chmoth = 'DC12'
      x = -29.7887
      y = -16.1208
      z = 0
      irot = 463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 464
      theta1 = 90
      phi1 = -148.872
      theta2 = 96
      phi2 = -58.8722
      theta3 = 6
      phi3 = -58.8722
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 418
      chmoth = 'DC12'
      x = -28.9941
      y = -17.5096
      z = 0
      irot = 464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 465
      theta1 = 90
      phi1 = -146.165
      theta2 = 96
      phi2 = -56.1654
      theta3 = 6
      phi3 = -56.1654
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 419
      chmoth = 'DC12'
      x = -28.1349
      y = -18.8593
      z = 0
      irot = 465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 466
      theta1 = 90
      phi1 = -143.459
      theta2 = 96
      phi2 = -53.4586
      theta3 = 6
      phi3 = -53.4586
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 420
      chmoth = 'DC12'
      x = -27.2129
      y = -20.1669
      z = 0
      irot = 466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 467
      theta1 = 90
      phi1 = -140.752
      theta2 = 96
      phi2 = -50.7519
      theta3 = 6
      phi3 = -50.7519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 421
      chmoth = 'DC12'
      x = -26.2302
      y = -21.4295
      z = 0
      irot = 467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 468
      theta1 = 90
      phi1 = -138.045
      theta2 = 96
      phi2 = -48.0451
      theta3 = 6
      phi3 = -48.0451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 422
      chmoth = 'DC12'
      x = -25.1889
      y = -22.6443
      z = 0
      irot = 468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 469
      theta1 = 90
      phi1 = -135.338
      theta2 = 96
      phi2 = -45.3383
      theta3 = 6
      phi3 = -45.3383
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 423
      chmoth = 'DC12'
      x = -24.0914
      y = -23.8086
      z = 0
      irot = 469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 470
      theta1 = 90
      phi1 = -132.632
      theta2 = 96
      phi2 = -42.6316
      theta3 = 6
      phi3 = -42.6316
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 424
      chmoth = 'DC12'
      x = -22.9402
      y = -24.9197
      z = 0
      irot = 470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 471
      theta1 = 90
      phi1 = -129.925
      theta2 = 96
      phi2 = -39.9248
      theta3 = 6
      phi3 = -39.9248
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 425
      chmoth = 'DC12'
      x = -21.7378
      y = -25.9752
      z = 0
      irot = 471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 472
      theta1 = 90
      phi1 = -127.218
      theta2 = 96
      phi2 = -37.218
      theta3 = 6
      phi3 = -37.218
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 426
      chmoth = 'DC12'
      x = -20.4869
      y = -26.9728
      z = 0
      irot = 472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 473
      theta1 = 90
      phi1 = -124.511
      theta2 = 96
      phi2 = -34.5113
      theta3 = 6
      phi3 = -34.5113
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 427
      chmoth = 'DC12'
      x = -19.1902
      y = -27.9102
      z = 0
      irot = 473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 474
      theta1 = 90
      phi1 = -121.805
      theta2 = 96
      phi2 = -31.8045
      theta3 = 6
      phi3 = -31.8045
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 428
      chmoth = 'DC12'
      x = -17.8508
      y = -28.7853
      z = 0
      irot = 474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 475
      theta1 = 90
      phi1 = -119.098
      theta2 = 96
      phi2 = -29.0977
      theta3 = 6
      phi3 = -29.0977
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 429
      chmoth = 'DC12'
      x = -16.4715
      y = -29.5962
      z = 0
      irot = 475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 476
      theta1 = 90
      phi1 = -116.391
      theta2 = 96
      phi2 = -26.391
      theta3 = 6
      phi3 = -26.391
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 430
      chmoth = 'DC12'
      x = -15.0555
      y = -30.341
      z = 0
      irot = 476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 477
      theta1 = 90
      phi1 = -113.684
      theta2 = 96
      phi2 = -23.6842
      theta3 = 6
      phi3 = -23.6842
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 431
      chmoth = 'DC12'
      x = -13.6058
      y = -31.0182
      z = 0
      irot = 477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 478
      theta1 = 90
      phi1 = -110.977
      theta2 = 96
      phi2 = -20.9774
      theta3 = 6
      phi3 = -20.9774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 432
      chmoth = 'DC12'
      x = -12.1258
      y = -31.6261
      z = 0
      irot = 478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 479
      theta1 = 90
      phi1 = -108.271
      theta2 = 96
      phi2 = -18.2707
      theta3 = 6
      phi3 = -18.2707
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 433
      chmoth = 'DC12'
      x = -10.6188
      y = -32.1634
      z = 0
      irot = 479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 480
      theta1 = 90
      phi1 = -105.564
      theta2 = 96
      phi2 = -15.5639
      theta3 = 6
      phi3 = -15.5639
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 434
      chmoth = 'DC12'
      x = -9.08803
      y = -32.629
      z = 0
      irot = 480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 481
      theta1 = 90
      phi1 = -102.857
      theta2 = 96
      phi2 = -12.8571
      theta3 = 6
      phi3 = -12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 435
      chmoth = 'DC12'
      x = -7.53701
      y = -33.0218
      z = 0
      irot = 481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 482
      theta1 = 90
      phi1 = -100.15
      theta2 = 96
      phi2 = -10.1504
      theta3 = 6
      phi3 = -10.1504
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 436
      chmoth = 'DC12'
      x = -5.96916
      y = -33.3409
      z = 0
      irot = 482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 483
      theta1 = 90
      phi1 = -97.4436
      theta2 = 96
      phi2 = -7.44361
      theta3 = 6
      phi3 = -7.44361
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 437
      chmoth = 'DC12'
      x = -4.388
      y = -33.5856
      z = 0
      irot = 483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 484
      theta1 = 90
      phi1 = -94.7368
      theta2 = 96
      phi2 = -4.73684
      theta3 = 6
      phi3 = -4.73684
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 438
      chmoth = 'DC12'
      x = -2.79705
      y = -33.7553
      z = 0
      irot = 484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 485
      theta1 = 90
      phi1 = -92.0301
      theta2 = 96
      phi2 = -2.03008
      theta3 = 6
      phi3 = -2.03008
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 439
      chmoth = 'DC12'
      x = -1.19985
      y = -33.8497
      z = 0
      irot = 485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 486
      theta1 = 90
      phi1 = -89.3233
      theta2 = 96
      phi2 = 0.676692
      theta3 = 6
      phi3 = 0.676692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 440
      chmoth = 'DC12'
      x = 0.400024
      y = -33.8686
      z = 0
      irot = 486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 487
      theta1 = 90
      phi1 = -86.6165
      theta2 = 96
      phi2 = 3.38346
      theta3 = 6
      phi3 = 3.38346
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 441
      chmoth = 'DC12'
      x = 1.999
      y = -33.812
      z = 0
      irot = 487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 488
      theta1 = 90
      phi1 = -83.9098
      theta2 = 96
      phi2 = 6.09023
      theta3 = 6
      phi3 = 6.09023
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 442
      chmoth = 'DC12'
      x = 3.59352
      y = -33.6798
      z = 0
      irot = 488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 489
      theta1 = 90
      phi1 = -81.203
      theta2 = 96
      phi2 = 8.79699
      theta3 = 6
      phi3 = 8.79699
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 443
      chmoth = 'DC12'
      x = 5.18003
      y = -33.4726
      z = 0
      irot = 489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 490
      theta1 = 90
      phi1 = -78.4962
      theta2 = 96
      phi2 = 11.5038
      theta3 = 6
      phi3 = 11.5038
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 444
      chmoth = 'DC12'
      x = 6.75497
      y = -33.1906
      z = 0
      irot = 490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 491
      theta1 = 90
      phi1 = -75.7895
      theta2 = 96
      phi2 = 14.2105
      theta3 = 6
      phi3 = 14.2105
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 445
      chmoth = 'DC12'
      x = 8.31484
      y = -32.8346
      z = 0
      irot = 491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 492
      theta1 = 90
      phi1 = -73.0827
      theta2 = 96
      phi2 = 16.9173
      theta3 = 6
      phi3 = 16.9173
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 446
      chmoth = 'DC12'
      x = 9.85616
      y = -32.4053
      z = 0
      irot = 492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 493
      theta1 = 90
      phi1 = -70.3759
      theta2 = 96
      phi2 = 19.6241
      theta3 = 6
      phi3 = 19.6241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 447
      chmoth = 'DC12'
      x = 11.3755
      y = -31.9037
      z = 0
      irot = 493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 494
      theta1 = 90
      phi1 = -67.6692
      theta2 = 96
      phi2 = 22.3308
      theta3 = 6
      phi3 = 22.3308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 448
      chmoth = 'DC12'
      x = 12.8694
      y = -31.3309
      z = 0
      irot = 494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 495
      theta1 = 90
      phi1 = -64.9624
      theta2 = 96
      phi2 = 25.0376
      theta3 = 6
      phi3 = 25.0376
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 449
      chmoth = 'DC12'
      x = 14.3346
      y = -30.6882
      z = 0
      irot = 495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 496
      theta1 = 90
      phi1 = -62.2556
      theta2 = 96
      phi2 = 27.7444
      theta3 = 6
      phi3 = 27.7444
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 450
      chmoth = 'DC12'
      x = 15.7679
      y = -29.977
      z = 0
      irot = 496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 497
      theta1 = 90
      phi1 = -59.5489
      theta2 = 96
      phi2 = 30.4511
      theta3 = 6
      phi3 = 30.4511
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 451
      chmoth = 'DC12'
      x = 17.1659
      y = -29.1989
      z = 0
      irot = 497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 498
      theta1 = 90
      phi1 = -56.8421
      theta2 = 96
      phi2 = 33.1579
      theta3 = 6
      phi3 = 33.1579
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 452
      chmoth = 'DC12'
      x = 18.5257
      y = -28.3557
      z = 0
      irot = 498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 499
      theta1 = 90
      phi1 = -54.1353
      theta2 = 96
      phi2 = 35.8647
      theta3 = 6
      phi3 = 35.8647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 453
      chmoth = 'DC12'
      x = 19.8441
      y = -27.4492
      z = 0
      irot = 499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 500
      theta1 = 90
      phi1 = -51.4286
      theta2 = 96
      phi2 = 38.5714
      theta3 = 6
      phi3 = 38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 454
      chmoth = 'DC12'
      x = 21.1182
      y = -26.4814
      z = 0
      irot = 500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 501
      theta1 = 90
      phi1 = -48.7218
      theta2 = 96
      phi2 = 41.2782
      theta3 = 6
      phi3 = 41.2782
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 455
      chmoth = 'DC12'
      x = 22.3452
      y = -25.4546
      z = 0
      irot = 501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 502
      theta1 = 90
      phi1 = -46.015
      theta2 = 96
      phi2 = 43.985
      theta3 = 6
      phi3 = 43.985
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 456
      chmoth = 'DC12'
      x = 23.5224
      y = -24.3709
      z = 0
      irot = 502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 503
      theta1 = 90
      phi1 = -43.3083
      theta2 = 96
      phi2 = 46.6917
      theta3 = 6
      phi3 = 46.6917
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 457
      chmoth = 'DC12'
      x = 24.647
      y = -23.2329
      z = 0
      irot = 503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 504
      theta1 = 90
      phi1 = -40.6015
      theta2 = 96
      phi2 = 49.3985
      theta3 = 6
      phi3 = 49.3985
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 458
      chmoth = 'DC12'
      x = 25.7167
      y = -22.043
      z = 0
      irot = 504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 505
      theta1 = 90
      phi1 = -37.8947
      theta2 = 96
      phi2 = 52.1053
      theta3 = 6
      phi3 = 52.1053
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 459
      chmoth = 'DC12'
      x = 26.729
      y = -20.804
      z = 0
      irot = 505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 506
      theta1 = 90
      phi1 = -35.188
      theta2 = 96
      phi2 = 54.812
      theta3 = 6
      phi3 = 54.812
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 460
      chmoth = 'DC12'
      x = 27.6816
      y = -19.5185
      z = 0
      irot = 506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 507
      theta1 = 90
      phi1 = -32.4812
      theta2 = 96
      phi2 = 57.5188
      theta3 = 6
      phi3 = 57.5188
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 461
      chmoth = 'DC12'
      x = 28.5725
      y = -18.1895
      z = 0
      irot = 507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 508
      theta1 = 90
      phi1 = -29.7744
      theta2 = 96
      phi2 = 60.2256
      theta3 = 6
      phi3 = 60.2256
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 462
      chmoth = 'DC12'
      x = 29.3996
      y = -16.8199
      z = 0
      irot = 508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 509
      theta1 = 90
      phi1 = -27.0677
      theta2 = 96
      phi2 = 62.9323
      theta3 = 6
      phi3 = 62.9323
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 463
      chmoth = 'DC12'
      x = 30.1611
      y = -15.4127
      z = 0
      irot = 509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 510
      theta1 = 90
      phi1 = -24.3609
      theta2 = 96
      phi2 = 65.6391
      theta3 = 6
      phi3 = 65.6391
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 464
      chmoth = 'DC12'
      x = 30.8553
      y = -13.9712
      z = 0
      irot = 510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 511
      theta1 = 90
      phi1 = -21.6541
      theta2 = 96
      phi2 = 68.3459
      theta3 = 6
      phi3 = 68.3459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 465
      chmoth = 'DC12'
      x = 31.4807
      y = -12.4985
      z = 0
      irot = 511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 512
      theta1 = 90
      phi1 = -18.9474
      theta2 = 96
      phi2 = 71.0526
      theta3 = 6
      phi3 = 71.0526
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 466
      chmoth = 'DC12'
      x = 32.0358
      y = -10.9979
      z = 0
      irot = 512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 513
      theta1 = 90
      phi1 = -16.2406
      theta2 = 96
      phi2 = 73.7594
      theta3 = 6
      phi3 = 73.7594
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 467
      chmoth = 'DC12'
      x = 32.5194
      y = -9.47275
      z = 0
      irot = 513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 514
      theta1 = 90
      phi1 = -13.5338
      theta2 = 96
      phi2 = 76.4662
      theta3 = 6
      phi3 = 76.4662
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 468
      chmoth = 'DC12'
      x = 32.9305
      y = -7.92648
      z = 0
      irot = 514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 515
      theta1 = 90
      phi1 = -10.8271
      theta2 = 96
      phi2 = 79.1729
      theta3 = 6
      phi3 = 79.1729
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 469
      chmoth = 'DC12'
      x = 33.268
      y = -6.36251
      z = 0
      irot = 515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 516
      theta1 = 90
      phi1 = -8.1203
      theta2 = 96
      phi2 = 81.8797
      theta3 = 6
      phi3 = 81.8797
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 470
      chmoth = 'DC12'
      x = 33.5314
      y = -4.78435
      z = 0
      irot = 516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 517
      theta1 = 90
      phi1 = -5.41353
      theta2 = 96
      phi2 = 84.5865
      theta3 = 6
      phi3 = 84.5865
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 471
      chmoth = 'DC12'
      x = 33.7199
      y = -3.19551
      z = 0
      irot = 517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 518
      theta1 = 90
      phi1 = -2.70677
      theta2 = 96
      phi2 = 87.2932
      theta3 = 6
      phi3 = 87.2932
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 472
      chmoth = 'DC12'
      x = 33.8332
      y = -1.59954
      z = 0
      irot = 518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 519
      theta1 = 90
      phi1 = 0
      theta2 = 96
      phi2 = 90
      theta3 = 6
      phi3 = 90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 473
      chmoth = 'DC12'
      x = 35.654
      y = 0
      z = 0
      irot = 519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 520
      theta1 = 90
      phi1 = 2.57143
      theta2 = 96
      phi2 = 92.5714
      theta3 = 6
      phi3 = 92.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 474
      chmoth = 'DC12'
      x = 35.6181
      y = 1.59961
      z = 0
      irot = 520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 521
      theta1 = 90
      phi1 = 5.14286
      theta2 = 96
      phi2 = 95.1429
      theta3 = 6
      phi3 = 95.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 475
      chmoth = 'DC12'
      x = 35.5105
      y = 3.196
      z = 0
      irot = 521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 522
      theta1 = 90
      phi1 = 7.71429
      theta2 = 96
      phi2 = 97.7143
      theta3 = 6
      phi3 = 97.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 476
      chmoth = 'DC12'
      x = 35.3313
      y = 4.78595
      z = 0
      irot = 522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 523
      theta1 = 90
      phi1 = 10.2857
      theta2 = 96
      phi2 = 100.286
      theta3 = 6
      phi3 = 100.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 477
      chmoth = 'DC12'
      x = 35.081
      y = 6.36627
      z = 0
      irot = 523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 524
      theta1 = 90
      phi1 = 12.8571
      theta2 = 96
      phi2 = 102.857
      theta3 = 6
      phi3 = 102.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 478
      chmoth = 'DC12'
      x = 34.7601
      y = 7.93376
      z = 0
      irot = 524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 525
      theta1 = 90
      phi1 = 15.4286
      theta2 = 96
      phi2 = 105.429
      theta3 = 6
      phi3 = 105.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 479
      chmoth = 'DC12'
      x = 34.3691
      y = 9.48528
      z = 0
      irot = 525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 526
      theta1 = 90
      phi1 = 18
      theta2 = 96
      phi2 = 108
      theta3 = 6
      phi3 = 108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 480
      chmoth = 'DC12'
      x = 33.909
      y = 11.0177
      z = 0
      irot = 526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 527
      theta1 = 90
      phi1 = 20.5714
      theta2 = 96
      phi2 = 110.571
      theta3 = 6
      phi3 = 110.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 481
      chmoth = 'DC12'
      x = 33.3805
      y = 12.5279
      z = 0
      irot = 527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 528
      theta1 = 90
      phi1 = 23.1429
      theta2 = 96
      phi2 = 113.143
      theta3 = 6
      phi3 = 113.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 482
      chmoth = 'DC12'
      x = 32.7848
      y = 14.0129
      z = 0
      irot = 528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 529
      theta1 = 90
      phi1 = 25.7143
      theta2 = 96
      phi2 = 115.714
      theta3 = 6
      phi3 = 115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 483
      chmoth = 'DC12'
      x = 32.1231
      y = 15.4697
      z = 0
      irot = 529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 530
      theta1 = 90
      phi1 = 28.2857
      theta2 = 96
      phi2 = 118.286
      theta3 = 6
      phi3 = 118.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 484
      chmoth = 'DC12'
      x = 31.3968
      y = 16.8953
      z = 0
      irot = 530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 531
      theta1 = 90
      phi1 = 30.8571
      theta2 = 96
      phi2 = 120.857
      theta3 = 6
      phi3 = 120.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 485
      chmoth = 'DC12'
      x = 30.6071
      y = 18.2869
      z = 0
      irot = 531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 532
      theta1 = 90
      phi1 = 33.4286
      theta2 = 96
      phi2 = 123.429
      theta3 = 6
      phi3 = 123.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 486
      chmoth = 'DC12'
      x = 29.7559
      y = 19.6417
      z = 0
      irot = 532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 533
      theta1 = 90
      phi1 = 36
      theta2 = 96
      phi2 = 126
      theta3 = 6
      phi3 = 126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 487
      chmoth = 'DC12'
      x = 28.8447
      y = 20.9569
      z = 0
      irot = 533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 534
      theta1 = 90
      phi1 = 38.5714
      theta2 = 96
      phi2 = 128.571
      theta3 = 6
      phi3 = 128.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 488
      chmoth = 'DC12'
      x = 27.8754
      y = 22.2299
      z = 0
      irot = 534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 535
      theta1 = 90
      phi1 = 41.1429
      theta2 = 96
      phi2 = 131.143
      theta3 = 6
      phi3 = 131.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 489
      chmoth = 'DC12'
      x = 26.85
      y = 23.4581
      z = 0
      irot = 535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 536
      theta1 = 90
      phi1 = 43.7143
      theta2 = 96
      phi2 = 133.714
      theta3 = 6
      phi3 = 133.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 490
      chmoth = 'DC12'
      x = 25.7705
      y = 24.6391
      z = 0
      irot = 536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 537
      theta1 = 90
      phi1 = 46.2857
      theta2 = 96
      phi2 = 136.286
      theta3 = 6
      phi3 = 136.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 491
      chmoth = 'DC12'
      x = 24.6391
      y = 25.7705
      z = 0
      irot = 537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 538
      theta1 = 90
      phi1 = 48.8571
      theta2 = 96
      phi2 = 138.857
      theta3 = 6
      phi3 = 138.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 492
      chmoth = 'DC12'
      x = 23.4581
      y = 26.85
      z = 0
      irot = 538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 539
      theta1 = 90
      phi1 = 51.4286
      theta2 = 96
      phi2 = 141.429
      theta3 = 6
      phi3 = 141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 493
      chmoth = 'DC12'
      x = 22.2299
      y = 27.8754
      z = 0
      irot = 539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 540
      theta1 = 90
      phi1 = 54
      theta2 = 96
      phi2 = 144
      theta3 = 6
      phi3 = 144
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 494
      chmoth = 'DC12'
      x = 20.9569
      y = 28.8447
      z = 0
      irot = 540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 541
      theta1 = 90
      phi1 = 56.5714
      theta2 = 96
      phi2 = 146.571
      theta3 = 6
      phi3 = 146.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 495
      chmoth = 'DC12'
      x = 19.6417
      y = 29.7559
      z = 0
      irot = 541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 542
      theta1 = 90
      phi1 = 59.1429
      theta2 = 96
      phi2 = 149.143
      theta3 = 6
      phi3 = 149.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 496
      chmoth = 'DC12'
      x = 18.2869
      y = 30.6071
      z = 0
      irot = 542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 543
      theta1 = 90
      phi1 = 61.7143
      theta2 = 96
      phi2 = 151.714
      theta3 = 6
      phi3 = 151.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 497
      chmoth = 'DC12'
      x = 16.8953
      y = 31.3968
      z = 0
      irot = 543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 544
      theta1 = 90
      phi1 = 64.2857
      theta2 = 96
      phi2 = 154.286
      theta3 = 6
      phi3 = 154.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 498
      chmoth = 'DC12'
      x = 15.4697
      y = 32.1231
      z = 0
      irot = 544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 545
      theta1 = 90
      phi1 = 66.8571
      theta2 = 96
      phi2 = 156.857
      theta3 = 6
      phi3 = 156.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 499
      chmoth = 'DC12'
      x = 14.0129
      y = 32.7848
      z = 0
      irot = 545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 546
      theta1 = 90
      phi1 = 69.4286
      theta2 = 96
      phi2 = 159.429
      theta3 = 6
      phi3 = 159.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 500
      chmoth = 'DC12'
      x = 12.5279
      y = 33.3805
      z = 0
      irot = 546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 547
      theta1 = 90
      phi1 = 72
      theta2 = 96
      phi2 = 162
      theta3 = 6
      phi3 = 162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 501
      chmoth = 'DC12'
      x = 11.0177
      y = 33.909
      z = 0
      irot = 547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 548
      theta1 = 90
      phi1 = 74.5714
      theta2 = 96
      phi2 = 164.571
      theta3 = 6
      phi3 = 164.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 502
      chmoth = 'DC12'
      x = 9.48528
      y = 34.3691
      z = 0
      irot = 548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 549
      theta1 = 90
      phi1 = 77.1429
      theta2 = 96
      phi2 = 167.143
      theta3 = 6
      phi3 = 167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 503
      chmoth = 'DC12'
      x = 7.93376
      y = 34.7601
      z = 0
      irot = 549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 550
      theta1 = 90
      phi1 = 79.7143
      theta2 = 96
      phi2 = 169.714
      theta3 = 6
      phi3 = 169.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 504
      chmoth = 'DC12'
      x = 6.36627
      y = 35.081
      z = 0
      irot = 550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 551
      theta1 = 90
      phi1 = 82.2857
      theta2 = 96
      phi2 = 172.286
      theta3 = 6
      phi3 = 172.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 505
      chmoth = 'DC12'
      x = 4.78595
      y = 35.3313
      z = 0
      irot = 551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 552
      theta1 = 90
      phi1 = 84.8571
      theta2 = 96
      phi2 = 174.857
      theta3 = 6
      phi3 = 174.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 506
      chmoth = 'DC12'
      x = 3.196
      y = 35.5105
      z = 0
      irot = 552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 553
      theta1 = 90
      phi1 = 87.4286
      theta2 = 96
      phi2 = 177.429
      theta3 = 6
      phi3 = 177.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 507
      chmoth = 'DC12'
      x = 1.59961
      y = 35.6181
      z = 0
      irot = 553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 554
      theta1 = 90
      phi1 = 90
      theta2 = 96
      phi2 = 180
      theta3 = 6
      phi3 = 180
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 508
      chmoth = 'DC12'
      x = 2.18311e-15
      y = 35.654
      z = 0
      irot = 554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 555
      theta1 = 90
      phi1 = 92.5714
      theta2 = 96
      phi2 = -177.429
      theta3 = 6
      phi3 = -177.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 509
      chmoth = 'DC12'
      x = -1.59961
      y = 35.6181
      z = 0
      irot = 555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 556
      theta1 = 90
      phi1 = 95.1429
      theta2 = 96
      phi2 = -174.857
      theta3 = 6
      phi3 = -174.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 510
      chmoth = 'DC12'
      x = -3.196
      y = 35.5105
      z = 0
      irot = 556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 557
      theta1 = 90
      phi1 = 97.7143
      theta2 = 96
      phi2 = -172.286
      theta3 = 6
      phi3 = -172.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 511
      chmoth = 'DC12'
      x = -4.78595
      y = 35.3313
      z = 0
      irot = 557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 558
      theta1 = 90
      phi1 = 100.286
      theta2 = 96
      phi2 = -169.714
      theta3 = 6
      phi3 = -169.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 512
      chmoth = 'DC12'
      x = -6.36627
      y = 35.081
      z = 0
      irot = 558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 559
      theta1 = 90
      phi1 = 102.857
      theta2 = 96
      phi2 = -167.143
      theta3 = 6
      phi3 = -167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 513
      chmoth = 'DC12'
      x = -7.93376
      y = 34.7601
      z = 0
      irot = 559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 560
      theta1 = 90
      phi1 = 105.429
      theta2 = 96
      phi2 = -164.571
      theta3 = 6
      phi3 = -164.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 514
      chmoth = 'DC12'
      x = -9.48528
      y = 34.3691
      z = 0
      irot = 560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 561
      theta1 = 90
      phi1 = 108
      theta2 = 96
      phi2 = -162
      theta3 = 6
      phi3 = -162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 515
      chmoth = 'DC12'
      x = -11.0177
      y = 33.909
      z = 0
      irot = 561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 562
      theta1 = 90
      phi1 = 110.571
      theta2 = 96
      phi2 = -159.429
      theta3 = 6
      phi3 = -159.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 516
      chmoth = 'DC12'
      x = -12.5279
      y = 33.3805
      z = 0
      irot = 562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 563
      theta1 = 90
      phi1 = 113.143
      theta2 = 96
      phi2 = -156.857
      theta3 = 6
      phi3 = -156.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 517
      chmoth = 'DC12'
      x = -14.0129
      y = 32.7848
      z = 0
      irot = 563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 564
      theta1 = 90
      phi1 = 115.714
      theta2 = 96
      phi2 = -154.286
      theta3 = 6
      phi3 = -154.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 518
      chmoth = 'DC12'
      x = -15.4697
      y = 32.1231
      z = 0
      irot = 564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 565
      theta1 = 90
      phi1 = 118.286
      theta2 = 96
      phi2 = -151.714
      theta3 = 6
      phi3 = -151.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 519
      chmoth = 'DC12'
      x = -16.8953
      y = 31.3968
      z = 0
      irot = 565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 566
      theta1 = 90
      phi1 = 120.857
      theta2 = 96
      phi2 = -149.143
      theta3 = 6
      phi3 = -149.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 520
      chmoth = 'DC12'
      x = -18.2869
      y = 30.6071
      z = 0
      irot = 566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 567
      theta1 = 90
      phi1 = 123.429
      theta2 = 96
      phi2 = -146.571
      theta3 = 6
      phi3 = -146.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 521
      chmoth = 'DC12'
      x = -19.6417
      y = 29.7559
      z = 0
      irot = 567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 568
      theta1 = 90
      phi1 = 126
      theta2 = 96
      phi2 = -144
      theta3 = 6
      phi3 = -144
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 522
      chmoth = 'DC12'
      x = -20.9569
      y = 28.8447
      z = 0
      irot = 568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 569
      theta1 = 90
      phi1 = 128.571
      theta2 = 96
      phi2 = -141.429
      theta3 = 6
      phi3 = -141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 523
      chmoth = 'DC12'
      x = -22.2299
      y = 27.8754
      z = 0
      irot = 569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 570
      theta1 = 90
      phi1 = 131.143
      theta2 = 96
      phi2 = -138.857
      theta3 = 6
      phi3 = -138.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 524
      chmoth = 'DC12'
      x = -23.4581
      y = 26.85
      z = 0
      irot = 570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 571
      theta1 = 90
      phi1 = 133.714
      theta2 = 96
      phi2 = -136.286
      theta3 = 6
      phi3 = -136.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 525
      chmoth = 'DC12'
      x = -24.6391
      y = 25.7705
      z = 0
      irot = 571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 572
      theta1 = 90
      phi1 = 136.286
      theta2 = 96
      phi2 = -133.714
      theta3 = 6
      phi3 = -133.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 526
      chmoth = 'DC12'
      x = -25.7705
      y = 24.6391
      z = 0
      irot = 572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 573
      theta1 = 90
      phi1 = 138.857
      theta2 = 96
      phi2 = -131.143
      theta3 = 6
      phi3 = -131.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 527
      chmoth = 'DC12'
      x = -26.85
      y = 23.4581
      z = 0
      irot = 573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 574
      theta1 = 90
      phi1 = 141.429
      theta2 = 96
      phi2 = -128.571
      theta3 = 6
      phi3 = -128.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 528
      chmoth = 'DC12'
      x = -27.8754
      y = 22.2299
      z = 0
      irot = 574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 575
      theta1 = 90
      phi1 = 144
      theta2 = 96
      phi2 = -126
      theta3 = 6
      phi3 = -126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 529
      chmoth = 'DC12'
      x = -28.8447
      y = 20.9569
      z = 0
      irot = 575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 576
      theta1 = 90
      phi1 = 146.571
      theta2 = 96
      phi2 = -123.429
      theta3 = 6
      phi3 = -123.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 530
      chmoth = 'DC12'
      x = -29.7559
      y = 19.6417
      z = 0
      irot = 576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 577
      theta1 = 90
      phi1 = 149.143
      theta2 = 96
      phi2 = -120.857
      theta3 = 6
      phi3 = -120.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 531
      chmoth = 'DC12'
      x = -30.6071
      y = 18.2869
      z = 0
      irot = 577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 578
      theta1 = 90
      phi1 = 151.714
      theta2 = 96
      phi2 = -118.286
      theta3 = 6
      phi3 = -118.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 532
      chmoth = 'DC12'
      x = -31.3968
      y = 16.8953
      z = 0
      irot = 578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 579
      theta1 = 90
      phi1 = 154.286
      theta2 = 96
      phi2 = -115.714
      theta3 = 6
      phi3 = -115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 533
      chmoth = 'DC12'
      x = -32.1231
      y = 15.4697
      z = 0
      irot = 579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 580
      theta1 = 90
      phi1 = 156.857
      theta2 = 96
      phi2 = -113.143
      theta3 = 6
      phi3 = -113.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 534
      chmoth = 'DC12'
      x = -32.7848
      y = 14.0129
      z = 0
      irot = 580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 581
      theta1 = 90
      phi1 = 159.429
      theta2 = 96
      phi2 = -110.571
      theta3 = 6
      phi3 = -110.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 535
      chmoth = 'DC12'
      x = -33.3805
      y = 12.5279
      z = 0
      irot = 581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 582
      theta1 = 90
      phi1 = 162
      theta2 = 96
      phi2 = -108
      theta3 = 6
      phi3 = -108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 536
      chmoth = 'DC12'
      x = -33.909
      y = 11.0177
      z = 0
      irot = 582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 583
      theta1 = 90
      phi1 = 164.571
      theta2 = 96
      phi2 = -105.429
      theta3 = 6
      phi3 = -105.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 537
      chmoth = 'DC12'
      x = -34.3691
      y = 9.48528
      z = 0
      irot = 583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 584
      theta1 = 90
      phi1 = 167.143
      theta2 = 96
      phi2 = -102.857
      theta3 = 6
      phi3 = -102.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 538
      chmoth = 'DC12'
      x = -34.7601
      y = 7.93376
      z = 0
      irot = 584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 585
      theta1 = 90
      phi1 = 169.714
      theta2 = 96
      phi2 = -100.286
      theta3 = 6
      phi3 = -100.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 539
      chmoth = 'DC12'
      x = -35.081
      y = 6.36627
      z = 0
      irot = 585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 586
      theta1 = 90
      phi1 = 172.286
      theta2 = 96
      phi2 = -97.7143
      theta3 = 6
      phi3 = -97.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 540
      chmoth = 'DC12'
      x = -35.3313
      y = 4.78595
      z = 0
      irot = 586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 587
      theta1 = 90
      phi1 = 174.857
      theta2 = 96
      phi2 = -95.1429
      theta3 = 6
      phi3 = -95.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 541
      chmoth = 'DC12'
      x = -35.5105
      y = 3.196
      z = 0
      irot = 587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 588
      theta1 = 90
      phi1 = 177.429
      theta2 = 96
      phi2 = -92.5714
      theta3 = 6
      phi3 = -92.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 542
      chmoth = 'DC12'
      x = -35.6181
      y = 1.59961
      z = 0
      irot = 588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 589
      theta1 = 90
      phi1 = 180
      theta2 = 96
      phi2 = -90
      theta3 = 6
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 543
      chmoth = 'DC12'
      x = -35.654
      y = 4.36621e-15
      z = 0
      irot = 589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 590
      theta1 = 90
      phi1 = -177.429
      theta2 = 96
      phi2 = -87.4286
      theta3 = 6
      phi3 = -87.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 544
      chmoth = 'DC12'
      x = -35.6181
      y = -1.59961
      z = 0
      irot = 590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 591
      theta1 = 90
      phi1 = -174.857
      theta2 = 96
      phi2 = -84.8571
      theta3 = 6
      phi3 = -84.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 545
      chmoth = 'DC12'
      x = -35.5105
      y = -3.196
      z = 0
      irot = 591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 592
      theta1 = 90
      phi1 = -172.286
      theta2 = 96
      phi2 = -82.2857
      theta3 = 6
      phi3 = -82.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 546
      chmoth = 'DC12'
      x = -35.3313
      y = -4.78595
      z = 0
      irot = 592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 593
      theta1 = 90
      phi1 = -169.714
      theta2 = 96
      phi2 = -79.7143
      theta3 = 6
      phi3 = -79.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 547
      chmoth = 'DC12'
      x = -35.081
      y = -6.36627
      z = 0
      irot = 593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 594
      theta1 = 90
      phi1 = -167.143
      theta2 = 96
      phi2 = -77.1429
      theta3 = 6
      phi3 = -77.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 548
      chmoth = 'DC12'
      x = -34.7601
      y = -7.93376
      z = 0
      irot = 594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 595
      theta1 = 90
      phi1 = -164.571
      theta2 = 96
      phi2 = -74.5714
      theta3 = 6
      phi3 = -74.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 549
      chmoth = 'DC12'
      x = -34.3691
      y = -9.48528
      z = 0
      irot = 595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 596
      theta1 = 90
      phi1 = -162
      theta2 = 96
      phi2 = -72
      theta3 = 6
      phi3 = -72
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 550
      chmoth = 'DC12'
      x = -33.909
      y = -11.0177
      z = 0
      irot = 596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 597
      theta1 = 90
      phi1 = -159.429
      theta2 = 96
      phi2 = -69.4286
      theta3 = 6
      phi3 = -69.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 551
      chmoth = 'DC12'
      x = -33.3805
      y = -12.5279
      z = 0
      irot = 597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 598
      theta1 = 90
      phi1 = -156.857
      theta2 = 96
      phi2 = -66.8571
      theta3 = 6
      phi3 = -66.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 552
      chmoth = 'DC12'
      x = -32.7848
      y = -14.0129
      z = 0
      irot = 598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 599
      theta1 = 90
      phi1 = -154.286
      theta2 = 96
      phi2 = -64.2857
      theta3 = 6
      phi3 = -64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 553
      chmoth = 'DC12'
      x = -32.1231
      y = -15.4697
      z = 0
      irot = 599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 600
      theta1 = 90
      phi1 = -151.714
      theta2 = 96
      phi2 = -61.7143
      theta3 = 6
      phi3 = -61.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 554
      chmoth = 'DC12'
      x = -31.3968
      y = -16.8953
      z = 0
      irot = 600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 601
      theta1 = 90
      phi1 = -149.143
      theta2 = 96
      phi2 = -59.1429
      theta3 = 6
      phi3 = -59.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 555
      chmoth = 'DC12'
      x = -30.6071
      y = -18.2869
      z = 0
      irot = 601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 602
      theta1 = 90
      phi1 = -146.571
      theta2 = 96
      phi2 = -56.5714
      theta3 = 6
      phi3 = -56.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 556
      chmoth = 'DC12'
      x = -29.7559
      y = -19.6417
      z = 0
      irot = 602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 603
      theta1 = 90
      phi1 = -144
      theta2 = 96
      phi2 = -54
      theta3 = 6
      phi3 = -54
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 557
      chmoth = 'DC12'
      x = -28.8447
      y = -20.9569
      z = 0
      irot = 603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 604
      theta1 = 90
      phi1 = -141.429
      theta2 = 96
      phi2 = -51.4286
      theta3 = 6
      phi3 = -51.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 558
      chmoth = 'DC12'
      x = -27.8754
      y = -22.2299
      z = 0
      irot = 604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 605
      theta1 = 90
      phi1 = -138.857
      theta2 = 96
      phi2 = -48.8571
      theta3 = 6
      phi3 = -48.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 559
      chmoth = 'DC12'
      x = -26.85
      y = -23.4581
      z = 0
      irot = 605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 606
      theta1 = 90
      phi1 = -136.286
      theta2 = 96
      phi2 = -46.2857
      theta3 = 6
      phi3 = -46.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 560
      chmoth = 'DC12'
      x = -25.7705
      y = -24.6391
      z = 0
      irot = 606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 607
      theta1 = 90
      phi1 = -133.714
      theta2 = 96
      phi2 = -43.7143
      theta3 = 6
      phi3 = -43.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 561
      chmoth = 'DC12'
      x = -24.6391
      y = -25.7705
      z = 0
      irot = 607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 608
      theta1 = 90
      phi1 = -131.143
      theta2 = 96
      phi2 = -41.1429
      theta3 = 6
      phi3 = -41.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 562
      chmoth = 'DC12'
      x = -23.4581
      y = -26.85
      z = 0
      irot = 608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 609
      theta1 = 90
      phi1 = -128.571
      theta2 = 96
      phi2 = -38.5714
      theta3 = 6
      phi3 = -38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 563
      chmoth = 'DC12'
      x = -22.2299
      y = -27.8754
      z = 0
      irot = 609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 610
      theta1 = 90
      phi1 = -126
      theta2 = 96
      phi2 = -36
      theta3 = 6
      phi3 = -36
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 564
      chmoth = 'DC12'
      x = -20.9569
      y = -28.8447
      z = 0
      irot = 610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 611
      theta1 = 90
      phi1 = -123.429
      theta2 = 96
      phi2 = -33.4286
      theta3 = 6
      phi3 = -33.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 565
      chmoth = 'DC12'
      x = -19.6417
      y = -29.7559
      z = 0
      irot = 611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 612
      theta1 = 90
      phi1 = -120.857
      theta2 = 96
      phi2 = -30.8571
      theta3 = 6
      phi3 = -30.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 566
      chmoth = 'DC12'
      x = -18.2869
      y = -30.6071
      z = 0
      irot = 612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 613
      theta1 = 90
      phi1 = -118.286
      theta2 = 96
      phi2 = -28.2857
      theta3 = 6
      phi3 = -28.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 567
      chmoth = 'DC12'
      x = -16.8953
      y = -31.3968
      z = 0
      irot = 613
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 614
      theta1 = 90
      phi1 = -115.714
      theta2 = 96
      phi2 = -25.7143
      theta3 = 6
      phi3 = -25.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 568
      chmoth = 'DC12'
      x = -15.4697
      y = -32.1231
      z = 0
      irot = 614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 615
      theta1 = 90
      phi1 = -113.143
      theta2 = 96
      phi2 = -23.1429
      theta3 = 6
      phi3 = -23.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 569
      chmoth = 'DC12'
      x = -14.0129
      y = -32.7848
      z = 0
      irot = 615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 616
      theta1 = 90
      phi1 = -110.571
      theta2 = 96
      phi2 = -20.5714
      theta3 = 6
      phi3 = -20.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 570
      chmoth = 'DC12'
      x = -12.5279
      y = -33.3805
      z = 0
      irot = 616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 617
      theta1 = 90
      phi1 = -108
      theta2 = 96
      phi2 = -18
      theta3 = 6
      phi3 = -18
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 571
      chmoth = 'DC12'
      x = -11.0177
      y = -33.909
      z = 0
      irot = 617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 618
      theta1 = 90
      phi1 = -105.429
      theta2 = 96
      phi2 = -15.4286
      theta3 = 6
      phi3 = -15.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 572
      chmoth = 'DC12'
      x = -9.48528
      y = -34.3691
      z = 0
      irot = 618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 619
      theta1 = 90
      phi1 = -102.857
      theta2 = 96
      phi2 = -12.8571
      theta3 = 6
      phi3 = -12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 573
      chmoth = 'DC12'
      x = -7.93376
      y = -34.7601
      z = 0
      irot = 619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 620
      theta1 = 90
      phi1 = -100.286
      theta2 = 96
      phi2 = -10.2857
      theta3 = 6
      phi3 = -10.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 574
      chmoth = 'DC12'
      x = -6.36627
      y = -35.081
      z = 0
      irot = 620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 621
      theta1 = 90
      phi1 = -97.7143
      theta2 = 96
      phi2 = -7.71429
      theta3 = 6
      phi3 = -7.71429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 575
      chmoth = 'DC12'
      x = -4.78595
      y = -35.3313
      z = 0
      irot = 621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 622
      theta1 = 90
      phi1 = -95.1429
      theta2 = 96
      phi2 = -5.14286
      theta3 = 6
      phi3 = -5.14286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 576
      chmoth = 'DC12'
      x = -3.196
      y = -35.5105
      z = 0
      irot = 622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 623
      theta1 = 90
      phi1 = -92.5714
      theta2 = 96
      phi2 = -2.57143
      theta3 = 6
      phi3 = -2.57143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 577
      chmoth = 'DC12'
      x = -1.59961
      y = -35.6181
      z = 0
      irot = 623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 624
      theta1 = 90
      phi1 = -90
      theta2 = 96
      phi2 = -1.05247e-14
      theta3 = 6
      phi3 = -1.05247e-14
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 578
      chmoth = 'DC12'
      x = -6.54932e-15
      y = -35.654
      z = 0
      irot = 624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 625
      theta1 = 90
      phi1 = -87.4286
      theta2 = 96
      phi2 = 2.57143
      theta3 = 6
      phi3 = 2.57143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 579
      chmoth = 'DC12'
      x = 1.59961
      y = -35.6181
      z = 0
      irot = 625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 626
      theta1 = 90
      phi1 = -84.8571
      theta2 = 96
      phi2 = 5.14286
      theta3 = 6
      phi3 = 5.14286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 580
      chmoth = 'DC12'
      x = 3.196
      y = -35.5105
      z = 0
      irot = 626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 627
      theta1 = 90
      phi1 = -82.2857
      theta2 = 96
      phi2 = 7.71429
      theta3 = 6
      phi3 = 7.71429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 581
      chmoth = 'DC12'
      x = 4.78595
      y = -35.3313
      z = 0
      irot = 627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 628
      theta1 = 90
      phi1 = -79.7143
      theta2 = 96
      phi2 = 10.2857
      theta3 = 6
      phi3 = 10.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 582
      chmoth = 'DC12'
      x = 6.36627
      y = -35.081
      z = 0
      irot = 628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 629
      theta1 = 90
      phi1 = -77.1429
      theta2 = 96
      phi2 = 12.8571
      theta3 = 6
      phi3 = 12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 583
      chmoth = 'DC12'
      x = 7.93376
      y = -34.7601
      z = 0
      irot = 629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 630
      theta1 = 90
      phi1 = -74.5714
      theta2 = 96
      phi2 = 15.4286
      theta3 = 6
      phi3 = 15.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 584
      chmoth = 'DC12'
      x = 9.48528
      y = -34.3691
      z = 0
      irot = 630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 631
      theta1 = 90
      phi1 = -72
      theta2 = 96
      phi2 = 18
      theta3 = 6
      phi3 = 18
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 585
      chmoth = 'DC12'
      x = 11.0177
      y = -33.909
      z = 0
      irot = 631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 632
      theta1 = 90
      phi1 = -69.4286
      theta2 = 96
      phi2 = 20.5714
      theta3 = 6
      phi3 = 20.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 586
      chmoth = 'DC12'
      x = 12.5279
      y = -33.3805
      z = 0
      irot = 632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 633
      theta1 = 90
      phi1 = -66.8571
      theta2 = 96
      phi2 = 23.1429
      theta3 = 6
      phi3 = 23.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 587
      chmoth = 'DC12'
      x = 14.0129
      y = -32.7848
      z = 0
      irot = 633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 634
      theta1 = 90
      phi1 = -64.2857
      theta2 = 96
      phi2 = 25.7143
      theta3 = 6
      phi3 = 25.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 588
      chmoth = 'DC12'
      x = 15.4697
      y = -32.1231
      z = 0
      irot = 634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 635
      theta1 = 90
      phi1 = -61.7143
      theta2 = 96
      phi2 = 28.2857
      theta3 = 6
      phi3 = 28.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 589
      chmoth = 'DC12'
      x = 16.8953
      y = -31.3968
      z = 0
      irot = 635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 636
      theta1 = 90
      phi1 = -59.1429
      theta2 = 96
      phi2 = 30.8571
      theta3 = 6
      phi3 = 30.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 590
      chmoth = 'DC12'
      x = 18.2869
      y = -30.6071
      z = 0
      irot = 636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 637
      theta1 = 90
      phi1 = -56.5714
      theta2 = 96
      phi2 = 33.4286
      theta3 = 6
      phi3 = 33.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 591
      chmoth = 'DC12'
      x = 19.6417
      y = -29.7559
      z = 0
      irot = 637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 638
      theta1 = 90
      phi1 = -54
      theta2 = 96
      phi2 = 36
      theta3 = 6
      phi3 = 36
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 592
      chmoth = 'DC12'
      x = 20.9569
      y = -28.8447
      z = 0
      irot = 638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 639
      theta1 = 90
      phi1 = -51.4286
      theta2 = 96
      phi2 = 38.5714
      theta3 = 6
      phi3 = 38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 593
      chmoth = 'DC12'
      x = 22.2299
      y = -27.8754
      z = 0
      irot = 639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 640
      theta1 = 90
      phi1 = -48.8571
      theta2 = 96
      phi2 = 41.1429
      theta3 = 6
      phi3 = 41.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 594
      chmoth = 'DC12'
      x = 23.4581
      y = -26.85
      z = 0
      irot = 640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 641
      theta1 = 90
      phi1 = -46.2857
      theta2 = 96
      phi2 = 43.7143
      theta3 = 6
      phi3 = 43.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 595
      chmoth = 'DC12'
      x = 24.6391
      y = -25.7705
      z = 0
      irot = 641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 642
      theta1 = 90
      phi1 = -43.7143
      theta2 = 96
      phi2 = 46.2857
      theta3 = 6
      phi3 = 46.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 596
      chmoth = 'DC12'
      x = 25.7705
      y = -24.6391
      z = 0
      irot = 642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 643
      theta1 = 90
      phi1 = -41.1429
      theta2 = 96
      phi2 = 48.8571
      theta3 = 6
      phi3 = 48.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 597
      chmoth = 'DC12'
      x = 26.85
      y = -23.4581
      z = 0
      irot = 643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 644
      theta1 = 90
      phi1 = -38.5714
      theta2 = 96
      phi2 = 51.4286
      theta3 = 6
      phi3 = 51.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 598
      chmoth = 'DC12'
      x = 27.8754
      y = -22.2299
      z = 0
      irot = 644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 645
      theta1 = 90
      phi1 = -36
      theta2 = 96
      phi2 = 54
      theta3 = 6
      phi3 = 54
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 599
      chmoth = 'DC12'
      x = 28.8447
      y = -20.9569
      z = 0
      irot = 645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 646
      theta1 = 90
      phi1 = -33.4286
      theta2 = 96
      phi2 = 56.5714
      theta3 = 6
      phi3 = 56.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 600
      chmoth = 'DC12'
      x = 29.7559
      y = -19.6417
      z = 0
      irot = 646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 647
      theta1 = 90
      phi1 = -30.8571
      theta2 = 96
      phi2 = 59.1429
      theta3 = 6
      phi3 = 59.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 601
      chmoth = 'DC12'
      x = 30.6071
      y = -18.2869
      z = 0
      irot = 647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 648
      theta1 = 90
      phi1 = -28.2857
      theta2 = 96
      phi2 = 61.7143
      theta3 = 6
      phi3 = 61.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 602
      chmoth = 'DC12'
      x = 31.3968
      y = -16.8953
      z = 0
      irot = 648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 649
      theta1 = 90
      phi1 = -25.7143
      theta2 = 96
      phi2 = 64.2857
      theta3 = 6
      phi3 = 64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 603
      chmoth = 'DC12'
      x = 32.1231
      y = -15.4697
      z = 0
      irot = 649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 650
      theta1 = 90
      phi1 = -23.1429
      theta2 = 96
      phi2 = 66.8571
      theta3 = 6
      phi3 = 66.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 604
      chmoth = 'DC12'
      x = 32.7848
      y = -14.0129
      z = 0
      irot = 650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 651
      theta1 = 90
      phi1 = -20.5714
      theta2 = 96
      phi2 = 69.4286
      theta3 = 6
      phi3 = 69.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 605
      chmoth = 'DC12'
      x = 33.3805
      y = -12.5279
      z = 0
      irot = 651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 652
      theta1 = 90
      phi1 = -18
      theta2 = 96
      phi2 = 72
      theta3 = 6
      phi3 = 72
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 606
      chmoth = 'DC12'
      x = 33.909
      y = -11.0177
      z = 0
      irot = 652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 653
      theta1 = 90
      phi1 = -15.4286
      theta2 = 96
      phi2 = 74.5714
      theta3 = 6
      phi3 = 74.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 607
      chmoth = 'DC12'
      x = 34.3691
      y = -9.48528
      z = 0
      irot = 653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 654
      theta1 = 90
      phi1 = -12.8571
      theta2 = 96
      phi2 = 77.1429
      theta3 = 6
      phi3 = 77.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 608
      chmoth = 'DC12'
      x = 34.7601
      y = -7.93376
      z = 0
      irot = 654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 655
      theta1 = 90
      phi1 = -10.2857
      theta2 = 96
      phi2 = 79.7143
      theta3 = 6
      phi3 = 79.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 609
      chmoth = 'DC12'
      x = 35.081
      y = -6.36627
      z = 0
      irot = 655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 656
      theta1 = 90
      phi1 = -7.71429
      theta2 = 96
      phi2 = 82.2857
      theta3 = 6
      phi3 = 82.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 610
      chmoth = 'DC12'
      x = 35.3313
      y = -4.78595
      z = 0
      irot = 656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 657
      theta1 = 90
      phi1 = -5.14286
      theta2 = 96
      phi2 = 84.8571
      theta3 = 6
      phi3 = 84.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 611
      chmoth = 'DC12'
      x = 35.5105
      y = -3.196
      z = 0
      irot = 657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 658
      theta1 = 90
      phi1 = -2.57143
      theta2 = 96
      phi2 = 87.4286
      theta3 = 6
      phi3 = 87.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 612
      chmoth = 'DC12'
      x = 35.6181
      y = -1.59961
      z = 0
      irot = 658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 10
      chmoth = 'DC12'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 10
      chmoth = 'DC12'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 132
      natmed = 'DC15 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC15'
      chshap = 'TUBE'
      nmed = 132
      npar = 3
      par(1) = 37.3
      par(2) = 39.1
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.157) stop 'consistency check #1 failed'

      chname = 'DC15'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD1A'
      chmoth = 'DC15'
      ndiv = 150
      iaxis = 2
      step = 2.4
      c0 = -1.2
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 133
      natmed = 'DS15 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS15'
      chshap = 'TUBS'
      nmed = 133
      npar = 5
      par(1) = 37.3
      par(2) = 39.1
      par(3) = 75.75
      par(4) = -1.2
      par(5) = 1.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.159) stop 'consistency check #1 failed'

      chname = 'DS15'
      nr = 1
      chmoth = 'SD1A'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 9
      chmoth = 'DS15'
      x = 38.2
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 11
      chmoth = 'DS15'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 11
      chmoth = 'DS15'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 134
      natmed = 'DC16 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC16'
      chshap = 'TUBE'
      nmed = 134
      npar = 3
      par(1) = 39.1
      par(2) = 40.9
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.160) stop 'consistency check #1 failed'

      chname = 'DC16'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD1B'
      chmoth = 'DC16'
      ndiv = 157
      iaxis = 2
      step = 2.29299
      c0 = -1.146
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 135
      natmed = 'DS16 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS16'
      chshap = 'TUBS'
      nmed = 135
      npar = 5
      par(1) = 39.1
      par(2) = 40.9
      par(3) = 75.75
      par(4) = -1.146
      par(5) = 1.147
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.162) stop 'consistency check #1 failed'

      chname = 'DS16'
      nr = 1
      chmoth = 'SD1B'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 10
      chmoth = 'DS16'
      x = 39.982
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 12
      chmoth = 'DS16'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 12
      chmoth = 'DS16'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 136
      natmed = 'DC17 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC17'
      chshap = 'TUBE'
      nmed = 136
      npar = 3
      par(1) = 40.9
      par(2) = 42.7
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.163) stop 'consistency check #1 failed'

      chname = 'DC17'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD1C'
      chmoth = 'DC17'
      ndiv = 164
      iaxis = 2
      step = 2.19512
      c0 = -1.098
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 137
      natmed = 'DS17 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS17'
      chshap = 'TUBS'
      nmed = 137
      npar = 5
      par(1) = 40.9
      par(2) = 42.7
      par(3) = 75.75
      par(4) = -1.098
      par(5) = 1.097
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.165) stop 'consistency check #1 failed'

      chname = 'DS17'
      nr = 1
      chmoth = 'SD1C'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 11
      chmoth = 'DS17'
      x = 41.765
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 13
      chmoth = 'DS17'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 13
      chmoth = 'DS17'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 138
      natmed = 'DC18 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC18'
      chshap = 'TUBE'
      nmed = 138
      npar = 3
      par(1) = 42.7
      par(2) = 44.4
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.166) stop 'consistency check #1 failed'

      chname = 'DC18'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD1D'
      chmoth = 'DC18'
      ndiv = 171
      iaxis = 2
      step = 2.10526
      c0 = -1.053
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 139
      natmed = 'DS18 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS18'
      chshap = 'TUBS'
      nmed = 139
      npar = 5
      par(1) = 42.7
      par(2) = 44.4
      par(3) = 75.75
      par(4) = -1.053
      par(5) = 1.052
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.168) stop 'consistency check #1 failed'

      chname = 'DS18'
      nr = 1
      chmoth = 'SD1D'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 12
      chmoth = 'DS18'
      x = 43.547
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 14
      chmoth = 'DS18'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 14
      chmoth = 'DS18'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 140
      natmed = 'DC19 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC19'
      chshap = 'TUBE'
      nmed = 140
      npar = 3
      par(1) = 44.4
      par(2) = 46.2
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.169) stop 'consistency check #1 failed'

      chname = 'DC19'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD1E'
      chmoth = 'DC19'
      ndiv = 178
      iaxis = 2
      step = 2.02247
      c0 = -1.011
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 141
      natmed = 'DS19 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS19'
      chshap = 'TUBS'
      nmed = 141
      npar = 5
      par(1) = 44.4
      par(2) = 46.2
      par(3) = 75.75
      par(4) = -1.011
      par(5) = 1.011
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.171) stop 'consistency check #1 failed'

      chname = 'DS19'
      nr = 1
      chmoth = 'SD1E'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 13
      chmoth = 'DS19'
      x = 45.33
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 15
      chmoth = 'DS19'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 15
      chmoth = 'DS19'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 142
      natmed = 'DC20 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC20'
      chshap = 'TUBE'
      nmed = 142
      npar = 3
      par(1) = 46.2
      par(2) = 52.1
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.172) stop 'consistency check #1 failed'

      chname = 'DC20'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 659
      theta1 = 90
      phi1 = 0
      theta2 = 84
      phi2 = 90
      theta3 = 6
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 613
      chmoth = 'DC20'
      x = 47.112
      y = 0
      z = 0
      irot = 659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 660
      theta1 = 90
      phi1 = 1.94595
      theta2 = 84
      phi2 = 91.9459
      theta3 = 6
      phi3 = -88.0541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 614
      chmoth = 'DC20'
      x = 47.0848
      y = 1.59976
      z = 0
      irot = 660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 661
      theta1 = 90
      phi1 = 3.89189
      theta2 = 84
      phi2 = 93.8919
      theta3 = 6
      phi3 = -86.1081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 615
      chmoth = 'DC20'
      x = 47.0034
      y = 3.19768
      z = 0
      irot = 661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 662
      theta1 = 90
      phi1 = 5.83784
      theta2 = 84
      phi2 = 95.8378
      theta3 = 6
      phi3 = -84.1622
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 616
      chmoth = 'DC20'
      x = 46.8677
      y = 4.79192
      z = 0
      irot = 662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 663
      theta1 = 90
      phi1 = 7.78378
      theta2 = 84
      phi2 = 97.7838
      theta3 = 6
      phi3 = -82.2162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 617
      chmoth = 'DC20'
      x = 46.6779
      y = 6.38062
      z = 0
      irot = 663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 664
      theta1 = 90
      phi1 = 9.72973
      theta2 = 84
      phi2 = 99.7297
      theta3 = 6
      phi3 = -80.2703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 618
      chmoth = 'DC20'
      x = 46.4343
      y = 7.96197
      z = 0
      irot = 664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 665
      theta1 = 90
      phi1 = 11.6757
      theta2 = 84
      phi2 = 101.676
      theta3 = 6
      phi3 = -78.3243
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 619
      chmoth = 'DC20'
      x = 46.1372
      y = 9.53413
      z = 0
      irot = 665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 666
      theta1 = 90
      phi1 = 13.6216
      theta2 = 84
      phi2 = 103.622
      theta3 = 6
      phi3 = -76.3784
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 620
      chmoth = 'DC20'
      x = 45.7868
      y = 11.0953
      z = 0
      irot = 666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 667
      theta1 = 90
      phi1 = 15.5676
      theta2 = 84
      phi2 = 105.568
      theta3 = 6
      phi3 = -74.4324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 621
      chmoth = 'DC20'
      x = 45.3837
      y = 12.6437
      z = 0
      irot = 667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 668
      theta1 = 90
      phi1 = 17.5135
      theta2 = 84
      phi2 = 107.514
      theta3 = 6
      phi3 = -72.4865
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 622
      chmoth = 'DC20'
      x = 44.9282
      y = 14.1774
      z = 0
      irot = 668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 669
      theta1 = 90
      phi1 = 19.4595
      theta2 = 84
      phi2 = 109.459
      theta3 = 6
      phi3 = -70.5405
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 623
      chmoth = 'DC20'
      x = 44.4208
      y = 15.6949
      z = 0
      irot = 669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 670
      theta1 = 90
      phi1 = 21.4054
      theta2 = 84
      phi2 = 111.405
      theta3 = 6
      phi3 = -68.5946
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 624
      chmoth = 'DC20'
      x = 43.8623
      y = 17.1942
      z = 0
      irot = 670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 671
      theta1 = 90
      phi1 = 23.3514
      theta2 = 84
      phi2 = 113.351
      theta3 = 6
      phi3 = -66.6486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 625
      chmoth = 'DC20'
      x = 43.2531
      y = 18.6737
      z = 0
      irot = 671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 672
      theta1 = 90
      phi1 = 25.2973
      theta2 = 84
      phi2 = 115.297
      theta3 = 6
      phi3 = -64.7027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 626
      chmoth = 'DC20'
      x = 42.5941
      y = 20.1317
      z = 0
      irot = 672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 673
      theta1 = 90
      phi1 = 27.2432
      theta2 = 84
      phi2 = 117.243
      theta3 = 6
      phi3 = -62.7568
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 627
      chmoth = 'DC20'
      x = 41.8859
      y = 21.5664
      z = 0
      irot = 673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 674
      theta1 = 90
      phi1 = 29.1892
      theta2 = 84
      phi2 = 119.189
      theta3 = 6
      phi3 = -60.8108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 628
      chmoth = 'DC20'
      x = 41.1294
      y = 22.9763
      z = 0
      irot = 674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 675
      theta1 = 90
      phi1 = 31.1351
      theta2 = 84
      phi2 = 121.135
      theta3 = 6
      phi3 = -58.8649
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 629
      chmoth = 'DC20'
      x = 40.3255
      y = 24.3597
      z = 0
      irot = 675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 676
      theta1 = 90
      phi1 = 33.0811
      theta2 = 84
      phi2 = 123.081
      theta3 = 6
      phi3 = -56.9189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 630
      chmoth = 'DC20'
      x = 39.4751
      y = 25.7149
      z = 0
      irot = 676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 677
      theta1 = 90
      phi1 = 35.027
      theta2 = 84
      phi2 = 125.027
      theta3 = 6
      phi3 = -54.973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 631
      chmoth = 'DC20'
      x = 38.5791
      y = 27.0405
      z = 0
      irot = 677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 678
      theta1 = 90
      phi1 = 36.973
      theta2 = 84
      phi2 = 126.973
      theta3 = 6
      phi3 = -53.027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 632
      chmoth = 'DC20'
      x = 37.6387
      y = 28.335
      z = 0
      irot = 678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 679
      theta1 = 90
      phi1 = 38.9189
      theta2 = 84
      phi2 = 128.919
      theta3 = 6
      phi3 = -51.0811
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 633
      chmoth = 'DC20'
      x = 36.6548
      y = 29.5967
      z = 0
      irot = 679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 680
      theta1 = 90
      phi1 = 40.8649
      theta2 = 84
      phi2 = 130.865
      theta3 = 6
      phi3 = -49.1351
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 634
      chmoth = 'DC20'
      x = 35.6287
      y = 30.8243
      z = 0
      irot = 680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 681
      theta1 = 90
      phi1 = 42.8108
      theta2 = 84
      phi2 = 132.811
      theta3 = 6
      phi3 = -47.1892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 635
      chmoth = 'DC20'
      x = 34.5614
      y = 32.0164
      z = 0
      irot = 681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 682
      theta1 = 90
      phi1 = 44.7568
      theta2 = 84
      phi2 = 134.757
      theta3 = 6
      phi3 = -45.2432
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 636
      chmoth = 'DC20'
      x = 33.4543
      y = 33.1715
      z = 0
      irot = 682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 683
      theta1 = 90
      phi1 = 46.7027
      theta2 = 84
      phi2 = 136.703
      theta3 = 6
      phi3 = -43.2973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 637
      chmoth = 'DC20'
      x = 32.3087
      y = 34.2884
      z = 0
      irot = 683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 684
      theta1 = 90
      phi1 = 48.6486
      theta2 = 84
      phi2 = 138.649
      theta3 = 6
      phi3 = -41.3514
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 638
      chmoth = 'DC20'
      x = 31.1257
      y = 35.3657
      z = 0
      irot = 684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 685
      theta1 = 90
      phi1 = 50.5946
      theta2 = 84
      phi2 = 140.595
      theta3 = 6
      phi3 = -39.4054
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 639
      chmoth = 'DC20'
      x = 29.9069
      y = 36.4022
      z = 0
      irot = 685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 686
      theta1 = 90
      phi1 = 52.5405
      theta2 = 84
      phi2 = 142.541
      theta3 = 6
      phi3 = -37.4595
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 640
      chmoth = 'DC20'
      x = 28.6535
      y = 37.3967
      z = 0
      irot = 686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 687
      theta1 = 90
      phi1 = 54.4865
      theta2 = 84
      phi2 = 144.486
      theta3 = 6
      phi3 = -35.5135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 641
      chmoth = 'DC20'
      x = 27.3671
      y = 38.3482
      z = 0
      irot = 687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 688
      theta1 = 90
      phi1 = 56.4324
      theta2 = 84
      phi2 = 146.432
      theta3 = 6
      phi3 = -33.5676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 642
      chmoth = 'DC20'
      x = 26.0492
      y = 39.2553
      z = 0
      irot = 688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 689
      theta1 = 90
      phi1 = 58.3784
      theta2 = 84
      phi2 = 148.378
      theta3 = 6
      phi3 = -31.6216
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 643
      chmoth = 'DC20'
      x = 24.7012
      y = 40.1172
      z = 0
      irot = 689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 690
      theta1 = 90
      phi1 = 60.3243
      theta2 = 84
      phi2 = 150.324
      theta3 = 6
      phi3 = -29.6757
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 644
      chmoth = 'DC20'
      x = 23.3247
      y = 40.9329
      z = 0
      irot = 690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 691
      theta1 = 90
      phi1 = 62.2703
      theta2 = 84
      phi2 = 152.27
      theta3 = 6
      phi3 = -27.7297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 645
      chmoth = 'DC20'
      x = 21.9213
      y = 41.7013
      z = 0
      irot = 691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 692
      theta1 = 90
      phi1 = 64.2162
      theta2 = 84
      phi2 = 154.216
      theta3 = 6
      phi3 = -25.7838
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 646
      chmoth = 'DC20'
      x = 20.4926
      y = 42.4216
      z = 0
      irot = 692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 693
      theta1 = 90
      phi1 = 66.1622
      theta2 = 84
      phi2 = 156.162
      theta3 = 6
      phi3 = -23.8378
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 647
      chmoth = 'DC20'
      x = 19.0403
      y = 43.093
      z = 0
      irot = 693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 694
      theta1 = 90
      phi1 = 68.1081
      theta2 = 84
      phi2 = 158.108
      theta3 = 6
      phi3 = -21.8919
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 648
      chmoth = 'DC20'
      x = 17.566
      y = 43.7147
      z = 0
      irot = 694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 695
      theta1 = 90
      phi1 = 70.0541
      theta2 = 84
      phi2 = 160.054
      theta3 = 6
      phi3 = -19.9459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 649
      chmoth = 'DC20'
      x = 16.0715
      y = 44.286
      z = 0
      irot = 695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 696
      theta1 = 90
      phi1 = 72
      theta2 = 84
      phi2 = 162
      theta3 = 6
      phi3 = -18
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 650
      chmoth = 'DC20'
      x = 14.5584
      y = 44.8062
      z = 0
      irot = 696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 697
      theta1 = 90
      phi1 = 73.9459
      theta2 = 84
      phi2 = 163.946
      theta3 = 6
      phi3 = -16.0541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 651
      chmoth = 'DC20'
      x = 13.0285
      y = 45.2747
      z = 0
      irot = 697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 698
      theta1 = 90
      phi1 = 75.8919
      theta2 = 84
      phi2 = 165.892
      theta3 = 6
      phi3 = -14.1081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 652
      chmoth = 'DC20'
      x = 11.4837
      y = 45.691
      z = 0
      irot = 698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 699
      theta1 = 90
      phi1 = 77.8378
      theta2 = 84
      phi2 = 167.838
      theta3 = 6
      phi3 = -12.1622
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 653
      chmoth = 'DC20'
      x = 9.92552
      y = 46.0546
      z = 0
      irot = 699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 700
      theta1 = 90
      phi1 = 79.7838
      theta2 = 84
      phi2 = 169.784
      theta3 = 6
      phi3 = -10.2162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 654
      chmoth = 'DC20'
      x = 8.35594
      y = 46.3651
      z = 0
      irot = 700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 701
      theta1 = 90
      phi1 = 81.7297
      theta2 = 84
      phi2 = 171.73
      theta3 = 6
      phi3 = -8.27027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 655
      chmoth = 'DC20'
      x = 6.77672
      y = 46.6221
      z = 0
      irot = 701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 702
      theta1 = 90
      phi1 = 83.6757
      theta2 = 84
      phi2 = 173.676
      theta3 = 6
      phi3 = -6.32432
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 656
      chmoth = 'DC20'
      x = 5.18968
      y = 46.8253
      z = 0
      irot = 702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 703
      theta1 = 90
      phi1 = 85.6216
      theta2 = 84
      phi2 = 175.622
      theta3 = 6
      phi3 = -4.37838
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 657
      chmoth = 'DC20'
      x = 3.59666
      y = 46.9745
      z = 0
      irot = 703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 704
      theta1 = 90
      phi1 = 87.5676
      theta2 = 84
      phi2 = 177.568
      theta3 = 6
      phi3 = -2.43243
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 658
      chmoth = 'DC20'
      x = 1.99949
      y = 47.0696
      z = 0
      irot = 704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 705
      theta1 = 90
      phi1 = 89.5135
      theta2 = 84
      phi2 = 179.514
      theta3 = 6
      phi3 = -0.486486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 659
      chmoth = 'DC20'
      x = 0.400013
      y = 47.1103
      z = 0
      irot = 705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 706
      theta1 = 90
      phi1 = 91.4595
      theta2 = 84
      phi2 = -178.541
      theta3 = 6
      phi3 = 1.45946
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 660
      chmoth = 'DC20'
      x = -1.19992
      y = 47.0967
      z = 0
      irot = 706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 707
      theta1 = 90
      phi1 = 93.4054
      theta2 = 84
      phi2 = -176.595
      theta3 = 6
      phi3 = 3.40541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 661
      chmoth = 'DC20'
      x = -2.79848
      y = 47.0288
      z = 0
      irot = 707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 708
      theta1 = 90
      phi1 = 95.3514
      theta2 = 84
      phi2 = -174.649
      theta3 = 6
      phi3 = 5.35135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 662
      chmoth = 'DC20'
      x = -4.3938
      y = 46.9067
      z = 0
      irot = 708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 709
      theta1 = 90
      phi1 = 97.2973
      theta2 = 84
      phi2 = -172.703
      theta3 = 6
      phi3 = 7.2973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 663
      chmoth = 'DC20'
      x = -5.98406
      y = 46.7304
      z = 0
      irot = 709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 710
      theta1 = 90
      phi1 = 99.2432
      theta2 = 84
      phi2 = -170.757
      theta3 = 6
      phi3 = 9.24324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 664
      chmoth = 'DC20'
      x = -7.56742
      y = 46.5003
      z = 0
      irot = 710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 711
      theta1 = 90
      phi1 = 101.189
      theta2 = 84
      phi2 = -168.811
      theta3 = 6
      phi3 = 11.1892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 665
      chmoth = 'DC20'
      x = -9.14205
      y = 46.2165
      z = 0
      irot = 711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 712
      theta1 = 90
      phi1 = 103.135
      theta2 = 84
      phi2 = -166.865
      theta3 = 6
      phi3 = 13.1351
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 666
      chmoth = 'DC20'
      x = -10.7061
      y = 45.8794
      z = 0
      irot = 712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 713
      theta1 = 90
      phi1 = 105.081
      theta2 = 84
      phi2 = -164.919
      theta3 = 6
      phi3 = 15.0811
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 667
      chmoth = 'DC20'
      x = -12.2579
      y = 45.4894
      z = 0
      irot = 713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 714
      theta1 = 90
      phi1 = 107.027
      theta2 = 84
      phi2 = -162.973
      theta3 = 6
      phi3 = 17.027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 668
      chmoth = 'DC20'
      x = -13.7955
      y = 45.0469
      z = 0
      irot = 714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 715
      theta1 = 90
      phi1 = 108.973
      theta2 = 84
      phi2 = -161.027
      theta3 = 6
      phi3 = 18.973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 669
      chmoth = 'DC20'
      x = -15.3172
      y = 44.5525
      z = 0
      irot = 715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 716
      theta1 = 90
      phi1 = 110.919
      theta2 = 84
      phi2 = -159.081
      theta3 = 6
      phi3 = 20.9189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 670
      chmoth = 'DC20'
      x = -16.8212
      y = 44.0067
      z = 0
      irot = 716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 717
      theta1 = 90
      phi1 = 112.865
      theta2 = 84
      phi2 = -157.135
      theta3 = 6
      phi3 = 22.8649
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 671
      chmoth = 'DC20'
      x = -18.3058
      y = 43.4101
      z = 0
      irot = 717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 718
      theta1 = 90
      phi1 = 114.811
      theta2 = 84
      phi2 = -155.189
      theta3 = 6
      phi3 = 24.8108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 672
      chmoth = 'DC20'
      x = -19.7693
      y = 42.7635
      z = 0
      irot = 718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 719
      theta1 = 90
      phi1 = 116.757
      theta2 = 84
      phi2 = -153.243
      theta3 = 6
      phi3 = 26.7568
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 673
      chmoth = 'DC20'
      x = -21.21
      y = 42.0675
      z = 0
      irot = 719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 720
      theta1 = 90
      phi1 = 118.703
      theta2 = 84
      phi2 = -151.297
      theta3 = 6
      phi3 = 28.7027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 674
      chmoth = 'DC20'
      x = -22.6262
      y = 41.323
      z = 0
      irot = 720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 721
      theta1 = 90
      phi1 = 120.649
      theta2 = 84
      phi2 = -149.351
      theta3 = 6
      phi3 = 30.6486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 675
      chmoth = 'DC20'
      x = -24.0164
      y = 40.5309
      z = 0
      irot = 721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 722
      theta1 = 90
      phi1 = 122.595
      theta2 = 84
      phi2 = -147.405
      theta3 = 6
      phi3 = 32.5946
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 676
      chmoth = 'DC20'
      x = -25.3788
      y = 39.692
      z = 0
      irot = 722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 723
      theta1 = 90
      phi1 = 124.541
      theta2 = 84
      phi2 = -145.459
      theta3 = 6
      phi3 = 34.5405
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 677
      chmoth = 'DC20'
      x = -26.712
      y = 38.8073
      z = 0
      irot = 723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 724
      theta1 = 90
      phi1 = 126.486
      theta2 = 84
      phi2 = -143.514
      theta3 = 6
      phi3 = 36.4865
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 678
      chmoth = 'DC20'
      x = -28.0144
      y = 37.8779
      z = 0
      irot = 724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 725
      theta1 = 90
      phi1 = 128.432
      theta2 = 84
      phi2 = -141.568
      theta3 = 6
      phi3 = 38.4324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 679
      chmoth = 'DC20'
      x = -29.2844
      y = 36.9048
      z = 0
      irot = 725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 726
      theta1 = 90
      phi1 = 130.378
      theta2 = 84
      phi2 = -139.622
      theta3 = 6
      phi3 = 40.3784
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 680
      chmoth = 'DC20'
      x = -30.5207
      y = 35.8891
      z = 0
      irot = 726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 727
      theta1 = 90
      phi1 = 132.324
      theta2 = 84
      phi2 = -137.676
      theta3 = 6
      phi3 = 42.3243
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 681
      chmoth = 'DC20'
      x = -31.7218
      y = 34.832
      z = 0
      irot = 727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 728
      theta1 = 90
      phi1 = 134.27
      theta2 = 84
      phi2 = -135.73
      theta3 = 6
      phi3 = 44.2703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 682
      chmoth = 'DC20'
      x = -32.8862
      y = 33.7348
      z = 0
      irot = 728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 729
      theta1 = 90
      phi1 = 136.216
      theta2 = 84
      phi2 = -133.784
      theta3 = 6
      phi3 = 46.2162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 683
      chmoth = 'DC20'
      x = -34.0128
      y = 32.5986
      z = 0
      irot = 729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 730
      theta1 = 90
      phi1 = 138.162
      theta2 = 84
      phi2 = -131.838
      theta3 = 6
      phi3 = 48.1622
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 684
      chmoth = 'DC20'
      x = -35.1001
      y = 31.4249
      z = 0
      irot = 730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 731
      theta1 = 90
      phi1 = 140.108
      theta2 = 84
      phi2 = -129.892
      theta3 = 6
      phi3 = 50.1081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 685
      chmoth = 'DC20'
      x = -36.147
      y = 30.2149
      z = 0
      irot = 731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 732
      theta1 = 90
      phi1 = 142.054
      theta2 = 84
      phi2 = -127.946
      theta3 = 6
      phi3 = 52.0541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 686
      chmoth = 'DC20'
      x = -37.1521
      y = 28.97
      z = 0
      irot = 732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 733
      theta1 = 90
      phi1 = 144
      theta2 = 84
      phi2 = -126
      theta3 = 6
      phi3 = 54
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 687
      chmoth = 'DC20'
      x = -38.1144
      y = 27.6917
      z = 0
      irot = 733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 734
      theta1 = 90
      phi1 = 145.946
      theta2 = 84
      phi2 = -124.054
      theta3 = 6
      phi3 = 55.9459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 688
      chmoth = 'DC20'
      x = -39.0327
      y = 26.3815
      z = 0
      irot = 734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 735
      theta1 = 90
      phi1 = 147.892
      theta2 = 84
      phi2 = -122.108
      theta3 = 6
      phi3 = 57.8919
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 689
      chmoth = 'DC20'
      x = -39.9061
      y = 25.0409
      z = 0
      irot = 735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 736
      theta1 = 90
      phi1 = 149.838
      theta2 = 84
      phi2 = -120.162
      theta3 = 6
      phi3 = 59.8378
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 690
      chmoth = 'DC20'
      x = -40.7334
      y = 23.6714
      z = 0
      irot = 736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 737
      theta1 = 90
      phi1 = 151.784
      theta2 = 84
      phi2 = -118.216
      theta3 = 6
      phi3 = 61.7838
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 691
      chmoth = 'DC20'
      x = -41.5137
      y = 22.2746
      z = 0
      irot = 737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 738
      theta1 = 90
      phi1 = 153.73
      theta2 = 84
      phi2 = -116.27
      theta3 = 6
      phi3 = 63.7297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 692
      chmoth = 'DC20'
      x = -42.2461
      y = 20.8521
      z = 0
      irot = 738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 739
      theta1 = 90
      phi1 = 155.676
      theta2 = 84
      phi2 = -114.324
      theta3 = 6
      phi3 = 65.6757
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 693
      chmoth = 'DC20'
      x = -42.9298
      y = 19.4055
      z = 0
      irot = 739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 740
      theta1 = 90
      phi1 = 157.622
      theta2 = 84
      phi2 = -112.378
      theta3 = 6
      phi3 = 67.6216
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 694
      chmoth = 'DC20'
      x = -43.564
      y = 17.9365
      z = 0
      irot = 740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 741
      theta1 = 90
      phi1 = 159.568
      theta2 = 84
      phi2 = -110.432
      theta3 = 6
      phi3 = 69.5676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 695
      chmoth = 'DC20'
      x = -44.1479
      y = 16.4469
      z = 0
      irot = 741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 742
      theta1 = 90
      phi1 = 161.514
      theta2 = 84
      phi2 = -108.486
      theta3 = 6
      phi3 = 71.5135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 696
      chmoth = 'DC20'
      x = -44.6809
      y = 14.9383
      z = 0
      irot = 742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 743
      theta1 = 90
      phi1 = 163.459
      theta2 = 84
      phi2 = -106.541
      theta3 = 6
      phi3 = 73.4595
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 697
      chmoth = 'DC20'
      x = -45.1624
      y = 13.4125
      z = 0
      irot = 743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 744
      theta1 = 90
      phi1 = 165.405
      theta2 = 84
      phi2 = -104.595
      theta3 = 6
      phi3 = 75.4054
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 698
      chmoth = 'DC20'
      x = -45.5918
      y = 11.8712
      z = 0
      irot = 744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 745
      theta1 = 90
      phi1 = 167.351
      theta2 = 84
      phi2 = -102.649
      theta3 = 6
      phi3 = 77.3514
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 699
      chmoth = 'DC20'
      x = -45.9686
      y = 10.3162
      z = 0
      irot = 745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 746
      theta1 = 90
      phi1 = 169.297
      theta2 = 84
      phi2 = -100.703
      theta3 = 6
      phi3 = 79.2973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 700
      chmoth = 'DC20'
      x = -46.2924
      y = 8.74931
      z = 0
      irot = 746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 747
      theta1 = 90
      phi1 = 171.243
      theta2 = 84
      phi2 = -98.7568
      theta3 = 6
      phi3 = 81.2432
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 701
      chmoth = 'DC20'
      x = -46.5628
      y = 7.17233
      z = 0
      irot = 747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 748
      theta1 = 90
      phi1 = 173.189
      theta2 = 84
      phi2 = -96.8108
      theta3 = 6
      phi3 = 83.1892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 702
      chmoth = 'DC20'
      x = -46.7795
      y = 5.58707
      z = 0
      irot = 748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 749
      theta1 = 90
      phi1 = 175.135
      theta2 = 84
      phi2 = -94.8649
      theta3 = 6
      phi3 = 85.1351
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 703
      chmoth = 'DC20'
      x = -46.9423
      y = 3.99538
      z = 0
      irot = 749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 750
      theta1 = 90
      phi1 = 177.081
      theta2 = 84
      phi2 = -92.9189
      theta3 = 6
      phi3 = 87.0811
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 704
      chmoth = 'DC20'
      x = -47.0509
      y = 2.39907
      z = 0
      irot = 750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 751
      theta1 = 90
      phi1 = 179.027
      theta2 = 84
      phi2 = -90.973
      theta3 = 6
      phi3 = 89.027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 705
      chmoth = 'DC20'
      x = -47.1052
      y = 0.799998
      z = 0
      irot = 751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 752
      theta1 = 90
      phi1 = -179.027
      theta2 = 84
      phi2 = -89.027
      theta3 = 6
      phi3 = 90.973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 706
      chmoth = 'DC20'
      x = -47.1052
      y = -0.799998
      z = 0
      irot = 752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 753
      theta1 = 90
      phi1 = -177.081
      theta2 = 84
      phi2 = -87.0811
      theta3 = 6
      phi3 = 92.9189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 707
      chmoth = 'DC20'
      x = -47.0509
      y = -2.39907
      z = 0
      irot = 753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 754
      theta1 = 90
      phi1 = -175.135
      theta2 = 84
      phi2 = -85.1351
      theta3 = 6
      phi3 = 94.8649
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 708
      chmoth = 'DC20'
      x = -46.9423
      y = -3.99538
      z = 0
      irot = 754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 755
      theta1 = 90
      phi1 = -173.189
      theta2 = 84
      phi2 = -83.1892
      theta3 = 6
      phi3 = 96.8108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 709
      chmoth = 'DC20'
      x = -46.7795
      y = -5.58707
      z = 0
      irot = 755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 756
      theta1 = 90
      phi1 = -171.243
      theta2 = 84
      phi2 = -81.2432
      theta3 = 6
      phi3 = 98.7568
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 710
      chmoth = 'DC20'
      x = -46.5628
      y = -7.17233
      z = 0
      irot = 756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 757
      theta1 = 90
      phi1 = -169.297
      theta2 = 84
      phi2 = -79.2973
      theta3 = 6
      phi3 = 100.703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 711
      chmoth = 'DC20'
      x = -46.2924
      y = -8.74931
      z = 0
      irot = 757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 758
      theta1 = 90
      phi1 = -167.351
      theta2 = 84
      phi2 = -77.3514
      theta3 = 6
      phi3 = 102.649
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 712
      chmoth = 'DC20'
      x = -45.9686
      y = -10.3162
      z = 0
      irot = 758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 759
      theta1 = 90
      phi1 = -165.405
      theta2 = 84
      phi2 = -75.4054
      theta3 = 6
      phi3 = 104.595
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 713
      chmoth = 'DC20'
      x = -45.5918
      y = -11.8712
      z = 0
      irot = 759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 760
      theta1 = 90
      phi1 = -163.459
      theta2 = 84
      phi2 = -73.4595
      theta3 = 6
      phi3 = 106.541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 714
      chmoth = 'DC20'
      x = -45.1624
      y = -13.4125
      z = 0
      irot = 760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 761
      theta1 = 90
      phi1 = -161.514
      theta2 = 84
      phi2 = -71.5135
      theta3 = 6
      phi3 = 108.486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 715
      chmoth = 'DC20'
      x = -44.6809
      y = -14.9383
      z = 0
      irot = 761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 762
      theta1 = 90
      phi1 = -159.568
      theta2 = 84
      phi2 = -69.5676
      theta3 = 6
      phi3 = 110.432
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 716
      chmoth = 'DC20'
      x = -44.1479
      y = -16.4469
      z = 0
      irot = 762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 763
      theta1 = 90
      phi1 = -157.622
      theta2 = 84
      phi2 = -67.6216
      theta3 = 6
      phi3 = 112.378
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 717
      chmoth = 'DC20'
      x = -43.564
      y = -17.9365
      z = 0
      irot = 763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 764
      theta1 = 90
      phi1 = -155.676
      theta2 = 84
      phi2 = -65.6757
      theta3 = 6
      phi3 = 114.324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 718
      chmoth = 'DC20'
      x = -42.9298
      y = -19.4055
      z = 0
      irot = 764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 765
      theta1 = 90
      phi1 = -153.73
      theta2 = 84
      phi2 = -63.7297
      theta3 = 6
      phi3 = 116.27
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 719
      chmoth = 'DC20'
      x = -42.2461
      y = -20.8521
      z = 0
      irot = 765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 766
      theta1 = 90
      phi1 = -151.784
      theta2 = 84
      phi2 = -61.7838
      theta3 = 6
      phi3 = 118.216
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 720
      chmoth = 'DC20'
      x = -41.5137
      y = -22.2746
      z = 0
      irot = 766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 767
      theta1 = 90
      phi1 = -149.838
      theta2 = 84
      phi2 = -59.8378
      theta3 = 6
      phi3 = 120.162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 721
      chmoth = 'DC20'
      x = -40.7334
      y = -23.6714
      z = 0
      irot = 767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 768
      theta1 = 90
      phi1 = -147.892
      theta2 = 84
      phi2 = -57.8919
      theta3 = 6
      phi3 = 122.108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 722
      chmoth = 'DC20'
      x = -39.9061
      y = -25.0409
      z = 0
      irot = 768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 769
      theta1 = 90
      phi1 = -145.946
      theta2 = 84
      phi2 = -55.9459
      theta3 = 6
      phi3 = 124.054
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 723
      chmoth = 'DC20'
      x = -39.0327
      y = -26.3815
      z = 0
      irot = 769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 770
      theta1 = 90
      phi1 = -144
      theta2 = 84
      phi2 = -54
      theta3 = 6
      phi3 = 126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 724
      chmoth = 'DC20'
      x = -38.1144
      y = -27.6917
      z = 0
      irot = 770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 771
      theta1 = 90
      phi1 = -142.054
      theta2 = 84
      phi2 = -52.0541
      theta3 = 6
      phi3 = 127.946
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 725
      chmoth = 'DC20'
      x = -37.1521
      y = -28.97
      z = 0
      irot = 771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 772
      theta1 = 90
      phi1 = -140.108
      theta2 = 84
      phi2 = -50.1081
      theta3 = 6
      phi3 = 129.892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 726
      chmoth = 'DC20'
      x = -36.147
      y = -30.2149
      z = 0
      irot = 772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 773
      theta1 = 90
      phi1 = -138.162
      theta2 = 84
      phi2 = -48.1622
      theta3 = 6
      phi3 = 131.838
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 727
      chmoth = 'DC20'
      x = -35.1001
      y = -31.4249
      z = 0
      irot = 773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 774
      theta1 = 90
      phi1 = -136.216
      theta2 = 84
      phi2 = -46.2162
      theta3 = 6
      phi3 = 133.784
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 728
      chmoth = 'DC20'
      x = -34.0128
      y = -32.5986
      z = 0
      irot = 774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 775
      theta1 = 90
      phi1 = -134.27
      theta2 = 84
      phi2 = -44.2703
      theta3 = 6
      phi3 = 135.73
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 729
      chmoth = 'DC20'
      x = -32.8862
      y = -33.7348
      z = 0
      irot = 775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 776
      theta1 = 90
      phi1 = -132.324
      theta2 = 84
      phi2 = -42.3243
      theta3 = 6
      phi3 = 137.676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 730
      chmoth = 'DC20'
      x = -31.7218
      y = -34.832
      z = 0
      irot = 776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 777
      theta1 = 90
      phi1 = -130.378
      theta2 = 84
      phi2 = -40.3784
      theta3 = 6
      phi3 = 139.622
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 731
      chmoth = 'DC20'
      x = -30.5207
      y = -35.8891
      z = 0
      irot = 777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 778
      theta1 = 90
      phi1 = -128.432
      theta2 = 84
      phi2 = -38.4324
      theta3 = 6
      phi3 = 141.568
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 732
      chmoth = 'DC20'
      x = -29.2844
      y = -36.9048
      z = 0
      irot = 778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 779
      theta1 = 90
      phi1 = -126.486
      theta2 = 84
      phi2 = -36.4865
      theta3 = 6
      phi3 = 143.514
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 733
      chmoth = 'DC20'
      x = -28.0144
      y = -37.8779
      z = 0
      irot = 779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 780
      theta1 = 90
      phi1 = -124.541
      theta2 = 84
      phi2 = -34.5405
      theta3 = 6
      phi3 = 145.459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 734
      chmoth = 'DC20'
      x = -26.712
      y = -38.8073
      z = 0
      irot = 780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 781
      theta1 = 90
      phi1 = -122.595
      theta2 = 84
      phi2 = -32.5946
      theta3 = 6
      phi3 = 147.405
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 735
      chmoth = 'DC20'
      x = -25.3788
      y = -39.692
      z = 0
      irot = 781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 782
      theta1 = 90
      phi1 = -120.649
      theta2 = 84
      phi2 = -30.6486
      theta3 = 6
      phi3 = 149.351
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 736
      chmoth = 'DC20'
      x = -24.0164
      y = -40.5309
      z = 0
      irot = 782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 783
      theta1 = 90
      phi1 = -118.703
      theta2 = 84
      phi2 = -28.7027
      theta3 = 6
      phi3 = 151.297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 737
      chmoth = 'DC20'
      x = -22.6262
      y = -41.323
      z = 0
      irot = 783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 784
      theta1 = 90
      phi1 = -116.757
      theta2 = 84
      phi2 = -26.7568
      theta3 = 6
      phi3 = 153.243
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 738
      chmoth = 'DC20'
      x = -21.21
      y = -42.0675
      z = 0
      irot = 784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 785
      theta1 = 90
      phi1 = -114.811
      theta2 = 84
      phi2 = -24.8108
      theta3 = 6
      phi3 = 155.189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 739
      chmoth = 'DC20'
      x = -19.7693
      y = -42.7635
      z = 0
      irot = 785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 786
      theta1 = 90
      phi1 = -112.865
      theta2 = 84
      phi2 = -22.8649
      theta3 = 6
      phi3 = 157.135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 740
      chmoth = 'DC20'
      x = -18.3058
      y = -43.4101
      z = 0
      irot = 786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 787
      theta1 = 90
      phi1 = -110.919
      theta2 = 84
      phi2 = -20.9189
      theta3 = 6
      phi3 = 159.081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 741
      chmoth = 'DC20'
      x = -16.8212
      y = -44.0067
      z = 0
      irot = 787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 788
      theta1 = 90
      phi1 = -108.973
      theta2 = 84
      phi2 = -18.973
      theta3 = 6
      phi3 = 161.027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 742
      chmoth = 'DC20'
      x = -15.3172
      y = -44.5525
      z = 0
      irot = 788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 789
      theta1 = 90
      phi1 = -107.027
      theta2 = 84
      phi2 = -17.027
      theta3 = 6
      phi3 = 162.973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 743
      chmoth = 'DC20'
      x = -13.7955
      y = -45.0469
      z = 0
      irot = 789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 790
      theta1 = 90
      phi1 = -105.081
      theta2 = 84
      phi2 = -15.0811
      theta3 = 6
      phi3 = 164.919
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 744
      chmoth = 'DC20'
      x = -12.2579
      y = -45.4894
      z = 0
      irot = 790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 791
      theta1 = 90
      phi1 = -103.135
      theta2 = 84
      phi2 = -13.1351
      theta3 = 6
      phi3 = 166.865
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 745
      chmoth = 'DC20'
      x = -10.7061
      y = -45.8794
      z = 0
      irot = 791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 792
      theta1 = 90
      phi1 = -101.189
      theta2 = 84
      phi2 = -11.1892
      theta3 = 6
      phi3 = 168.811
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 746
      chmoth = 'DC20'
      x = -9.14205
      y = -46.2165
      z = 0
      irot = 792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 793
      theta1 = 90
      phi1 = -99.2432
      theta2 = 84
      phi2 = -9.24324
      theta3 = 6
      phi3 = 170.757
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 747
      chmoth = 'DC20'
      x = -7.56742
      y = -46.5003
      z = 0
      irot = 793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 794
      theta1 = 90
      phi1 = -97.2973
      theta2 = 84
      phi2 = -7.2973
      theta3 = 6
      phi3 = 172.703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 748
      chmoth = 'DC20'
      x = -5.98406
      y = -46.7304
      z = 0
      irot = 794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 795
      theta1 = 90
      phi1 = -95.3514
      theta2 = 84
      phi2 = -5.35135
      theta3 = 6
      phi3 = 174.649
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 749
      chmoth = 'DC20'
      x = -4.3938
      y = -46.9067
      z = 0
      irot = 795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 796
      theta1 = 90
      phi1 = -93.4054
      theta2 = 84
      phi2 = -3.40541
      theta3 = 6
      phi3 = 176.595
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 750
      chmoth = 'DC20'
      x = -2.79848
      y = -47.0288
      z = 0
      irot = 796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 797
      theta1 = 90
      phi1 = -91.4595
      theta2 = 84
      phi2 = -1.45946
      theta3 = 6
      phi3 = 178.541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 751
      chmoth = 'DC20'
      x = -1.19992
      y = -47.0967
      z = 0
      irot = 797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 798
      theta1 = 90
      phi1 = -89.5135
      theta2 = 84
      phi2 = 0.486486
      theta3 = 6
      phi3 = -179.514
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 752
      chmoth = 'DC20'
      x = 0.400013
      y = -47.1103
      z = 0
      irot = 798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 799
      theta1 = 90
      phi1 = -87.5676
      theta2 = 84
      phi2 = 2.43243
      theta3 = 6
      phi3 = -177.568
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 753
      chmoth = 'DC20'
      x = 1.99949
      y = -47.0696
      z = 0
      irot = 799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 800
      theta1 = 90
      phi1 = -85.6216
      theta2 = 84
      phi2 = 4.37838
      theta3 = 6
      phi3 = -175.622
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 754
      chmoth = 'DC20'
      x = 3.59666
      y = -46.9745
      z = 0
      irot = 800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 801
      theta1 = 90
      phi1 = -83.6757
      theta2 = 84
      phi2 = 6.32432
      theta3 = 6
      phi3 = -173.676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 755
      chmoth = 'DC20'
      x = 5.18968
      y = -46.8253
      z = 0
      irot = 801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 802
      theta1 = 90
      phi1 = -81.7297
      theta2 = 84
      phi2 = 8.27027
      theta3 = 6
      phi3 = -171.73
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 756
      chmoth = 'DC20'
      x = 6.77672
      y = -46.6221
      z = 0
      irot = 802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 803
      theta1 = 90
      phi1 = -79.7838
      theta2 = 84
      phi2 = 10.2162
      theta3 = 6
      phi3 = -169.784
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 757
      chmoth = 'DC20'
      x = 8.35594
      y = -46.3651
      z = 0
      irot = 803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 804
      theta1 = 90
      phi1 = -77.8378
      theta2 = 84
      phi2 = 12.1622
      theta3 = 6
      phi3 = -167.838
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 758
      chmoth = 'DC20'
      x = 9.92552
      y = -46.0546
      z = 0
      irot = 804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 805
      theta1 = 90
      phi1 = -75.8919
      theta2 = 84
      phi2 = 14.1081
      theta3 = 6
      phi3 = -165.892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 759
      chmoth = 'DC20'
      x = 11.4837
      y = -45.691
      z = 0
      irot = 805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 806
      theta1 = 90
      phi1 = -73.9459
      theta2 = 84
      phi2 = 16.0541
      theta3 = 6
      phi3 = -163.946
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 760
      chmoth = 'DC20'
      x = 13.0285
      y = -45.2747
      z = 0
      irot = 806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 807
      theta1 = 90
      phi1 = -72
      theta2 = 84
      phi2 = 18
      theta3 = 6
      phi3 = -162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 761
      chmoth = 'DC20'
      x = 14.5584
      y = -44.8062
      z = 0
      irot = 807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 808
      theta1 = 90
      phi1 = -70.0541
      theta2 = 84
      phi2 = 19.9459
      theta3 = 6
      phi3 = -160.054
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 762
      chmoth = 'DC20'
      x = 16.0715
      y = -44.286
      z = 0
      irot = 808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 809
      theta1 = 90
      phi1 = -68.1081
      theta2 = 84
      phi2 = 21.8919
      theta3 = 6
      phi3 = -158.108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 763
      chmoth = 'DC20'
      x = 17.566
      y = -43.7147
      z = 0
      irot = 809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 810
      theta1 = 90
      phi1 = -66.1622
      theta2 = 84
      phi2 = 23.8378
      theta3 = 6
      phi3 = -156.162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 764
      chmoth = 'DC20'
      x = 19.0403
      y = -43.093
      z = 0
      irot = 810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 811
      theta1 = 90
      phi1 = -64.2162
      theta2 = 84
      phi2 = 25.7838
      theta3 = 6
      phi3 = -154.216
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 765
      chmoth = 'DC20'
      x = 20.4926
      y = -42.4216
      z = 0
      irot = 811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 812
      theta1 = 90
      phi1 = -62.2703
      theta2 = 84
      phi2 = 27.7297
      theta3 = 6
      phi3 = -152.27
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 766
      chmoth = 'DC20'
      x = 21.9213
      y = -41.7013
      z = 0
      irot = 812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 813
      theta1 = 90
      phi1 = -60.3243
      theta2 = 84
      phi2 = 29.6757
      theta3 = 6
      phi3 = -150.324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 767
      chmoth = 'DC20'
      x = 23.3247
      y = -40.9329
      z = 0
      irot = 813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 814
      theta1 = 90
      phi1 = -58.3784
      theta2 = 84
      phi2 = 31.6216
      theta3 = 6
      phi3 = -148.378
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 768
      chmoth = 'DC20'
      x = 24.7012
      y = -40.1172
      z = 0
      irot = 814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 815
      theta1 = 90
      phi1 = -56.4324
      theta2 = 84
      phi2 = 33.5676
      theta3 = 6
      phi3 = -146.432
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 769
      chmoth = 'DC20'
      x = 26.0492
      y = -39.2553
      z = 0
      irot = 815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 816
      theta1 = 90
      phi1 = -54.4865
      theta2 = 84
      phi2 = 35.5135
      theta3 = 6
      phi3 = -144.486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 770
      chmoth = 'DC20'
      x = 27.3671
      y = -38.3482
      z = 0
      irot = 816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 817
      theta1 = 90
      phi1 = -52.5405
      theta2 = 84
      phi2 = 37.4595
      theta3 = 6
      phi3 = -142.541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 771
      chmoth = 'DC20'
      x = 28.6535
      y = -37.3967
      z = 0
      irot = 817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 818
      theta1 = 90
      phi1 = -50.5946
      theta2 = 84
      phi2 = 39.4054
      theta3 = 6
      phi3 = -140.595
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 772
      chmoth = 'DC20'
      x = 29.9069
      y = -36.4022
      z = 0
      irot = 818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 819
      theta1 = 90
      phi1 = -48.6486
      theta2 = 84
      phi2 = 41.3514
      theta3 = 6
      phi3 = -138.649
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 773
      chmoth = 'DC20'
      x = 31.1257
      y = -35.3657
      z = 0
      irot = 819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 820
      theta1 = 90
      phi1 = -46.7027
      theta2 = 84
      phi2 = 43.2973
      theta3 = 6
      phi3 = -136.703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 774
      chmoth = 'DC20'
      x = 32.3087
      y = -34.2884
      z = 0
      irot = 820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 821
      theta1 = 90
      phi1 = -44.7568
      theta2 = 84
      phi2 = 45.2432
      theta3 = 6
      phi3 = -134.757
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 775
      chmoth = 'DC20'
      x = 33.4543
      y = -33.1715
      z = 0
      irot = 821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 822
      theta1 = 90
      phi1 = -42.8108
      theta2 = 84
      phi2 = 47.1892
      theta3 = 6
      phi3 = -132.811
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 776
      chmoth = 'DC20'
      x = 34.5614
      y = -32.0164
      z = 0
      irot = 822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 823
      theta1 = 90
      phi1 = -40.8649
      theta2 = 84
      phi2 = 49.1351
      theta3 = 6
      phi3 = -130.865
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 777
      chmoth = 'DC20'
      x = 35.6287
      y = -30.8243
      z = 0
      irot = 823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 824
      theta1 = 90
      phi1 = -38.9189
      theta2 = 84
      phi2 = 51.0811
      theta3 = 6
      phi3 = -128.919
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 778
      chmoth = 'DC20'
      x = 36.6548
      y = -29.5967
      z = 0
      irot = 824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 825
      theta1 = 90
      phi1 = -36.973
      theta2 = 84
      phi2 = 53.027
      theta3 = 6
      phi3 = -126.973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 779
      chmoth = 'DC20'
      x = 37.6387
      y = -28.335
      z = 0
      irot = 825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 826
      theta1 = 90
      phi1 = -35.027
      theta2 = 84
      phi2 = 54.973
      theta3 = 6
      phi3 = -125.027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 780
      chmoth = 'DC20'
      x = 38.5791
      y = -27.0405
      z = 0
      irot = 826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 827
      theta1 = 90
      phi1 = -33.0811
      theta2 = 84
      phi2 = 56.9189
      theta3 = 6
      phi3 = -123.081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 781
      chmoth = 'DC20'
      x = 39.4751
      y = -25.7149
      z = 0
      irot = 827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 828
      theta1 = 90
      phi1 = -31.1351
      theta2 = 84
      phi2 = 58.8649
      theta3 = 6
      phi3 = -121.135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 782
      chmoth = 'DC20'
      x = 40.3255
      y = -24.3597
      z = 0
      irot = 828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 829
      theta1 = 90
      phi1 = -29.1892
      theta2 = 84
      phi2 = 60.8108
      theta3 = 6
      phi3 = -119.189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 783
      chmoth = 'DC20'
      x = 41.1294
      y = -22.9763
      z = 0
      irot = 829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 830
      theta1 = 90
      phi1 = -27.2432
      theta2 = 84
      phi2 = 62.7568
      theta3 = 6
      phi3 = -117.243
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 784
      chmoth = 'DC20'
      x = 41.8859
      y = -21.5664
      z = 0
      irot = 830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 831
      theta1 = 90
      phi1 = -25.2973
      theta2 = 84
      phi2 = 64.7027
      theta3 = 6
      phi3 = -115.297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 785
      chmoth = 'DC20'
      x = 42.5941
      y = -20.1317
      z = 0
      irot = 831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 832
      theta1 = 90
      phi1 = -23.3514
      theta2 = 84
      phi2 = 66.6486
      theta3 = 6
      phi3 = -113.351
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 786
      chmoth = 'DC20'
      x = 43.2531
      y = -18.6737
      z = 0
      irot = 832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 833
      theta1 = 90
      phi1 = -21.4054
      theta2 = 84
      phi2 = 68.5946
      theta3 = 6
      phi3 = -111.405
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 787
      chmoth = 'DC20'
      x = 43.8623
      y = -17.1942
      z = 0
      irot = 833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 834
      theta1 = 90
      phi1 = -19.4595
      theta2 = 84
      phi2 = 70.5405
      theta3 = 6
      phi3 = -109.459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 788
      chmoth = 'DC20'
      x = 44.4208
      y = -15.6949
      z = 0
      irot = 834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 835
      theta1 = 90
      phi1 = -17.5135
      theta2 = 84
      phi2 = 72.4865
      theta3 = 6
      phi3 = -107.514
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 789
      chmoth = 'DC20'
      x = 44.9282
      y = -14.1774
      z = 0
      irot = 835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 836
      theta1 = 90
      phi1 = -15.5676
      theta2 = 84
      phi2 = 74.4324
      theta3 = 6
      phi3 = -105.568
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 790
      chmoth = 'DC20'
      x = 45.3837
      y = -12.6437
      z = 0
      irot = 836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 837
      theta1 = 90
      phi1 = -13.6216
      theta2 = 84
      phi2 = 76.3784
      theta3 = 6
      phi3 = -103.622
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 791
      chmoth = 'DC20'
      x = 45.7868
      y = -11.0953
      z = 0
      irot = 837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 838
      theta1 = 90
      phi1 = -11.6757
      theta2 = 84
      phi2 = 78.3243
      theta3 = 6
      phi3 = -101.676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 792
      chmoth = 'DC20'
      x = 46.1372
      y = -9.53413
      z = 0
      irot = 838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 839
      theta1 = 90
      phi1 = -9.72973
      theta2 = 84
      phi2 = 80.2703
      theta3 = 6
      phi3 = -99.7297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 793
      chmoth = 'DC20'
      x = 46.4343
      y = -7.96197
      z = 0
      irot = 839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 840
      theta1 = 90
      phi1 = -7.78378
      theta2 = 84
      phi2 = 82.2162
      theta3 = 6
      phi3 = -97.7838
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 794
      chmoth = 'DC20'
      x = 46.6779
      y = -6.38062
      z = 0
      irot = 840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 841
      theta1 = 90
      phi1 = -5.83784
      theta2 = 84
      phi2 = 84.1622
      theta3 = 6
      phi3 = -95.8378
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 795
      chmoth = 'DC20'
      x = 46.8677
      y = -4.79192
      z = 0
      irot = 841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 842
      theta1 = 90
      phi1 = -3.89189
      theta2 = 84
      phi2 = 86.1081
      theta3 = 6
      phi3 = -93.8919
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 796
      chmoth = 'DC20'
      x = 47.0034
      y = -3.19768
      z = 0
      irot = 842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 843
      theta1 = 90
      phi1 = -1.94595
      theta2 = 84
      phi2 = 88.0541
      theta3 = 6
      phi3 = -91.9459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 797
      chmoth = 'DC20'
      x = 47.0848
      y = -1.59976
      z = 0
      irot = 843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 844
      theta1 = 90
      phi1 = 0
      theta2 = 84
      phi2 = 90
      theta3 = 6
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 798
      chmoth = 'DC20'
      x = 48.895
      y = 0
      z = 0
      irot = 844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 845
      theta1 = 90
      phi1 = 1.875
      theta2 = 84
      phi2 = 91.875
      theta3 = 6
      phi3 = -88.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 799
      chmoth = 'DC20'
      x = 48.8688
      y = 1.5998
      z = 0
      irot = 845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 846
      theta1 = 90
      phi1 = 3.75
      theta2 = 84
      phi2 = 93.75
      theta3 = 6
      phi3 = -86.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 800
      chmoth = 'DC20'
      x = 48.7903
      y = 3.19789
      z = 0
      irot = 846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 847
      theta1 = 90
      phi1 = 5.625
      theta2 = 84
      phi2 = 95.625
      theta3 = 6
      phi3 = -84.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 801
      chmoth = 'DC20'
      x = 48.6596
      y = 4.79255
      z = 0
      irot = 847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 848
      theta1 = 90
      phi1 = 7.5
      theta2 = 84
      phi2 = 97.5
      theta3 = 6
      phi3 = -82.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 802
      chmoth = 'DC20'
      x = 48.4767
      y = 6.38208
      z = 0
      irot = 848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 849
      theta1 = 90
      phi1 = 9.375
      theta2 = 84
      phi2 = 99.375
      theta3 = 6
      phi3 = -80.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 803
      chmoth = 'DC20'
      x = 48.2419
      y = 7.96477
      z = 0
      irot = 849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 850
      theta1 = 90
      phi1 = 11.25
      theta2 = 84
      phi2 = 101.25
      theta3 = 6
      phi3 = -78.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 804
      chmoth = 'DC20'
      x = 47.9555
      y = 9.53894
      z = 0
      irot = 850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 851
      theta1 = 90
      phi1 = 13.125
      theta2 = 84
      phi2 = 103.125
      theta3 = 6
      phi3 = -76.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 805
      chmoth = 'DC20'
      x = 47.6177
      y = 11.1029
      z = 0
      irot = 851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 852
      theta1 = 90
      phi1 = 15
      theta2 = 84
      phi2 = 105
      theta3 = 6
      phi3 = -75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 806
      chmoth = 'DC20'
      x = 47.2289
      y = 12.655
      z = 0
      irot = 852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 853
      theta1 = 90
      phi1 = 16.875
      theta2 = 84
      phi2 = 106.875
      theta3 = 6
      phi3 = -73.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 807
      chmoth = 'DC20'
      x = 46.7896
      y = 14.1935
      z = 0
      irot = 853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 854
      theta1 = 90
      phi1 = 18.75
      theta2 = 84
      phi2 = 108.75
      theta3 = 6
      phi3 = -71.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 808
      chmoth = 'DC20'
      x = 46.3001
      y = 15.7168
      z = 0
      irot = 854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 855
      theta1 = 90
      phi1 = 20.625
      theta2 = 84
      phi2 = 110.625
      theta3 = 6
      phi3 = -69.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 809
      chmoth = 'DC20'
      x = 45.7611
      y = 17.2233
      z = 0
      irot = 855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 856
      theta1 = 90
      phi1 = 22.5
      theta2 = 84
      phi2 = 112.5
      theta3 = 6
      phi3 = -67.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 810
      chmoth = 'DC20'
      x = 45.1731
      y = 18.7113
      z = 0
      irot = 856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 857
      theta1 = 90
      phi1 = 24.375
      theta2 = 84
      phi2 = 114.375
      theta3 = 6
      phi3 = -65.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 811
      chmoth = 'DC20'
      x = 44.5367
      y = 20.1793
      z = 0
      irot = 857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 858
      theta1 = 90
      phi1 = 26.25
      theta2 = 84
      phi2 = 116.25
      theta3 = 6
      phi3 = -63.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 812
      chmoth = 'DC20'
      x = 43.8526
      y = 21.6257
      z = 0
      irot = 858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 859
      theta1 = 90
      phi1 = 28.125
      theta2 = 84
      phi2 = 118.125
      theta3 = 6
      phi3 = -61.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 813
      chmoth = 'DC20'
      x = 43.1215
      y = 23.0489
      z = 0
      irot = 859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 860
      theta1 = 90
      phi1 = 30
      theta2 = 84
      phi2 = 120
      theta3 = 6
      phi3 = -60
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 814
      chmoth = 'DC20'
      x = 42.3443
      y = 24.4475
      z = 0
      irot = 860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 861
      theta1 = 90
      phi1 = 31.875
      theta2 = 84
      phi2 = 121.875
      theta3 = 6
      phi3 = -58.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 815
      chmoth = 'DC20'
      x = 41.5217
      y = 25.8199
      z = 0
      irot = 861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 862
      theta1 = 90
      phi1 = 33.75
      theta2 = 84
      phi2 = 123.75
      theta3 = 6
      phi3 = -56.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 816
      chmoth = 'DC20'
      x = 40.6547
      y = 27.1646
      z = 0
      irot = 862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 863
      theta1 = 90
      phi1 = 35.625
      theta2 = 84
      phi2 = 125.625
      theta3 = 6
      phi3 = -54.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 817
      chmoth = 'DC20'
      x = 39.7441
      y = 28.4802
      z = 0
      irot = 863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 864
      theta1 = 90
      phi1 = 37.5
      theta2 = 84
      phi2 = 127.5
      theta3 = 6
      phi3 = -52.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 818
      chmoth = 'DC20'
      x = 38.791
      y = 29.7654
      z = 0
      irot = 864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 865
      theta1 = 90
      phi1 = 39.375
      theta2 = 84
      phi2 = 129.375
      theta3 = 6
      phi3 = -50.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 819
      chmoth = 'DC20'
      x = 37.7963
      y = 31.0187
      z = 0
      irot = 865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 866
      theta1 = 90
      phi1 = 41.25
      theta2 = 84
      phi2 = 131.25
      theta3 = 6
      phi3 = -48.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 820
      chmoth = 'DC20'
      x = 36.7612
      y = 32.2387
      z = 0
      irot = 866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 867
      theta1 = 90
      phi1 = 43.125
      theta2 = 84
      phi2 = 133.125
      theta3 = 6
      phi3 = -46.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 821
      chmoth = 'DC20'
      x = 35.6867
      y = 33.4242
      z = 0
      irot = 867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 868
      theta1 = 90
      phi1 = 45
      theta2 = 84
      phi2 = 135
      theta3 = 6
      phi3 = -45
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 822
      chmoth = 'DC20'
      x = 34.574
      y = 34.574
      z = 0
      irot = 868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 869
      theta1 = 90
      phi1 = 46.875
      theta2 = 84
      phi2 = 136.875
      theta3 = 6
      phi3 = -43.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 823
      chmoth = 'DC20'
      x = 33.4242
      y = 35.6867
      z = 0
      irot = 869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 870
      theta1 = 90
      phi1 = 48.75
      theta2 = 84
      phi2 = 138.75
      theta3 = 6
      phi3 = -41.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 824
      chmoth = 'DC20'
      x = 32.2387
      y = 36.7612
      z = 0
      irot = 870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 871
      theta1 = 90
      phi1 = 50.625
      theta2 = 84
      phi2 = 140.625
      theta3 = 6
      phi3 = -39.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 825
      chmoth = 'DC20'
      x = 31.0187
      y = 37.7963
      z = 0
      irot = 871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 872
      theta1 = 90
      phi1 = 52.5
      theta2 = 84
      phi2 = 142.5
      theta3 = 6
      phi3 = -37.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 826
      chmoth = 'DC20'
      x = 29.7654
      y = 38.791
      z = 0
      irot = 872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 873
      theta1 = 90
      phi1 = 54.375
      theta2 = 84
      phi2 = 144.375
      theta3 = 6
      phi3 = -35.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 827
      chmoth = 'DC20'
      x = 28.4802
      y = 39.7441
      z = 0
      irot = 873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 874
      theta1 = 90
      phi1 = 56.25
      theta2 = 84
      phi2 = 146.25
      theta3 = 6
      phi3 = -33.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 828
      chmoth = 'DC20'
      x = 27.1646
      y = 40.6547
      z = 0
      irot = 874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 875
      theta1 = 90
      phi1 = 58.125
      theta2 = 84
      phi2 = 148.125
      theta3 = 6
      phi3 = -31.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 829
      chmoth = 'DC20'
      x = 25.8199
      y = 41.5217
      z = 0
      irot = 875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 876
      theta1 = 90
      phi1 = 60
      theta2 = 84
      phi2 = 150
      theta3 = 6
      phi3 = -30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 830
      chmoth = 'DC20'
      x = 24.4475
      y = 42.3443
      z = 0
      irot = 876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 877
      theta1 = 90
      phi1 = 61.875
      theta2 = 84
      phi2 = 151.875
      theta3 = 6
      phi3 = -28.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 831
      chmoth = 'DC20'
      x = 23.0489
      y = 43.1215
      z = 0
      irot = 877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 878
      theta1 = 90
      phi1 = 63.75
      theta2 = 84
      phi2 = 153.75
      theta3 = 6
      phi3 = -26.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 832
      chmoth = 'DC20'
      x = 21.6257
      y = 43.8526
      z = 0
      irot = 878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 879
      theta1 = 90
      phi1 = 65.625
      theta2 = 84
      phi2 = 155.625
      theta3 = 6
      phi3 = -24.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 833
      chmoth = 'DC20'
      x = 20.1793
      y = 44.5367
      z = 0
      irot = 879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 880
      theta1 = 90
      phi1 = 67.5
      theta2 = 84
      phi2 = 157.5
      theta3 = 6
      phi3 = -22.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 834
      chmoth = 'DC20'
      x = 18.7113
      y = 45.1731
      z = 0
      irot = 880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 881
      theta1 = 90
      phi1 = 69.375
      theta2 = 84
      phi2 = 159.375
      theta3 = 6
      phi3 = -20.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 835
      chmoth = 'DC20'
      x = 17.2233
      y = 45.7611
      z = 0
      irot = 881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 882
      theta1 = 90
      phi1 = 71.25
      theta2 = 84
      phi2 = 161.25
      theta3 = 6
      phi3 = -18.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 836
      chmoth = 'DC20'
      x = 15.7168
      y = 46.3001
      z = 0
      irot = 882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 883
      theta1 = 90
      phi1 = 73.125
      theta2 = 84
      phi2 = 163.125
      theta3 = 6
      phi3 = -16.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 837
      chmoth = 'DC20'
      x = 14.1935
      y = 46.7896
      z = 0
      irot = 883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 884
      theta1 = 90
      phi1 = 75
      theta2 = 84
      phi2 = 165
      theta3 = 6
      phi3 = -15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 838
      chmoth = 'DC20'
      x = 12.655
      y = 47.2289
      z = 0
      irot = 884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 885
      theta1 = 90
      phi1 = 76.875
      theta2 = 84
      phi2 = 166.875
      theta3 = 6
      phi3 = -13.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 839
      chmoth = 'DC20'
      x = 11.1029
      y = 47.6177
      z = 0
      irot = 885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 886
      theta1 = 90
      phi1 = 78.75
      theta2 = 84
      phi2 = 168.75
      theta3 = 6
      phi3 = -11.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 840
      chmoth = 'DC20'
      x = 9.53894
      y = 47.9555
      z = 0
      irot = 886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 887
      theta1 = 90
      phi1 = 80.625
      theta2 = 84
      phi2 = 170.625
      theta3 = 6
      phi3 = -9.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 841
      chmoth = 'DC20'
      x = 7.96477
      y = 48.2419
      z = 0
      irot = 887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 888
      theta1 = 90
      phi1 = 82.5
      theta2 = 84
      phi2 = 172.5
      theta3 = 6
      phi3 = -7.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 842
      chmoth = 'DC20'
      x = 6.38208
      y = 48.4767
      z = 0
      irot = 888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 889
      theta1 = 90
      phi1 = 84.375
      theta2 = 84
      phi2 = 174.375
      theta3 = 6
      phi3 = -5.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 843
      chmoth = 'DC20'
      x = 4.79255
      y = 48.6596
      z = 0
      irot = 889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 890
      theta1 = 90
      phi1 = 86.25
      theta2 = 84
      phi2 = 176.25
      theta3 = 6
      phi3 = -3.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 844
      chmoth = 'DC20'
      x = 3.19789
      y = 48.7903
      z = 0
      irot = 890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 891
      theta1 = 90
      phi1 = 88.125
      theta2 = 84
      phi2 = 178.125
      theta3 = 6
      phi3 = -1.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 845
      chmoth = 'DC20'
      x = 1.5998
      y = 48.8688
      z = 0
      irot = 891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 892
      theta1 = 90
      phi1 = 90
      theta2 = 84
      phi2 = 180
      theta3 = 6
      phi3 = -6.71193e-14
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 846
      chmoth = 'DC20'
      x = 2.99386e-15
      y = 48.895
      z = 0
      irot = 892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 893
      theta1 = 90
      phi1 = 91.875
      theta2 = 84
      phi2 = -178.125
      theta3 = 6
      phi3 = 1.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 847
      chmoth = 'DC20'
      x = -1.5998
      y = 48.8688
      z = 0
      irot = 893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 894
      theta1 = 90
      phi1 = 93.75
      theta2 = 84
      phi2 = -176.25
      theta3 = 6
      phi3 = 3.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 848
      chmoth = 'DC20'
      x = -3.19789
      y = 48.7903
      z = 0
      irot = 894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 895
      theta1 = 90
      phi1 = 95.625
      theta2 = 84
      phi2 = -174.375
      theta3 = 6
      phi3 = 5.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 849
      chmoth = 'DC20'
      x = -4.79255
      y = 48.6596
      z = 0
      irot = 895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 896
      theta1 = 90
      phi1 = 97.5
      theta2 = 84
      phi2 = -172.5
      theta3 = 6
      phi3 = 7.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 850
      chmoth = 'DC20'
      x = -6.38208
      y = 48.4767
      z = 0
      irot = 896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 897
      theta1 = 90
      phi1 = 99.375
      theta2 = 84
      phi2 = -170.625
      theta3 = 6
      phi3 = 9.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 851
      chmoth = 'DC20'
      x = -7.96477
      y = 48.2419
      z = 0
      irot = 897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 898
      theta1 = 90
      phi1 = 101.25
      theta2 = 84
      phi2 = -168.75
      theta3 = 6
      phi3 = 11.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 852
      chmoth = 'DC20'
      x = -9.53894
      y = 47.9555
      z = 0
      irot = 898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 899
      theta1 = 90
      phi1 = 103.125
      theta2 = 84
      phi2 = -166.875
      theta3 = 6
      phi3 = 13.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 853
      chmoth = 'DC20'
      x = -11.1029
      y = 47.6177
      z = 0
      irot = 899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 900
      theta1 = 90
      phi1 = 105
      theta2 = 84
      phi2 = -165
      theta3 = 6
      phi3 = 15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 854
      chmoth = 'DC20'
      x = -12.655
      y = 47.2289
      z = 0
      irot = 900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 901
      theta1 = 90
      phi1 = 106.875
      theta2 = 84
      phi2 = -163.125
      theta3 = 6
      phi3 = 16.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 855
      chmoth = 'DC20'
      x = -14.1935
      y = 46.7896
      z = 0
      irot = 901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 902
      theta1 = 90
      phi1 = 108.75
      theta2 = 84
      phi2 = -161.25
      theta3 = 6
      phi3 = 18.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 856
      chmoth = 'DC20'
      x = -15.7168
      y = 46.3001
      z = 0
      irot = 902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 903
      theta1 = 90
      phi1 = 110.625
      theta2 = 84
      phi2 = -159.375
      theta3 = 6
      phi3 = 20.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 857
      chmoth = 'DC20'
      x = -17.2233
      y = 45.7611
      z = 0
      irot = 903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 904
      theta1 = 90
      phi1 = 112.5
      theta2 = 84
      phi2 = -157.5
      theta3 = 6
      phi3 = 22.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 858
      chmoth = 'DC20'
      x = -18.7113
      y = 45.1731
      z = 0
      irot = 904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 905
      theta1 = 90
      phi1 = 114.375
      theta2 = 84
      phi2 = -155.625
      theta3 = 6
      phi3 = 24.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 859
      chmoth = 'DC20'
      x = -20.1793
      y = 44.5367
      z = 0
      irot = 905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 906
      theta1 = 90
      phi1 = 116.25
      theta2 = 84
      phi2 = -153.75
      theta3 = 6
      phi3 = 26.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 860
      chmoth = 'DC20'
      x = -21.6257
      y = 43.8526
      z = 0
      irot = 906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 907
      theta1 = 90
      phi1 = 118.125
      theta2 = 84
      phi2 = -151.875
      theta3 = 6
      phi3 = 28.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 861
      chmoth = 'DC20'
      x = -23.0489
      y = 43.1215
      z = 0
      irot = 907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 908
      theta1 = 90
      phi1 = 120
      theta2 = 84
      phi2 = -150
      theta3 = 6
      phi3 = 30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 862
      chmoth = 'DC20'
      x = -24.4475
      y = 42.3443
      z = 0
      irot = 908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 909
      theta1 = 90
      phi1 = 121.875
      theta2 = 84
      phi2 = -148.125
      theta3 = 6
      phi3 = 31.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 863
      chmoth = 'DC20'
      x = -25.8199
      y = 41.5217
      z = 0
      irot = 909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 910
      theta1 = 90
      phi1 = 123.75
      theta2 = 84
      phi2 = -146.25
      theta3 = 6
      phi3 = 33.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 864
      chmoth = 'DC20'
      x = -27.1646
      y = 40.6547
      z = 0
      irot = 910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 911
      theta1 = 90
      phi1 = 125.625
      theta2 = 84
      phi2 = -144.375
      theta3 = 6
      phi3 = 35.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 865
      chmoth = 'DC20'
      x = -28.4802
      y = 39.7441
      z = 0
      irot = 911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 912
      theta1 = 90
      phi1 = 127.5
      theta2 = 84
      phi2 = -142.5
      theta3 = 6
      phi3 = 37.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 866
      chmoth = 'DC20'
      x = -29.7654
      y = 38.791
      z = 0
      irot = 912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 913
      theta1 = 90
      phi1 = 129.375
      theta2 = 84
      phi2 = -140.625
      theta3 = 6
      phi3 = 39.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 867
      chmoth = 'DC20'
      x = -31.0187
      y = 37.7963
      z = 0
      irot = 913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 914
      theta1 = 90
      phi1 = 131.25
      theta2 = 84
      phi2 = -138.75
      theta3 = 6
      phi3 = 41.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 868
      chmoth = 'DC20'
      x = -32.2387
      y = 36.7612
      z = 0
      irot = 914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 915
      theta1 = 90
      phi1 = 133.125
      theta2 = 84
      phi2 = -136.875
      theta3 = 6
      phi3 = 43.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 869
      chmoth = 'DC20'
      x = -33.4242
      y = 35.6867
      z = 0
      irot = 915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 916
      theta1 = 90
      phi1 = 135
      theta2 = 84
      phi2 = -135
      theta3 = 6
      phi3 = 45
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 870
      chmoth = 'DC20'
      x = -34.574
      y = 34.574
      z = 0
      irot = 916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 917
      theta1 = 90
      phi1 = 136.875
      theta2 = 84
      phi2 = -133.125
      theta3 = 6
      phi3 = 46.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 871
      chmoth = 'DC20'
      x = -35.6867
      y = 33.4242
      z = 0
      irot = 917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 918
      theta1 = 90
      phi1 = 138.75
      theta2 = 84
      phi2 = -131.25
      theta3 = 6
      phi3 = 48.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 872
      chmoth = 'DC20'
      x = -36.7612
      y = 32.2387
      z = 0
      irot = 918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 919
      theta1 = 90
      phi1 = 140.625
      theta2 = 84
      phi2 = -129.375
      theta3 = 6
      phi3 = 50.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 873
      chmoth = 'DC20'
      x = -37.7963
      y = 31.0187
      z = 0
      irot = 919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 920
      theta1 = 90
      phi1 = 142.5
      theta2 = 84
      phi2 = -127.5
      theta3 = 6
      phi3 = 52.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 874
      chmoth = 'DC20'
      x = -38.791
      y = 29.7654
      z = 0
      irot = 920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 921
      theta1 = 90
      phi1 = 144.375
      theta2 = 84
      phi2 = -125.625
      theta3 = 6
      phi3 = 54.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 875
      chmoth = 'DC20'
      x = -39.7441
      y = 28.4802
      z = 0
      irot = 921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 922
      theta1 = 90
      phi1 = 146.25
      theta2 = 84
      phi2 = -123.75
      theta3 = 6
      phi3 = 56.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 876
      chmoth = 'DC20'
      x = -40.6547
      y = 27.1646
      z = 0
      irot = 922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 923
      theta1 = 90
      phi1 = 148.125
      theta2 = 84
      phi2 = -121.875
      theta3 = 6
      phi3 = 58.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 877
      chmoth = 'DC20'
      x = -41.5217
      y = 25.8199
      z = 0
      irot = 923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 924
      theta1 = 90
      phi1 = 150
      theta2 = 84
      phi2 = -120
      theta3 = 6
      phi3 = 60
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 878
      chmoth = 'DC20'
      x = -42.3443
      y = 24.4475
      z = 0
      irot = 924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 925
      theta1 = 90
      phi1 = 151.875
      theta2 = 84
      phi2 = -118.125
      theta3 = 6
      phi3 = 61.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 879
      chmoth = 'DC20'
      x = -43.1215
      y = 23.0489
      z = 0
      irot = 925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 926
      theta1 = 90
      phi1 = 153.75
      theta2 = 84
      phi2 = -116.25
      theta3 = 6
      phi3 = 63.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 880
      chmoth = 'DC20'
      x = -43.8526
      y = 21.6257
      z = 0
      irot = 926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 927
      theta1 = 90
      phi1 = 155.625
      theta2 = 84
      phi2 = -114.375
      theta3 = 6
      phi3 = 65.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 881
      chmoth = 'DC20'
      x = -44.5367
      y = 20.1793
      z = 0
      irot = 927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 928
      theta1 = 90
      phi1 = 157.5
      theta2 = 84
      phi2 = -112.5
      theta3 = 6
      phi3 = 67.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 882
      chmoth = 'DC20'
      x = -45.1731
      y = 18.7113
      z = 0
      irot = 928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 929
      theta1 = 90
      phi1 = 159.375
      theta2 = 84
      phi2 = -110.625
      theta3 = 6
      phi3 = 69.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 883
      chmoth = 'DC20'
      x = -45.7611
      y = 17.2233
      z = 0
      irot = 929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 930
      theta1 = 90
      phi1 = 161.25
      theta2 = 84
      phi2 = -108.75
      theta3 = 6
      phi3 = 71.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 884
      chmoth = 'DC20'
      x = -46.3001
      y = 15.7168
      z = 0
      irot = 930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 931
      theta1 = 90
      phi1 = 163.125
      theta2 = 84
      phi2 = -106.875
      theta3 = 6
      phi3 = 73.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 885
      chmoth = 'DC20'
      x = -46.7896
      y = 14.1935
      z = 0
      irot = 931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 932
      theta1 = 90
      phi1 = 165
      theta2 = 84
      phi2 = -105
      theta3 = 6
      phi3 = 75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 886
      chmoth = 'DC20'
      x = -47.2289
      y = 12.655
      z = 0
      irot = 932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 933
      theta1 = 90
      phi1 = 166.875
      theta2 = 84
      phi2 = -103.125
      theta3 = 6
      phi3 = 76.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 887
      chmoth = 'DC20'
      x = -47.6177
      y = 11.1029
      z = 0
      irot = 933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 934
      theta1 = 90
      phi1 = 168.75
      theta2 = 84
      phi2 = -101.25
      theta3 = 6
      phi3 = 78.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 888
      chmoth = 'DC20'
      x = -47.9555
      y = 9.53894
      z = 0
      irot = 934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 935
      theta1 = 90
      phi1 = 170.625
      theta2 = 84
      phi2 = -99.375
      theta3 = 6
      phi3 = 80.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 889
      chmoth = 'DC20'
      x = -48.2419
      y = 7.96477
      z = 0
      irot = 935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 936
      theta1 = 90
      phi1 = 172.5
      theta2 = 84
      phi2 = -97.5
      theta3 = 6
      phi3 = 82.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 890
      chmoth = 'DC20'
      x = -48.4767
      y = 6.38208
      z = 0
      irot = 936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 937
      theta1 = 90
      phi1 = 174.375
      theta2 = 84
      phi2 = -95.625
      theta3 = 6
      phi3 = 84.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 891
      chmoth = 'DC20'
      x = -48.6596
      y = 4.79255
      z = 0
      irot = 937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 938
      theta1 = 90
      phi1 = 176.25
      theta2 = 84
      phi2 = -93.75
      theta3 = 6
      phi3 = 86.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 892
      chmoth = 'DC20'
      x = -48.7903
      y = 3.19789
      z = 0
      irot = 938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 939
      theta1 = 90
      phi1 = 178.125
      theta2 = 84
      phi2 = -91.875
      theta3 = 6
      phi3 = 88.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 893
      chmoth = 'DC20'
      x = -48.8688
      y = 1.5998
      z = 0
      irot = 939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 940
      theta1 = 90
      phi1 = -180
      theta2 = 84
      phi2 = -90
      theta3 = 6
      phi3 = 90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 894
      chmoth = 'DC20'
      x = -48.895
      y = 5.98771e-15
      z = 0
      irot = 940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 941
      theta1 = 90
      phi1 = -178.125
      theta2 = 84
      phi2 = -88.125
      theta3 = 6
      phi3 = 91.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 895
      chmoth = 'DC20'
      x = -48.8688
      y = -1.5998
      z = 0
      irot = 941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 942
      theta1 = 90
      phi1 = -176.25
      theta2 = 84
      phi2 = -86.25
      theta3 = 6
      phi3 = 93.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 896
      chmoth = 'DC20'
      x = -48.7903
      y = -3.19789
      z = 0
      irot = 942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 943
      theta1 = 90
      phi1 = -174.375
      theta2 = 84
      phi2 = -84.375
      theta3 = 6
      phi3 = 95.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 897
      chmoth = 'DC20'
      x = -48.6596
      y = -4.79255
      z = 0
      irot = 943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 944
      theta1 = 90
      phi1 = -172.5
      theta2 = 84
      phi2 = -82.5
      theta3 = 6
      phi3 = 97.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 898
      chmoth = 'DC20'
      x = -48.4767
      y = -6.38208
      z = 0
      irot = 944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 945
      theta1 = 90
      phi1 = -170.625
      theta2 = 84
      phi2 = -80.625
      theta3 = 6
      phi3 = 99.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 899
      chmoth = 'DC20'
      x = -48.2419
      y = -7.96477
      z = 0
      irot = 945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 946
      theta1 = 90
      phi1 = -168.75
      theta2 = 84
      phi2 = -78.75
      theta3 = 6
      phi3 = 101.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 900
      chmoth = 'DC20'
      x = -47.9555
      y = -9.53894
      z = 0
      irot = 946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 947
      theta1 = 90
      phi1 = -166.875
      theta2 = 84
      phi2 = -76.875
      theta3 = 6
      phi3 = 103.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 901
      chmoth = 'DC20'
      x = -47.6177
      y = -11.1029
      z = 0
      irot = 947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 948
      theta1 = 90
      phi1 = -165
      theta2 = 84
      phi2 = -75
      theta3 = 6
      phi3 = 105
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 902
      chmoth = 'DC20'
      x = -47.2289
      y = -12.655
      z = 0
      irot = 948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 949
      theta1 = 90
      phi1 = -163.125
      theta2 = 84
      phi2 = -73.125
      theta3 = 6
      phi3 = 106.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 903
      chmoth = 'DC20'
      x = -46.7896
      y = -14.1935
      z = 0
      irot = 949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 950
      theta1 = 90
      phi1 = -161.25
      theta2 = 84
      phi2 = -71.25
      theta3 = 6
      phi3 = 108.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 904
      chmoth = 'DC20'
      x = -46.3001
      y = -15.7168
      z = 0
      irot = 950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 951
      theta1 = 90
      phi1 = -159.375
      theta2 = 84
      phi2 = -69.375
      theta3 = 6
      phi3 = 110.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 905
      chmoth = 'DC20'
      x = -45.7611
      y = -17.2233
      z = 0
      irot = 951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 952
      theta1 = 90
      phi1 = -157.5
      theta2 = 84
      phi2 = -67.5
      theta3 = 6
      phi3 = 112.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 906
      chmoth = 'DC20'
      x = -45.1731
      y = -18.7113
      z = 0
      irot = 952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 953
      theta1 = 90
      phi1 = -155.625
      theta2 = 84
      phi2 = -65.625
      theta3 = 6
      phi3 = 114.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 907
      chmoth = 'DC20'
      x = -44.5367
      y = -20.1793
      z = 0
      irot = 953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 954
      theta1 = 90
      phi1 = -153.75
      theta2 = 84
      phi2 = -63.75
      theta3 = 6
      phi3 = 116.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 908
      chmoth = 'DC20'
      x = -43.8526
      y = -21.6257
      z = 0
      irot = 954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 955
      theta1 = 90
      phi1 = -151.875
      theta2 = 84
      phi2 = -61.875
      theta3 = 6
      phi3 = 118.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 909
      chmoth = 'DC20'
      x = -43.1215
      y = -23.0489
      z = 0
      irot = 955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 956
      theta1 = 90
      phi1 = -150
      theta2 = 84
      phi2 = -60
      theta3 = 6
      phi3 = 120
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 910
      chmoth = 'DC20'
      x = -42.3443
      y = -24.4475
      z = 0
      irot = 956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 957
      theta1 = 90
      phi1 = -148.125
      theta2 = 84
      phi2 = -58.125
      theta3 = 6
      phi3 = 121.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 911
      chmoth = 'DC20'
      x = -41.5217
      y = -25.8199
      z = 0
      irot = 957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 958
      theta1 = 90
      phi1 = -146.25
      theta2 = 84
      phi2 = -56.25
      theta3 = 6
      phi3 = 123.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 912
      chmoth = 'DC20'
      x = -40.6547
      y = -27.1646
      z = 0
      irot = 958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 959
      theta1 = 90
      phi1 = -144.375
      theta2 = 84
      phi2 = -54.375
      theta3 = 6
      phi3 = 125.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 913
      chmoth = 'DC20'
      x = -39.7441
      y = -28.4802
      z = 0
      irot = 959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 960
      theta1 = 90
      phi1 = -142.5
      theta2 = 84
      phi2 = -52.5
      theta3 = 6
      phi3 = 127.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 914
      chmoth = 'DC20'
      x = -38.791
      y = -29.7654
      z = 0
      irot = 960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 961
      theta1 = 90
      phi1 = -140.625
      theta2 = 84
      phi2 = -50.625
      theta3 = 6
      phi3 = 129.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 915
      chmoth = 'DC20'
      x = -37.7963
      y = -31.0187
      z = 0
      irot = 961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 962
      theta1 = 90
      phi1 = -138.75
      theta2 = 84
      phi2 = -48.75
      theta3 = 6
      phi3 = 131.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 916
      chmoth = 'DC20'
      x = -36.7612
      y = -32.2387
      z = 0
      irot = 962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 963
      theta1 = 90
      phi1 = -136.875
      theta2 = 84
      phi2 = -46.875
      theta3 = 6
      phi3 = 133.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 917
      chmoth = 'DC20'
      x = -35.6867
      y = -33.4242
      z = 0
      irot = 963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 964
      theta1 = 90
      phi1 = -135
      theta2 = 84
      phi2 = -45
      theta3 = 6
      phi3 = 135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 918
      chmoth = 'DC20'
      x = -34.574
      y = -34.574
      z = 0
      irot = 964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 965
      theta1 = 90
      phi1 = -133.125
      theta2 = 84
      phi2 = -43.125
      theta3 = 6
      phi3 = 136.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 919
      chmoth = 'DC20'
      x = -33.4242
      y = -35.6867
      z = 0
      irot = 965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 966
      theta1 = 90
      phi1 = -131.25
      theta2 = 84
      phi2 = -41.25
      theta3 = 6
      phi3 = 138.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 920
      chmoth = 'DC20'
      x = -32.2387
      y = -36.7612
      z = 0
      irot = 966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 967
      theta1 = 90
      phi1 = -129.375
      theta2 = 84
      phi2 = -39.375
      theta3 = 6
      phi3 = 140.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 921
      chmoth = 'DC20'
      x = -31.0187
      y = -37.7963
      z = 0
      irot = 967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 968
      theta1 = 90
      phi1 = -127.5
      theta2 = 84
      phi2 = -37.5
      theta3 = 6
      phi3 = 142.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 922
      chmoth = 'DC20'
      x = -29.7654
      y = -38.791
      z = 0
      irot = 968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 969
      theta1 = 90
      phi1 = -125.625
      theta2 = 84
      phi2 = -35.625
      theta3 = 6
      phi3 = 144.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 923
      chmoth = 'DC20'
      x = -28.4802
      y = -39.7441
      z = 0
      irot = 969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 970
      theta1 = 90
      phi1 = -123.75
      theta2 = 84
      phi2 = -33.75
      theta3 = 6
      phi3 = 146.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 924
      chmoth = 'DC20'
      x = -27.1646
      y = -40.6547
      z = 0
      irot = 970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 971
      theta1 = 90
      phi1 = -121.875
      theta2 = 84
      phi2 = -31.875
      theta3 = 6
      phi3 = 148.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 925
      chmoth = 'DC20'
      x = -25.8199
      y = -41.5217
      z = 0
      irot = 971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 972
      theta1 = 90
      phi1 = -120
      theta2 = 84
      phi2 = -30
      theta3 = 6
      phi3 = 150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 926
      chmoth = 'DC20'
      x = -24.4475
      y = -42.3443
      z = 0
      irot = 972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 973
      theta1 = 90
      phi1 = -118.125
      theta2 = 84
      phi2 = -28.125
      theta3 = 6
      phi3 = 151.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 927
      chmoth = 'DC20'
      x = -23.0489
      y = -43.1215
      z = 0
      irot = 973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 974
      theta1 = 90
      phi1 = -116.25
      theta2 = 84
      phi2 = -26.25
      theta3 = 6
      phi3 = 153.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 928
      chmoth = 'DC20'
      x = -21.6257
      y = -43.8526
      z = 0
      irot = 974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 975
      theta1 = 90
      phi1 = -114.375
      theta2 = 84
      phi2 = -24.375
      theta3 = 6
      phi3 = 155.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 929
      chmoth = 'DC20'
      x = -20.1793
      y = -44.5367
      z = 0
      irot = 975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 976
      theta1 = 90
      phi1 = -112.5
      theta2 = 84
      phi2 = -22.5
      theta3 = 6
      phi3 = 157.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 930
      chmoth = 'DC20'
      x = -18.7113
      y = -45.1731
      z = 0
      irot = 976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 977
      theta1 = 90
      phi1 = -110.625
      theta2 = 84
      phi2 = -20.625
      theta3 = 6
      phi3 = 159.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 931
      chmoth = 'DC20'
      x = -17.2233
      y = -45.7611
      z = 0
      irot = 977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 978
      theta1 = 90
      phi1 = -108.75
      theta2 = 84
      phi2 = -18.75
      theta3 = 6
      phi3 = 161.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 932
      chmoth = 'DC20'
      x = -15.7168
      y = -46.3001
      z = 0
      irot = 978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 979
      theta1 = 90
      phi1 = -106.875
      theta2 = 84
      phi2 = -16.875
      theta3 = 6
      phi3 = 163.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 933
      chmoth = 'DC20'
      x = -14.1935
      y = -46.7896
      z = 0
      irot = 979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 980
      theta1 = 90
      phi1 = -105
      theta2 = 84
      phi2 = -15
      theta3 = 6
      phi3 = 165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 934
      chmoth = 'DC20'
      x = -12.655
      y = -47.2289
      z = 0
      irot = 980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 981
      theta1 = 90
      phi1 = -103.125
      theta2 = 84
      phi2 = -13.125
      theta3 = 6
      phi3 = 166.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 935
      chmoth = 'DC20'
      x = -11.1029
      y = -47.6177
      z = 0
      irot = 981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 982
      theta1 = 90
      phi1 = -101.25
      theta2 = 84
      phi2 = -11.25
      theta3 = 6
      phi3 = 168.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 936
      chmoth = 'DC20'
      x = -9.53894
      y = -47.9555
      z = 0
      irot = 982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 983
      theta1 = 90
      phi1 = -99.375
      theta2 = 84
      phi2 = -9.375
      theta3 = 6
      phi3 = 170.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 937
      chmoth = 'DC20'
      x = -7.96477
      y = -48.2419
      z = 0
      irot = 983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 984
      theta1 = 90
      phi1 = -97.5
      theta2 = 84
      phi2 = -7.5
      theta3 = 6
      phi3 = 172.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 938
      chmoth = 'DC20'
      x = -6.38208
      y = -48.4767
      z = 0
      irot = 984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 985
      theta1 = 90
      phi1 = -95.625
      theta2 = 84
      phi2 = -5.625
      theta3 = 6
      phi3 = 174.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 939
      chmoth = 'DC20'
      x = -4.79255
      y = -48.6596
      z = 0
      irot = 985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 986
      theta1 = 90
      phi1 = -93.75
      theta2 = 84
      phi2 = -3.75
      theta3 = 6
      phi3 = 176.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 940
      chmoth = 'DC20'
      x = -3.19789
      y = -48.7903
      z = 0
      irot = 986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 987
      theta1 = 90
      phi1 = -91.875
      theta2 = 84
      phi2 = -1.875
      theta3 = 6
      phi3 = 178.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 941
      chmoth = 'DC20'
      x = -1.5998
      y = -48.8688
      z = 0
      irot = 987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 988
      theta1 = 90
      phi1 = -90
      theta2 = 84
      phi2 = 7.52808e-13
      theta3 = 6
      phi3 = -180
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 942
      chmoth = 'DC20'
      x = -8.98157e-15
      y = -48.895
      z = 0
      irot = 988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 989
      theta1 = 90
      phi1 = -88.125
      theta2 = 84
      phi2 = 1.875
      theta3 = 6
      phi3 = -178.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 943
      chmoth = 'DC20'
      x = 1.5998
      y = -48.8688
      z = 0
      irot = 989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 990
      theta1 = 90
      phi1 = -86.25
      theta2 = 84
      phi2 = 3.75
      theta3 = 6
      phi3 = -176.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 944
      chmoth = 'DC20'
      x = 3.19789
      y = -48.7903
      z = 0
      irot = 990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 991
      theta1 = 90
      phi1 = -84.375
      theta2 = 84
      phi2 = 5.625
      theta3 = 6
      phi3 = -174.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 945
      chmoth = 'DC20'
      x = 4.79255
      y = -48.6596
      z = 0
      irot = 991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 992
      theta1 = 90
      phi1 = -82.5
      theta2 = 84
      phi2 = 7.5
      theta3 = 6
      phi3 = -172.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 946
      chmoth = 'DC20'
      x = 6.38208
      y = -48.4767
      z = 0
      irot = 992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 993
      theta1 = 90
      phi1 = -80.625
      theta2 = 84
      phi2 = 9.375
      theta3 = 6
      phi3 = -170.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 947
      chmoth = 'DC20'
      x = 7.96477
      y = -48.2419
      z = 0
      irot = 993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 994
      theta1 = 90
      phi1 = -78.75
      theta2 = 84
      phi2 = 11.25
      theta3 = 6
      phi3 = -168.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 948
      chmoth = 'DC20'
      x = 9.53894
      y = -47.9555
      z = 0
      irot = 994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 995
      theta1 = 90
      phi1 = -76.875
      theta2 = 84
      phi2 = 13.125
      theta3 = 6
      phi3 = -166.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 949
      chmoth = 'DC20'
      x = 11.1029
      y = -47.6177
      z = 0
      irot = 995
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 996
      theta1 = 90
      phi1 = -75
      theta2 = 84
      phi2 = 15
      theta3 = 6
      phi3 = -165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 950
      chmoth = 'DC20'
      x = 12.655
      y = -47.2289
      z = 0
      irot = 996
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 997
      theta1 = 90
      phi1 = -73.125
      theta2 = 84
      phi2 = 16.875
      theta3 = 6
      phi3 = -163.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 951
      chmoth = 'DC20'
      x = 14.1935
      y = -46.7896
      z = 0
      irot = 997
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 998
      theta1 = 90
      phi1 = -71.25
      theta2 = 84
      phi2 = 18.75
      theta3 = 6
      phi3 = -161.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 952
      chmoth = 'DC20'
      x = 15.7168
      y = -46.3001
      z = 0
      irot = 998
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 999
      theta1 = 90
      phi1 = -69.375
      theta2 = 84
      phi2 = 20.625
      theta3 = 6
      phi3 = -159.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 953
      chmoth = 'DC20'
      x = 17.2233
      y = -45.7611
      z = 0
      irot = 999
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1000
      theta1 = 90
      phi1 = -67.5
      theta2 = 84
      phi2 = 22.5
      theta3 = 6
      phi3 = -157.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 954
      chmoth = 'DC20'
      x = 18.7113
      y = -45.1731
      z = 0
      irot = 1000
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1001
      theta1 = 90
      phi1 = -65.625
      theta2 = 84
      phi2 = 24.375
      theta3 = 6
      phi3 = -155.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 955
      chmoth = 'DC20'
      x = 20.1793
      y = -44.5367
      z = 0
      irot = 1001
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1002
      theta1 = 90
      phi1 = -63.75
      theta2 = 84
      phi2 = 26.25
      theta3 = 6
      phi3 = -153.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 956
      chmoth = 'DC20'
      x = 21.6257
      y = -43.8526
      z = 0
      irot = 1002
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1003
      theta1 = 90
      phi1 = -61.875
      theta2 = 84
      phi2 = 28.125
      theta3 = 6
      phi3 = -151.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 957
      chmoth = 'DC20'
      x = 23.0489
      y = -43.1215
      z = 0
      irot = 1003
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1004
      theta1 = 90
      phi1 = -60
      theta2 = 84
      phi2 = 30
      theta3 = 6
      phi3 = -150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 958
      chmoth = 'DC20'
      x = 24.4475
      y = -42.3443
      z = 0
      irot = 1004
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1005
      theta1 = 90
      phi1 = -58.125
      theta2 = 84
      phi2 = 31.875
      theta3 = 6
      phi3 = -148.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 959
      chmoth = 'DC20'
      x = 25.8199
      y = -41.5217
      z = 0
      irot = 1005
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1006
      theta1 = 90
      phi1 = -56.25
      theta2 = 84
      phi2 = 33.75
      theta3 = 6
      phi3 = -146.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 960
      chmoth = 'DC20'
      x = 27.1646
      y = -40.6547
      z = 0
      irot = 1006
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1007
      theta1 = 90
      phi1 = -54.375
      theta2 = 84
      phi2 = 35.625
      theta3 = 6
      phi3 = -144.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 961
      chmoth = 'DC20'
      x = 28.4802
      y = -39.7441
      z = 0
      irot = 1007
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1008
      theta1 = 90
      phi1 = -52.5
      theta2 = 84
      phi2 = 37.5
      theta3 = 6
      phi3 = -142.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 962
      chmoth = 'DC20'
      x = 29.7654
      y = -38.791
      z = 0
      irot = 1008
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1009
      theta1 = 90
      phi1 = -50.625
      theta2 = 84
      phi2 = 39.375
      theta3 = 6
      phi3 = -140.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 963
      chmoth = 'DC20'
      x = 31.0187
      y = -37.7963
      z = 0
      irot = 1009
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1010
      theta1 = 90
      phi1 = -48.75
      theta2 = 84
      phi2 = 41.25
      theta3 = 6
      phi3 = -138.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 964
      chmoth = 'DC20'
      x = 32.2387
      y = -36.7612
      z = 0
      irot = 1010
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1011
      theta1 = 90
      phi1 = -46.875
      theta2 = 84
      phi2 = 43.125
      theta3 = 6
      phi3 = -136.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 965
      chmoth = 'DC20'
      x = 33.4242
      y = -35.6867
      z = 0
      irot = 1011
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1012
      theta1 = 90
      phi1 = -45
      theta2 = 84
      phi2 = 45
      theta3 = 6
      phi3 = -135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 966
      chmoth = 'DC20'
      x = 34.574
      y = -34.574
      z = 0
      irot = 1012
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1013
      theta1 = 90
      phi1 = -43.125
      theta2 = 84
      phi2 = 46.875
      theta3 = 6
      phi3 = -133.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 967
      chmoth = 'DC20'
      x = 35.6867
      y = -33.4242
      z = 0
      irot = 1013
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1014
      theta1 = 90
      phi1 = -41.25
      theta2 = 84
      phi2 = 48.75
      theta3 = 6
      phi3 = -131.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 968
      chmoth = 'DC20'
      x = 36.7612
      y = -32.2387
      z = 0
      irot = 1014
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1015
      theta1 = 90
      phi1 = -39.375
      theta2 = 84
      phi2 = 50.625
      theta3 = 6
      phi3 = -129.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 969
      chmoth = 'DC20'
      x = 37.7963
      y = -31.0187
      z = 0
      irot = 1015
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1016
      theta1 = 90
      phi1 = -37.5
      theta2 = 84
      phi2 = 52.5
      theta3 = 6
      phi3 = -127.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 970
      chmoth = 'DC20'
      x = 38.791
      y = -29.7654
      z = 0
      irot = 1016
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1017
      theta1 = 90
      phi1 = -35.625
      theta2 = 84
      phi2 = 54.375
      theta3 = 6
      phi3 = -125.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 971
      chmoth = 'DC20'
      x = 39.7441
      y = -28.4802
      z = 0
      irot = 1017
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1018
      theta1 = 90
      phi1 = -33.75
      theta2 = 84
      phi2 = 56.25
      theta3 = 6
      phi3 = -123.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 972
      chmoth = 'DC20'
      x = 40.6547
      y = -27.1646
      z = 0
      irot = 1018
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1019
      theta1 = 90
      phi1 = -31.875
      theta2 = 84
      phi2 = 58.125
      theta3 = 6
      phi3 = -121.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 973
      chmoth = 'DC20'
      x = 41.5217
      y = -25.8199
      z = 0
      irot = 1019
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1020
      theta1 = 90
      phi1 = -30
      theta2 = 84
      phi2 = 60
      theta3 = 6
      phi3 = -120
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 974
      chmoth = 'DC20'
      x = 42.3443
      y = -24.4475
      z = 0
      irot = 1020
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1021
      theta1 = 90
      phi1 = -28.125
      theta2 = 84
      phi2 = 61.875
      theta3 = 6
      phi3 = -118.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 975
      chmoth = 'DC20'
      x = 43.1215
      y = -23.0489
      z = 0
      irot = 1021
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1022
      theta1 = 90
      phi1 = -26.25
      theta2 = 84
      phi2 = 63.75
      theta3 = 6
      phi3 = -116.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 976
      chmoth = 'DC20'
      x = 43.8526
      y = -21.6257
      z = 0
      irot = 1022
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1023
      theta1 = 90
      phi1 = -24.375
      theta2 = 84
      phi2 = 65.625
      theta3 = 6
      phi3 = -114.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 977
      chmoth = 'DC20'
      x = 44.5367
      y = -20.1793
      z = 0
      irot = 1023
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1024
      theta1 = 90
      phi1 = -22.5
      theta2 = 84
      phi2 = 67.5
      theta3 = 6
      phi3 = -112.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 978
      chmoth = 'DC20'
      x = 45.1731
      y = -18.7113
      z = 0
      irot = 1024
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1025
      theta1 = 90
      phi1 = -20.625
      theta2 = 84
      phi2 = 69.375
      theta3 = 6
      phi3 = -110.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 979
      chmoth = 'DC20'
      x = 45.7611
      y = -17.2233
      z = 0
      irot = 1025
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1026
      theta1 = 90
      phi1 = -18.75
      theta2 = 84
      phi2 = 71.25
      theta3 = 6
      phi3 = -108.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 980
      chmoth = 'DC20'
      x = 46.3001
      y = -15.7168
      z = 0
      irot = 1026
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1027
      theta1 = 90
      phi1 = -16.875
      theta2 = 84
      phi2 = 73.125
      theta3 = 6
      phi3 = -106.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 981
      chmoth = 'DC20'
      x = 46.7896
      y = -14.1935
      z = 0
      irot = 1027
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1028
      theta1 = 90
      phi1 = -15
      theta2 = 84
      phi2 = 75
      theta3 = 6
      phi3 = -105
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 982
      chmoth = 'DC20'
      x = 47.2289
      y = -12.655
      z = 0
      irot = 1028
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1029
      theta1 = 90
      phi1 = -13.125
      theta2 = 84
      phi2 = 76.875
      theta3 = 6
      phi3 = -103.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 983
      chmoth = 'DC20'
      x = 47.6177
      y = -11.1029
      z = 0
      irot = 1029
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1030
      theta1 = 90
      phi1 = -11.25
      theta2 = 84
      phi2 = 78.75
      theta3 = 6
      phi3 = -101.25
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 984
      chmoth = 'DC20'
      x = 47.9555
      y = -9.53894
      z = 0
      irot = 1030
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1031
      theta1 = 90
      phi1 = -9.375
      theta2 = 84
      phi2 = 80.625
      theta3 = 6
      phi3 = -99.375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 985
      chmoth = 'DC20'
      x = 48.2419
      y = -7.96477
      z = 0
      irot = 1031
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1032
      theta1 = 90
      phi1 = -7.5
      theta2 = 84
      phi2 = 82.5
      theta3 = 6
      phi3 = -97.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 986
      chmoth = 'DC20'
      x = 48.4767
      y = -6.38208
      z = 0
      irot = 1032
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1033
      theta1 = 90
      phi1 = -5.625
      theta2 = 84
      phi2 = 84.375
      theta3 = 6
      phi3 = -95.625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 987
      chmoth = 'DC20'
      x = 48.6596
      y = -4.79255
      z = 0
      irot = 1033
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1034
      theta1 = 90
      phi1 = -3.75
      theta2 = 84
      phi2 = 86.25
      theta3 = 6
      phi3 = -93.75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 988
      chmoth = 'DC20'
      x = 48.7903
      y = -3.19789
      z = 0
      irot = 1034
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1035
      theta1 = 90
      phi1 = -1.875
      theta2 = 84
      phi2 = 88.125
      theta3 = 6
      phi3 = -91.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 989
      chmoth = 'DC20'
      x = 48.8688
      y = -1.5998
      z = 0
      irot = 1035
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1036
      theta1 = 90
      phi1 = 0
      theta2 = 84
      phi2 = 90
      theta3 = 6
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 990
      chmoth = 'DC20'
      x = 50.677
      y = 0
      z = 0
      irot = 1036
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1037
      theta1 = 90
      phi1 = 1.80905
      theta2 = 84
      phi2 = 91.809
      theta3 = 6
      phi3 = -88.191
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 991
      chmoth = 'DC20'
      x = 50.6517
      y = 1.5998
      z = 0
      irot = 1037
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1038
      theta1 = 90
      phi1 = 3.61809
      theta2 = 84
      phi2 = 93.6181
      theta3 = 6
      phi3 = -86.3819
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 992
      chmoth = 'DC20'
      x = 50.576
      y = 3.198
      z = 0
      irot = 1038
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1039
      theta1 = 90
      phi1 = 5.42714
      theta2 = 84
      phi2 = 95.4271
      theta3 = 6
      phi3 = -84.5729
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 993
      chmoth = 'DC20'
      x = 50.4498
      y = 4.79302
      z = 0
      irot = 1039
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1040
      theta1 = 90
      phi1 = 7.23618
      theta2 = 84
      phi2 = 97.2362
      theta3 = 6
      phi3 = -82.7638
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 994
      chmoth = 'DC20'
      x = 50.2734
      y = 6.38326
      z = 0
      irot = 1040
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1041
      theta1 = 90
      phi1 = 9.04523
      theta2 = 84
      phi2 = 99.0452
      theta3 = 6
      phi3 = -80.9548
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 995
      chmoth = 'DC20'
      x = 50.0468
      y = 7.96714
      z = 0
      irot = 1041
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1042
      theta1 = 90
      phi1 = 10.8543
      theta2 = 84
      phi2 = 100.854
      theta3 = 6
      phi3 = -79.1457
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 996
      chmoth = 'DC20'
      x = 49.7704
      y = 9.54307
      z = 0
      irot = 1042
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1043
      theta1 = 90
      phi1 = 12.6633
      theta2 = 84
      phi2 = 102.663
      theta3 = 6
      phi3 = -77.3367
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 997
      chmoth = 'DC20'
      x = 49.4443
      y = 11.1095
      z = 0
      irot = 1043
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1044
      theta1 = 90
      phi1 = 14.4724
      theta2 = 84
      phi2 = 104.472
      theta3 = 6
      phi3 = -75.5276
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 998
      chmoth = 'DC20'
      x = 49.0689
      y = 12.6648
      z = 0
      irot = 1044
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1045
      theta1 = 90
      phi1 = 16.2814
      theta2 = 84
      phi2 = 106.281
      theta3 = 6
      phi3 = -73.7186
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 999
      chmoth = 'DC20'
      x = 48.6447
      y = 14.2076
      z = 0
      irot = 1045
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1046
      theta1 = 90
      phi1 = 18.0905
      theta2 = 84
      phi2 = 108.09
      theta3 = 6
      phi3 = -71.9095
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1000
      chmoth = 'DC20'
      x = 48.1719
      y = 15.7361
      z = 0
      irot = 1046
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1047
      theta1 = 90
      phi1 = 19.8995
      theta2 = 84
      phi2 = 109.899
      theta3 = 6
      phi3 = -70.1005
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1001
      chmoth = 'DC20'
      x = 47.6511
      y = 17.249
      z = 0
      irot = 1047
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1048
      theta1 = 90
      phi1 = 21.7085
      theta2 = 84
      phi2 = 111.709
      theta3 = 6
      phi3 = -68.2915
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1002
      chmoth = 'DC20'
      x = 47.0829
      y = 18.7447
      z = 0
      irot = 1048
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1049
      theta1 = 90
      phi1 = 23.5176
      theta2 = 84
      phi2 = 113.518
      theta3 = 6
      phi3 = -66.4824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1003
      chmoth = 'DC20'
      x = 46.4676
      y = 20.2217
      z = 0
      irot = 1049
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1050
      theta1 = 90
      phi1 = 25.3266
      theta2 = 84
      phi2 = 115.327
      theta3 = 6
      phi3 = -64.6734
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1004
      chmoth = 'DC20'
      x = 45.8061
      y = 21.6785
      z = 0
      irot = 1050
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1051
      theta1 = 90
      phi1 = 27.1357
      theta2 = 84
      phi2 = 117.136
      theta3 = 6
      phi3 = -62.8643
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1005
      chmoth = 'DC20'
      x = 45.0989
      y = 23.1137
      z = 0
      irot = 1051
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1052
      theta1 = 90
      phi1 = 28.9447
      theta2 = 84
      phi2 = 118.945
      theta3 = 6
      phi3 = -61.0553
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1006
      chmoth = 'DC20'
      x = 44.3468
      y = 24.5259
      z = 0
      irot = 1052
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1053
      theta1 = 90
      phi1 = 30.7538
      theta2 = 84
      phi2 = 120.754
      theta3 = 6
      phi3 = -59.2462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1007
      chmoth = 'DC20'
      x = 43.5504
      y = 25.9137
      z = 0
      irot = 1053
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1054
      theta1 = 90
      phi1 = 32.5628
      theta2 = 84
      phi2 = 122.563
      theta3 = 6
      phi3 = -57.4372
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1008
      chmoth = 'DC20'
      x = 42.7107
      y = 27.2756
      z = 0
      irot = 1054
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1055
      theta1 = 90
      phi1 = 34.3719
      theta2 = 84
      phi2 = 124.372
      theta3 = 6
      phi3 = -55.6281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1009
      chmoth = 'DC20'
      x = 41.8283
      y = 28.6103
      z = 0
      irot = 1055
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1056
      theta1 = 90
      phi1 = 36.1809
      theta2 = 84
      phi2 = 126.181
      theta3 = 6
      phi3 = -53.8191
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1010
      chmoth = 'DC20'
      x = 40.9043
      y = 29.9165
      z = 0
      irot = 1056
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1057
      theta1 = 90
      phi1 = 37.9899
      theta2 = 84
      phi2 = 127.99
      theta3 = 6
      phi3 = -52.0101
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1011
      chmoth = 'DC20'
      x = 39.9395
      y = 31.1929
      z = 0
      irot = 1057
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1058
      theta1 = 90
      phi1 = 39.799
      theta2 = 84
      phi2 = 129.799
      theta3 = 6
      phi3 = -50.201
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1012
      chmoth = 'DC20'
      x = 38.9349
      y = 32.4382
      z = 0
      irot = 1058
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1059
      theta1 = 90
      phi1 = 41.608
      theta2 = 84
      phi2 = 131.608
      theta3 = 6
      phi3 = -48.392
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1013
      chmoth = 'DC20'
      x = 37.8914
      y = 33.6511
      z = 0
      irot = 1059
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1060
      theta1 = 90
      phi1 = 43.4171
      theta2 = 84
      phi2 = 133.417
      theta3 = 6
      phi3 = -46.5829
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1014
      chmoth = 'DC20'
      x = 36.8102
      y = 34.8305
      z = 0
      irot = 1060
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1061
      theta1 = 90
      phi1 = 45.2261
      theta2 = 84
      phi2 = 135.226
      theta3 = 6
      phi3 = -44.7739
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1015
      chmoth = 'DC20'
      x = 35.6923
      y = 35.9752
      z = 0
      irot = 1061
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1062
      theta1 = 90
      phi1 = 47.0352
      theta2 = 84
      phi2 = 137.035
      theta3 = 6
      phi3 = -42.9648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1016
      chmoth = 'DC20'
      x = 34.5389
      y = 37.084
      z = 0
      irot = 1062
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1063
      theta1 = 90
      phi1 = 48.8442
      theta2 = 84
      phi2 = 138.844
      theta3 = 6
      phi3 = -41.1558
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1017
      chmoth = 'DC20'
      x = 33.351
      y = 38.1559
      z = 0
      irot = 1063
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1064
      theta1 = 90
      phi1 = 50.6533
      theta2 = 84
      phi2 = 140.653
      theta3 = 6
      phi3 = -39.3467
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1018
      chmoth = 'DC20'
      x = 32.1298
      y = 39.1897
      z = 0
      irot = 1064
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1065
      theta1 = 90
      phi1 = 52.4623
      theta2 = 84
      phi2 = 142.462
      theta3 = 6
      phi3 = -37.5377
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1019
      chmoth = 'DC20'
      x = 30.8766
      y = 40.1845
      z = 0
      irot = 1065
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1066
      theta1 = 90
      phi1 = 54.2714
      theta2 = 84
      phi2 = 144.271
      theta3 = 6
      phi3 = -35.7286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1020
      chmoth = 'DC20'
      x = 29.5927
      y = 41.1392
      z = 0
      irot = 1066
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1067
      theta1 = 90
      phi1 = 56.0804
      theta2 = 84
      phi2 = 146.08
      theta3 = 6
      phi3 = -33.9196
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1021
      chmoth = 'DC20'
      x = 28.2792
      y = 42.0529
      z = 0
      irot = 1067
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1068
      theta1 = 90
      phi1 = 57.8894
      theta2 = 84
      phi2 = 147.889
      theta3 = 6
      phi3 = -32.1106
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1022
      chmoth = 'DC20'
      x = 26.9376
      y = 42.9246
      z = 0
      irot = 1068
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1069
      theta1 = 90
      phi1 = 59.6985
      theta2 = 84
      phi2 = 149.698
      theta3 = 6
      phi3 = -30.3015
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1023
      chmoth = 'DC20'
      x = 25.5691
      y = 43.7536
      z = 0
      irot = 1069
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1070
      theta1 = 90
      phi1 = 61.5075
      theta2 = 84
      phi2 = 151.508
      theta3 = 6
      phi3 = -28.4925
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1024
      chmoth = 'DC20'
      x = 24.1751
      y = 44.539
      z = 0
      irot = 1070
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1071
      theta1 = 90
      phi1 = 63.3166
      theta2 = 84
      phi2 = 153.317
      theta3 = 6
      phi3 = -26.6834
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1025
      chmoth = 'DC20'
      x = 22.757
      y = 45.28
      z = 0
      irot = 1071
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1072
      theta1 = 90
      phi1 = 65.1256
      theta2 = 84
      phi2 = 155.126
      theta3 = 6
      phi3 = -24.8744
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1026
      chmoth = 'DC20'
      x = 21.3163
      y = 45.9758
      z = 0
      irot = 1072
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1073
      theta1 = 90
      phi1 = 66.9347
      theta2 = 84
      phi2 = 156.935
      theta3 = 6
      phi3 = -23.0653
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1027
      chmoth = 'DC20'
      x = 19.8543
      y = 46.6258
      z = 0
      irot = 1073
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1074
      theta1 = 90
      phi1 = 68.7437
      theta2 = 84
      phi2 = 158.744
      theta3 = 6
      phi3 = -21.2563
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1028
      chmoth = 'DC20'
      x = 18.3725
      y = 47.2293
      z = 0
      irot = 1074
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1075
      theta1 = 90
      phi1 = 70.5528
      theta2 = 84
      phi2 = 160.553
      theta3 = 6
      phi3 = -19.4472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1029
      chmoth = 'DC20'
      x = 16.8723
      y = 47.7858
      z = 0
      irot = 1075
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1076
      theta1 = 90
      phi1 = 72.3618
      theta2 = 84
      phi2 = 162.362
      theta3 = 6
      phi3 = -17.6382
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1030
      chmoth = 'DC20'
      x = 15.3554
      y = 48.2946
      z = 0
      irot = 1076
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1077
      theta1 = 90
      phi1 = 74.1709
      theta2 = 84
      phi2 = 164.171
      theta3 = 6
      phi3 = -15.8291
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1031
      chmoth = 'DC20'
      x = 13.8231
      y = 48.7553
      z = 0
      irot = 1077
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1078
      theta1 = 90
      phi1 = 75.9799
      theta2 = 84
      phi2 = 165.98
      theta3 = 6
      phi3 = -14.0201
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1032
      chmoth = 'DC20'
      x = 12.2771
      y = 49.1674
      z = 0
      irot = 1078
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1079
      theta1 = 90
      phi1 = 77.7889
      theta2 = 84
      phi2 = 167.789
      theta3 = 6
      phi3 = -12.2111
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1033
      chmoth = 'DC20'
      x = 10.7189
      y = 49.5304
      z = 0
      irot = 1079
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1080
      theta1 = 90
      phi1 = 79.598
      theta2 = 84
      phi2 = 169.598
      theta3 = 6
      phi3 = -10.402
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1034
      chmoth = 'DC20'
      x = 9.14992
      y = 49.8441
      z = 0
      irot = 1080
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1081
      theta1 = 90
      phi1 = 81.407
      theta2 = 84
      phi2 = 171.407
      theta3 = 6
      phi3 = -8.59296
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1035
      chmoth = 'DC20'
      x = 7.57185
      y = 50.1081
      z = 0
      irot = 1081
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1082
      theta1 = 90
      phi1 = 83.2161
      theta2 = 84
      phi2 = 173.216
      theta3 = 6
      phi3 = -6.78392
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1036
      chmoth = 'DC20'
      x = 5.98623
      y = 50.3222
      z = 0
      irot = 1082
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1083
      theta1 = 90
      phi1 = 85.0251
      theta2 = 84
      phi2 = 175.025
      theta3 = 6
      phi3 = -4.97487
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1037
      chmoth = 'DC20'
      x = 4.39465
      y = 50.4861
      z = 0
      irot = 1083
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1084
      theta1 = 90
      phi1 = 86.8342
      theta2 = 84
      phi2 = 176.834
      theta3 = 6
      phi3 = -3.16583
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1038
      chmoth = 'DC20'
      x = 2.79869
      y = 50.5997
      z = 0
      irot = 1084
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1085
      theta1 = 90
      phi1 = 88.6432
      theta2 = 84
      phi2 = 178.643
      theta3 = 6
      phi3 = -1.35678
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1039
      chmoth = 'DC20'
      x = 1.19994
      y = 50.6628
      z = 0
      irot = 1085
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1086
      theta1 = 90
      phi1 = 90.4523
      theta2 = 84
      phi2 = -179.548
      theta3 = 6
      phi3 = 0.452261
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1040
      chmoth = 'DC20'
      x = -0.400012
      y = 50.6754
      z = 0
      irot = 1086
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1087
      theta1 = 90
      phi1 = 92.2613
      theta2 = 84
      phi2 = -177.739
      theta3 = 6
      phi3 = 2.26131
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1041
      chmoth = 'DC20'
      x = -1.99956
      y = 50.6375
      z = 0
      irot = 1087
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1088
      theta1 = 90
      phi1 = 94.0704
      theta2 = 84
      phi2 = -175.93
      theta3 = 6
      phi3 = 4.07035
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1042
      chmoth = 'DC20'
      x = -3.59712
      y = 50.5492
      z = 0
      irot = 1088
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1089
      theta1 = 90
      phi1 = 95.8794
      theta2 = 84
      phi2 = -174.121
      theta3 = 6
      phi3 = 5.8794
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1043
      chmoth = 'DC20'
      x = -5.19109
      y = 50.4104
      z = 0
      irot = 1089
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1090
      theta1 = 90
      phi1 = 97.6884
      theta2 = 84
      phi2 = -172.312
      theta3 = 6
      phi3 = 7.68844
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1044
      chmoth = 'DC20'
      x = -6.77989
      y = 50.2214
      z = 0
      irot = 1090
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1091
      theta1 = 90
      phi1 = 99.4975
      theta2 = 84
      phi2 = -170.503
      theta3 = 6
      phi3 = 9.49749
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1045
      chmoth = 'DC20'
      x = -8.36193
      y = 49.9824
      z = 0
      irot = 1091
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1092
      theta1 = 90
      phi1 = 101.307
      theta2 = 84
      phi2 = -168.693
      theta3 = 6
      phi3 = 11.3065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1046
      chmoth = 'DC20'
      x = -9.93563
      y = 49.6935
      z = 0
      irot = 1092
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1093
      theta1 = 90
      phi1 = 103.116
      theta2 = 84
      phi2 = -166.884
      theta3 = 6
      phi3 = 13.1156
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1047
      chmoth = 'DC20'
      x = -11.4994
      y = 49.3551
      z = 0
      irot = 1093
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1094
      theta1 = 90
      phi1 = 104.925
      theta2 = 84
      phi2 = -165.075
      theta3 = 6
      phi3 = 14.9246
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1048
      chmoth = 'DC20'
      x = -13.0518
      y = 48.9674
      z = 0
      irot = 1094
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1095
      theta1 = 90
      phi1 = 106.734
      theta2 = 84
      phi2 = -163.266
      theta3 = 6
      phi3 = 16.7337
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1049
      chmoth = 'DC20'
      x = -14.5911
      y = 48.531
      z = 0
      irot = 1095
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1096
      theta1 = 90
      phi1 = 108.543
      theta2 = 84
      phi2 = -161.457
      theta3 = 6
      phi3 = 18.5427
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1050
      chmoth = 'DC20'
      x = -16.1159
      y = 48.0462
      z = 0
      irot = 1096
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1097
      theta1 = 90
      phi1 = 110.352
      theta2 = 84
      phi2 = -159.648
      theta3 = 6
      phi3 = 20.3518
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1051
      chmoth = 'DC20'
      x = -17.6246
      y = 47.5135
      z = 0
      irot = 1097
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1098
      theta1 = 90
      phi1 = 112.161
      theta2 = 84
      phi2 = -157.839
      theta3 = 6
      phi3 = 22.1608
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1052
      chmoth = 'DC20'
      x = -19.1157
      y = 46.9334
      z = 0
      irot = 1098
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1099
      theta1 = 90
      phi1 = 113.97
      theta2 = 84
      phi2 = -156.03
      theta3 = 6
      phi3 = 23.9698
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1053
      chmoth = 'DC20'
      x = -20.5878
      y = 46.3066
      z = 0
      irot = 1099
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1100
      theta1 = 90
      phi1 = 115.779
      theta2 = 84
      phi2 = -154.221
      theta3 = 6
      phi3 = 25.7789
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1054
      chmoth = 'DC20'
      x = -22.0394
      y = 45.6336
      z = 0
      irot = 1100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1101
      theta1 = 90
      phi1 = 117.588
      theta2 = 84
      phi2 = -152.412
      theta3 = 6
      phi3 = 27.5879
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1055
      chmoth = 'DC20'
      x = -23.469
      y = 44.9151
      z = 0
      irot = 1101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1102
      theta1 = 90
      phi1 = 119.397
      theta2 = 84
      phi2 = -150.603
      theta3 = 6
      phi3 = 29.397
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1056
      chmoth = 'DC20'
      x = -24.8752
      y = 44.1518
      z = 0
      irot = 1102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1103
      theta1 = 90
      phi1 = 121.206
      theta2 = 84
      phi2 = -148.794
      theta3 = 6
      phi3 = 31.206
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1057
      chmoth = 'DC20'
      x = -26.2566
      y = 43.3445
      z = 0
      irot = 1103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1104
      theta1 = 90
      phi1 = 123.015
      theta2 = 84
      phi2 = -146.985
      theta3 = 6
      phi3 = 33.0151
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1058
      chmoth = 'DC20'
      x = -27.6119
      y = 42.494
      z = 0
      irot = 1104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1105
      theta1 = 90
      phi1 = 124.824
      theta2 = 84
      phi2 = -145.176
      theta3 = 6
      phi3 = 34.8241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1059
      chmoth = 'DC20'
      x = -28.9396
      y = 41.6012
      z = 0
      irot = 1105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1106
      theta1 = 90
      phi1 = 126.633
      theta2 = 84
      phi2 = -143.367
      theta3 = 6
      phi3 = 36.6332
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1060
      chmoth = 'DC20'
      x = -30.2384
      y = 40.6669
      z = 0
      irot = 1106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1107
      theta1 = 90
      phi1 = 128.442
      theta2 = 84
      phi2 = -141.558
      theta3 = 6
      phi3 = 38.4422
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1061
      chmoth = 'DC20'
      x = -31.5072
      y = 39.692
      z = 0
      irot = 1107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1108
      theta1 = 90
      phi1 = 130.251
      theta2 = 84
      phi2 = -139.749
      theta3 = 6
      phi3 = 40.2513
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1062
      chmoth = 'DC20'
      x = -32.7445
      y = 38.6776
      z = 0
      irot = 1108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1109
      theta1 = 90
      phi1 = 132.06
      theta2 = 84
      phi2 = -137.94
      theta3 = 6
      phi3 = 42.0603
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1063
      chmoth = 'DC20'
      x = -33.9491
      y = 37.6246
      z = 0
      irot = 1109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1110
      theta1 = 90
      phi1 = 133.869
      theta2 = 84
      phi2 = -136.131
      theta3 = 6
      phi3 = 43.8693
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1064
      chmoth = 'DC20'
      x = -35.12
      y = 36.5342
      z = 0
      irot = 1110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1111
      theta1 = 90
      phi1 = 135.678
      theta2 = 84
      phi2 = -134.322
      theta3 = 6
      phi3 = 45.6784
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1065
      chmoth = 'DC20'
      x = -36.2558
      y = 35.4073
      z = 0
      irot = 1111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1112
      theta1 = 90
      phi1 = 137.487
      theta2 = 84
      phi2 = -132.513
      theta3 = 6
      phi3 = 47.4874
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1066
      chmoth = 'DC20'
      x = -37.3555
      y = 34.2451
      z = 0
      irot = 1112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1113
      theta1 = 90
      phi1 = 139.296
      theta2 = 84
      phi2 = -130.704
      theta3 = 6
      phi3 = 49.2965
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1067
      chmoth = 'DC20'
      x = -38.4179
      y = 33.0487
      z = 0
      irot = 1113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1114
      theta1 = 90
      phi1 = 141.106
      theta2 = 84
      phi2 = -128.894
      theta3 = 6
      phi3 = 51.1055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1068
      chmoth = 'DC20'
      x = -39.4421
      y = 31.8195
      z = 0
      irot = 1114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1115
      theta1 = 90
      phi1 = 142.915
      theta2 = 84
      phi2 = -127.085
      theta3 = 6
      phi3 = 52.9146
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1069
      chmoth = 'DC20'
      x = -40.4269
      y = 30.5585
      z = 0
      irot = 1115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1116
      theta1 = 90
      phi1 = 144.724
      theta2 = 84
      phi2 = -125.276
      theta3 = 6
      phi3 = 54.7236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1070
      chmoth = 'DC20'
      x = -41.3715
      y = 29.267
      z = 0
      irot = 1116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1117
      theta1 = 90
      phi1 = 146.533
      theta2 = 84
      phi2 = -123.467
      theta3 = 6
      phi3 = 56.5327
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1071
      chmoth = 'DC20'
      x = -42.2748
      y = 27.9464
      z = 0
      irot = 1117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1118
      theta1 = 90
      phi1 = 148.342
      theta2 = 84
      phi2 = -121.658
      theta3 = 6
      phi3 = 58.3417
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1072
      chmoth = 'DC20'
      x = -43.1359
      y = 26.5979
      z = 0
      irot = 1118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1119
      theta1 = 90
      phi1 = 150.151
      theta2 = 84
      phi2 = -119.849
      theta3 = 6
      phi3 = 60.1508
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1073
      chmoth = 'DC20'
      x = -43.9541
      y = 25.2229
      z = 0
      irot = 1119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1120
      theta1 = 90
      phi1 = 151.96
      theta2 = 84
      phi2 = -118.04
      theta3 = 6
      phi3 = 61.9598
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1074
      chmoth = 'DC20'
      x = -44.7284
      y = 23.8228
      z = 0
      irot = 1120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1121
      theta1 = 90
      phi1 = 153.769
      theta2 = 84
      phi2 = -116.231
      theta3 = 6
      phi3 = 63.7688
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1075
      chmoth = 'DC20'
      x = -45.4582
      y = 22.3989
      z = 0
      irot = 1121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1122
      theta1 = 90
      phi1 = 155.578
      theta2 = 84
      phi2 = -114.422
      theta3 = 6
      phi3 = 65.5779
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1076
      chmoth = 'DC20'
      x = -46.1426
      y = 20.9527
      z = 0
      irot = 1122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1123
      theta1 = 90
      phi1 = 157.387
      theta2 = 84
      phi2 = -112.613
      theta3 = 6
      phi3 = 67.3869
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1077
      chmoth = 'DC20'
      x = -46.7811
      y = 19.4856
      z = 0
      irot = 1123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1124
      theta1 = 90
      phi1 = 159.196
      theta2 = 84
      phi2 = -110.804
      theta3 = 6
      phi3 = 69.196
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1078
      chmoth = 'DC20'
      x = -47.3729
      y = 17.9991
      z = 0
      irot = 1124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1125
      theta1 = 90
      phi1 = 161.005
      theta2 = 84
      phi2 = -108.995
      theta3 = 6
      phi3 = 71.005
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1079
      chmoth = 'DC20'
      x = -47.9175
      y = 16.4946
      z = 0
      irot = 1125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1126
      theta1 = 90
      phi1 = 162.814
      theta2 = 84
      phi2 = -107.186
      theta3 = 6
      phi3 = 72.8141
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1080
      chmoth = 'DC20'
      x = -48.4143
      y = 14.9737
      z = 0
      irot = 1126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1127
      theta1 = 90
      phi1 = 164.623
      theta2 = 84
      phi2 = -105.377
      theta3 = 6
      phi3 = 74.6231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1081
      chmoth = 'DC20'
      x = -48.8629
      y = 13.4379
      z = 0
      irot = 1127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1128
      theta1 = 90
      phi1 = 166.432
      theta2 = 84
      phi2 = -103.568
      theta3 = 6
      phi3 = 76.4322
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1082
      chmoth = 'DC20'
      x = -49.2627
      y = 11.8886
      z = 0
      irot = 1128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1129
      theta1 = 90
      phi1 = 168.241
      theta2 = 84
      phi2 = -101.759
      theta3 = 6
      phi3 = 78.2412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1083
      chmoth = 'DC20'
      x = -49.6135
      y = 10.3276
      z = 0
      irot = 1129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1130
      theta1 = 90
      phi1 = 170.05
      theta2 = 84
      phi2 = -99.9497
      theta3 = 6
      phi3 = 80.0503
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1084
      chmoth = 'DC20'
      x = -49.9148
      y = 8.75619
      z = 0
      irot = 1130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1131
      theta1 = 90
      phi1 = 171.859
      theta2 = 84
      phi2 = -98.1407
      theta3 = 6
      phi3 = 81.8593
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1085
      chmoth = 'DC20'
      x = -50.1663
      y = 7.17609
      z = 0
      irot = 1131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1132
      theta1 = 90
      phi1 = 173.668
      theta2 = 84
      phi2 = -96.3317
      theta3 = 6
      phi3 = 83.6683
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1086
      chmoth = 'DC20'
      x = -50.3679
      y = 5.58884
      z = 0
      irot = 1132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1133
      theta1 = 90
      phi1 = 175.477
      theta2 = 84
      phi2 = -94.5226
      theta3 = 6
      phi3 = 85.4774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1087
      chmoth = 'DC20'
      x = -50.5192
      y = 3.99601
      z = 0
      irot = 1133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1134
      theta1 = 90
      phi1 = 177.286
      theta2 = 84
      phi2 = -92.7136
      theta3 = 6
      phi3 = 87.2864
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1088
      chmoth = 'DC20'
      x = -50.6202
      y = 2.3992
      z = 0
      irot = 1134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1135
      theta1 = 90
      phi1 = 179.095
      theta2 = 84
      phi2 = -90.9045
      theta3 = 6
      phi3 = 89.0955
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1089
      chmoth = 'DC20'
      x = -50.6707
      y = 0.799999
      z = 0
      irot = 1135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1136
      theta1 = 90
      phi1 = -179.095
      theta2 = 84
      phi2 = -89.0955
      theta3 = 6
      phi3 = 90.9045
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1090
      chmoth = 'DC20'
      x = -50.6707
      y = -0.799999
      z = 0
      irot = 1136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1137
      theta1 = 90
      phi1 = -177.286
      theta2 = 84
      phi2 = -87.2864
      theta3 = 6
      phi3 = 92.7136
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1091
      chmoth = 'DC20'
      x = -50.6202
      y = -2.3992
      z = 0
      irot = 1137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1138
      theta1 = 90
      phi1 = -175.477
      theta2 = 84
      phi2 = -85.4774
      theta3 = 6
      phi3 = 94.5226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1092
      chmoth = 'DC20'
      x = -50.5192
      y = -3.99601
      z = 0
      irot = 1138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1139
      theta1 = 90
      phi1 = -173.668
      theta2 = 84
      phi2 = -83.6683
      theta3 = 6
      phi3 = 96.3317
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1093
      chmoth = 'DC20'
      x = -50.3679
      y = -5.58884
      z = 0
      irot = 1139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1140
      theta1 = 90
      phi1 = -171.859
      theta2 = 84
      phi2 = -81.8593
      theta3 = 6
      phi3 = 98.1407
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1094
      chmoth = 'DC20'
      x = -50.1663
      y = -7.17609
      z = 0
      irot = 1140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1141
      theta1 = 90
      phi1 = -170.05
      theta2 = 84
      phi2 = -80.0503
      theta3 = 6
      phi3 = 99.9497
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1095
      chmoth = 'DC20'
      x = -49.9148
      y = -8.75619
      z = 0
      irot = 1141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1142
      theta1 = 90
      phi1 = -168.241
      theta2 = 84
      phi2 = -78.2412
      theta3 = 6
      phi3 = 101.759
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1096
      chmoth = 'DC20'
      x = -49.6135
      y = -10.3276
      z = 0
      irot = 1142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1143
      theta1 = 90
      phi1 = -166.432
      theta2 = 84
      phi2 = -76.4322
      theta3 = 6
      phi3 = 103.568
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1097
      chmoth = 'DC20'
      x = -49.2627
      y = -11.8886
      z = 0
      irot = 1143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1144
      theta1 = 90
      phi1 = -164.623
      theta2 = 84
      phi2 = -74.6231
      theta3 = 6
      phi3 = 105.377
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1098
      chmoth = 'DC20'
      x = -48.8629
      y = -13.4379
      z = 0
      irot = 1144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1145
      theta1 = 90
      phi1 = -162.814
      theta2 = 84
      phi2 = -72.8141
      theta3 = 6
      phi3 = 107.186
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1099
      chmoth = 'DC20'
      x = -48.4143
      y = -14.9737
      z = 0
      irot = 1145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1146
      theta1 = 90
      phi1 = -161.005
      theta2 = 84
      phi2 = -71.005
      theta3 = 6
      phi3 = 108.995
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1100
      chmoth = 'DC20'
      x = -47.9175
      y = -16.4946
      z = 0
      irot = 1146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1147
      theta1 = 90
      phi1 = -159.196
      theta2 = 84
      phi2 = -69.196
      theta3 = 6
      phi3 = 110.804
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1101
      chmoth = 'DC20'
      x = -47.3729
      y = -17.9991
      z = 0
      irot = 1147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1148
      theta1 = 90
      phi1 = -157.387
      theta2 = 84
      phi2 = -67.3869
      theta3 = 6
      phi3 = 112.613
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1102
      chmoth = 'DC20'
      x = -46.7811
      y = -19.4856
      z = 0
      irot = 1148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1149
      theta1 = 90
      phi1 = -155.578
      theta2 = 84
      phi2 = -65.5779
      theta3 = 6
      phi3 = 114.422
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1103
      chmoth = 'DC20'
      x = -46.1426
      y = -20.9527
      z = 0
      irot = 1149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1150
      theta1 = 90
      phi1 = -153.769
      theta2 = 84
      phi2 = -63.7688
      theta3 = 6
      phi3 = 116.231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1104
      chmoth = 'DC20'
      x = -45.4582
      y = -22.3989
      z = 0
      irot = 1150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1151
      theta1 = 90
      phi1 = -151.96
      theta2 = 84
      phi2 = -61.9598
      theta3 = 6
      phi3 = 118.04
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1105
      chmoth = 'DC20'
      x = -44.7284
      y = -23.8228
      z = 0
      irot = 1151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1152
      theta1 = 90
      phi1 = -150.151
      theta2 = 84
      phi2 = -60.1508
      theta3 = 6
      phi3 = 119.849
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1106
      chmoth = 'DC20'
      x = -43.9541
      y = -25.2229
      z = 0
      irot = 1152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1153
      theta1 = 90
      phi1 = -148.342
      theta2 = 84
      phi2 = -58.3417
      theta3 = 6
      phi3 = 121.658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1107
      chmoth = 'DC20'
      x = -43.1359
      y = -26.5979
      z = 0
      irot = 1153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1154
      theta1 = 90
      phi1 = -146.533
      theta2 = 84
      phi2 = -56.5327
      theta3 = 6
      phi3 = 123.467
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1108
      chmoth = 'DC20'
      x = -42.2748
      y = -27.9464
      z = 0
      irot = 1154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1155
      theta1 = 90
      phi1 = -144.724
      theta2 = 84
      phi2 = -54.7236
      theta3 = 6
      phi3 = 125.276
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1109
      chmoth = 'DC20'
      x = -41.3715
      y = -29.267
      z = 0
      irot = 1155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1156
      theta1 = 90
      phi1 = -142.915
      theta2 = 84
      phi2 = -52.9146
      theta3 = 6
      phi3 = 127.085
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1110
      chmoth = 'DC20'
      x = -40.4269
      y = -30.5585
      z = 0
      irot = 1156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1157
      theta1 = 90
      phi1 = -141.106
      theta2 = 84
      phi2 = -51.1055
      theta3 = 6
      phi3 = 128.894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1111
      chmoth = 'DC20'
      x = -39.4421
      y = -31.8195
      z = 0
      irot = 1157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1158
      theta1 = 90
      phi1 = -139.296
      theta2 = 84
      phi2 = -49.2965
      theta3 = 6
      phi3 = 130.704
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1112
      chmoth = 'DC20'
      x = -38.4179
      y = -33.0487
      z = 0
      irot = 1158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1159
      theta1 = 90
      phi1 = -137.487
      theta2 = 84
      phi2 = -47.4874
      theta3 = 6
      phi3 = 132.513
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1113
      chmoth = 'DC20'
      x = -37.3555
      y = -34.2451
      z = 0
      irot = 1159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1160
      theta1 = 90
      phi1 = -135.678
      theta2 = 84
      phi2 = -45.6784
      theta3 = 6
      phi3 = 134.322
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1114
      chmoth = 'DC20'
      x = -36.2558
      y = -35.4073
      z = 0
      irot = 1160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1161
      theta1 = 90
      phi1 = -133.869
      theta2 = 84
      phi2 = -43.8693
      theta3 = 6
      phi3 = 136.131
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1115
      chmoth = 'DC20'
      x = -35.12
      y = -36.5342
      z = 0
      irot = 1161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1162
      theta1 = 90
      phi1 = -132.06
      theta2 = 84
      phi2 = -42.0603
      theta3 = 6
      phi3 = 137.94
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1116
      chmoth = 'DC20'
      x = -33.9491
      y = -37.6246
      z = 0
      irot = 1162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1163
      theta1 = 90
      phi1 = -130.251
      theta2 = 84
      phi2 = -40.2513
      theta3 = 6
      phi3 = 139.749
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1117
      chmoth = 'DC20'
      x = -32.7445
      y = -38.6776
      z = 0
      irot = 1163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1164
      theta1 = 90
      phi1 = -128.442
      theta2 = 84
      phi2 = -38.4422
      theta3 = 6
      phi3 = 141.558
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1118
      chmoth = 'DC20'
      x = -31.5072
      y = -39.692
      z = 0
      irot = 1164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1165
      theta1 = 90
      phi1 = -126.633
      theta2 = 84
      phi2 = -36.6332
      theta3 = 6
      phi3 = 143.367
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1119
      chmoth = 'DC20'
      x = -30.2384
      y = -40.6669
      z = 0
      irot = 1165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1166
      theta1 = 90
      phi1 = -124.824
      theta2 = 84
      phi2 = -34.8241
      theta3 = 6
      phi3 = 145.176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1120
      chmoth = 'DC20'
      x = -28.9396
      y = -41.6012
      z = 0
      irot = 1166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1167
      theta1 = 90
      phi1 = -123.015
      theta2 = 84
      phi2 = -33.0151
      theta3 = 6
      phi3 = 146.985
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1121
      chmoth = 'DC20'
      x = -27.6119
      y = -42.494
      z = 0
      irot = 1167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1168
      theta1 = 90
      phi1 = -121.206
      theta2 = 84
      phi2 = -31.206
      theta3 = 6
      phi3 = 148.794
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1122
      chmoth = 'DC20'
      x = -26.2566
      y = -43.3445
      z = 0
      irot = 1168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1169
      theta1 = 90
      phi1 = -119.397
      theta2 = 84
      phi2 = -29.397
      theta3 = 6
      phi3 = 150.603
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1123
      chmoth = 'DC20'
      x = -24.8752
      y = -44.1518
      z = 0
      irot = 1169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1170
      theta1 = 90
      phi1 = -117.588
      theta2 = 84
      phi2 = -27.5879
      theta3 = 6
      phi3 = 152.412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1124
      chmoth = 'DC20'
      x = -23.469
      y = -44.9151
      z = 0
      irot = 1170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1171
      theta1 = 90
      phi1 = -115.779
      theta2 = 84
      phi2 = -25.7789
      theta3 = 6
      phi3 = 154.221
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1125
      chmoth = 'DC20'
      x = -22.0394
      y = -45.6336
      z = 0
      irot = 1171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1172
      theta1 = 90
      phi1 = -113.97
      theta2 = 84
      phi2 = -23.9698
      theta3 = 6
      phi3 = 156.03
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1126
      chmoth = 'DC20'
      x = -20.5878
      y = -46.3066
      z = 0
      irot = 1172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1173
      theta1 = 90
      phi1 = -112.161
      theta2 = 84
      phi2 = -22.1608
      theta3 = 6
      phi3 = 157.839
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1127
      chmoth = 'DC20'
      x = -19.1157
      y = -46.9334
      z = 0
      irot = 1173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1174
      theta1 = 90
      phi1 = -110.352
      theta2 = 84
      phi2 = -20.3518
      theta3 = 6
      phi3 = 159.648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1128
      chmoth = 'DC20'
      x = -17.6246
      y = -47.5135
      z = 0
      irot = 1174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1175
      theta1 = 90
      phi1 = -108.543
      theta2 = 84
      phi2 = -18.5427
      theta3 = 6
      phi3 = 161.457
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1129
      chmoth = 'DC20'
      x = -16.1159
      y = -48.0462
      z = 0
      irot = 1175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1176
      theta1 = 90
      phi1 = -106.734
      theta2 = 84
      phi2 = -16.7337
      theta3 = 6
      phi3 = 163.266
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1130
      chmoth = 'DC20'
      x = -14.5911
      y = -48.531
      z = 0
      irot = 1176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1177
      theta1 = 90
      phi1 = -104.925
      theta2 = 84
      phi2 = -14.9246
      theta3 = 6
      phi3 = 165.075
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1131
      chmoth = 'DC20'
      x = -13.0518
      y = -48.9674
      z = 0
      irot = 1177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1178
      theta1 = 90
      phi1 = -103.116
      theta2 = 84
      phi2 = -13.1156
      theta3 = 6
      phi3 = 166.884
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1132
      chmoth = 'DC20'
      x = -11.4994
      y = -49.3551
      z = 0
      irot = 1178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1179
      theta1 = 90
      phi1 = -101.307
      theta2 = 84
      phi2 = -11.3065
      theta3 = 6
      phi3 = 168.693
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1133
      chmoth = 'DC20'
      x = -9.93563
      y = -49.6935
      z = 0
      irot = 1179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1180
      theta1 = 90
      phi1 = -99.4975
      theta2 = 84
      phi2 = -9.49749
      theta3 = 6
      phi3 = 170.503
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1134
      chmoth = 'DC20'
      x = -8.36193
      y = -49.9824
      z = 0
      irot = 1180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1181
      theta1 = 90
      phi1 = -97.6884
      theta2 = 84
      phi2 = -7.68844
      theta3 = 6
      phi3 = 172.312
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1135
      chmoth = 'DC20'
      x = -6.77989
      y = -50.2214
      z = 0
      irot = 1181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1182
      theta1 = 90
      phi1 = -95.8794
      theta2 = 84
      phi2 = -5.8794
      theta3 = 6
      phi3 = 174.121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1136
      chmoth = 'DC20'
      x = -5.19109
      y = -50.4104
      z = 0
      irot = 1182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1183
      theta1 = 90
      phi1 = -94.0704
      theta2 = 84
      phi2 = -4.07035
      theta3 = 6
      phi3 = 175.93
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1137
      chmoth = 'DC20'
      x = -3.59712
      y = -50.5492
      z = 0
      irot = 1183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1184
      theta1 = 90
      phi1 = -92.2613
      theta2 = 84
      phi2 = -2.26131
      theta3 = 6
      phi3 = 177.739
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1138
      chmoth = 'DC20'
      x = -1.99956
      y = -50.6375
      z = 0
      irot = 1184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1185
      theta1 = 90
      phi1 = -90.4523
      theta2 = 84
      phi2 = -0.452261
      theta3 = 6
      phi3 = 179.548
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1139
      chmoth = 'DC20'
      x = -0.400012
      y = -50.6754
      z = 0
      irot = 1185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1186
      theta1 = 90
      phi1 = -88.6432
      theta2 = 84
      phi2 = 1.35678
      theta3 = 6
      phi3 = -178.643
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1140
      chmoth = 'DC20'
      x = 1.19994
      y = -50.6628
      z = 0
      irot = 1186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1187
      theta1 = 90
      phi1 = -86.8342
      theta2 = 84
      phi2 = 3.16583
      theta3 = 6
      phi3 = -176.834
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1141
      chmoth = 'DC20'
      x = 2.79869
      y = -50.5997
      z = 0
      irot = 1187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1188
      theta1 = 90
      phi1 = -85.0251
      theta2 = 84
      phi2 = 4.97487
      theta3 = 6
      phi3 = -175.025
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1142
      chmoth = 'DC20'
      x = 4.39465
      y = -50.4861
      z = 0
      irot = 1188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1189
      theta1 = 90
      phi1 = -83.2161
      theta2 = 84
      phi2 = 6.78392
      theta3 = 6
      phi3 = -173.216
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1143
      chmoth = 'DC20'
      x = 5.98623
      y = -50.3222
      z = 0
      irot = 1189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1190
      theta1 = 90
      phi1 = -81.407
      theta2 = 84
      phi2 = 8.59296
      theta3 = 6
      phi3 = -171.407
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1144
      chmoth = 'DC20'
      x = 7.57185
      y = -50.1081
      z = 0
      irot = 1190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1191
      theta1 = 90
      phi1 = -79.598
      theta2 = 84
      phi2 = 10.402
      theta3 = 6
      phi3 = -169.598
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1145
      chmoth = 'DC20'
      x = 9.14992
      y = -49.8441
      z = 0
      irot = 1191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1192
      theta1 = 90
      phi1 = -77.7889
      theta2 = 84
      phi2 = 12.2111
      theta3 = 6
      phi3 = -167.789
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1146
      chmoth = 'DC20'
      x = 10.7189
      y = -49.5304
      z = 0
      irot = 1192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1193
      theta1 = 90
      phi1 = -75.9799
      theta2 = 84
      phi2 = 14.0201
      theta3 = 6
      phi3 = -165.98
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1147
      chmoth = 'DC20'
      x = 12.2771
      y = -49.1674
      z = 0
      irot = 1193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1194
      theta1 = 90
      phi1 = -74.1709
      theta2 = 84
      phi2 = 15.8291
      theta3 = 6
      phi3 = -164.171
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1148
      chmoth = 'DC20'
      x = 13.8231
      y = -48.7553
      z = 0
      irot = 1194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1195
      theta1 = 90
      phi1 = -72.3618
      theta2 = 84
      phi2 = 17.6382
      theta3 = 6
      phi3 = -162.362
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1149
      chmoth = 'DC20'
      x = 15.3554
      y = -48.2946
      z = 0
      irot = 1195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1196
      theta1 = 90
      phi1 = -70.5528
      theta2 = 84
      phi2 = 19.4472
      theta3 = 6
      phi3 = -160.553
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1150
      chmoth = 'DC20'
      x = 16.8723
      y = -47.7858
      z = 0
      irot = 1196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1197
      theta1 = 90
      phi1 = -68.7437
      theta2 = 84
      phi2 = 21.2563
      theta3 = 6
      phi3 = -158.744
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1151
      chmoth = 'DC20'
      x = 18.3725
      y = -47.2293
      z = 0
      irot = 1197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1198
      theta1 = 90
      phi1 = -66.9347
      theta2 = 84
      phi2 = 23.0653
      theta3 = 6
      phi3 = -156.935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1152
      chmoth = 'DC20'
      x = 19.8543
      y = -46.6258
      z = 0
      irot = 1198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1199
      theta1 = 90
      phi1 = -65.1256
      theta2 = 84
      phi2 = 24.8744
      theta3 = 6
      phi3 = -155.126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1153
      chmoth = 'DC20'
      x = 21.3163
      y = -45.9758
      z = 0
      irot = 1199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1200
      theta1 = 90
      phi1 = -63.3166
      theta2 = 84
      phi2 = 26.6834
      theta3 = 6
      phi3 = -153.317
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1154
      chmoth = 'DC20'
      x = 22.757
      y = -45.28
      z = 0
      irot = 1200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1201
      theta1 = 90
      phi1 = -61.5075
      theta2 = 84
      phi2 = 28.4925
      theta3 = 6
      phi3 = -151.508
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1155
      chmoth = 'DC20'
      x = 24.1751
      y = -44.539
      z = 0
      irot = 1201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1202
      theta1 = 90
      phi1 = -59.6985
      theta2 = 84
      phi2 = 30.3015
      theta3 = 6
      phi3 = -149.698
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1156
      chmoth = 'DC20'
      x = 25.5691
      y = -43.7536
      z = 0
      irot = 1202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1203
      theta1 = 90
      phi1 = -57.8894
      theta2 = 84
      phi2 = 32.1106
      theta3 = 6
      phi3 = -147.889
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1157
      chmoth = 'DC20'
      x = 26.9376
      y = -42.9246
      z = 0
      irot = 1203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1204
      theta1 = 90
      phi1 = -56.0804
      theta2 = 84
      phi2 = 33.9196
      theta3 = 6
      phi3 = -146.08
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1158
      chmoth = 'DC20'
      x = 28.2792
      y = -42.0529
      z = 0
      irot = 1204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1205
      theta1 = 90
      phi1 = -54.2714
      theta2 = 84
      phi2 = 35.7286
      theta3 = 6
      phi3 = -144.271
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1159
      chmoth = 'DC20'
      x = 29.5927
      y = -41.1392
      z = 0
      irot = 1205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1206
      theta1 = 90
      phi1 = -52.4623
      theta2 = 84
      phi2 = 37.5377
      theta3 = 6
      phi3 = -142.462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1160
      chmoth = 'DC20'
      x = 30.8766
      y = -40.1845
      z = 0
      irot = 1206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1207
      theta1 = 90
      phi1 = -50.6533
      theta2 = 84
      phi2 = 39.3467
      theta3 = 6
      phi3 = -140.653
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1161
      chmoth = 'DC20'
      x = 32.1298
      y = -39.1897
      z = 0
      irot = 1207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1208
      theta1 = 90
      phi1 = -48.8442
      theta2 = 84
      phi2 = 41.1558
      theta3 = 6
      phi3 = -138.844
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1162
      chmoth = 'DC20'
      x = 33.351
      y = -38.1559
      z = 0
      irot = 1208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1209
      theta1 = 90
      phi1 = -47.0352
      theta2 = 84
      phi2 = 42.9648
      theta3 = 6
      phi3 = -137.035
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1163
      chmoth = 'DC20'
      x = 34.5389
      y = -37.084
      z = 0
      irot = 1209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1210
      theta1 = 90
      phi1 = -45.2261
      theta2 = 84
      phi2 = 44.7739
      theta3 = 6
      phi3 = -135.226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1164
      chmoth = 'DC20'
      x = 35.6923
      y = -35.9752
      z = 0
      irot = 1210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1211
      theta1 = 90
      phi1 = -43.4171
      theta2 = 84
      phi2 = 46.5829
      theta3 = 6
      phi3 = -133.417
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1165
      chmoth = 'DC20'
      x = 36.8102
      y = -34.8305
      z = 0
      irot = 1211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1212
      theta1 = 90
      phi1 = -41.608
      theta2 = 84
      phi2 = 48.392
      theta3 = 6
      phi3 = -131.608
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1166
      chmoth = 'DC20'
      x = 37.8914
      y = -33.6511
      z = 0
      irot = 1212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1213
      theta1 = 90
      phi1 = -39.799
      theta2 = 84
      phi2 = 50.201
      theta3 = 6
      phi3 = -129.799
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1167
      chmoth = 'DC20'
      x = 38.9349
      y = -32.4382
      z = 0
      irot = 1213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1214
      theta1 = 90
      phi1 = -37.9899
      theta2 = 84
      phi2 = 52.0101
      theta3 = 6
      phi3 = -127.99
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1168
      chmoth = 'DC20'
      x = 39.9395
      y = -31.1929
      z = 0
      irot = 1214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1215
      theta1 = 90
      phi1 = -36.1809
      theta2 = 84
      phi2 = 53.8191
      theta3 = 6
      phi3 = -126.181
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1169
      chmoth = 'DC20'
      x = 40.9043
      y = -29.9165
      z = 0
      irot = 1215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1216
      theta1 = 90
      phi1 = -34.3719
      theta2 = 84
      phi2 = 55.6281
      theta3 = 6
      phi3 = -124.372
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1170
      chmoth = 'DC20'
      x = 41.8283
      y = -28.6103
      z = 0
      irot = 1216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1217
      theta1 = 90
      phi1 = -32.5628
      theta2 = 84
      phi2 = 57.4372
      theta3 = 6
      phi3 = -122.563
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1171
      chmoth = 'DC20'
      x = 42.7107
      y = -27.2756
      z = 0
      irot = 1217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1218
      theta1 = 90
      phi1 = -30.7538
      theta2 = 84
      phi2 = 59.2462
      theta3 = 6
      phi3 = -120.754
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1172
      chmoth = 'DC20'
      x = 43.5504
      y = -25.9137
      z = 0
      irot = 1218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1219
      theta1 = 90
      phi1 = -28.9447
      theta2 = 84
      phi2 = 61.0553
      theta3 = 6
      phi3 = -118.945
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1173
      chmoth = 'DC20'
      x = 44.3468
      y = -24.5259
      z = 0
      irot = 1219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1220
      theta1 = 90
      phi1 = -27.1357
      theta2 = 84
      phi2 = 62.8643
      theta3 = 6
      phi3 = -117.136
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1174
      chmoth = 'DC20'
      x = 45.0989
      y = -23.1137
      z = 0
      irot = 1220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1221
      theta1 = 90
      phi1 = -25.3266
      theta2 = 84
      phi2 = 64.6734
      theta3 = 6
      phi3 = -115.327
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1175
      chmoth = 'DC20'
      x = 45.8061
      y = -21.6785
      z = 0
      irot = 1221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1222
      theta1 = 90
      phi1 = -23.5176
      theta2 = 84
      phi2 = 66.4824
      theta3 = 6
      phi3 = -113.518
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1176
      chmoth = 'DC20'
      x = 46.4676
      y = -20.2217
      z = 0
      irot = 1222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1223
      theta1 = 90
      phi1 = -21.7085
      theta2 = 84
      phi2 = 68.2915
      theta3 = 6
      phi3 = -111.709
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1177
      chmoth = 'DC20'
      x = 47.0829
      y = -18.7447
      z = 0
      irot = 1223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1224
      theta1 = 90
      phi1 = -19.8995
      theta2 = 84
      phi2 = 70.1005
      theta3 = 6
      phi3 = -109.899
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1178
      chmoth = 'DC20'
      x = 47.6511
      y = -17.249
      z = 0
      irot = 1224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1225
      theta1 = 90
      phi1 = -18.0905
      theta2 = 84
      phi2 = 71.9095
      theta3 = 6
      phi3 = -108.09
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1179
      chmoth = 'DC20'
      x = 48.1719
      y = -15.7361
      z = 0
      irot = 1225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1226
      theta1 = 90
      phi1 = -16.2814
      theta2 = 84
      phi2 = 73.7186
      theta3 = 6
      phi3 = -106.281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1180
      chmoth = 'DC20'
      x = 48.6447
      y = -14.2076
      z = 0
      irot = 1226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1227
      theta1 = 90
      phi1 = -14.4724
      theta2 = 84
      phi2 = 75.5276
      theta3 = 6
      phi3 = -104.472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1181
      chmoth = 'DC20'
      x = 49.0689
      y = -12.6648
      z = 0
      irot = 1227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1228
      theta1 = 90
      phi1 = -12.6633
      theta2 = 84
      phi2 = 77.3367
      theta3 = 6
      phi3 = -102.663
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1182
      chmoth = 'DC20'
      x = 49.4443
      y = -11.1095
      z = 0
      irot = 1228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1229
      theta1 = 90
      phi1 = -10.8543
      theta2 = 84
      phi2 = 79.1457
      theta3 = 6
      phi3 = -100.854
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1183
      chmoth = 'DC20'
      x = 49.7704
      y = -9.54307
      z = 0
      irot = 1229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1230
      theta1 = 90
      phi1 = -9.04523
      theta2 = 84
      phi2 = 80.9548
      theta3 = 6
      phi3 = -99.0452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1184
      chmoth = 'DC20'
      x = 50.0468
      y = -7.96714
      z = 0
      irot = 1230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1231
      theta1 = 90
      phi1 = -7.23618
      theta2 = 84
      phi2 = 82.7638
      theta3 = 6
      phi3 = -97.2362
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1185
      chmoth = 'DC20'
      x = 50.2734
      y = -6.38326
      z = 0
      irot = 1231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1232
      theta1 = 90
      phi1 = -5.42714
      theta2 = 84
      phi2 = 84.5729
      theta3 = 6
      phi3 = -95.4271
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1186
      chmoth = 'DC20'
      x = 50.4498
      y = -4.79302
      z = 0
      irot = 1232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1233
      theta1 = 90
      phi1 = -3.61809
      theta2 = 84
      phi2 = 86.3819
      theta3 = 6
      phi3 = -93.6181
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1187
      chmoth = 'DC20'
      x = 50.576
      y = -3.198
      z = 0
      irot = 1233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1234
      theta1 = 90
      phi1 = -1.80905
      theta2 = 84
      phi2 = 88.191
      theta3 = 6
      phi3 = -91.809
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1188
      chmoth = 'DC20'
      x = 50.6517
      y = -1.5998
      z = 0
      irot = 1234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 16
      chmoth = 'DC20'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 16
      chmoth = 'DC20'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 143
      natmed = 'DC23 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC23'
      chshap = 'TUBE'
      nmed = 143
      npar = 3
      par(1) = 52.1
      par(2) = 53.9
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.173) stop 'consistency check #1 failed'

      chname = 'DC23'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD1F'
      chmoth = 'DC23'
      ndiv = 208
      iaxis = 2
      step = 1.73077
      c0 = -0.865
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 144
      natmed = 'DS23 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS23'
      chshap = 'TUBS'
      nmed = 144
      npar = 5
      par(1) = 52.1
      par(2) = 53.9
      par(3) = 75.75
      par(4) = -0.865
      par(5) = 0.866
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.175) stop 'consistency check #1 failed'

      chname = 'DS23'
      nr = 1
      chmoth = 'SD1F'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 14
      chmoth = 'DS23'
      x = 52.969
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 17
      chmoth = 'DS23'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 17
      chmoth = 'DS23'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 145
      natmed = 'DC24 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC24'
      chshap = 'TUBE'
      nmed = 145
      npar = 3
      par(1) = 53.9
      par(2) = 55.6
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.176) stop 'consistency check #1 failed'

      chname = 'DC24'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD20'
      chmoth = 'DC24'
      ndiv = 215
      iaxis = 2
      step = 1.67442
      c0 = -0.837
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 146
      natmed = 'DS24 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS24'
      chshap = 'TUBS'
      nmed = 146
      npar = 5
      par(1) = 53.9
      par(2) = 55.6
      par(3) = 75.75
      par(4) = -0.837
      par(5) = 0.837
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.178) stop 'consistency check #1 failed'

      chname = 'DS24'
      nr = 1
      chmoth = 'SD20'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 15
      chmoth = 'DS24'
      x = 54.751
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 18
      chmoth = 'DS24'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 18
      chmoth = 'DS24'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 147
      natmed = 'DC25 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DC25'
      chshap = 'TUBE'
      nmed = 147
      npar = 3
      par(1) = 55.6
      par(2) = 57.4
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.179) stop 'consistency check #1 failed'

      chname = 'DC25'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD21'
      chmoth = 'DC25'
      ndiv = 222
      iaxis = 2
      step = 1.62162
      c0 = -0.811
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 148
      natmed = 'DS25 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DS25'
      chshap = 'TUBS'
      nmed = 148
      npar = 5
      par(1) = 55.6
      par(2) = 57.4
      par(3) = 75.75
      par(4) = -0.811
      par(5) = 0.811
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.181) stop 'consistency check #1 failed'

      chname = 'DS25'
      nr = 1
      chmoth = 'SD21'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'STRA'
      nr = 16
      chmoth = 'DS25'
      x = 56.534
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 19
      chmoth = 'DS25'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 19
      chmoth = 'DS25'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 149
      natmed = 'CDCI Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDCI'
      chshap = 'TUBE'
      nmed = 149
      npar = 3
      par(1) = 9
      par(2) = 9.06
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.182) stop 'consistency check #1 failed'

      chname = 'CDCI'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 150
      natmed = 'CDCO Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDCO'
      chshap = 'TUBE'
      nmed = 150
      npar = 3
      par(1) = 59.8
      par(2) = 60
      par(3) = 75.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.183) stop 'consistency check #1 failed'

      chname = 'CDCO'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 20
      chmoth = 'CDC'
      x = 0
      y = 0
      z = -75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 20
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 75.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 37
      namate = 'SiliconDioxide'
      wmat(1) = 1
      call gfmate(9,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 2
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.6
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 38
      namate = 'BoricOxide'
      wmat(1) = 2
      call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 3
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.46
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 40
      namate = 'Sodium'
      a = 22.9898
      z = 11
      dens = 0.969
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 39
      namate = 'SodiumOxide'
      wmat(1) = 2
      call gfmate(40,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.27
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 42
      namate = 'Potassium'
      a = 39.098
      z = 19
      dens = 0.86
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 41
      namate = 'PotassiumOxide'
      wmat(1) = 2
      call gfmate(42,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.35
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 43
      namate = 'AluminumOxide'
      wmat(1) = 2
      call gfmate(7,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 3
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 3.97
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 44
      namate = 'IronOxide'
      wmat(1) = 1
      call gfmate(10,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 5.7
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 36
      namate = 'BorosilicateGlass'
      wmat(1) = 0.7
      call gfmate(37,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.1
      call gfmate(38,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.08
      call gfmate(39,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.08
      call gfmate(41,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.025
      call gfmate(43,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf)
      wmat(6) = 0.015
      call gfmate(44,chnama,amat(6),zmat(6),dens,radl,absl,ubuf,nwbuf)
      dens = 2.3
      nlmat = 6
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 35
      namate = 'FR-4'
      wmat(1) = 0.7
      call gfmate(36,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.3
      call gfmate(34,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.91
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 151
      natmed = 'CDBU FR-4'
      nmat = 35
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDBU'
      chshap = 'TUBE'
      nmed = 151
      npar = 3
      par(1) = 9
      par(2) = 60
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.184) stop 'consistency check #1 failed'

      chname = 'CDBU'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = -84.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 152
      natmed = 'CDBD FR-4'
      nmat = 35
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDBD'
      chshap = 'TUBE'
      nmed = 152
      npar = 3
      par(1) = 9
      par(2) = 60
      par(3) = 0.05
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.185) stop 'consistency check #1 failed'

      chname = 'CDBD'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 76.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 153
      natmed = 'CDGU Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDGU'
      chshap = 'TUBE'
      nmed = 153
      npar = 3
      par(1) = 9
      par(2) = 60
      par(3) = 0.15
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.186) stop 'consistency check #1 failed'

      chname = 'CDGU'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = -85.6
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 154
      natmed = 'CDGD Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDGD'
      chshap = 'TUBE'
      nmed = 154
      npar = 3
      par(1) = 9
      par(2) = 60
      par(3) = 0.15
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.187) stop 'consistency check #1 failed'

      chname = 'CDGD'
      nr = 1
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 80.6
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 47
      namate = 'Chlorine'
      a = 35.453
      z = 17
      dens = 1.56
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 46
      namate = 'PVC'
      wmat(1) = 2
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 3
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 1
      call gfmate(47,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.32
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 45
      namate = 'SignalCables'
      wmat(1) = 0.33
      call gfmate(16,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.67
      call gfmate(46,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.83686
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 155
      natmed = 'CDCA SignalCables'
      nmat = 45
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDCA'
      chshap = 'TUBE'
      nmed = 155
      npar = 3
      par(1) = 9
      par(2) = 60
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.188) stop 'consistency check #1 failed'

      chname = 'CDCA'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 14.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 156
      natmed = 'CDCB SignalCables'
      nmat = 45
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDCB'
      chshap = 'PCON'
      nmed = 156
      npar = 27
      par(1) = 0
      par(2) = 360
      par(3) = 8
      par(4) = -65.2
      par(5) = 74
      par(6) = 120
      par(7) = -62.2
      par(8) = 71
      par(9) = 120
      par(10) = -62.2
      par(11) = 71
      par(12) = 75.2
      par(13) = -56.2
      par(14) = 65
      par(15) = 69.2
      par(16) = -55
      par(17) = 65
      par(18) = 68
      par(19) = -3.31
      par(20) = 56.4
      par(21) = 59
      par(22) = -0.53
      par(23) = 23
      par(24) = 59
      par(25) = 0
      par(26) = 9
      par(27) = 59
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.189) stop 'consistency check #1 failed'

      chname = 'CDCB'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 157
      natmed = 'FDC Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDC'
      chshap = 'TUBE'
      nmed = 157
      npar = 3
      par(1) = 0
      par(2) = 62
      par(3) = 86.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.190) stop 'consistency check #1 failed'

      chname = 'FDC'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 273.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 48
      namate = 'MylarFilm'
      wmat(1) = 0.967
      call gfmate(19,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.03
      call gfmate(7,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0
      call gfmate(34,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.003
      call gfmate(1,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 0.35
      nlmat = 4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 158
      natmed = 'FDCG MylarFilm'
      nmat = 48
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCG'
      chshap = 'TUBE'
      nmed = 158
      npar = 3
      par(1) = 0
      par(2) = 53.6
      par(3) = 0.0013
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.191) stop 'consistency check #1 failed'

      chname = 'FDCG'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -85
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 159
      natmed = 'FDMO Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDMO'
      chshap = 'TUBE'
      nmed = 159
      npar = 3
      par(1) = 0
      par(2) = 61
      par(3) = 4.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.192) stop 'consistency check #1 failed'

      chname = 'FDMO'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -80.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 160
      natmed = 'FDCH Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCH'
      chshap = 'TUBE'
      nmed = 160
      npar = 3
      par(1) = 0
      par(2) = 53.6
      par(3) = 1.4974
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.193) stop 'consistency check #1 failed'

      chname = 'FDCH'
      nr = 1
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = -3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 161
      natmed = 'FDCB LowDensityROHACELL'
      nmat = 24
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCB'
      chshap = 'TUBE'
      nmed = 161
      npar = 3
      par(1) = 5
      par(2) = 53.6
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.194) stop 'consistency check #1 failed'

      chname = 'FDCB'
      nr = 1
      chmoth = 'FDCH'
      x = 0
      y = 0
      z = -0.75005
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 162
      natmed = 'FDCK Kapton'
      nmat = 22
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCK'
      chshap = 'TUBE'
      nmed = 162
      npar = 3
      par(1) = 0
      par(2) = 5
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.195) stop 'consistency check #1 failed'

      irot = 1235
      theta1 = 90
      phi1 = -45
      theta2 = 90
      phi2 = 45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDCK'
      nr = 1
      chmoth = 'FDCH'
      x = 0
      y = 0
      z = -0.50145
      irot = 1235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 49
      namate = 'CopperKapton'
      wmat(1) = 0.34
      call gfmate(16,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.66
      call gfmate(22,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0
      call gfmate(34,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.98912
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 163
      natmed = 'FDCC CopperKapton'
      nmat = 49
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCC'
      chshap = 'TUBE'
      nmed = 163
      npar = 3
      par(1) = 2.3
      par(2) = 53.6
      par(3) = 0.00135
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.196) stop 'consistency check #1 failed'

      irot = 1236
      theta1 = 90
      phi1 = -45
      theta2 = 90
      phi2 = 45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDCC'
      nr = 1
      chmoth = 'FDCH'
      x = 0
      y = 0
      z = -0.50135
      irot = 1236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 50
      namate = 'FDchamberGas'
      wmat(1) = 0.38
      call gfmate(4,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.62
      call gfmate(29,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.001899
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 164
      natmed = 'FDCA FDchamberGas'
      nmat = 50
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCA'
      chshap = 'TUBE'
      nmed = 164
      npar = 3
      par(1) = 0
      par(2) = 53.6
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.197) stop 'consistency check #1 failed'

      chname = 'FDCA'
      nr = 1
      chmoth = 'FDCH'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 51
      namate = 'FDCwirePlaneComposite'
      wmat(1) = 0.21
      call gfmate(15,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.72
      call gfmate(7,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.07
      call gfmate(50,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 0.0263
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 165
      natmed = 'FDCW FDCwirePlaneComposite'
      nmat = 51
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCW'
      chshap = 'TUBE'
      nmed = 165
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.198) stop 'consistency check #1 failed'

      chname = 'FDCW'
      nr = 1
      chmoth = 'FDCA'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1237
      theta1 = 90
      phi1 = 45
      theta2 = 90
      phi2 = 135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDCK'
      nr = 2
      chmoth = 'FDCH'
      x = 0
      y = 0
      z = 0.50145
      irot = 1237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1238
      theta1 = 90
      phi1 = 45
      theta2 = 90
      phi2 = 135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDCC'
      nr = 2
      chmoth = 'FDCH'
      x = 0
      y = 0
      z = 0.50135
      irot = 1238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCB'
      nr = 2
      chmoth = 'FDCH'
      x = 0
      y = 0
      z = 0.75005
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 2
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = -1.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1239
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDCH'
      nr = 2
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = 0
      irot = 1239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 3
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = 1.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1240
      theta1 = 90
      phi1 = -60
      theta2 = 90
      phi2 = 30
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDCH'
      nr = 3
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = 3
      irot = 1240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 166
      natmed = 'FDSF Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDSF'
      chshap = 'TUBE'
      nmed = 166
      npar = 3
      par(1) = 53.6
      par(2) = 60
      par(3) = 1.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.199) stop 'consistency check #1 failed'

      chname = 'FDSF'
      nr = 1
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = -3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 54
      namate = 'CalciumOxide'
      wmat(1) = 1
      call gfmate(8,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 3.35
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 56
      namate = 'Magnesium'
      a = 24.305
      z = 12
      dens = 1.735
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 55
      namate = 'MagnesiumOxide'
      wmat(1) = 1
      call gfmate(56,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 3.58
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 53
      namate = 'E-glass'
      wmat(1) = 0.54
      call gfmate(37,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.14
      call gfmate(43,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.1
      call gfmate(38,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.12
      call gfmate(54,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.1
      call gfmate(55,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf)
      dens = 2.61
      nlmat = 5
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 52
      namate = 'E-fiberGlass'
      wmat(1) = 0.327
      call gfmate(34,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.673
      call gfmate(53,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.96312
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 167
      natmed = 'FDSE E-fiberGlass'
      nmat = 52
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDSE'
      chshap = 'TUBE'
      nmed = 167
      npar = 3
      par(1) = 53.6
      par(2) = 60
      par(3) = 0.0125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.200) stop 'consistency check #1 failed'

      chname = 'FDSE'
      nr = 1
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -0.987
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 168
      natmed = 'FDSI CarbonFiberEpoxy'
      nmat = 32
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDSI'
      chshap = 'TUBE'
      nmed = 168
      npar = 3
      par(1) = 53.6
      par(2) = 60
      par(3) = 0.025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.201) stop 'consistency check #1 failed'

      chname = 'FDSI'
      nr = 1
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -0.95
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 57
      namate = 'MediumDensityROHACELL'
      wmat(1) = 11
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 8
      call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 1
      call gfmate(2,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 2
      call gfmate(3,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 0.075
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 169
      natmed = 'FDSH MediumDensityROHACELL'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDSH'
      chshap = 'TUBE'
      nmed = 169
      npar = 3
      par(1) = 53.6
      par(2) = 60
      par(3) = 0.175
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.202) stop 'consistency check #1 failed'

      chname = 'FDSH'
      nr = 1
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -0.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSI'
      nr = 2
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -0.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSE'
      nr = 2
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -0.513
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 170
      natmed = 'FDSG FR-4'
      nmat = 35
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDSG'
      chshap = 'TUBE'
      nmed = 170
      npar = 3
      par(1) = 53.6
      par(2) = 60
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.203) stop 'consistency check #1 failed'

      chname = 'FDSG'
      nr = 1
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -0.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 58
      namate = 'Polyethylene'
      wmat(1) = 1
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 2
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.95
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 171
      natmed = 'FDSP Polyethylene'
      nmat = 58
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDSP'
      chshap = 'TUBE'
      nmed = 171
      npar = 3
      par(1) = 53.6
      par(2) = 60
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.204) stop 'consistency check #1 failed'

      chname = 'FDSP'
      nr = 1
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 0.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSE'
      nr = 3
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 0.513
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSI'
      nr = 3
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 0.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSH'
      nr = 2
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 0.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSI'
      nr = 4
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 0.95
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSE'
      nr = 4
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 0.987
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSF'
      nr = 2
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSF'
      nr = 3
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = 3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 59
      namate = 'CircuitBoards'
      wmat(1) = 0.6
      call gfmate(58,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.26
      call gfmate(35,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.14
      call gfmate(9,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.20804
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 172
      natmed = 'FDCE CircuitBoards'
      nmat = 59
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCE'
      chshap = 'TUBE'
      nmed = 172
      npar = 3
      par(1) = 60.5
      par(2) = 60.61
      par(3) = 4.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.205) stop 'consistency check #1 failed'

      chname = 'FDCE'
      nr = 1
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -76
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -71.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 5
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -67
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 6
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -35
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -30.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 7
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -26
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -21.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 8
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -17
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 9
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 17
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 5
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 21.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 10
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 26
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 6
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 30.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 11
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 35
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 12
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 67
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 7
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 71.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 13
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 76
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 8
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 80.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 14
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 85
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 173
      natmed = 'FDSR CarbonFiber'
      nmat = 33
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDSR'
      chshap = 'TUBE'
      nmed = 173
      npar = 3
      par(1) = 0
      par(2) = 1
      par(3) = 86.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.206) stop 'consistency check #1 failed'

      chname = 'FDSR'
      nr = 1
      chmoth = 'FDC'
      x = 41
      y = 41
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSR'
      nr = 2
      chmoth = 'FDC'
      x = -41
      y = 41
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSR'
      nr = 3
      chmoth = 'FDC'
      x = -41
      y = -41
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSR'
      nr = 4
      chmoth = 'FDC'
      x = 41
      y = -41
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 174
      natmed = 'FDSC SignalCables'
      nmat = 45
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDSC'
      chshap = 'PCON'
      nmed = 174
      npar = 36
      par(1) = -58
      par(2) = 116
      par(3) = 11
      par(4) = -84.5
      par(5) = 64.5
      par(6) = 65
      par(7) = -31
      par(8) = 64.5
      par(9) = 65
      par(10) = -31
      par(11) = 64
      par(12) = 65
      par(13) = 23.5
      par(14) = 64
      par(15) = 65
      par(16) = 23.5
      par(17) = 63.5
      par(18) = 65
      par(19) = 70.5
      par(20) = 63.5
      par(21) = 65
      par(22) = 70.5
      par(23) = 63
      par(24) = 65
      par(25) = 120
      par(26) = 63
      par(27) = 65
      par(28) = 120.8
      par(29) = 63
      par(30) = 65.8
      par(31) = 121.8
      par(32) = 64
      par(33) = 66.8
      par(34) = 123.2
      par(35) = 65.4
      par(36) = 65.4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.207) stop 'consistency check #1 failed'

      irot = 1241
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDSC'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 273.5
      irot = 1241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1242
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDSC'
      nr = 2
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 273.5
      irot = 1242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1243
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = -1.05247e-14
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDSC'
      nr = 3
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 273.5
      irot = 1243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 175
      natmed = 'BCAL Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCAL'
      chshap = 'TUBE'
      nmed = 175
      npar = 3
      par(1) = 65
      par(2) = 90
      par(3) = 210
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.208) stop 'consistency check #1 failed'

      chname = 'BCAL'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 212
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD22'
      chmoth = 'BCAL'
      ndiv = 48
      iaxis = 2
      step = 7.5
      c0 = -4.44089e-16
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 176
      natmed = 'BCAM Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCAM'
      chshap = 'TUBS'
      nmed = 176
      npar = 5
      par(1) = 65
      par(2) = 90
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.210) stop 'consistency check #1 failed'

      chname = 'BCAM'
      nr = 1
      chmoth = 'SD22'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 177
      natmed = 'BCL1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCL1'
      chshap = 'TUBS'
      nmed = 177
      npar = 5
      par(1) = 65
      par(2) = 67
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.211) stop 'consistency check #1 failed'

      chname = 'BCL1'
      nr = 1
      chmoth = 'BCAM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD23'
      chmoth = 'BCL1'
      ndiv = 4
      iaxis = 2
      step = 1.875
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 178
      natmed = 'BCS1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCS1'
      chshap = 'TUBS'
      nmed = 178
      npar = 5
      par(1) = 65
      par(2) = 67
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.213) stop 'consistency check #1 failed'

      chname = 'BCS1'
      nr = 1
      chmoth = 'SD23'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 61
      namate = 'BC600epoxy'
      wmat(1) = 60
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 79
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 3
      call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 2
      call gfmate(2,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 1.2
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 60
      namate = 'leadScint'
      wmat(1) = 0.104
      call gfmate(25,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.862
      call gfmate(17,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.034
      call gfmate(61,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 4.87672
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 179
      natmed = 'BCM1 leadScint'
      nmat = 60
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM1'
      chshap = 'TUBS'
      nmed = 179
      npar = 5
      par(1) = 65
      par(2) = 67
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.214) stop 'consistency check #1 failed'

      chname = 'BCM1'
      nr = 1
      chmoth = 'BCS1'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 180
      natmed = 'BCN1 Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCN1'
      chshap = 'TRAP'
      nmed = 180
      npar = 11
      par(1) = 2.5
      par(2) = 0
      par(3) = 0
      par(4) = 1.0635
      par(5) = 1
      par(6) = 1
      par(7) = 0
      par(8) = 0.65
      par(9) = 0.65
      par(10) = 0.65
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.215) stop 'consistency check #1 failed'

      chname = 'BCN1'
      nr = 1
      chmoth = 'BCS1'
      x = 66
      y = 0
      z = 197.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1244
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN1'
      nr = 2
      chmoth = 'BCS1'
      x = 66
      y = 0
      z = -197.5
      irot = 1244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 181
      natmed = 'BCPM Aluminum'
      nmat = 7
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCPM'
      chshap = 'BOX '
      nmed = 181
      npar = 3
      par(1) = 1
      par(2) = 1
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.216) stop 'consistency check #1 failed'

      chname = 'BCPM'
      nr = 1
      chmoth = 'BCS1'
      x = 66
      y = 0
      z = 201
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1245
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCPM'
      nr = 2
      chmoth = 'BCS1'
      x = 66
      y = 0
      z = -201
      irot = 1245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 182
      natmed = 'BCL2 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCL2'
      chshap = 'TUBS'
      nmed = 182
      npar = 5
      par(1) = 67
      par(2) = 69
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.217) stop 'consistency check #1 failed'

      chname = 'BCL2'
      nr = 1
      chmoth = 'BCAM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD24'
      chmoth = 'BCL2'
      ndiv = 4
      iaxis = 2
      step = 1.875
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 183
      natmed = 'BCS2 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCS2'
      chshap = 'TUBS'
      nmed = 183
      npar = 5
      par(1) = 67
      par(2) = 69
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.219) stop 'consistency check #1 failed'

      chname = 'BCS2'
      nr = 1
      chmoth = 'SD24'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 184
      natmed = 'BCM2 leadScint'
      nmat = 60
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM2'
      chshap = 'TUBS'
      nmed = 184
      npar = 5
      par(1) = 67
      par(2) = 69
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.220) stop 'consistency check #1 failed'

      chname = 'BCM2'
      nr = 1
      chmoth = 'BCS2'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 185
      natmed = 'BCN2 Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCN2'
      chshap = 'TRAP'
      nmed = 185
      npar = 11
      par(1) = 2.5
      par(2) = 0
      par(3) = 0
      par(4) = 1.0965
      par(5) = 1
      par(6) = 1
      par(7) = 0
      par(8) = 0.65
      par(9) = 0.65
      par(10) = 0.65
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.221) stop 'consistency check #1 failed'

      chname = 'BCN2'
      nr = 1
      chmoth = 'BCS2'
      x = 68
      y = 0
      z = 197.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1246
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN2'
      nr = 2
      chmoth = 'BCS2'
      x = 68
      y = 0
      z = -197.5
      irot = 1246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'BCPM'
      nr = 3
      chmoth = 'BCS2'
      x = 68
      y = 0
      z = 201
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1247
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCPM'
      nr = 4
      chmoth = 'BCS2'
      x = 68
      y = 0
      z = -201
      irot = 1247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 186
      natmed = 'BCL3 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCL3'
      chshap = 'TUBS'
      nmed = 186
      npar = 5
      par(1) = 69
      par(2) = 71
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.222) stop 'consistency check #1 failed'

      chname = 'BCL3'
      nr = 1
      chmoth = 'BCAM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD25'
      chmoth = 'BCL3'
      ndiv = 4
      iaxis = 2
      step = 1.875
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 187
      natmed = 'BCS3 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCS3'
      chshap = 'TUBS'
      nmed = 187
      npar = 5
      par(1) = 69
      par(2) = 71
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.224) stop 'consistency check #1 failed'

      chname = 'BCS3'
      nr = 1
      chmoth = 'SD25'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 188
      natmed = 'BCM3 leadScint'
      nmat = 60
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM3'
      chshap = 'TUBS'
      nmed = 188
      npar = 5
      par(1) = 69
      par(2) = 71
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.225) stop 'consistency check #1 failed'

      chname = 'BCM3'
      nr = 1
      chmoth = 'BCS3'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 189
      natmed = 'BCN3 Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCN3'
      chshap = 'TRAP'
      nmed = 189
      npar = 11
      par(1) = 2.5
      par(2) = 0
      par(3) = 0
      par(4) = 1.129
      par(5) = 1
      par(6) = 1
      par(7) = 0
      par(8) = 0.65
      par(9) = 0.65
      par(10) = 0.65
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.226) stop 'consistency check #1 failed'

      chname = 'BCN3'
      nr = 1
      chmoth = 'BCS3'
      x = 70
      y = 0
      z = 197.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1248
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN3'
      nr = 2
      chmoth = 'BCS3'
      x = 70
      y = 0
      z = -197.5
      irot = 1248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'BCPM'
      nr = 5
      chmoth = 'BCS3'
      x = 70
      y = 0
      z = 201
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1249
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCPM'
      nr = 6
      chmoth = 'BCS3'
      x = 70
      y = 0
      z = -201
      irot = 1249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 190
      natmed = 'BCL4 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCL4'
      chshap = 'TUBS'
      nmed = 190
      npar = 5
      par(1) = 71
      par(2) = 73
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.227) stop 'consistency check #1 failed'

      chname = 'BCL4'
      nr = 1
      chmoth = 'BCAM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD26'
      chmoth = 'BCL4'
      ndiv = 4
      iaxis = 2
      step = 1.875
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 191
      natmed = 'BCS4 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCS4'
      chshap = 'TUBS'
      nmed = 191
      npar = 5
      par(1) = 71
      par(2) = 73
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.229) stop 'consistency check #1 failed'

      chname = 'BCS4'
      nr = 1
      chmoth = 'SD26'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 192
      natmed = 'BCM4 leadScint'
      nmat = 60
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM4'
      chshap = 'TUBS'
      nmed = 192
      npar = 5
      par(1) = 71
      par(2) = 73
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.230) stop 'consistency check #1 failed'

      chname = 'BCM4'
      nr = 1
      chmoth = 'BCS4'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 193
      natmed = 'BCN4 Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCN4'
      chshap = 'TRAP'
      nmed = 193
      npar = 11
      par(1) = 2.5
      par(2) = 0
      par(3) = 0
      par(4) = 1.1615
      par(5) = 1
      par(6) = 1
      par(7) = 0
      par(8) = 0.65
      par(9) = 0.65
      par(10) = 0.65
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.231) stop 'consistency check #1 failed'

      chname = 'BCN4'
      nr = 1
      chmoth = 'BCS4'
      x = 72
      y = 0
      z = 197.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1250
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN4'
      nr = 2
      chmoth = 'BCS4'
      x = 72
      y = 0
      z = -197.5
      irot = 1250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'BCPM'
      nr = 7
      chmoth = 'BCS4'
      x = 72
      y = 0
      z = 201
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1251
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCPM'
      nr = 8
      chmoth = 'BCS4'
      x = 72
      y = 0
      z = -201
      irot = 1251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 194
      natmed = 'BCL5 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCL5'
      chshap = 'TUBS'
      nmed = 194
      npar = 5
      par(1) = 73
      par(2) = 75
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.232) stop 'consistency check #1 failed'

      chname = 'BCL5'
      nr = 1
      chmoth = 'BCAM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD27'
      chmoth = 'BCL5'
      ndiv = 4
      iaxis = 2
      step = 1.875
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 195
      natmed = 'BCS5 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCS5'
      chshap = 'TUBS'
      nmed = 195
      npar = 5
      par(1) = 73
      par(2) = 75
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.234) stop 'consistency check #1 failed'

      chname = 'BCS5'
      nr = 1
      chmoth = 'SD27'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 196
      natmed = 'BCM5 leadScint'
      nmat = 60
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM5'
      chshap = 'TUBS'
      nmed = 196
      npar = 5
      par(1) = 73
      par(2) = 75
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.235) stop 'consistency check #1 failed'

      chname = 'BCM5'
      nr = 1
      chmoth = 'BCS5'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 197
      natmed = 'BCN5 Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCN5'
      chshap = 'TRAP'
      nmed = 197
      npar = 11
      par(1) = 2.5
      par(2) = 0
      par(3) = 0
      par(4) = 1.1945
      par(5) = 1
      par(6) = 1
      par(7) = 0
      par(8) = 0.65
      par(9) = 0.65
      par(10) = 0.65
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.236) stop 'consistency check #1 failed'

      chname = 'BCN5'
      nr = 1
      chmoth = 'BCS5'
      x = 74
      y = 0
      z = 197.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1252
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN5'
      nr = 2
      chmoth = 'BCS5'
      x = 74
      y = 0
      z = -197.5
      irot = 1252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'BCPM'
      nr = 9
      chmoth = 'BCS5'
      x = 74
      y = 0
      z = 201
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1253
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCPM'
      nr = 10
      chmoth = 'BCS5'
      x = 74
      y = 0
      z = -201
      irot = 1253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 198
      natmed = 'BCL6 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCL6'
      chshap = 'TUBS'
      nmed = 198
      npar = 5
      par(1) = 75
      par(2) = 78.12
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.237) stop 'consistency check #1 failed'

      chname = 'BCL6'
      nr = 1
      chmoth = 'BCAM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD28'
      chmoth = 'BCL6'
      ndiv = 3
      iaxis = 2
      step = 2.5
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 199
      natmed = 'BCS6 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCS6'
      chshap = 'TUBS'
      nmed = 199
      npar = 5
      par(1) = 75
      par(2) = 78.12
      par(3) = 210
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.239) stop 'consistency check #1 failed'

      chname = 'BCS6'
      nr = 1
      chmoth = 'SD28'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 200
      natmed = 'BCM6 leadScint'
      nmat = 60
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM6'
      chshap = 'TUBS'
      nmed = 200
      npar = 5
      par(1) = 75
      par(2) = 78.12
      par(3) = 195
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.240) stop 'consistency check #1 failed'

      chname = 'BCM6'
      nr = 1
      chmoth = 'BCS6'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 201
      natmed = 'BCN6 Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCN6'
      chshap = 'TRAP'
      nmed = 201
      npar = 11
      par(1) = 5
      par(2) = 0
      par(3) = 0
      par(4) = 1.636
      par(5) = 1.56
      par(6) = 1.56
      par(7) = 0
      par(8) = 0.65
      par(9) = 0.65
      par(10) = 0.65
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.241) stop 'consistency check #1 failed'

      chname = 'BCN6'
      nr = 1
      chmoth = 'BCS6'
      x = 76.558
      y = 0
      z = 200
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1254
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN6'
      nr = 2
      chmoth = 'BCS6'
      x = 76.558
      y = 0
      z = -200
      irot = 1254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'BCPM'
      nr = 11
      chmoth = 'BCS6'
      x = 76.558
      y = 0
      z = 206
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1255
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCPM'
      nr = 12
      chmoth = 'BCS6'
      x = 76.558
      y = 0
      z = -206
      irot = 1255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 202
      natmed = 'BCL7 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCL7'
      chshap = 'TUBS'
      nmed = 202
      npar = 5
      par(1) = 78.12
      par(2) = 81.23
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.242) stop 'consistency check #1 failed'

      chname = 'BCL7'
      nr = 1
      chmoth = 'BCAM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD29'
      chmoth = 'BCL7'
      ndiv = 3
      iaxis = 2
      step = 2.5
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 203
      natmed = 'BCS7 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCS7'
      chshap = 'TUBS'
      nmed = 203
      npar = 5
      par(1) = 78.12
      par(2) = 81.23
      par(3) = 210
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.244) stop 'consistency check #1 failed'

      chname = 'BCS7'
      nr = 1
      chmoth = 'SD29'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 204
      natmed = 'BCM7 leadScint'
      nmat = 60
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM7'
      chshap = 'TUBS'
      nmed = 204
      npar = 5
      par(1) = 78.12
      par(2) = 81.23
      par(3) = 195
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.245) stop 'consistency check #1 failed'

      chname = 'BCM7'
      nr = 1
      chmoth = 'BCS7'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 205
      natmed = 'BCN7 Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCN7'
      chshap = 'TRAP'
      nmed = 205
      npar = 11
      par(1) = 5
      par(2) = 0
      par(3) = 0
      par(4) = 1.704
      par(5) = 1.56
      par(6) = 1.56
      par(7) = 0
      par(8) = 0.65
      par(9) = 0.65
      par(10) = 0.65
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.246) stop 'consistency check #1 failed'

      chname = 'BCN7'
      nr = 1
      chmoth = 'BCS7'
      x = 79.673
      y = 0
      z = 200
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1256
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN7'
      nr = 2
      chmoth = 'BCS7'
      x = 79.673
      y = 0
      z = -200
      irot = 1256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'BCPM'
      nr = 13
      chmoth = 'BCS7'
      x = 79.673
      y = 0
      z = 206
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1257
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCPM'
      nr = 14
      chmoth = 'BCS7'
      x = 79.673
      y = 0
      z = -206
      irot = 1257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 206
      natmed = 'BCL8 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCL8'
      chshap = 'TUBS'
      nmed = 206
      npar = 5
      par(1) = 81.23
      par(2) = 84.35
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.247) stop 'consistency check #1 failed'

      chname = 'BCL8'
      nr = 1
      chmoth = 'BCAM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD2A'
      chmoth = 'BCL8'
      ndiv = 3
      iaxis = 2
      step = 2.5
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 207
      natmed = 'BCS8 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCS8'
      chshap = 'TUBS'
      nmed = 207
      npar = 5
      par(1) = 81.23
      par(2) = 84.35
      par(3) = 210
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.249) stop 'consistency check #1 failed'

      chname = 'BCS8'
      nr = 1
      chmoth = 'SD2A'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 208
      natmed = 'BCM8 leadScint'
      nmat = 60
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM8'
      chshap = 'TUBS'
      nmed = 208
      npar = 5
      par(1) = 81.23
      par(2) = 84.35
      par(3) = 195
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.250) stop 'consistency check #1 failed'

      chname = 'BCM8'
      nr = 1
      chmoth = 'BCS8'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 209
      natmed = 'BCN8 Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCN8'
      chshap = 'TRAP'
      nmed = 209
      npar = 11
      par(1) = 5
      par(2) = 0
      par(3) = 0
      par(4) = 1.772
      par(5) = 1.56
      par(6) = 1.56
      par(7) = 0
      par(8) = 0.65
      par(9) = 0.65
      par(10) = 0.65
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.251) stop 'consistency check #1 failed'

      chname = 'BCN8'
      nr = 1
      chmoth = 'BCS8'
      x = 82.787
      y = 0
      z = 200
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1258
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN8'
      nr = 2
      chmoth = 'BCS8'
      x = 82.787
      y = 0
      z = -200
      irot = 1258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'BCPM'
      nr = 15
      chmoth = 'BCS8'
      x = 82.787
      y = 0
      z = 206
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1259
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCPM'
      nr = 16
      chmoth = 'BCS8'
      x = 82.787
      y = 0
      z = -206
      irot = 1259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 210
      natmed = 'BCL9 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCL9'
      chshap = 'TUBS'
      nmed = 210
      npar = 5
      par(1) = 84.35
      par(2) = 87.46
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.252) stop 'consistency check #1 failed'

      chname = 'BCL9'
      nr = 1
      chmoth = 'BCAM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD2B'
      chmoth = 'BCL9'
      ndiv = 3
      iaxis = 2
      step = 2.5
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 211
      natmed = 'BCS9 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCS9'
      chshap = 'TUBS'
      nmed = 211
      npar = 5
      par(1) = 84.35
      par(2) = 87.46
      par(3) = 210
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.254) stop 'consistency check #1 failed'

      chname = 'BCS9'
      nr = 1
      chmoth = 'SD2B'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 212
      natmed = 'BCM9 leadScint'
      nmat = 60
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM9'
      chshap = 'TUBS'
      nmed = 212
      npar = 5
      par(1) = 84.35
      par(2) = 87.46
      par(3) = 195
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.255) stop 'consistency check #1 failed'

      chname = 'BCM9'
      nr = 1
      chmoth = 'BCS9'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 213
      natmed = 'BCN9 Plexiglas'
      nmat = 27
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCN9'
      chshap = 'TRAP'
      nmed = 213
      npar = 11
      par(1) = 5
      par(2) = 0
      par(3) = 0
      par(4) = 1.84
      par(5) = 1.56
      par(6) = 1.56
      par(7) = 0
      par(8) = 0.65
      par(9) = 0.65
      par(10) = 0.65
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.256) stop 'consistency check #1 failed'

      chname = 'BCN9'
      nr = 1
      chmoth = 'BCS9'
      x = 85.903
      y = 0
      z = 200
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1260
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN9'
      nr = 2
      chmoth = 'BCS9'
      x = 85.903
      y = 0
      z = -200
      irot = 1260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'BCPM'
      nr = 17
      chmoth = 'BCS9'
      x = 85.903
      y = 0
      z = 206
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1261
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCPM'
      nr = 18
      chmoth = 'BCS9'
      x = 85.903
      y = 0
      z = -206
      irot = 1261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 214
      natmed = 'BCAS Aluminum'
      nmat = 7
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCAS'
      chshap = 'TUBS'
      nmed = 214
      npar = 5
      par(1) = 87.46
      par(2) = 90
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.257) stop 'consistency check #1 failed'

      chname = 'BCAS'
      nr = 1
      chmoth = 'BCAM'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 215
      natmed = 'BCSU SignalCables'
      nmat = 45
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCSU'
      chshap = 'PCON'
      nmed = 215
      npar = 24
      par(1) = 0
      par(2) = 360
      par(3) = 7
      par(4) = -57
      par(5) = 91.8
      par(6) = 120
      par(7) = -54
      par(8) = 88.8
      par(9) = 120
      par(10) = -54
      par(11) = 88.8
      par(12) = 93
      par(13) = -50.2
      par(14) = 85
      par(15) = 89.2
      par(16) = -49
      par(17) = 85
      par(18) = 88
      par(19) = -10
      par(20) = 85
      par(21) = 88
      par(22) = 0
      par(23) = 65
      par(24) = 88
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.258) stop 'consistency check #1 failed'

      chname = 'BCSU'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 2
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 216
      natmed = 'BCSD SignalCables'
      nmat = 45
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCSD'
      chshap = 'PCON'
      nmed = 216
      npar = 12
      par(1) = 0
      par(2) = 360
      par(3) = 3
      par(4) = 0
      par(5) = 65
      par(6) = 88
      par(7) = 10
      par(8) = 85
      par(9) = 88
      par(10) = 30
      par(11) = 85
      par(12) = 88
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.259) stop 'consistency check #1 failed'

      chname = 'BCSD'
      nr = 1
      chmoth = 'LASS'
      x = 0
      y = 0
      z = 422
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 217
      natmed = 'CERE Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CERE'
      chshap = 'PCON'
      nmed = 217
      npar = 15
      par(1) = 0
      par(2) = 360
      par(3) = 4
      par(4) = 0
      par(5) = 5
      par(6) = 60
      par(7) = 57.9
      par(8) = 5
      par(9) = 60
      par(10) = 57.9
      par(11) = 5
      par(12) = 280
      par(13) = 204
      par(14) = 5
      par(15) = 280
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.260) stop 'consistency check #1 failed'

      chname = 'CERE'
      nr = 1
      chmoth = 'HALL'
      x = 150
      y = -350
      z = -93
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 63
      chnama = 'Fluorine'
      a = 18.9984
      z = 9
      dens = 0.00158
      radl = 20841.8
      absl = 60316.5
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 62
      namate = 'Tedlar'
      wmat(1) = 2
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 3
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 1
      call gfmate(63,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.49
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 218
      natmed = 'CERW Tedlar'
      nmat = 62
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CERW'
      chshap = 'TUBE'
      nmed = 218
      npar = 3
      par(1) = 5.1
      par(2) = 59.9
      par(3) = 0.002
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.261) stop 'consistency check #1 failed'

      chname = 'CERW'
      nr = 1
      chmoth = 'CERE'
      x = 0
      y = 0
      z = 0.002
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 64
      namate = 'CerenkovGas'
      wmat(1) = 4
      call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 10
      call gfmate(63,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.01012
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 219
      natmed = 'CERI CerenkovGas'
      nmat = 64
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)
      call setoptical64(itmed)

      chname = 'CERI'
      chshap = 'TUBE'
      nmed = 219
      npar = 3
      par(1) = 5.1
      par(2) = 59.9
      par(3) = 29
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.262) stop 'consistency check #1 failed'

      chname = 'CERI'
      nr = 1
      chmoth = 'CERE'
      x = 0
      y = 0
      z = 29
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 220
      natmed = 'CGAS CerenkovGas'
      nmat = 64
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)
      call setoptical64(itmed)

      chname = 'CGAS'
      chshap = 'TUBE'
      nmed = 220
      npar = 3
      par(1) = 5.1
      par(2) = 279.9
      par(3) = 72.95
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.263) stop 'consistency check #1 failed'

      chname = 'CGAS'
      nr = 1
      chmoth = 'CERE'
      x = 0
      y = 0
      z = 130.95
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD2C'
      chmoth = 'CGAS'
      ndiv = 16
      iaxis = 2
      step = 22.5
      c0 = 0
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 221
      natmed = 'CSEC CerenkovGas'
      nmat = 64
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)
      call setoptical64(itmed)

      chname = 'CSEC'
      chshap = 'TUBS'
      nmed = 221
      npar = 5
      par(1) = 5.1
      par(2) = 279.9
      par(3) = 72.95
      par(4) = -11.25
      par(5) = 11.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.265) stop 'consistency check #1 failed'

      chname = 'CSEC'
      nr = 1
      chmoth = 'SD2C'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 65
      namate = 'ThinCerenkovMirror'
      wmat(1) = 11
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 8
      call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 1
      call gfmate(2,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 2
      call gfmate(3,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 0.04
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 222
      natmed = 'CMI1 ThinCerenkovMirror'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)
      call setoptical65(itmed)

      chname = 'CMI1'
      chshap = 'PGON'
      nmed = 222
      npar = 16
      par(1) = -11.25
      par(2) = 22.5
      par(3) = 1
      par(4) = 4
      par(5) = 0
      par(6) = 7.5
      par(7) = 7.5
      par(8) = 4.45
      par(9) = 5.1
      par(10) = 16.06
      par(11) = 53.3
      par(12) = 99.04
      par(13) = 110
      par(14) = 57.7
      par(15) = 107.5
      par(16) = 107.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.266) stop 'consistency check #1 failed'

      chname = 'CMI1'
      nr = 1
      chmoth = 'CSEC'
      x = 0
      y = 0
      z = 14.2
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 66
      namate = 'ThickCerenkovMirror'
      wmat(1) = 11
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 8
      call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 1
      call gfmate(2,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 2
      call gfmate(3,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 0.2
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 223
      natmed = 'CMI2 ThickCerenkovMirror'
      nmat = 66
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)
      call setoptical66(itmed)

      chname = 'CMI2'
      chshap = 'PGON'
      nmed = 223
      npar = 16
      par(1) = -5.5125
      par(2) = 11.25
      par(3) = 1
      par(4) = 4
      par(5) = 0
      par(6) = 119.3
      par(7) = 119.3
      par(8) = 3.32
      par(9) = 115.5
      par(10) = 121.83
      par(11) = 130.44
      par(12) = 212.47
      par(13) = 218.8
      par(14) = 133.76
      par(15) = 215
      par(16) = 215
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.267) stop 'consistency check #1 failed'

      chname = 'CMI2'
      nr = 1
      chmoth = 'CSEC'
      x = 0
      y = 0
      z = -62.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 68
      namate = 'Cesium'
      a = 132.905
      z = 55
      dens = 1.87
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 67
      namate = 'CerenkovPMT'
      wmat(1) = 0.999
      call gfmate(36,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.001
      call gfmate(68,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.29947
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 224
      natmed = 'CPMT CerenkovPMT'
      nmat = 67
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)
      call setoptical67(itmed)

      chname = 'CPMT'
      chshap = 'PGON'
      nmed = 224
      npar = 16
      par(1) = -11.25
      par(2) = 22.5
      par(3) = 1
      par(4) = 4
      par(5) = 0
      par(6) = 142.3
      par(7) = 142.3
      par(8) = 9
      par(9) = 133.3
      par(10) = 151.3
      par(11) = 23.3
      par(12) = 119
      par(13) = 137
      par(14) = 32.3
      par(15) = 128
      par(16) = 128
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.268) stop 'consistency check #1 failed'

      chname = 'CPMT'
      nr = 1
      chmoth = 'CSEC'
      x = 0
      y = 0
      z = 32.9
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 225
      natmed = 'FTOF Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FTOF'
      chshap = 'BOX '
      nmed = 225
      npar = 3
      par(1) = 126
      par(2) = 126
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.269) stop 'consistency check #1 failed'

      irot = 1262
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = 3.50824e-15
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FTOF'
      nr = 1
      chmoth = 'HALL'
      x = 150
      y = -350
      z = 117.52
      irot = 1262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 226
      natmed = 'FTOB Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FTOB'
      chshap = 'BOX '
      nmed = 226
      npar = 3
      par(1) = 126
      par(2) = 60
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.270) stop 'consistency check #1 failed'

      chname = 'FTOB'
      nr = 1
      chmoth = 'FTOF'
      x = 0
      y = -66
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD01'
      chmoth = 'FTOB'
      ndiv = 20
      iaxis = 2
      step = 6
      c0 = -60
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 227
      natmed = 'FTOC Scintillator'
      nmat = 25
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FTOC'
      chshap = 'BOX '
      nmed = 227
      npar = 3
      par(1) = 126
      par(2) = 3
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.272) stop 'consistency check #1 failed'

      chname = 'FTOC'
      nr = 1
      chmoth = 'YD01'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 228
      natmed = 'FTON Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FTON'
      chshap = 'BOX '
      nmed = 228
      npar = 3
      par(1) = 60
      par(2) = 6
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.273) stop 'consistency check #1 failed'

      chname = 'FTON'
      nr = 1
      chmoth = 'FTOF'
      x = 66
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD02'
      chmoth = 'FTON'
      ndiv = 2
      iaxis = 2
      step = 6
      c0 = -6
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 229
      natmed = 'FTOH Scintillator'
      nmat = 25
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FTOH'
      chshap = 'BOX '
      nmed = 229
      npar = 3
      par(1) = 60
      par(2) = 3
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.275) stop 'consistency check #1 failed'

      chname = 'FTOH'
      nr = 1
      chmoth = 'YD02'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 230
      natmed = 'FTOS Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FTOS'
      chshap = 'BOX '
      nmed = 230
      npar = 3
      par(1) = 60
      par(2) = 6
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.276) stop 'consistency check #1 failed'

      chname = 'FTOS'
      nr = 1
      chmoth = 'FTOF'
      x = -66
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD03'
      chmoth = 'FTOS'
      ndiv = 2
      iaxis = 2
      step = 6
      c0 = -6
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'FTOH'
      nr = 2
      chmoth = 'YD03'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 231
      natmed = 'FTOT Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FTOT'
      chshap = 'BOX '
      nmed = 231
      npar = 3
      par(1) = 126
      par(2) = 60
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.278) stop 'consistency check #1 failed'

      chname = 'FTOT'
      nr = 1
      chmoth = 'FTOF'
      x = 0
      y = 66
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD04'
      chmoth = 'FTOT'
      ndiv = 20
      iaxis = 2
      step = 6
      c0 = -60
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'FTOC'
      nr = 2
      chmoth = 'YD04'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FTOF'
      nr = 2
      chmoth = 'HALL'
      x = 150
      y = -350
      z = 120.1
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 232
      natmed = 'FCAL Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FCAL'
      chshap = 'BOX '
      nmed = 232
      npar = 3
      par(1) = 118
      par(2) = 118
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.280) stop 'consistency check #1 failed'

      chname = 'FCAL'
      nr = 1
      chmoth = 'HALL'
      x = 150
      y = -350
      z = 147.8
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 233
      natmed = 'LGDB Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'LGDB'
      chshap = 'BOX '
      nmed = 233
      npar = 3
      par(1) = 118
      par(2) = 56
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.281) stop 'consistency check #1 failed'

      chname = 'LGDB'
      nr = 1
      chmoth = 'FCAL'
      x = 0
      y = -62
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD05'
      chmoth = 'LGDB'
      ndiv = 28
      iaxis = 2
      step = 4
      c0 = -56
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'XD01'
      chmoth = 'YD05'
      ndiv = 59
      iaxis = 1
      step = 4
      c0 = -118
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      imate = 69
      namate = 'leadGlassF800'
      wmat(1) = 0.6803
      call gfmate(17,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.0877
      call gfmate(9,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.0593
      call gfmate(42,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.006
      call gfmate(40,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.1667
      call gfmate(3,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf)
      dens = 3.61
      nlmat = 5
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 234
      natmed = 'LGBL leadGlassF800'
      nmat = 69
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'LGBL'
      chshap = 'BOX '
      nmed = 234
      npar = 3
      par(1) = 2
      par(2) = 2
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.284) stop 'consistency check #1 failed'

      chname = 'LGBL'
      nr = 1
      chmoth = 'XD01'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 235
      natmed = 'LGDS Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'LGDS'
      chshap = 'BOX '
      nmed = 235
      npar = 3
      par(1) = 56
      par(2) = 6
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.285) stop 'consistency check #1 failed'

      chname = 'LGDS'
      nr = 1
      chmoth = 'FCAL'
      x = -62
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD06'
      chmoth = 'LGDS'
      ndiv = 3
      iaxis = 2
      step = 4
      c0 = -6
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'XD02'
      chmoth = 'YD06'
      ndiv = 28
      iaxis = 1
      step = 4
      c0 = -56
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'LGBL'
      nr = 2
      chmoth = 'XD02'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 236
      natmed = 'LGDN Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'LGDN'
      chshap = 'BOX '
      nmed = 236
      npar = 3
      par(1) = 56
      par(2) = 6
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.288) stop 'consistency check #1 failed'

      chname = 'LGDN'
      nr = 1
      chmoth = 'FCAL'
      x = 62
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD07'
      chmoth = 'LGDN'
      ndiv = 3
      iaxis = 2
      step = 4
      c0 = -6
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'XD03'
      chmoth = 'YD07'
      ndiv = 28
      iaxis = 1
      step = 4
      c0 = -56
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'LGBL'
      nr = 3
      chmoth = 'XD03'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 237
      natmed = 'LGDT Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'LGDT'
      chshap = 'BOX '
      nmed = 237
      npar = 3
      par(1) = 118
      par(2) = 56
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.291) stop 'consistency check #1 failed'

      chname = 'LGDT'
      nr = 1
      chmoth = 'FCAL'
      x = 0
      y = 62
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD08'
      chmoth = 'LGDT'
      ndiv = 28
      iaxis = 2
      step = 4
      c0 = -56
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'XD04'
      chmoth = 'YD08'
      ndiv = 59
      iaxis = 1
      step = 4
      c0 = -118
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'LGBL'
      nr = 4
      chmoth = 'XD04'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 238
      natmed = 'UPV Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPV'
      chshap = 'PGON'
      nmed = 238
      npar = 10
      par(1) = -45
      par(2) = 360
      par(3) = 4
      par(4) = 2
      par(5) = -13
      par(6) = 11.75
      par(7) = 120
      par(8) = 13
      par(9) = 11.75
      par(10) = 120
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.294) stop 'consistency check #1 failed'

      chname = 'UPV'
      nr = 1
      chmoth = 'HALL'
      x = 150
      y = -350
      z = -573.8
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 239
      natmed = 'UPL1 Lead'
      nmat = 17
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPL1'
      chshap = 'BOX '
      nmed = 239
      npar = 3
      par(1) = 119
      par(2) = 53.125
      par(3) = 0.125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.295) stop 'consistency check #1 failed'

      chname = 'UPL1'
      nr = 1
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 2
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 240
      natmed = 'UPL2 Lead'
      nmat = 17
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPL2'
      chshap = 'BOX '
      nmed = 240
      npar = 3
      par(1) = 53.125
      par(2) = 12.75
      par(3) = 0.125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.296) stop 'consistency check #1 failed'

      chname = 'UPL2'
      nr = 1
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 2
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 241
      natmed = 'UPE1 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPE1'
      chshap = 'BOX '
      nmed = 241
      npar = 3
      par(1) = 119
      par(2) = 53.125
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.297) stop 'consistency check #1 failed'

      chname = 'UPE1'
      nr = 1
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD09'
      chmoth = 'UPE1'
      ndiv = 25
      iaxis = 2
      step = 4.25
      c0 = -53.125
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 242
      natmed = 'UPVP Scintillator'
      nmat = 25
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPVP'
      chshap = 'BOX '
      nmed = 242
      npar = 3
      par(1) = 119
      par(2) = 2.125
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.299) stop 'consistency check #1 failed'

      chname = 'UPVP'
      nr = 1
      chmoth = 'YD09'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 243
      natmed = 'UPE2 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPE2'
      chshap = 'BOX '
      nmed = 243
      npar = 3
      par(1) = 119
      par(2) = 53.125
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.300) stop 'consistency check #1 failed'

      chname = 'UPE2'
      nr = 1
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD0A'
      chmoth = 'UPE2'
      ndiv = 25
      iaxis = 2
      step = 4.25
      c0 = -53.125
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'UPVP'
      nr = 2
      chmoth = 'YD0A'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 244
      natmed = 'UPE3 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPE3'
      chshap = 'BOX '
      nmed = 244
      npar = 3
      par(1) = 53.125
      par(2) = 12.75
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.302) stop 'consistency check #1 failed'

      chname = 'UPE3'
      nr = 1
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD0B'
      chmoth = 'UPE3'
      ndiv = 6
      iaxis = 2
      step = 4.25
      c0 = -12.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 245
      natmed = 'UPVC Scintillator'
      nmat = 25
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPVC'
      chshap = 'BOX '
      nmed = 245
      npar = 3
      par(1) = 53.125
      par(2) = 2.125
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.304) stop 'consistency check #1 failed'

      chname = 'UPVC'
      nr = 1
      chmoth = 'YD0B'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 246
      natmed = 'UPE4 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPE4'
      chshap = 'BOX '
      nmed = 246
      npar = 3
      par(1) = 53.125
      par(2) = 12.75
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.305) stop 'consistency check #1 failed'

      chname = 'UPE4'
      nr = 1
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD0C'
      chmoth = 'UPE4'
      ndiv = 6
      iaxis = 2
      step = 4.25
      c0 = -12.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'UPVC'
      nr = 2
      chmoth = 'YD0C'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 3
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 4
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 3
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 4
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 2
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 2
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 2
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 2
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 5
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 6
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 5
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 6
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 3
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 3
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 3
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 3
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 7
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 8
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 7
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 8
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 4
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 4
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 4
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 4
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 9
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 10
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 9
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 10
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 5
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 5
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 5
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 5
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 11
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 4.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 12
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 4.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 11
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 4.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 12
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 4.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 6
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 3.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 6
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 3.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 6
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 3.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 6
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 3.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 13
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 5.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 14
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 5.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 13
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 5.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 14
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 5.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 7
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 7
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 7
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 7
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 15
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 6.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 16
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 6.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 15
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 6.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 16
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 6.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 8
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 6.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 8
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 6.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 8
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 6.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 8
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 6.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 17
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 8.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 18
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 8.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 17
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 8.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 18
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 8.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 9
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 7.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 9
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 7.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 9
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 7.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 9
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 7.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 19
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 20
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 19
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 20
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 10
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 8.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 10
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 8.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 10
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 8.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 10
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 8.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 21
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 22
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 21
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 22
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 11
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 11
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 11
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 11
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 23
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 11.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 24
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 11.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 23
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 11.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 24
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 11.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 12
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 11.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 12
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 11.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 12
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 11.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 12
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 11.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 25
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 26
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 25
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 26
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 27
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -10.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 28
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -10.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 27
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -10.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 28
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -10.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 13
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -11.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 13
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -11.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 13
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -11.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 13
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -11.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 29
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -9.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 30
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -9.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 29
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -9.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 30
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -9.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 31
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 32
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 31
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 32
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 14
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 14
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 14
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 14
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 33
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -7.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 34
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -7.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 33
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -7.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 34
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -7.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 35
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -7.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 36
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -7.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 35
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -7.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 36
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -7.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 15
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -8.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 15
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -8.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 15
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -8.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 15
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -8.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 37
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -6.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 38
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -6.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 37
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -6.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 38
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -6.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 39
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -6.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 40
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -6.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 39
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -6.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 40
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -6.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 16
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -7
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 16
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -7
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 16
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -7
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 16
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -7
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 41
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -4.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 42
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -4.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 41
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -4.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 42
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -4.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 43
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -4.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 44
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -4.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 43
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -4.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 44
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -4.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 17
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -5.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 17
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -5.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 17
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -5.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 17
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -5.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 45
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 46
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 45
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 46
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 47
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -3.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 48
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -3.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 47
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -3.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 48
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -3.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 18
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 18
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 18
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 18
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 247
      natmed = 'DET4 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DET4'
      chshap = 'BOX '
      nmed = 247
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.307) stop 'consistency check #1 failed'

      chname = 'DET4'
      nr = 1
      chmoth = 'HALL'
      x = 0
      y = 0
      z = -1400
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 248
      natmed = 'DET5 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DET5'
      chshap = 'BOX '
      nmed = 248
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.308) stop 'consistency check #1 failed'

      chname = 'DET5'
      nr = 1
      chmoth = 'HALL'
      x = 0
      y = 0
      z = 1400
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 249
      natmed = 'DET6 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DET6'
      chshap = 'BOX '
      nmed = 249
      npar = 3
      par(1) = 850
      par(2) = 1
      par(3) = 1500
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.309) stop 'consistency check #1 failed'

      chname = 'DET6'
      nr = 1
      chmoth = 'HALL'
      x = 0
      y = 600
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 250
      natmed = 'DET7 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DET7'
      chshap = 'BOX '
      nmed = 250
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.310) stop 'consistency check #1 failed'

      chname = 'DET7'
      nr = 1
      chmoth = 'HALL'
      x = 0
      y = 0
      z = -591
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 251
      natmed = 'OHPI Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'OHPI'
      chshap = 'TUBE'
      nmed = 251
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 454
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.311) stop 'consistency check #1 failed'

      chname = 'OHPI'
      nr = 1
      chmoth = 'HALL'
      x = 150
      y = -350
      z = -1046
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 252
      natmed = 'IHPI Vacuum'
      nmat = 11
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'IHPI'
      chshap = 'TUBE'
      nmed = 252
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 454
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.312) stop 'consistency check #1 failed'

      chname = 'IHPI'
      nr = 1
      chmoth = 'OHPI'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 253
      natmed = 'CAP2 Mylar'
      nmat = 19
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CAP2'
      chshap = 'TUBE'
      nmed = 253
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 0.025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.313) stop 'consistency check #1 failed'

      chname = 'CAP2'
      nr = 1
      chmoth = 'IHPI'
      x = 0
      y = 0
      z = 453.975
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)
      end

      subroutine setoptical64(itmed)
      implicit none
      integer itmed
      integer nbins
      real Ephot(8)
      real abslen(8)
      real effic(8)
      real rindex(8)
      real smooth(8)
      real refloss(8)
      common /optical64/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      integer i
      data nbins/8/
      data (Ephot(i),i=1,8) /
     + 1.5e-09,2e-09,2.5e-09,3e-09,3.5e-09,4e-09,
     + 4.5e-09,5e-09/
      data (rindex(i),i=1,8) /
     + 1.00133,1.00134,1.00135,1.00137,1.00139,1.00141,
     + 1.00143,1.00146/
      data (abslen(i),i=1,8) /
     + 10000,10000,10000,10000,10000,3000,
     + 2000,150/
      data (smooth(i),i=1,8) /
     + 0,0,0,0,0,0,
     + 0,0/
      data (refloss(i),i=1,8) /
     + 1,1,1,1,1,1,
     + 1,1/
      data (effic(i),i=1,8) /
     + 0,0,0,0,0,0,
     + 0,0/
      call GSCKOV(itmed,nbins,Ephot,abslen,effic,rindex)
      end

      subroutine getoptical64(E,refl,absl,rind,plsh,eff)
      implicit none
      real E,refl,absl,rind,plsh,eff
      integer n
      real x
      integer nbins
      real Ephot(8)
      real abslen(8)
      real effic(8)
      real rindex(8)
      real smooth(8)
      real refloss(8)
      common /optical64/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      do n=1,nbins
        if (E.lt.Ephot(n)) go to 10
      enddo
   10 continue
      if (n.eq.1.or.n.gt.nbins) then
        refl = 0
        absl = 0
        rind = 0
        plsh = 1
        eff = 0
      else
        x = (E-Ephot(n-1))/(Ephot(n)-Ephot(n-1))
        refl = (1-x)*refloss(n-1)+x*refloss(n)
        absl = (1-x)*abslen(n-1)+x*abslen(n)
        rind = (1-x)*rindex(n-1)+x*rindex(n)
        plsh = (1-x)*smooth(n-1)+x*smooth(n)
        eff = (1-x)*effic(n-1)+x*effic(n)
      endif
      end

      subroutine setoptical65(itmed)
      implicit none
      integer itmed
      integer nbins
      real Ephot(8)
      real abslen(8)
      real effic(8)
      real rindex(8)
      real smooth(8)
      real refloss(8)
      common /optical65/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      integer i
      data nbins/8/
      data (Ephot(i),i=1,8) /
     + 1.5e-09,2e-09,2.5e-09,3e-09,3.5e-09,4e-09,
     + 4.5e-09,5e-09/
      data (rindex(i),i=1,8) /
     + 0,0,0,0,0,0,
     + 0,0/
      data (abslen(i),i=1,8) /
     + 0,0,0,0,0,0,
     + 0,0/
      data (smooth(i),i=1,8) /
     + 1,1,1,1,1,1,
     + 1,1/
      data (refloss(i),i=1,8) /
     + 0.02,0.02,0.02,0.05,0.07,0.11,
     + 0.2,0.7/
      data (effic(i),i=1,8) /
     + 0,0,0,0,0,0,
     + 0,0/
      call GSCKOV(itmed,nbins,Ephot,refloss,effic,rindex)
      end

      subroutine getoptical65(E,refl,absl,rind,plsh,eff)
      implicit none
      real E,refl,absl,rind,plsh,eff
      integer n
      real x
      integer nbins
      real Ephot(8)
      real abslen(8)
      real effic(8)
      real rindex(8)
      real smooth(8)
      real refloss(8)
      common /optical65/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      do n=1,nbins
        if (E.lt.Ephot(n)) go to 10
      enddo
   10 continue
      if (n.eq.1.or.n.gt.nbins) then
        refl = 0
        absl = 0
        rind = 0
        plsh = 1
        eff = 0
      else
        x = (E-Ephot(n-1))/(Ephot(n)-Ephot(n-1))
        refl = (1-x)*refloss(n-1)+x*refloss(n)
        absl = (1-x)*abslen(n-1)+x*abslen(n)
        rind = (1-x)*rindex(n-1)+x*rindex(n)
        plsh = (1-x)*smooth(n-1)+x*smooth(n)
        eff = (1-x)*effic(n-1)+x*effic(n)
      endif
      end

      subroutine setoptical66(itmed)
      implicit none
      integer itmed
      integer nbins
      real Ephot(8)
      real abslen(8)
      real effic(8)
      real rindex(8)
      real smooth(8)
      real refloss(8)
      common /optical66/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      integer i
      data nbins/8/
      data (Ephot(i),i=1,8) /
     + 1.5e-09,2e-09,2.5e-09,3e-09,3.5e-09,4e-09,
     + 4.5e-09,5e-09/
      data (rindex(i),i=1,8) /
     + 0,0,0,0,0,0,
     + 0,0/
      data (abslen(i),i=1,8) /
     + 0,0,0,0,0,0,
     + 0,0/
      data (smooth(i),i=1,8) /
     + 1,1,1,1,1,1,
     + 1,1/
      data (refloss(i),i=1,8) /
     + 0.02,0.02,0.02,0.05,0.07,0.11,
     + 0.2,0.7/
      data (effic(i),i=1,8) /
     + 0,0,0,0,0,0,
     + 0,0/
      call GSCKOV(itmed,nbins,Ephot,refloss,effic,rindex)
      end

      subroutine getoptical66(E,refl,absl,rind,plsh,eff)
      implicit none
      real E,refl,absl,rind,plsh,eff
      integer n
      real x
      integer nbins
      real Ephot(8)
      real abslen(8)
      real effic(8)
      real rindex(8)
      real smooth(8)
      real refloss(8)
      common /optical66/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      do n=1,nbins
        if (E.lt.Ephot(n)) go to 10
      enddo
   10 continue
      if (n.eq.1.or.n.gt.nbins) then
        refl = 0
        absl = 0
        rind = 0
        plsh = 1
        eff = 0
      else
        x = (E-Ephot(n-1))/(Ephot(n)-Ephot(n-1))
        refl = (1-x)*refloss(n-1)+x*refloss(n)
        absl = (1-x)*abslen(n-1)+x*abslen(n)
        rind = (1-x)*rindex(n-1)+x*rindex(n)
        plsh = (1-x)*smooth(n-1)+x*smooth(n)
        eff = (1-x)*effic(n-1)+x*effic(n)
      endif
      end

      subroutine setoptical67(itmed)
      implicit none
      integer itmed
      integer nbins
      real Ephot(36)
      real abslen(36)
      real effic(36)
      real rindex(36)
      real smooth(36)
      real refloss(36)
      common /optical67/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      integer i
      data nbins/36/
      data (Ephot(i),i=1,36) /
     + 1.5e-09,1.6e-09,1.7e-09,1.8e-09,1.9e-09,2e-09,
     + 2.1e-09,2.2e-09,2.3e-09,2.4e-09,2.5e-09,2.6e-09,
     + 2.7e-09,2.8e-09,2.9e-09,3e-09,3.1e-09,3.2e-09,
     + 3.3e-09,3.4e-09,3.5e-09,3.6e-09,3.7e-09,3.8e-09,
     + 3.9e-09,4e-09,4.1e-09,4.2e-09,4.3e-09,4.4e-09,
     + 4.5e-09,4.6e-09,4.7e-09,4.8e-09,4.9e-09,5e-09/
      data (rindex(i),i=1,36) /
     + 1.52,1.52,1.52,1.52,1.52,1.52,
     + 1.52,1.52,1.52,1.52,1.52,1.52,
     + 1.52,1.52,1.52,1.52,1.52,1.52,
     + 1.52,1.52,1.52,1.52,1.52,1.52,
     + 1.52,1.52,1.52,1.52,1.52,1.52,
     + 1.52,1.52,1.52,1.52,1.52,1.52/
      data (abslen(i),i=1,36) /
     + 0.001,0.001,0.001,0.001,0.001,0.001,
     + 0.001,0.001,0.001,0.001,0.001,0.001,
     + 0.001,0.001,0.001,0.001,0.001,0.001,
     + 0.001,0.001,0.001,0.001,0.001,0.001,
     + 0.001,0.001,0.001,0.001,0.001,0.001,
     + 0.001,0.001,0.001,0.001,0.001,0.001/
      data (smooth(i),i=1,36) /
     + 0,0,0,0,0,0,
     + 0,0,0,0,0,0,
     + 0,0,0,0,0,0,
     + 0,0,0,0,0,0,
     + 0,0,0,0,0,0,
     + 0,0,0,0,0,0/
      data (refloss(i),i=1,36) /
     + 1,1,1,1,1,1,
     + 1,1,1,1,1,1,
     + 1,1,1,1,1,1,
     + 1,1,1,1,1,1,
     + 1,1,1,1,1,1,
     + 1,1,1,1,1,1/
      data (effic(i),i=1,36) /
     + 0.001,0.004,0.008,0.012,0.016,0.019,
     + 0.03,0.06,0.09,0.13,0.16,0.19,
     + 0.22,0.23,0.24,0.26,0.27,0.27,
     + 0.27,0.26,0.25,0.24,0.22,0.19,
     + 0.16,0.13,0.1,0.07,0.04,0.03,
     + 0.025,0.02,0.015,0.01,0.005,0.002/
      call GSCKOV(itmed,nbins,Ephot,abslen,effic,rindex)
      end

      subroutine getoptical67(E,refl,absl,rind,plsh,eff)
      implicit none
      real E,refl,absl,rind,plsh,eff
      integer n
      real x
      integer nbins
      real Ephot(36)
      real abslen(36)
      real effic(36)
      real rindex(36)
      real smooth(36)
      real refloss(36)
      common /optical67/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      do n=1,nbins
        if (E.lt.Ephot(n)) go to 10
      enddo
   10 continue
      if (n.eq.1.or.n.gt.nbins) then
        refl = 0
        absl = 0
        rind = 0
        plsh = 1
        eff = 0
      else
        x = (E-Ephot(n-1))/(Ephot(n)-Ephot(n-1))
        refl = (1-x)*refloss(n-1)+x*refloss(n)
        absl = (1-x)*abslen(n-1)+x*abslen(n)
        rind = (1-x)*rindex(n-1)+x*rindex(n)
        plsh = (1-x)*smooth(n-1)+x*smooth(n)
        eff = (1-x)*effic(n-1)+x*effic(n)
      endif
      end

      function getColumn()
      implicit none
      integer getColumn
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(313)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     1,    0,    0,   21,    0,    0,   23,    0,   25,    0,
     +     0,    0,   45,    0,    0,    0,  104,    0,    0,  132,
     +     0,    0,  160,    0,    0,    0,    0,  219,    0,    0/
      data (istart(i),i=301,313) /
     +   244,    0,  269,    0,    0,  275,    0,    0,    0,    0,
     +     0,    0,    0/
      integer lookup(280)
      data (lookup(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     1,    1,    2,    2,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,   58,   57,   56,   55,   54,   53,
     +    52,   51,   50,   49,   48,   47,   46,   45,   44,   43,
     +    42,   41,   40,   39,   38,   37,   36,   35,   34,   33,
     +    32,   31,   30,   29,   28,   27,   26,   25,   24,   23,
     +    22,   21,   20,   19,   18,   17,   16,   15,   14,   13,
     +    12,   11,   10,    9,    8,    7,    6,    5,    4,    3/
      data (lookup(i),i=101,200) /
     +     2,    1,    0,   58,   57,   56,   55,   54,   53,   52,
     +    51,   50,   49,   48,   47,   46,   45,   44,   43,   42,
     +    41,   40,   39,   38,   37,   36,   35,   34,   33,   32,
     +    31,   27,   26,   25,   24,   23,   22,   21,   20,   19,
     +    18,   17,   16,   15,   14,   13,   12,   11,   10,    9,
     +     8,    7,    6,    5,    4,    3,    2,    1,    0,   58,
     +    57,   56,   55,   54,   53,   52,   51,   50,   49,   48,
     +    47,   46,   45,   44,   43,   42,   41,   40,   39,   38,
     +    37,   36,   35,   34,   33,   32,   31,   30,   29,   28,
     +    27,   26,   25,   24,   23,   22,   21,   20,   19,   18/
      data (lookup(i),i=201,280) /
     +    17,   16,   15,   14,   13,   12,   11,   10,    9,    8,
     +     7,    6,    5,    4,    3,    2,    1,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    1,    1,
     +     1,    1,    1,    1,    2,    2,    2,    2,    2,    2/
      integer level,index
      integer column
      getColumn = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          column = lookup(index + number(level) - 1)
          if (column.gt.0) then
            getColumn = column
          endif
        endif
      enddo
      end

      function getLayer()
      implicit none
      integer getLayer
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(313)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    1,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    4,    0,    0,    0,    0,    0,    8,    0,    0,
     +     0,    0,   12,    0,    0,    0,    0,   16,    0,    0,
     +     0,    0,   20,    0,    0,    0,    0,   24,    0,    0,
     +     0,    0,   27,    0,    0,    0,    0,   30,    0,    0,
     +     0,    0,   33,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,   36,   84,  132,    0,    0,  150/
      data (istart(i),i=301,313) /
     +     0,  168,    0,    0,  186,    0,    0,    0,    0,    0,
     +     0,    0,    0/
      integer lookup(203)
      data (lookup(i),i=1,100) /
     +     1,    2,    3,    1,    1,    1,    1,    2,    2,    2,
     +     2,    3,    3,    3,    3,    4,    4,    4,    4,    5,
     +     5,    5,    5,    6,    6,    6,    7,    7,    7,    8,
     +     8,    8,    9,    9,    9,   12,   12,   11,   11,   10,
     +    10,    9,    9,    8,    8,    7,    7,    6,    6,    5,
     +     5,    4,    4,    3,    3,    2,    2,    1,    1,   18,
     +    18,   18,   18,   17,   17,   17,   17,   16,   16,   16,
     +    16,   15,   15,   15,   15,   14,   14,   14,   14,   13,
     +    13,   13,   13,   12,   12,   11,   11,   10,   10,    9,
     +     9,    8,    8,    7,    7,    6,    6,    5,    5,    4/
      data (lookup(i),i=101,200) /
     +     4,    3,    3,    2,    2,    1,    1,   18,   18,   18,
     +    18,   17,   17,   17,   17,   16,   16,   16,   16,   15,
     +    15,   15,   15,   14,   14,   14,   14,   13,   13,   13,
     +    13,   12,   11,   10,    9,    8,    7,    6,    5,    4,
     +     3,    2,    1,   18,   17,   16,   15,   14,   13,   12,
     +    11,   10,    9,    8,    7,    6,    5,    4,    3,    2,
     +     1,   18,   17,   16,   15,   14,   13,   12,   11,   10,
     +     9,    8,    7,    6,    5,    4,    3,    2,    1,   18,
     +    17,   16,   15,   14,   13,   12,   11,   10,    9,    8,
     +     7,    6,    5,    4,    3,    2,    1,   18,   17,   16/
      data (lookup(i),i=201,203) /
     +    15,   14,   13/
      integer level,index
      integer layer
      getLayer = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          layer = lookup(index + number(level) - 1)
          if (layer.gt.0) then
            getLayer = layer
          endif
        endif
      enddo
      end

      function getMap()
      implicit none
      integer getMap
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(313)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    1,
     +     0,    0,    0,    0,    0,    0,    0,    2,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     3,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     4,    0,    0,    0,    0,    0,    5,    0,    0,    0,
     +     0,    6,    0,    0,    0,    0,    7,    0,    0,    0,
     +     0,    8,    0,    0,    0,    0,    9,    0,    0,    0,
     +     0,   10,    0,    0,    0,    0,   11,    0,    0,    0,
     +     0,   12,    0,    0,    0,    0,   13,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,   14,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,313) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0/
      integer lookup(14)
      data (lookup(i),i=1,14) /
     +     1,    2,    3,    4,    4,    4,    4,    4,    4,    4,
     +     4,    4,    4,    5/
      integer level,index
      integer map
      getMap = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          map = lookup(index + number(level) - 1)
          if (map.gt.0) then
            getMap = map
          endif
        endif
      enddo
      end

      function getModule()
      implicit none
      integer getModule
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(313)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    1,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    9,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,313) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0/
      integer lookup(56)
      data (lookup(i),i=1,56) /
     +     1,    2,    3,    4,    5,    6,    7,    8,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22,
     +    23,   24,   25,   26,   27,   28,   29,   30,   31,   32,
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42,
     +    43,   44,   45,   46,   47,   48/
      integer level,index
      integer module
      getModule = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          module = lookup(index + number(level) - 1)
          if (module.gt.0) then
            getModule = module
          endif
        endif
      enddo
      end

      function getPlane()
      implicit none
      integer getPlane
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(313)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    1,    3,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    4,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,313) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0/
      integer lookup(5)
      data (lookup(i),i=1,5) /
     +     1,    3,    2,    0,    1/
      integer level,index
      integer plane
      getPlane = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          plane = lookup(index + number(level) - 1)
          if (plane.gt.0) then
            getPlane = plane
          endif
        endif
      enddo
      end

      function getRing()
      implicit none
      integer getRing
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(313)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    1,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,   44,    0,    0,   94,    0,    0,  151,    0,    0,
     +     0, 1339,    0,    0, 1430,    0,    0, 1528,    0,    0,
     +  1633,    0,    0, 1745,    0,    0,    0, 1864,    0,    0,
     +  2014,    0,    0, 2171,    0,    0, 2335,    0,    0, 2506,
     +     0,    0,    0, 2684,    0,    0, 2892,    0,    0, 3107,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,313) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0/
      integer lookup(3328)
      data (lookup(i),i=1,100) /
     +     1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
     +     1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
     +     1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
     +     1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
     +     1,    1,    1,    2,    2,    2,    2,    2,    2,    2,
     +     2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
     +     2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
     +     2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
     +     2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
     +     2,    2,    2,    3,    3,    3,    3,    3,    3,    3/
      data (lookup(i),i=101,200) /
     +     3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
     +     3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
     +     3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
     +     3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
     +     3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
     +     4,    4,    4,    4,    4,    4,    4,    4,    4,    4,
     +     4,    4,    4,    4,    4,    4,    4,    4,    4,    4,
     +     4,    4,    4,    4,    4,    4,    4,    4,    4,    4,
     +     4,    4,    4,    4,    4,    4,    4,    4,    4,    4,
     +     4,    4,    4,    4,    4,    4,    4,    4,    4,    4/
      data (lookup(i),i=201,300) /
     +     4,    4,    4,    4,    4,    4,    4,    4,    4,    4,
     +     4,    4,    4,    4,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6/
      data (lookup(i),i=301,400) /
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12/
      data (lookup(i),i=401,500) /
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13/
      data (lookup(i),i=501,600) /
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13/
      data (lookup(i),i=601,700) /
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14/
      data (lookup(i),i=701,800) /
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20/
      data (lookup(i),i=801,900) /
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20/
      data (lookup(i),i=901,1000) /
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21/
      data (lookup(i),i=1001,1100) /
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21/
      data (lookup(i),i=1101,1200) /
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22/
      data (lookup(i),i=1201,1300) /
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22/
      data (lookup(i),i=1301,1400) /
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7/
      data (lookup(i),i=1401,1500) /
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8/
      data (lookup(i),i=1501,1600) /
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    9,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9/
      data (lookup(i),i=1601,1700) /
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
     +     9,    9,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10/
      data (lookup(i),i=1701,1800) /
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11/
      data (lookup(i),i=1801,1900) /
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15/
      data (lookup(i),i=1901,2000) /
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15/
      data (lookup(i),i=2001,2100) /
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16/
      data (lookup(i),i=2101,2200) /
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17/
      data (lookup(i),i=2201,2300) /
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17/
      data (lookup(i),i=2301,2400) /
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18/
      data (lookup(i),i=2401,2500) /
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18/
      data (lookup(i),i=2501,2600) /
     +    18,   18,   18,   18,   18,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19/
      data (lookup(i),i=2601,2700) /
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23/
      data (lookup(i),i=2701,2800) /
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23/
      data (lookup(i),i=2801,2900) /
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   24,   24,   24,   24,   24,   24,   24,   24,   24/
      data (lookup(i),i=2901,3000) /
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24/
      data (lookup(i),i=3001,3100) /
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24/
      data (lookup(i),i=3101,3200) /
     +    24,   24,   24,   24,   24,   24,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25/
      data (lookup(i),i=3201,3300) /
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25/
      data (lookup(i),i=3301,3328) /
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
     +    25,   25,   25,   25,   25,   25,   25,   25/
      integer level,index
      integer ring
      getRing = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          ring = lookup(index + number(level) - 1)
          if (ring.gt.0) then
            getRing = ring
          endif
        endif
      enddo
      end

      function getRow()
      implicit none
      integer getRow
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(313)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     1,    0,    0,   21,    0,    0,   23,    0,   25,    0,
     +     0,   45,    0,    0,    0,   73,    0,    0,   76,    0,
     +     0,   79,    0,    0,    0,    0,    0,  107,    0,    0/
      data (istart(i),i=301,313) /
     +   132,    0,  157,    0,    0,  163,    0,    0,    0,    0,
     +     0,    0,    0/
      integer lookup(168)
      data (lookup(i),i=1,100) /
     +    40,   39,   38,   37,   36,   35,   34,   33,   32,   31,
     +    30,   29,   28,   27,   26,   25,   24,   23,   22,   21,
     +    43,   41,   44,   42,   20,   19,   18,   17,   16,   15,
     +    14,   13,   12,   11,   10,    9,    8,    7,    6,    5,
     +     4,    3,    2,    1,    0,    1,    2,    3,    4,    5,
     +     6,    7,    8,    9,   10,   11,   12,   13,   14,   15,
     +    16,   17,   18,   19,   20,   21,   22,   23,   24,   25,
     +    26,   27,   28,   29,   30,   28,   29,   30,   31,   32,
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42,
     +    43,   44,   45,   46,   47,   48,   49,   50,   51,   52/
      data (lookup(i),i=101,168) /
     +    53,   54,   55,   56,   57,   58,    1,    2,    3,    4,
     +     5,    6,    7,    8,    9,   10,   11,   12,   13,   14,
     +    15,   16,   17,   18,   19,   20,   21,   22,   23,   24,
     +    25,   32,   33,   34,   35,   36,   37,   38,   39,   40,
     +    41,   42,   43,   44,   45,   46,   47,   48,   49,   50,
     +    51,   52,   53,   54,   55,   56,   26,   27,   28,   29,
     +    30,   31,   26,   27,   28,   29,   30,   31/
      integer level,index
      integer row
      getRow = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          row = lookup(index + number(level) - 1)
          if (row.gt.0) then
            getRow = row
          endif
        endif
      enddo
      end

      function getSector()
      implicit none
      integer getSector
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(313)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    1,    0,    0,    0,    0,    0,
     +     0,   25,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,   68,    0,    0,  118,    0,    0,  175,    0,    0,
     +     0, 1363,    0,    0, 1454,    0,    0, 1552,    0,    0,
     +  1657,    0,    0, 1769,    0,    0,    0, 1888,    0,    0,
     +  2038,    0,    0, 2195,    0,    0, 2359,    0,    0, 2530,
     +     0,    0,    0, 2708,    0,    0, 2916,    0,    0, 3131,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0, 3353,    0,    0,    0,    0,    0, 3357,    0,    0,
     +     0,    0, 3361,    0,    0,    0,    0, 3365,    0,    0,
     +     0,    0, 3369,    0,    0,    0,    0, 3373,    0,    0,
     +     0,    0, 3376,    0,    0,    0,    0, 3379,    0,    0,
     +     0,    0, 3382,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0, 3385,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,313) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0/
      integer lookup(3400)
      data (lookup(i),i=1,100) /
     +     1,    2,    3,    4,    5,    6,    7,    8,    9,   10,
     +    11,   12,   13,   14,   15,   16,   17,   18,   19,   20,
     +    21,   22,   23,   24,    1,    2,    3,    4,    5,    6,
     +     7,    8,    9,   10,   11,   12,   13,   14,   15,   16,
     +    17,   18,   19,   20,   21,   22,   23,   24,   25,   26,
     +    27,   28,   29,   30,   31,   32,   33,   34,   35,   36,
     +    37,   38,   39,   40,   41,   42,   43,    1,    2,    3,
     +     4,    5,    6,    7,    8,    9,   10,   11,   12,   13,
     +    14,   15,   16,   17,   18,   19,   20,   21,   22,   23,
     +    24,   25,   26,   27,   28,   29,   30,   31,   32,   33/
      data (lookup(i),i=101,200) /
     +    34,   35,   36,   37,   38,   39,   40,   41,   42,   43,
     +    44,   45,   46,   47,   48,   49,   50,    1,    2,    3,
     +     4,    5,    6,    7,    8,    9,   10,   11,   12,   13,
     +    14,   15,   16,   17,   18,   19,   20,   21,   22,   23,
     +    24,   25,   26,   27,   28,   29,   30,   31,   32,   33,
     +    34,   35,   36,   37,   38,   39,   40,   41,   42,   43,
     +    44,   45,   46,   47,   48,   49,   50,   51,   52,   53,
     +    54,   55,   56,   57,    1,    2,    3,    4,    5,    6,
     +     7,    8,    9,   10,   11,   12,   13,   14,   15,   16,
     +    17,   18,   19,   20,   21,   22,   23,   24,   25,   26/
      data (lookup(i),i=201,300) /
     +    27,   28,   29,   30,   31,   32,   33,   34,   35,   36,
     +    37,   38,   39,   40,   41,   42,   43,   44,   45,   46,
     +    47,   48,   49,   50,   51,   52,   53,   54,   55,   56,
     +    57,   58,   59,   60,   61,   62,   63,   64,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22,
     +    23,   24,   25,   26,   27,   28,   29,   30,   31,   32,
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42,
     +    43,   44,   45,   46,   47,   48,   49,   50,   51,   52,
     +    53,   54,   55,   56,   57,   58,   59,   60,   61,   62/
      data (lookup(i),i=301,400) /
     +    63,   64,   65,   66,   67,   68,   69,   70,   71,    1,
     +     2,    3,    4,    5,    6,    7,    8,    9,   10,   11,
     +    12,   13,   14,   15,   16,   17,   18,   19,   20,   21,
     +    22,   23,   24,   25,   26,   27,   28,   29,   30,   31,
     +    32,   33,   34,   35,   36,   37,   38,   39,   40,   41,
     +    42,   43,   44,   45,   46,   47,   48,   49,   50,   51,
     +    52,   53,   54,   55,   56,   57,   58,   59,   60,   61,
     +    62,   63,   64,   65,   66,   67,   68,   69,   70,   71,
     +    72,   73,   74,   75,   76,   77,   78,    1,    2,    3,
     +     4,    5,    6,    7,    8,    9,   10,   11,   12,   13/
      data (lookup(i),i=401,500) /
     +    14,   15,   16,   17,   18,   19,   20,   21,   22,   23,
     +    24,   25,   26,   27,   28,   29,   30,   31,   32,   33,
     +    34,   35,   36,   37,   38,   39,   40,   41,   42,   43,
     +    44,   45,   46,   47,   48,   49,   50,   51,   52,   53,
     +    54,   55,   56,   57,   58,   59,   60,   61,   62,   63,
     +    64,   65,   66,   67,   68,   69,   70,   71,   72,   73,
     +    74,   75,   76,   77,   78,   79,   80,   81,   82,   83,
     +    84,   85,   86,   87,   88,   89,   90,   91,   92,   93,
     +    94,   95,   96,   97,   98,   99,  100,  101,  102,  103,
     +   104,  105,  106,  107,  108,  109,  110,  111,  112,  113/
      data (lookup(i),i=501,600) /
     +   114,  115,  116,  117,  118,  119,  120,  121,  122,  123,
     +   124,  125,  126,    1,    2,    3,    4,    5,    6,    7,
     +     8,    9,   10,   11,   12,   13,   14,   15,   16,   17,
     +    18,   19,   20,   21,   22,   23,   24,   25,   26,   27,
     +    28,   29,   30,   31,   32,   33,   34,   35,   36,   37,
     +    38,   39,   40,   41,   42,   43,   44,   45,   46,   47,
     +    48,   49,   50,   51,   52,   53,   54,   55,   56,   57,
     +    58,   59,   60,   61,   62,   63,   64,   65,   66,   67,
     +    68,   69,   70,   71,   72,   73,   74,   75,   76,   77,
     +    78,   79,   80,   81,   82,   83,   84,   85,   86,   87/
      data (lookup(i),i=601,700) /
     +    88,   89,   90,   91,   92,   93,   94,   95,   96,   97,
     +    98,   99,  100,  101,  102,  103,  104,  105,  106,  107,
     +   108,  109,  110,  111,  112,  113,  114,  115,  116,  117,
     +   118,  119,  120,  121,  122,  123,  124,  125,  126,  127,
     +   128,  129,  130,  131,  132,  133,    1,    2,    3,    4,
     +     5,    6,    7,    8,    9,   10,   11,   12,   13,   14,
     +    15,   16,   17,   18,   19,   20,   21,   22,   23,   24,
     +    25,   26,   27,   28,   29,   30,   31,   32,   33,   34,
     +    35,   36,   37,   38,   39,   40,   41,   42,   43,   44,
     +    45,   46,   47,   48,   49,   50,   51,   52,   53,   54/
      data (lookup(i),i=701,800) /
     +    55,   56,   57,   58,   59,   60,   61,   62,   63,   64,
     +    65,   66,   67,   68,   69,   70,   71,   72,   73,   74,
     +    75,   76,   77,   78,   79,   80,   81,   82,   83,   84,
     +    85,   86,   87,   88,   89,   90,   91,   92,   93,   94,
     +    95,   96,   97,   98,   99,  100,  101,  102,  103,  104,
     +   105,  106,  107,  108,  109,  110,  111,  112,  113,  114,
     +   115,  116,  117,  118,  119,  120,  121,  122,  123,  124,
     +   125,  126,  127,  128,  129,  130,  131,  132,  133,  134,
     +   135,  136,  137,  138,  139,  140,    1,    2,    3,    4,
     +     5,    6,    7,    8,    9,   10,   11,   12,   13,   14/
      data (lookup(i),i=801,900) /
     +    15,   16,   17,   18,   19,   20,   21,   22,   23,   24,
     +    25,   26,   27,   28,   29,   30,   31,   32,   33,   34,
     +    35,   36,   37,   38,   39,   40,   41,   42,   43,   44,
     +    45,   46,   47,   48,   49,   50,   51,   52,   53,   54,
     +    55,   56,   57,   58,   59,   60,   61,   62,   63,   64,
     +    65,   66,   67,   68,   69,   70,   71,   72,   73,   74,
     +    75,   76,   77,   78,   79,   80,   81,   82,   83,   84,
     +    85,   86,   87,   88,   89,   90,   91,   92,   93,   94,
     +    95,   96,   97,   98,   99,  100,  101,  102,  103,  104,
     +   105,  106,  107,  108,  109,  110,  111,  112,  113,  114/
      data (lookup(i),i=901,1000) /
     +   115,  116,  117,  118,  119,  120,  121,  122,  123,  124,
     +   125,  126,  127,  128,  129,  130,  131,  132,  133,  134,
     +   135,  136,  137,  138,  139,  140,  141,  142,  143,  144,
     +   145,  146,  147,  148,  149,  150,  151,  152,  153,  154,
     +   155,  156,  157,  158,  159,  160,  161,  162,  163,  164,
     +   165,  166,  167,  168,  169,  170,  171,  172,  173,  174,
     +   175,  176,  177,  178,  179,  180,  181,  182,  183,  184,
     +   185,    1,    2,    3,    4,    5,    6,    7,    8,    9,
     +    10,   11,   12,   13,   14,   15,   16,   17,   18,   19,
     +    20,   21,   22,   23,   24,   25,   26,   27,   28,   29/
      data (lookup(i),i=1001,1100) /
     +    30,   31,   32,   33,   34,   35,   36,   37,   38,   39,
     +    40,   41,   42,   43,   44,   45,   46,   47,   48,   49,
     +    50,   51,   52,   53,   54,   55,   56,   57,   58,   59,
     +    60,   61,   62,   63,   64,   65,   66,   67,   68,   69,
     +    70,   71,   72,   73,   74,   75,   76,   77,   78,   79,
     +    80,   81,   82,   83,   84,   85,   86,   87,   88,   89,
     +    90,   91,   92,   93,   94,   95,   96,   97,   98,   99,
     +   100,  101,  102,  103,  104,  105,  106,  107,  108,  109,
     +   110,  111,  112,  113,  114,  115,  116,  117,  118,  119,
     +   120,  121,  122,  123,  124,  125,  126,  127,  128,  129/
      data (lookup(i),i=1101,1200) /
     +   130,  131,  132,  133,  134,  135,  136,  137,  138,  139,
     +   140,  141,  142,  143,  144,  145,  146,  147,  148,  149,
     +   150,  151,  152,  153,  154,  155,  156,  157,  158,  159,
     +   160,  161,  162,  163,  164,  165,  166,  167,  168,  169,
     +   170,  171,  172,  173,  174,  175,  176,  177,  178,  179,
     +   180,  181,  182,  183,  184,  185,  186,  187,  188,  189,
     +   190,  191,  192,    1,    2,    3,    4,    5,    6,    7,
     +     8,    9,   10,   11,   12,   13,   14,   15,   16,   17,
     +    18,   19,   20,   21,   22,   23,   24,   25,   26,   27,
     +    28,   29,   30,   31,   32,   33,   34,   35,   36,   37/
      data (lookup(i),i=1201,1300) /
     +    38,   39,   40,   41,   42,   43,   44,   45,   46,   47,
     +    48,   49,   50,   51,   52,   53,   54,   55,   56,   57,
     +    58,   59,   60,   61,   62,   63,   64,   65,   66,   67,
     +    68,   69,   70,   71,   72,   73,   74,   75,   76,   77,
     +    78,   79,   80,   81,   82,   83,   84,   85,   86,   87,
     +    88,   89,   90,   91,   92,   93,   94,   95,   96,   97,
     +    98,   99,  100,  101,  102,  103,  104,  105,  106,  107,
     +   108,  109,  110,  111,  112,  113,  114,  115,  116,  117,
     +   118,  119,  120,  121,  122,  123,  124,  125,  126,  127,
     +   128,  129,  130,  131,  132,  133,  134,  135,  136,  137/
      data (lookup(i),i=1301,1400) /
     +   138,  139,  140,  141,  142,  143,  144,  145,  146,  147,
     +   148,  149,  150,  151,  152,  153,  154,  155,  156,  157,
     +   158,  159,  160,  161,  162,  163,  164,  165,  166,  167,
     +   168,  169,  170,  171,  172,  173,  174,  175,  176,  177,
     +   178,  179,  180,  181,  182,  183,  184,  185,  186,  187,
     +   188,  189,  190,  191,  192,  193,  194,  195,  196,  197,
     +   198,  199,    1,    2,    3,    4,    5,    6,    7,    8,
     +     9,   10,   11,   12,   13,   14,   15,   16,   17,   18,
     +    19,   20,   21,   22,   23,   24,   25,   26,   27,   28,
     +    29,   30,   31,   32,   33,   34,   35,   36,   37,   38/
      data (lookup(i),i=1401,1500) /
     +    39,   40,   41,   42,   43,   44,   45,   46,   47,   48,
     +    49,   50,   51,   52,   53,   54,   55,   56,   57,   58,
     +    59,   60,   61,   62,   63,   64,   65,   66,   67,   68,
     +    69,   70,   71,   72,   73,   74,   75,   76,   77,   78,
     +    79,   80,   81,   82,   83,   84,   85,   86,   87,   88,
     +    89,   90,   91,    1,    2,    3,    4,    5,    6,    7,
     +     8,    9,   10,   11,   12,   13,   14,   15,   16,   17,
     +    18,   19,   20,   21,   22,   23,   24,   25,   26,   27,
     +    28,   29,   30,   31,   32,   33,   34,   35,   36,   37,
     +    38,   39,   40,   41,   42,   43,   44,   45,   46,   47/
      data (lookup(i),i=1501,1600) /
     +    48,   49,   50,   51,   52,   53,   54,   55,   56,   57,
     +    58,   59,   60,   61,   62,   63,   64,   65,   66,   67,
     +    68,   69,   70,   71,   72,   73,   74,   75,   76,   77,
     +    78,   79,   80,   81,   82,   83,   84,   85,   86,   87,
     +    88,   89,   90,   91,   92,   93,   94,   95,   96,   97,
     +    98,    1,    2,    3,    4,    5,    6,    7,    8,    9,
     +    10,   11,   12,   13,   14,   15,   16,   17,   18,   19,
     +    20,   21,   22,   23,   24,   25,   26,   27,   28,   29,
     +    30,   31,   32,   33,   34,   35,   36,   37,   38,   39,
     +    40,   41,   42,   43,   44,   45,   46,   47,   48,   49/
      data (lookup(i),i=1601,1700) /
     +    50,   51,   52,   53,   54,   55,   56,   57,   58,   59,
     +    60,   61,   62,   63,   64,   65,   66,   67,   68,   69,
     +    70,   71,   72,   73,   74,   75,   76,   77,   78,   79,
     +    80,   81,   82,   83,   84,   85,   86,   87,   88,   89,
     +    90,   91,   92,   93,   94,   95,   96,   97,   98,   99,
     +   100,  101,  102,  103,  104,  105,    1,    2,    3,    4,
     +     5,    6,    7,    8,    9,   10,   11,   12,   13,   14,
     +    15,   16,   17,   18,   19,   20,   21,   22,   23,   24,
     +    25,   26,   27,   28,   29,   30,   31,   32,   33,   34,
     +    35,   36,   37,   38,   39,   40,   41,   42,   43,   44/
      data (lookup(i),i=1701,1800) /
     +    45,   46,   47,   48,   49,   50,   51,   52,   53,   54,
     +    55,   56,   57,   58,   59,   60,   61,   62,   63,   64,
     +    65,   66,   67,   68,   69,   70,   71,   72,   73,   74,
     +    75,   76,   77,   78,   79,   80,   81,   82,   83,   84,
     +    85,   86,   87,   88,   89,   90,   91,   92,   93,   94,
     +    95,   96,   97,   98,   99,  100,  101,  102,  103,  104,
     +   105,  106,  107,  108,  109,  110,  111,  112,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22,
     +    23,   24,   25,   26,   27,   28,   29,   30,   31,   32/
      data (lookup(i),i=1801,1900) /
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42,
     +    43,   44,   45,   46,   47,   48,   49,   50,   51,   52,
     +    53,   54,   55,   56,   57,   58,   59,   60,   61,   62,
     +    63,   64,   65,   66,   67,   68,   69,   70,   71,   72,
     +    73,   74,   75,   76,   77,   78,   79,   80,   81,   82,
     +    83,   84,   85,   86,   87,   88,   89,   90,   91,   92,
     +    93,   94,   95,   96,   97,   98,   99,  100,  101,  102,
     +   103,  104,  105,  106,  107,  108,  109,  110,  111,  112,
     +   113,  114,  115,  116,  117,  118,  119,    1,    2,    3,
     +     4,    5,    6,    7,    8,    9,   10,   11,   12,   13/
      data (lookup(i),i=1901,2000) /
     +    14,   15,   16,   17,   18,   19,   20,   21,   22,   23,
     +    24,   25,   26,   27,   28,   29,   30,   31,   32,   33,
     +    34,   35,   36,   37,   38,   39,   40,   41,   42,   43,
     +    44,   45,   46,   47,   48,   49,   50,   51,   52,   53,
     +    54,   55,   56,   57,   58,   59,   60,   61,   62,   63,
     +    64,   65,   66,   67,   68,   69,   70,   71,   72,   73,
     +    74,   75,   76,   77,   78,   79,   80,   81,   82,   83,
     +    84,   85,   86,   87,   88,   89,   90,   91,   92,   93,
     +    94,   95,   96,   97,   98,   99,  100,  101,  102,  103,
     +   104,  105,  106,  107,  108,  109,  110,  111,  112,  113/
      data (lookup(i),i=2001,2100) /
     +   114,  115,  116,  117,  118,  119,  120,  121,  122,  123,
     +   124,  125,  126,  127,  128,  129,  130,  131,  132,  133,
     +   134,  135,  136,  137,  138,  139,  140,  141,  142,  143,
     +   144,  145,  146,  147,  148,  149,  150,    1,    2,    3,
     +     4,    5,    6,    7,    8,    9,   10,   11,   12,   13,
     +    14,   15,   16,   17,   18,   19,   20,   21,   22,   23,
     +    24,   25,   26,   27,   28,   29,   30,   31,   32,   33,
     +    34,   35,   36,   37,   38,   39,   40,   41,   42,   43,
     +    44,   45,   46,   47,   48,   49,   50,   51,   52,   53,
     +    54,   55,   56,   57,   58,   59,   60,   61,   62,   63/
      data (lookup(i),i=2101,2200) /
     +    64,   65,   66,   67,   68,   69,   70,   71,   72,   73,
     +    74,   75,   76,   77,   78,   79,   80,   81,   82,   83,
     +    84,   85,   86,   87,   88,   89,   90,   91,   92,   93,
     +    94,   95,   96,   97,   98,   99,  100,  101,  102,  103,
     +   104,  105,  106,  107,  108,  109,  110,  111,  112,  113,
     +   114,  115,  116,  117,  118,  119,  120,  121,  122,  123,
     +   124,  125,  126,  127,  128,  129,  130,  131,  132,  133,
     +   134,  135,  136,  137,  138,  139,  140,  141,  142,  143,
     +   144,  145,  146,  147,  148,  149,  150,  151,  152,  153,
     +   154,  155,  156,  157,    1,    2,    3,    4,    5,    6/
      data (lookup(i),i=2201,2300) /
     +     7,    8,    9,   10,   11,   12,   13,   14,   15,   16,
     +    17,   18,   19,   20,   21,   22,   23,   24,   25,   26,
     +    27,   28,   29,   30,   31,   32,   33,   34,   35,   36,
     +    37,   38,   39,   40,   41,   42,   43,   44,   45,   46,
     +    47,   48,   49,   50,   51,   52,   53,   54,   55,   56,
     +    57,   58,   59,   60,   61,   62,   63,   64,   65,   66,
     +    67,   68,   69,   70,   71,   72,   73,   74,   75,   76,
     +    77,   78,   79,   80,   81,   82,   83,   84,   85,   86,
     +    87,   88,   89,   90,   91,   92,   93,   94,   95,   96,
     +    97,   98,   99,  100,  101,  102,  103,  104,  105,  106/
      data (lookup(i),i=2301,2400) /
     +   107,  108,  109,  110,  111,  112,  113,  114,  115,  116,
     +   117,  118,  119,  120,  121,  122,  123,  124,  125,  126,
     +   127,  128,  129,  130,  131,  132,  133,  134,  135,  136,
     +   137,  138,  139,  140,  141,  142,  143,  144,  145,  146,
     +   147,  148,  149,  150,  151,  152,  153,  154,  155,  156,
     +   157,  158,  159,  160,  161,  162,  163,  164,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22,
     +    23,   24,   25,   26,   27,   28,   29,   30,   31,   32,
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42/
      data (lookup(i),i=2401,2500) /
     +    43,   44,   45,   46,   47,   48,   49,   50,   51,   52,
     +    53,   54,   55,   56,   57,   58,   59,   60,   61,   62,
     +    63,   64,   65,   66,   67,   68,   69,   70,   71,   72,
     +    73,   74,   75,   76,   77,   78,   79,   80,   81,   82,
     +    83,   84,   85,   86,   87,   88,   89,   90,   91,   92,
     +    93,   94,   95,   96,   97,   98,   99,  100,  101,  102,
     +   103,  104,  105,  106,  107,  108,  109,  110,  111,  112,
     +   113,  114,  115,  116,  117,  118,  119,  120,  121,  122,
     +   123,  124,  125,  126,  127,  128,  129,  130,  131,  132,
     +   133,  134,  135,  136,  137,  138,  139,  140,  141,  142/
      data (lookup(i),i=2501,2600) /
     +   143,  144,  145,  146,  147,  148,  149,  150,  151,  152,
     +   153,  154,  155,  156,  157,  158,  159,  160,  161,  162,
     +   163,  164,  165,  166,  167,  168,  169,  170,  171,    1,
     +     2,    3,    4,    5,    6,    7,    8,    9,   10,   11,
     +    12,   13,   14,   15,   16,   17,   18,   19,   20,   21,
     +    22,   23,   24,   25,   26,   27,   28,   29,   30,   31,
     +    32,   33,   34,   35,   36,   37,   38,   39,   40,   41,
     +    42,   43,   44,   45,   46,   47,   48,   49,   50,   51,
     +    52,   53,   54,   55,   56,   57,   58,   59,   60,   61,
     +    62,   63,   64,   65,   66,   67,   68,   69,   70,   71/
      data (lookup(i),i=2601,2700) /
     +    72,   73,   74,   75,   76,   77,   78,   79,   80,   81,
     +    82,   83,   84,   85,   86,   87,   88,   89,   90,   91,
     +    92,   93,   94,   95,   96,   97,   98,   99,  100,  101,
     +   102,  103,  104,  105,  106,  107,  108,  109,  110,  111,
     +   112,  113,  114,  115,  116,  117,  118,  119,  120,  121,
     +   122,  123,  124,  125,  126,  127,  128,  129,  130,  131,
     +   132,  133,  134,  135,  136,  137,  138,  139,  140,  141,
     +   142,  143,  144,  145,  146,  147,  148,  149,  150,  151,
     +   152,  153,  154,  155,  156,  157,  158,  159,  160,  161,
     +   162,  163,  164,  165,  166,  167,  168,  169,  170,  171/
      data (lookup(i),i=2701,2800) /
     +   172,  173,  174,  175,  176,  177,  178,    1,    2,    3,
     +     4,    5,    6,    7,    8,    9,   10,   11,   12,   13,
     +    14,   15,   16,   17,   18,   19,   20,   21,   22,   23,
     +    24,   25,   26,   27,   28,   29,   30,   31,   32,   33,
     +    34,   35,   36,   37,   38,   39,   40,   41,   42,   43,
     +    44,   45,   46,   47,   48,   49,   50,   51,   52,   53,
     +    54,   55,   56,   57,   58,   59,   60,   61,   62,   63,
     +    64,   65,   66,   67,   68,   69,   70,   71,   72,   73,
     +    74,   75,   76,   77,   78,   79,   80,   81,   82,   83,
     +    84,   85,   86,   87,   88,   89,   90,   91,   92,   93/
      data (lookup(i),i=2801,2900) /
     +    94,   95,   96,   97,   98,   99,  100,  101,  102,  103,
     +   104,  105,  106,  107,  108,  109,  110,  111,  112,  113,
     +   114,  115,  116,  117,  118,  119,  120,  121,  122,  123,
     +   124,  125,  126,  127,  128,  129,  130,  131,  132,  133,
     +   134,  135,  136,  137,  138,  139,  140,  141,  142,  143,
     +   144,  145,  146,  147,  148,  149,  150,  151,  152,  153,
     +   154,  155,  156,  157,  158,  159,  160,  161,  162,  163,
     +   164,  165,  166,  167,  168,  169,  170,  171,  172,  173,
     +   174,  175,  176,  177,  178,  179,  180,  181,  182,  183,
     +   184,  185,  186,  187,  188,  189,  190,  191,  192,  193/
      data (lookup(i),i=2901,3000) /
     +   194,  195,  196,  197,  198,  199,  200,  201,  202,  203,
     +   204,  205,  206,  207,  208,    1,    2,    3,    4,    5,
     +     6,    7,    8,    9,   10,   11,   12,   13,   14,   15,
     +    16,   17,   18,   19,   20,   21,   22,   23,   24,   25,
     +    26,   27,   28,   29,   30,   31,   32,   33,   34,   35,
     +    36,   37,   38,   39,   40,   41,   42,   43,   44,   45,
     +    46,   47,   48,   49,   50,   51,   52,   53,   54,   55,
     +    56,   57,   58,   59,   60,   61,   62,   63,   64,   65,
     +    66,   67,   68,   69,   70,   71,   72,   73,   74,   75,
     +    76,   77,   78,   79,   80,   81,   82,   83,   84,   85/
      data (lookup(i),i=3001,3100) /
     +    86,   87,   88,   89,   90,   91,   92,   93,   94,   95,
     +    96,   97,   98,   99,  100,  101,  102,  103,  104,  105,
     +   106,  107,  108,  109,  110,  111,  112,  113,  114,  115,
     +   116,  117,  118,  119,  120,  121,  122,  123,  124,  125,
     +   126,  127,  128,  129,  130,  131,  132,  133,  134,  135,
     +   136,  137,  138,  139,  140,  141,  142,  143,  144,  145,
     +   146,  147,  148,  149,  150,  151,  152,  153,  154,  155,
     +   156,  157,  158,  159,  160,  161,  162,  163,  164,  165,
     +   166,  167,  168,  169,  170,  171,  172,  173,  174,  175,
     +   176,  177,  178,  179,  180,  181,  182,  183,  184,  185/
      data (lookup(i),i=3101,3200) /
     +   186,  187,  188,  189,  190,  191,  192,  193,  194,  195,
     +   196,  197,  198,  199,  200,  201,  202,  203,  204,  205,
     +   206,  207,  208,  209,  210,  211,  212,  213,  214,  215,
     +     1,    2,    3,    4,    5,    6,    7,    8,    9,   10,
     +    11,   12,   13,   14,   15,   16,   17,   18,   19,   20,
     +    21,   22,   23,   24,   25,   26,   27,   28,   29,   30,
     +    31,   32,   33,   34,   35,   36,   37,   38,   39,   40,
     +    41,   42,   43,   44,   45,   46,   47,   48,   49,   50,
     +    51,   52,   53,   54,   55,   56,   57,   58,   59,   60,
     +    61,   62,   63,   64,   65,   66,   67,   68,   69,   70/
      data (lookup(i),i=3201,3300) /
     +    71,   72,   73,   74,   75,   76,   77,   78,   79,   80,
     +    81,   82,   83,   84,   85,   86,   87,   88,   89,   90,
     +    91,   92,   93,   94,   95,   96,   97,   98,   99,  100,
     +   101,  102,  103,  104,  105,  106,  107,  108,  109,  110,
     +   111,  112,  113,  114,  115,  116,  117,  118,  119,  120,
     +   121,  122,  123,  124,  125,  126,  127,  128,  129,  130,
     +   131,  132,  133,  134,  135,  136,  137,  138,  139,  140,
     +   141,  142,  143,  144,  145,  146,  147,  148,  149,  150,
     +   151,  152,  153,  154,  155,  156,  157,  158,  159,  160,
     +   161,  162,  163,  164,  165,  166,  167,  168,  169,  170/
      data (lookup(i),i=3301,3400) /
     +   171,  172,  173,  174,  175,  176,  177,  178,  179,  180,
     +   181,  182,  183,  184,  185,  186,  187,  188,  189,  190,
     +   191,  192,  193,  194,  195,  196,  197,  198,  199,  200,
     +   201,  202,  203,  204,  205,  206,  207,  208,  209,  210,
     +   211,  212,  213,  214,  215,  216,  217,  218,  219,  220,
     +   221,  222,    1,    2,    3,    4,    1,    2,    3,    4,
     +     1,    2,    3,    4,    1,    2,    3,    4,    1,    2,
     +     3,    4,    1,    2,    3,    1,    2,    3,    1,    2,
     +     3,    1,    2,    3,    1,    2,    3,    4,    5,    6,
     +     7,    8,    9,   10,   11,   12,   13,   14,   15,   16/
      integer level,index
      integer sector
      getSector = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          sector = lookup(index + number(level) - 1)
          if (sector.gt.0) then
            getSector = sector
          endif
        endif
      enddo
      end

      subroutine gufld(r,B)
      implicit none
      real r(3),B(3)
      real rr(3),rs(3),BB(3)
      integer iregion
      integer getMap
      external getMap

      real orig1(3),rmat1(3,3)
      data orig1/0,0,-1975/
      data rmat1/1,0,0,
     +          0,6.12303e-17,-1,
     +          0,1,6.12303e-17/
      real orig2(3),rmat2(3,3)
      data orig2/0,0,-1345/
      data rmat2/1,0,0,
     +          0,6.12303e-17,-1,
     +          0,1,6.12303e-17/
      real orig3(3),rmat3(3,3)
      data orig3/0,0,0/
      data rmat3/1,0,0,
     +          0,1,0,
     +          0,0,1/

      iregion = getMap()
      if (iregion.eq.0) then
        B(1) = 0
        B(2) = 0
        B(3) = 0
      else if (iregion.eq.1) then
        B(1) = 0
        B(2) = -2
        B(3) = 1.22461e-16
      else if (iregion.eq.2) then
        B(1) = 0
        B(2) = -2
        B(3) = 1.22461e-16
      else if (iregion.eq.3) then
		  call gufld2(r, B);
C		  print*,'gufld2: Bx=',B(1),' By=',B(2),' Bz=',B(3)
C     +  ,' x=',r(1),' y=',r(2),' z=',r(3)
C        rs(1) = r(1)-orig3(1)
C        rs(2) = r(2)-orig3(2)
C        rs(3) = r(3)-orig3(3)
C        rr(1) = rs(1)*rmat3(1,1)+rs(2)*rmat3(1,2)+rs(3)*rmat3(1,3)
C        rr(2) = rs(1)*rmat3(2,1)+rs(2)*rmat3(2,2)+rs(3)*rmat3(2,3)
C        rr(3) = rs(1)*rmat3(3,1)+rs(2)*rmat3(3,2)+rs(3)*rmat3(3,3)
C        call gufld1(rr,BB)
C        B(1) = BB(1)*rmat3(1,1)+BB(2)*rmat3(2,1)+BB(3)*rmat3(3,1)
C        B(2) = BB(1)*rmat3(1,2)+BB(2)*rmat3(2,2)+BB(3)*rmat3(3,2)
C        B(3) = BB(1)*rmat3(1,3)+BB(2)*rmat3(2,3)+BB(3)*rmat3(3,3)
C		  print*,'gufld1: Bx=',B(1),' By=',B(2),' Bz=',B(3)
C     +  ,' x=',r(1),' y=',r(2),' z=',r(3)
        B(1) = B(1)*10
        B(2) = B(2)*10
        B(3) = B(3)*10
      endif
      end

      subroutine gufld1(r,B)
      implicit none
      real r(3),B(3),Br(3)
      real rho,phi,alpha
      real u(3)
      real twopi
      parameter (twopi=6.28318530717959)

      real bound0(3,2)
      data bound0/0,0,10.16,
     +            101.6,6.28319,645.16/
      integer reverse0(3)
      data reverse0/1,1,1/
      real Bmap(3,41,1,251)
      integer nsites(3)
      data nsites/41,1,251/
      logical loaded
      data loaded/.false./
      save Bmap,nsites,loaded
      integer i,i1,i2,i3

      if (.not.loaded) then
        open(unit=78,file='solenoid.map',status='old',err=7)
        read(unit=78,fmt=*,err=5,end=6)
     +      ((((Bmap(i,i1,i2,i3),i=1,3),
     +         i3=1,251),
     +        i1=1,41),
     +       i2=1,1)
        go to 8
    5   stop 'error reading magnetic field map, stop'
    6   stop 'EOF encountered reading magnetic field map, stop'
    7   stop 'error opening magnetic field map, stop'
    8   loaded=.true.
      endif

      rho = sqrt(r(1)**2+r(2)**2)
      phi = atan2(r(2),r(1))
      u(1) = (rho-bound0(1,1))/(bound0(1,2)-bound0(1,1))
      u(2) = (phi-bound0(2,1))/(bound0(2,2)-bound0(2,1))
      alpha = abs(twopi/(bound0(2,2)-bound0(2,1)))
      u(2) = u(2)-int(u(2)/alpha)*alpha
      if (u(2).lt.0) then
        u(2) = u(2)+alpha
      endif
      u(3) = (r(3)-bound0(3,1))/(bound0(3,2)-bound0(3,1))
      if ((u(1).ge.0.and.u(1).le.1).and.
     +    (u(2).ge.0.and.u(2).le.1).and.
     +    (u(3).ge.0.and.u(3).le.1)) then
        call interpol3(Bmap,nsites,u,Br)
        Br(1)=Br(1)*reverse0(1)
        Br(2)=Br(2)*reverse0(2)
        B(1)=Br(1)*cos(phi)-Br(2)*sin(phi)
        B(2)=Br(2)*cos(phi)+Br(1)*sin(phi)
        B(3)=Br(3)*reverse0(3)
        return
      endif

      B(1) = 0
      B(2) = 0
      B(3) = 0
      return
      end

      subroutine interpol3(Bmap,nsites,u,B)
      implicit none
      integer nsites(3)
      real Bmap(3,nsites(1),nsites(2),nsites(3))
      real u(3),B(3)
      integer ir(3),ir0(3),ir1(3)
      real ur(3),dur(3),ugrad(3,3)
      integer i
      do i=1,3
        ur(i)=u(i)*(nsites(i)-1)+1
        ir(i)=nint(ur(i))
        ir0(i)=max(ir(i)-1,1)
        ir1(i)=min(ir(i)+1,nsites(i))
        dur(i)=(ur(i)-ir(i))/(ir1(i)-ir0(i)+1e-20)
      enddo
      ugrad(1,1)=(Bmap(1,ir1(1),ir(2),ir(3))-Bmap(1,ir0(1),ir(2),ir(3)))
      ugrad(2,1)=(Bmap(2,ir1(1),ir(2),ir(3))-Bmap(2,ir0(1),ir(2),ir(3)))
      ugrad(3,1)=(Bmap(3,ir1(1),ir(2),ir(3))-Bmap(3,ir0(1),ir(2),ir(3)))
      ugrad(1,2)=(Bmap(1,ir(1),ir1(2),ir(3))-Bmap(1,ir(1),ir0(2),ir(3)))
      ugrad(2,2)=(Bmap(2,ir(1),ir1(2),ir(3))-Bmap(2,ir(1),ir0(2),ir(3)))
      ugrad(3,2)=(Bmap(3,ir(1),ir1(2),ir(3))-Bmap(3,ir(1),ir0(2),ir(3)))
      ugrad(1,3)=(Bmap(1,ir(1),ir(2),ir1(3))-Bmap(1,ir(1),ir(2),ir0(3)))
      ugrad(2,3)=(Bmap(2,ir(1),ir(2),ir1(3))-Bmap(2,ir(1),ir(2),ir0(3)))
      ugrad(3,3)=(Bmap(3,ir(1),ir(2),ir1(3))-Bmap(3,ir(1),ir(2),ir0(3)))
      B(1)=Bmap(1,ir(1),ir(2),ir(3))
     +       +ugrad(1,1)*dur(1)+ugrad(1,2)*dur(2)+ugrad(1,3)*dur(3)
      B(2)=Bmap(2,ir(1),ir(2),ir(3))
     +       +ugrad(2,1)*dur(1)+ugrad(2,2)*dur(2)+ugrad(2,3)*dur(3)
      B(3)=Bmap(3,ir(1),ir(2),ir(3))
     +       +ugrad(3,1)*dur(1)+ugrad(3,2)*dur(2)+ugrad(3,3)*dur(3)
      end

      subroutine getoptical(imat,E,refl,absl,rind,plsh,eff)
      implicit none
      integer imat
      real E,refl,absl,rind,plsh,eff
      if (imat.eq.64) then
        call getoptical64(E,refl,absl,rind,plsh,eff)
      elseif (imat.eq.65) then
        call getoptical65(E,refl,absl,rind,plsh,eff)
      elseif (imat.eq.66) then
        call getoptical66(E,refl,absl,rind,plsh,eff)
      elseif (imat.eq.67) then
        call getoptical67(E,refl,absl,rind,plsh,eff)
      else
        refl = 0
        absl = 0
        rind = 0
        plsh = 1
        eff = 0
      endif
      end

      subroutine guplsh(medi0,medi1)
      implicit none
      integer medi0,medi1
      real E,refl,absl,rind,plsh,eff
      integer nmat
      character*20 natmed
      integer isvol,ifield
      real fieldm,tmaxfd,stemax,deemax,epsil,stmin
      integer nwbuf
      real ubuf(99)
      call GFTMED(medi1,natmed,nmat,isvol,ifield,fieldm,
     +  tmaxfd,stemax,deemax,epsil,stmin,ubuf,nwbuf)
      E = 2.5
      call getoptical(nmat,E,refl,absl,rind,plsh,eff)
      end