*
* 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 = 'PFTH 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 = 'PFTH'
      chshap = 'TUBE'
      nmed = 3
      npar = 3
      par(1) = 0
      par(2) = 12.7
      par(3) = 25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.3) stop 'consistency check #1 failed'

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

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

      itmed = 4
      natmed = 'PFTV 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 = 'PFTV'
      chshap = 'TUBE'
      nmed = 4
      npar = 3
      par(1) = 0
      par(2) = 12.4
      par(3) = 25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.4) stop 'consistency check #1 failed'

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

      itmed = 5
      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 = 5
      npar = 3
      par(1) = 225
      par(2) = 135
      par(3) = 600
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.5) 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 = 6
      natmed = 'BPTO 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 = 'BPTO'
      chshap = 'TUBE'
      nmed = 6
      npar = 3
      par(1) = 0
      par(2) = 12.7
      par(3) = 15.24
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.6) stop 'consistency check #1 failed'

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

      itmed = 7
      natmed = 'BPTI 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 = 'BPTI'
      chshap = 'TUBE'
      nmed = 7
      npar = 3
      par(1) = 0
      par(2) = 12.4
      par(3) = 15.24
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.7) stop 'consistency check #1 failed'

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

      itmed = 8
      natmed = 'BFO1 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 = 'BFO1'
      chshap = 'TUBE'
      nmed = 8
      npar = 3
      par(1) = 12.7
      par(2) = 15.24
      par(3) = 1.42
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.8) stop 'consistency check #1 failed'

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

      imate = 13
      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 = 12
      namate = 'Kapton'
      wmat(1) = 22
      call gfmate(13,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 = 9
      natmed = 'FCAP Kapton'
      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 = 'FCAP'
      chshap = 'TUBE'
      nmed = 9
      npar = 3
      par(1) = 0
      par(2) = 10.16
      par(3) = 0.0125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.9) stop 'consistency check #1 failed'

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

      itmed = 10
      natmed = 'BFO2 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 = 'BFO2'
      chshap = 'TUBE'
      nmed = 10
      npar = 3
      par(1) = 10.16
      par(2) = 15.24
      par(3) = 1.42
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.10) stop 'consistency check #1 failed'

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

      itmed = 11
      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 = 11
      npar = 3
      par(1) = 0
      par(2) = 50
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.11) stop 'consistency check #1 failed'

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

      imate = 15
      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 = 14
      namate = 'BoronNitride'
      wmat(1) = 1
      call gfmate(15,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 = 12
      natmed = 'INSU BoronNitride'
      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 = 'INSU'
      chshap = 'TUBE'
      nmed = 12
      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.12) stop 'consistency check #1 failed'

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

      itmed = 13
      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 = 13
      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.13) 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 = 14
      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 = 14
      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.14) 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 = 15
      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 = 15
      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.15) 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.0665915e-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.1331829e-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.0525064e-14
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

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

      itmed = 16
      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 = 16
      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.16) 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 = 17
      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 = 17
      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.17) 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 = 17
      chnama = 'Tungsten'
      a = 183.85
      z = 74
      dens = 19.3
      radl = 0.35025907
      absl = 9.5854922
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 18
      chnama = 'Copper'
      a = 63.546
      z = 29
      dens = 8.96
      radl = 1.4352679
      absl = 15.055804
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

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

      itmed = 18
      natmed = 'ACBI SoftTungsten'
      nmat = 16
      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 = 18
      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.18) 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 = 19
      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 = 'BOX '
      nmed = 19
      npar = 3
      par(1) = 0.025
      par(2) = 0.15
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.19) stop 'consistency check #1 failed'

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

      chname = 'YD01'
      chmoth = 'AIR1'
      ndiv = 3
      iaxis = 2
      step = 0.1
      c0 = -0.15
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 20
      natmed = 'PIN1 SoftTungsten'
      nmat = 16
      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 = 20
      npar = 3
      par(1) = 0.0255
      par(2) = 0.0255
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.21) stop 'consistency check #1 failed'

      chname = 'PIN1'
      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 = 21
      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 = 'BOX '
      nmed = 21
      npar = 3
      par(1) = 0.025
      par(2) = 0.25
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.22) stop 'consistency check #1 failed'

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

      chname = 'YD02'
      chmoth = 'AIR2'
      ndiv = 5
      iaxis = 2
      step = 0.1
      c0 = -0.25
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 22
      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 = 'BOX '
      nmed = 22
      npar = 3
      par(1) = 0.025
      par(2) = 0.25
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.24) stop 'consistency check #1 failed'

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

      chname = 'YD03'
      chmoth = 'AIR3'
      ndiv = 5
      iaxis = 2
      step = 0.1
      c0 = -0.25
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 23
      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 = 'BOX '
      nmed = 23
      npar = 3
      par(1) = 0.025
      par(2) = 0.35
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.26) stop 'consistency check #1 failed'

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

      chname = 'YD04'
      chmoth = 'AIR4'
      ndiv = 7
      iaxis = 2
      step = 0.1
      c0 = -0.35
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 24
      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 = 'BOX '
      nmed = 24
      npar = 3
      par(1) = 0.025
      par(2) = 0.35
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.28) stop 'consistency check #1 failed'

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

      chname = 'YD05'
      chmoth = 'AIR5'
      ndiv = 7
      iaxis = 2
      step = 0.1
      c0 = -0.35
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 25
      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 = 'BOX '
      nmed = 25
      npar = 3
      par(1) = 0.025
      par(2) = 0.45
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.30) stop 'consistency check #1 failed'

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

      chname = 'YD06'
      chmoth = 'AIR6'
      ndiv = 9
      iaxis = 2
      step = 0.1
      c0 = -0.45
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      irot = 5
      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 = 5
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 6
      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 = 6
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 7
      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 = 7
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 26
      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 = 26
      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.32) stop 'consistency check #1 failed'

      irot = 8
      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 = 8
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 27
      natmed = 'ACBO SoftTungsten'
      nmat = 16
      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 = 27
      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.33) 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 = 28
      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 = 'BOX '
      nmed = 28
      npar = 3
      par(1) = 0.025
      par(2) = 0.05
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.34) stop 'consistency check #1 failed'

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

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

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

      itmed = 29
      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 = 'BOX '
      nmed = 29
      npar = 3
      par(1) = 0.025
      par(2) = 0.15
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.35) stop 'consistency check #1 failed'

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

      chname = 'YD07'
      chmoth = 'AOR2'
      ndiv = 3
      iaxis = 2
      step = 0.1
      c0 = -0.15
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

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

      itmed = 30
      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 = 'BOX '
      nmed = 30
      npar = 3
      par(1) = 0.025
      par(2) = 0.35
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.37) stop 'consistency check #1 failed'

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

      chname = 'YD08'
      chmoth = 'AOR3'
      ndiv = 6
      iaxis = 2
      step = 0.1
      c0 = -0.3
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

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

      itmed = 31
      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 = 'BOX '
      nmed = 31
      npar = 3
      par(1) = 0.025
      par(2) = 0.5
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.39) stop 'consistency check #1 failed'

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

      chname = 'YD09'
      chmoth = 'AOR4'
      ndiv = 10
      iaxis = 2
      step = 0.1
      c0 = -0.5
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

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

      itmed = 32
      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 = 'BOX '
      nmed = 32
      npar = 3
      par(1) = 0.025
      par(2) = 1.75
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.41) stop 'consistency check #1 failed'

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

      chname = 'YD0A'
      chmoth = 'AOR5'
      ndiv = 35
      iaxis = 2
      step = 0.1
      c0 = -1.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 33
      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 = 'BOX '
      nmed = 33
      npar = 3
      par(1) = 0.025
      par(2) = 1.75
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.43) stop 'consistency check #1 failed'

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

      chname = 'YD0B'
      chmoth = 'AOR6'
      ndiv = 35
      iaxis = 2
      step = 0.1
      c0 = -1.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 34
      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 = 'BOX '
      nmed = 34
      npar = 3
      par(1) = 0.025
      par(2) = 1.85
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.45) stop 'consistency check #1 failed'

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

      chname = 'YD0C'
      chmoth = 'AOR7'
      ndiv = 37
      iaxis = 2
      step = 0.1
      c0 = -1.85
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 35
      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 = 'BOX '
      nmed = 35
      npar = 3
      par(1) = 0.025
      par(2) = 1.95
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.47) stop 'consistency check #1 failed'

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

      chname = 'YD0D'
      chmoth = 'AOR8'
      ndiv = 39
      iaxis = 2
      step = 0.1
      c0 = -1.95
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 36
      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 = 'BOX '
      nmed = 36
      npar = 3
      par(1) = 0.025
      par(2) = 1.95
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.49) stop 'consistency check #1 failed'

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

      chname = 'YD0E'
      chmoth = 'AOR9'
      ndiv = 39
      iaxis = 2
      step = 0.1
      c0 = -1.95
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 37
      natmed = 'AORA 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 = 'AORA'
      chshap = 'BOX '
      nmed = 37
      npar = 3
      par(1) = 0.025
      par(2) = 2.05
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.51) stop 'consistency check #1 failed'

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

      chname = 'YD0F'
      chmoth = 'AORA'
      ndiv = 41
      iaxis = 2
      step = 0.1
      c0 = -2.05
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 38
      natmed = 'AORB 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 = 'AORB'
      chshap = 'BOX '
      nmed = 38
      npar = 3
      par(1) = 0.025
      par(2) = 2.05
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.53) stop 'consistency check #1 failed'

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

      chname = 'YD10'
      chmoth = 'AORB'
      ndiv = 41
      iaxis = 2
      step = 0.1
      c0 = -2.05
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      irot = 9
      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 = 9
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 10
      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 = 10
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 11
      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 = 11
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 39
      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 = 39
      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.55) 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)

      imate = 19
      chnama = 'Lead'
      a = 207.2
      z = 82
      dens = 11.35
      radl = 0.56123348
      absl = 17.092511
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      itmed = 40
      natmed = 'PCPB Lead'
      nmat = 19
      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 = 'PCPB'
      chshap = 'BOX '
      nmed = 40
      npar = 3
      par(1) = 15.24
      par(2) = 15.24
      par(3) = 10
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.56) stop 'consistency check #1 failed'

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

      itmed = 41
      natmed = 'PCTT Tungsten'
      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 = 'PCTT'
      chshap = 'BOX '
      nmed = 41
      npar = 3
      par(1) = 2.54
      par(2) = 2.54
      par(3) = 10
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.57) stop 'consistency check #1 failed'

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

      itmed = 42
      natmed = 'PCTH 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 = 'PCTH'
      chshap = 'TUBE'
      nmed = 42
      npar = 3
      par(1) = 0
      par(2) = 0.17
      par(3) = 10
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.58) stop 'consistency check #1 failed'

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

      itmed = 43
      natmed = 'FOI1 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 = 'FOI1'
      chshap = 'TUBE'
      nmed = 43
      npar = 3
      par(1) = 1.27
      par(2) = 8.57
      par(3) = 1.07
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.59) stop 'consistency check #1 failed'

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

      itmed = 44
      natmed = 'F1CP Kapton'
      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 = 'F1CP'
      chshap = 'TUBE'
      nmed = 44
      npar = 3
      par(1) = 0
      par(2) = 1.27
      par(3) = 0.0075
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.60) stop 'consistency check #1 failed'

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

      itmed = 45
      natmed = 'FOPO 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 = 'FOPO'
      chshap = 'ELTU'
      nmed = 45
      npar = 3
      par(1) = 5.11
      par(2) = 2.45
      par(3) = 3.325
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.61) stop 'consistency check #1 failed'

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

      itmed = 46
      natmed = 'FOPI 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 = 'FOPI'
      chshap = 'ELTU'
      nmed = 46
      npar = 3
      par(1) = 4.95
      par(2) = 2.29
      par(3) = 3.325
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.62) stop 'consistency check #1 failed'

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

      itmed = 47
      natmed = 'MAG1 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 2.3
      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 = 47
      npar = 3
      par(1) = 14.6
      par(2) = 12.4
      par(3) = 177.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.63) stop 'consistency check #1 failed'

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

      itmed = 48
      natmed = 'POL1 Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 2.3
      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 = 48
      npar = 3
      par(1) = 14.6
      par(2) = 4.975
      par(3) = 177.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.64) stop 'consistency check #1 failed'

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

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

      itmed = 49
      natmed = 'GAP1 Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 2.3
      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 = 49
      npar = 3
      par(1) = 4.745
      par(2) = 2.45
      par(3) = 177.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.65) stop 'consistency check #1 failed'

      chname = 'GAP1'
      nr = 1
      chmoth = 'MAG1'
      x = -9.855
      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 = 9.855
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 50
      natmed = 'MPO1 Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 2.3
      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 = 'MPO1'
      chshap = 'ELTU'
      nmed = 50
      npar = 3
      par(1) = 5.11
      par(2) = 2.45
      par(3) = 177.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.66) stop 'consistency check #1 failed'

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

      itmed = 51
      natmed = 'MPI1 Vacuum'
      nmat = 11
      isvol = 0
      ifield = 2
      fieldm = 2.3
      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 = 'MPI1'
      chshap = 'ELTU'
      nmed = 51
      npar = 3
      par(1) = 4.95
      par(2) = 2.29
      par(3) = 177.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.67) stop 'consistency check #1 failed'

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

      itmed = 52
      natmed = 'WTOP 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 = 'WTOP'
      chshap = 'BOX '
      nmed = 52
      npar = 3
      par(1) = 50.8
      par(2) = 17.9
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.68) stop 'consistency check #1 failed'

      chname = 'WTOP'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -4.7
      z = -382.04
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 53
      natmed = 'WBOT 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 = 'WBOT'
      chshap = 'BOX '
      nmed = 53
      npar = 3
      par(1) = 50.8
      par(2) = 43.8
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.69) stop 'consistency check #1 failed'

      chname = 'WBOT'
      nr = 1
      chmoth = 'CAVE'
      x = 0
      y = -91.2
      z = -382.04
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 54
      natmed = 'WSID 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 = 'WSID'
      chshap = 'BOX '
      nmed = 54
      npar = 3
      par(1) = 18.1
      par(2) = 12.4
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.70) stop 'consistency check #1 failed'

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

      chname = 'WSID'
      nr = 2
      chmoth = 'CAVE'
      x = -32.7
      y = -35
      z = -382.04
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 55
      natmed = 'FTO1 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 = 'FTO1'
      chshap = 'ELTU'
      nmed = 55
      npar = 3
      par(1) = 5.11
      par(2) = 2.45
      par(3) = 2.29
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.71) stop 'consistency check #1 failed'

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

      itmed = 56
      natmed = 'FTI1 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 = 'FTI1'
      chshap = 'ELTU'
      nmed = 56
      npar = 3
      par(1) = 4.95
      par(2) = 2.29
      par(3) = 2.29
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.72) stop 'consistency check #1 failed'

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

      itmed = 57
      natmed = 'FTO2 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 = 'FTO2'
      chshap = 'TUBE'
      nmed = 57
      npar = 3
      par(1) = 0
      par(2) = 8.57
      par(3) = 2.14
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.73) stop 'consistency check #1 failed'

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

      itmed = 58
      natmed = 'FTI2 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 = 'FTI2'
      chshap = 'TUBE'
      nmed = 58
      npar = 3
      par(1) = 0
      par(2) = 6.19
      par(3) = 2.14
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.74) stop 'consistency check #1 failed'

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

      itmed = 59
      natmed = 'FTO3 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 = 'FTO3'
      chshap = 'TUBE'
      nmed = 59
      npar = 3
      par(1) = 0
      par(2) = 6.21
      par(3) = 8.02
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.75) stop 'consistency check #1 failed'

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

      itmed = 60
      natmed = 'FTI3 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 = 'FTI3'
      chshap = 'TUBE'
      nmed = 60
      npar = 3
      par(1) = 0
      par(2) = 6.19
      par(3) = 8.02
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.76) stop 'consistency check #1 failed'

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

      itmed = 61
      natmed = 'FTO4 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 = 'FTO4'
      chshap = 'TUBE'
      nmed = 61
      npar = 3
      par(1) = 0
      par(2) = 8.57
      par(3) = 2.14
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.77) stop 'consistency check #1 failed'

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

      itmed = 62
      natmed = 'FTI4 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 = 'FTI4'
      chshap = 'TUBE'
      nmed = 62
      npar = 3
      par(1) = 0
      par(2) = 6.19
      par(3) = 2.14
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.78) stop 'consistency check #1 failed'

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

      itmed = 63
      natmed = 'FTO5 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 = 'FTO5'
      chshap = 'TUBE'
      nmed = 63
      npar = 3
      par(1) = 0
      par(2) = 6.35
      par(3) = 2.42
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.79) stop 'consistency check #1 failed'

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

      itmed = 64
      natmed = 'FTI5 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 = 'FTI5'
      chshap = 'TUBE'
      nmed = 64
      npar = 3
      par(1) = 0
      par(2) = 6.19
      par(3) = 2.42
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.80) stop 'consistency check #1 failed'

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

      itmed = 65
      natmed = 'VCO1 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 = 'VCO1'
      chshap = 'TUBE'
      nmed = 65
      npar = 3
      par(1) = 0
      par(2) = 9.85
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.81) stop 'consistency check #1 failed'

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

      itmed = 66
      natmed = 'VCI1 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 = 'VCI1'
      chshap = 'TUBE'
      nmed = 66
      npar = 3
      par(1) = 0
      par(2) = 6.19
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.82) stop 'consistency check #1 failed'

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

      itmed = 67
      natmed = 'VCO2 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 = 'VCO2'
      chshap = 'TUBE'
      nmed = 67
      npar = 3
      par(1) = 0
      par(2) = 9.85
      par(3) = 25.38
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.83) stop 'consistency check #1 failed'

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

      itmed = 68
      natmed = 'VCI2 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 = 'VCI2'
      chshap = 'TUBE'
      nmed = 68
      npar = 3
      par(1) = 0
      par(2) = 9.83
      par(3) = 25.38
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.84) stop 'consistency check #1 failed'

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

      itmed = 69
      natmed = 'VCO3 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 = 'VCO3'
      chshap = 'TUBE'
      nmed = 69
      npar = 3
      par(1) = 0
      par(2) = 9.85
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.85) stop 'consistency check #1 failed'

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

      itmed = 70
      natmed = 'VCI3 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 = 'VCI3'
      chshap = 'TUBE'
      nmed = 70
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.86) stop 'consistency check #1 failed'

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

      itmed = 71
      natmed = 'LBD1 Lead'
      nmat = 19
      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 = 'LBD1'
      chshap = 'BOX '
      nmed = 71
      npar = 3
      par(1) = 40.64
      par(2) = 10.16
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.87) stop 'consistency check #1 failed'

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

      itmed = 72
      natmed = 'LBO1 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 = 'LBO1'
      chshap = 'TUBE'
      nmed = 72
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.88) stop 'consistency check #1 failed'

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

      itmed = 73
      natmed = 'LBI1 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 = 'LBI1'
      chshap = 'TUBE'
      nmed = 73
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.89) stop 'consistency check #1 failed'

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

      itmed = 74
      natmed = 'F3O1 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 = 'F3O1'
      chshap = 'TUBE'
      nmed = 74
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 5.56
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.90) stop 'consistency check #1 failed'

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

      itmed = 75
      natmed = 'F3I1 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 = 'F3I1'
      chshap = 'TUBE'
      nmed = 75
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 5.56
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.91) stop 'consistency check #1 failed'

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

      itmed = 76
      natmed = 'F3O2 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 = 'F3O2'
      chshap = 'TUBE'
      nmed = 76
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.92) stop 'consistency check #1 failed'

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

      itmed = 77
      natmed = 'F3I2 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 = 'F3I2'
      chshap = 'TUBE'
      nmed = 77
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.93) stop 'consistency check #1 failed'

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

      itmed = 78
      natmed = 'F3O3 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 = 'F3O3'
      chshap = 'TUBE'
      nmed = 78
      npar = 3
      par(1) = 0
      par(2) = 2.08
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.94) stop 'consistency check #1 failed'

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

      itmed = 79
      natmed = 'F3I3 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 = 'F3I3'
      chshap = 'TUBE'
      nmed = 79
      npar = 3
      par(1) = 0
      par(2) = 2.06
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.95) stop 'consistency check #1 failed'

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

      itmed = 80
      natmed = 'F3O4 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 = 'F3O4'
      chshap = 'TUBE'
      nmed = 80
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.96) stop 'consistency check #1 failed'

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

      itmed = 81
      natmed = 'F3I4 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 = 'F3I4'
      chshap = 'TUBE'
      nmed = 81
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.97) stop 'consistency check #1 failed'

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

      itmed = 82
      natmed = 'F3O5 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 = 'F3O5'
      chshap = 'TUBE'
      nmed = 82
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 2.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.98) stop 'consistency check #1 failed'

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

      itmed = 83
      natmed = 'F3I5 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 = 'F3I5'
      chshap = 'TUBE'
      nmed = 83
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 2.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.99) stop 'consistency check #1 failed'

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

      itmed = 84
      natmed = 'OCOL 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 = 'OCOL'
      chshap = 'TUBE'
      nmed = 84
      npar = 3
      par(1) = 0
      par(2) = 10
      par(3) = 25.4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.100) stop 'consistency check #1 failed'

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

      itmed = 85
      natmed = 'ICOL 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 = 'ICOL'
      chshap = 'TUBE'
      nmed = 85
      npar = 3
      par(1) = 0
      par(2) = 0.3
      par(3) = 25.4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.101) stop 'consistency check #1 failed'

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

      itmed = 86
      natmed = 'F4O1 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 = 'F4O1'
      chshap = 'TUBE'
      nmed = 86
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.102) stop 'consistency check #1 failed'

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

      itmed = 87
      natmed = 'F4I1 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 = 'F4I1'
      chshap = 'TUBE'
      nmed = 87
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.103) stop 'consistency check #1 failed'

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

      itmed = 88
      natmed = 'F4O2 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 = 'F4O2'
      chshap = 'TUBE'
      nmed = 88
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.104) stop 'consistency check #1 failed'

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

      itmed = 89
      natmed = 'F4I2 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 = 'F4I2'
      chshap = 'TUBE'
      nmed = 89
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.105) stop 'consistency check #1 failed'

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

      itmed = 90
      natmed = 'F4O3 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 = 'F4O3'
      chshap = 'TUBE'
      nmed = 90
      npar = 3
      par(1) = 0
      par(2) = 2.08
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.106) stop 'consistency check #1 failed'

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

      itmed = 91
      natmed = 'F4I3 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 = 'F4I3'
      chshap = 'TUBE'
      nmed = 91
      npar = 3
      par(1) = 0
      par(2) = 2.06
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.107) stop 'consistency check #1 failed'

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

      itmed = 92
      natmed = 'F4O4 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 = 'F4O4'
      chshap = 'TUBE'
      nmed = 92
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.108) stop 'consistency check #1 failed'

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

      itmed = 93
      natmed = 'F4I4 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 = 'F4I4'
      chshap = 'TUBE'
      nmed = 93
      npar = 3
      par(1) = 0
      par(2) = 1.745
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.109) stop 'consistency check #1 failed'

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

      itmed = 94
      natmed = 'F4O5 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 = 'F4O5'
      chshap = 'TUBE'
      nmed = 94
      npar = 3
      par(1) = 0
      par(2) = 1.905
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.110) stop 'consistency check #1 failed'

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

      itmed = 95
      natmed = 'F4I5 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 = 'F4I5'
      chshap = 'TUBE'
      nmed = 95
      npar = 3
      par(1) = 0
      par(2) = 1.745
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.111) stop 'consistency check #1 failed'

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

      itmed = 96
      natmed = 'POL2 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 = 'POL2'
      chshap = 'BOX '
      nmed = 96
      npar = 3
      par(1) = 21
      par(2) = 10.4
      par(3) = 18
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.112) stop 'consistency check #1 failed'

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

      itmed = 97
      natmed = 'GAP2 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 2.3
      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 = 97
      npar = 3
      par(1) = 10.15
      par(2) = 2.5
      par(3) = 18
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.113) stop 'consistency check #1 failed'

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

      itmed = 98
      natmed = 'MPO2 Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 2.3
      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 = 'MPO2'
      chshap = 'TUBE'
      nmed = 98
      npar = 3
      par(1) = 0
      par(2) = 1.905
      par(3) = 18
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.114) stop 'consistency check #1 failed'

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

      itmed = 99
      natmed = 'MPI2 Vacuum'
      nmat = 11
      isvol = 0
      ifield = 2
      fieldm = 2.3
      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 = 'MPI2'
      chshap = 'TUBE'
      nmed = 99
      npar = 3
      par(1) = 0
      par(2) = 1.745
      par(3) = 18
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.115) stop 'consistency check #1 failed'

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

      itmed = 100
      natmed = 'F5O1 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 = 'F5O1'
      chshap = 'TUBE'
      nmed = 100
      npar = 3
      par(1) = 0
      par(2) = 1.905
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.116) stop 'consistency check #1 failed'

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

      itmed = 101
      natmed = 'F5I1 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 = 'F5I1'
      chshap = 'TUBE'
      nmed = 101
      npar = 3
      par(1) = 0
      par(2) = 1.745
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.117) stop 'consistency check #1 failed'

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

      itmed = 102
      natmed = 'F5O2 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 = 'F5O2'
      chshap = 'TUBE'
      nmed = 102
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.118) stop 'consistency check #1 failed'

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

      itmed = 103
      natmed = 'F5I2 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 = 'F5I2'
      chshap = 'TUBE'
      nmed = 103
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.119) stop 'consistency check #1 failed'

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

      itmed = 104
      natmed = 'F5O3 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 = 'F5O3'
      chshap = 'TUBE'
      nmed = 104
      npar = 3
      par(1) = 0
      par(2) = 2.08
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.120) stop 'consistency check #1 failed'

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

      itmed = 105
      natmed = 'F5I3 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 = 'F5I3'
      chshap = 'TUBE'
      nmed = 105
      npar = 3
      par(1) = 0
      par(2) = 2.06
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.121) stop 'consistency check #1 failed'

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

      itmed = 106
      natmed = 'F5O4 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 = 'F5O4'
      chshap = 'TUBE'
      nmed = 106
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.122) stop 'consistency check #1 failed'

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

      itmed = 107
      natmed = 'F5I4 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 = 'F5I4'
      chshap = 'TUBE'
      nmed = 107
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.123) stop 'consistency check #1 failed'

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

      itmed = 108
      natmed = 'F5O5 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 = 'F5O5'
      chshap = 'TUBE'
      nmed = 108
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.124) stop 'consistency check #1 failed'

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

      itmed = 109
      natmed = 'F5I5 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 = 'F5I5'
      chshap = 'TUBE'
      nmed = 109
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.125) stop 'consistency check #1 failed'

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

      itmed = 110
      natmed = 'BPO1 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 = 'BPO1'
      chshap = 'TUBE'
      nmed = 110
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 50.16
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.126) stop 'consistency check #1 failed'

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

      itmed = 111
      natmed = 'BPI1 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 = 'BPI1'
      chshap = 'TUBE'
      nmed = 111
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 50.16
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.127) stop 'consistency check #1 failed'

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

      itmed = 112
      natmed = 'LBD2 Lead'
      nmat = 19
      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 = 'LBD2'
      chshap = 'BOX '
      nmed = 112
      npar = 3
      par(1) = 40.64
      par(2) = 10.16
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.128) stop 'consistency check #1 failed'

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

      itmed = 113
      natmed = 'LBO2 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 = 'LBO2'
      chshap = 'TUBE'
      nmed = 113
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.129) stop 'consistency check #1 failed'

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

      itmed = 114
      natmed = 'LBI2 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 = 'LBI2'
      chshap = 'TUBE'
      nmed = 114
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.130) stop 'consistency check #1 failed'

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

      itmed = 115
      natmed = 'DET2 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 = 'DET2'
      chshap = 'BOX '
      nmed = 115
      npar = 3
      par(1) = 225
      par(2) = 135
      par(3) = 0.05
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.131) stop 'consistency check #1 failed'

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

      itmed = 116
      natmed = 'F6O1 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 = 'F6O1'
      chshap = 'TUBE'
      nmed = 116
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.132) stop 'consistency check #1 failed'

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

      itmed = 117
      natmed = 'F6I1 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 = 'F6I1'
      chshap = 'TUBE'
      nmed = 117
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.133) stop 'consistency check #1 failed'

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

      itmed = 118
      natmed = 'F6O2 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 = 'F6O2'
      chshap = 'TUBE'
      nmed = 118
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.134) stop 'consistency check #1 failed'

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

      itmed = 119
      natmed = 'F6I2 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 = 'F6I2'
      chshap = 'TUBE'
      nmed = 119
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.135) stop 'consistency check #1 failed'

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

      itmed = 120
      natmed = 'F6O3 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 = 'F6O3'
      chshap = 'TUBE'
      nmed = 120
      npar = 3
      par(1) = 0
      par(2) = 2.08
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.136) stop 'consistency check #1 failed'

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

      itmed = 121
      natmed = 'F6I3 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 = 'F6I3'
      chshap = 'TUBE'
      nmed = 121
      npar = 3
      par(1) = 0
      par(2) = 2.06
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.137) stop 'consistency check #1 failed'

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

      itmed = 122
      natmed = 'F6O4 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 = 'F6O4'
      chshap = 'TUBE'
      nmed = 122
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.138) stop 'consistency check #1 failed'

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

      itmed = 123
      natmed = 'F6I4 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 = 'F6I4'
      chshap = 'TUBE'
      nmed = 123
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.139) stop 'consistency check #1 failed'

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

      itmed = 124
      natmed = 'F6O5 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 = 'F6O5'
      chshap = 'TUBE'
      nmed = 124
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.140) stop 'consistency check #1 failed'

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

      itmed = 125
      natmed = 'F6I5 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 = 'F6I5'
      chshap = 'TUBE'
      nmed = 125
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.141) stop 'consistency check #1 failed'

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

      itmed = 126
      natmed = 'TBO1 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 = 'TBO1'
      chshap = 'BOX '
      nmed = 126
      npar = 3
      par(1) = 11
      par(2) = 10
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.142) stop 'consistency check #1 failed'

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

      itmed = 127
      natmed = 'TBI1 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 = 'TBI1'
      chshap = 'TUBE'
      nmed = 127
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.143) stop 'consistency check #1 failed'

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

      itmed = 128
      natmed = 'TBO2 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 = 'TBO2'
      chshap = 'BOX '
      nmed = 128
      npar = 3
      par(1) = 11
      par(2) = 10
      par(3) = 10.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.144) stop 'consistency check #1 failed'

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

      itmed = 129
      natmed = 'TBI2 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 = 'TBI2'
      chshap = 'BOX '
      nmed = 129
      npar = 3
      par(1) = 10.8
      par(2) = 9.8
      par(3) = 10.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.145) stop 'consistency check #1 failed'

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

      itmed = 130
      natmed = 'PTAR 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 = 'PTAR'
      chshap = 'BOX '
      nmed = 130
      npar = 3
      par(1) = 0.5
      par(2) = 0.5
      par(3) = 0.02225
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.146) stop 'consistency check #1 failed'

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

      itmed = 131
      natmed = 'TBO3 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 = 'TBO3'
      chshap = 'BOX '
      nmed = 131
      npar = 3
      par(1) = 11
      par(2) = 10
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.147) stop 'consistency check #1 failed'

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

      itmed = 132
      natmed = 'TBI3 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 = 'TBI3'
      chshap = 'TUBE'
      nmed = 132
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.148) stop 'consistency check #1 failed'

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

      itmed = 133
      natmed = 'F7O1 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 = 'F7O1'
      chshap = 'TUBE'
      nmed = 133
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.149) stop 'consistency check #1 failed'

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

      itmed = 134
      natmed = 'F7I1 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 = 'F7I1'
      chshap = 'TUBE'
      nmed = 134
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.150) stop 'consistency check #1 failed'

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

      itmed = 135
      natmed = 'F7O2 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 = 'F7O2'
      chshap = 'TUBE'
      nmed = 135
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.151) stop 'consistency check #1 failed'

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

      itmed = 136
      natmed = 'F7I2 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 = 'F7I2'
      chshap = 'TUBE'
      nmed = 136
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.152) stop 'consistency check #1 failed'

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

      itmed = 137
      natmed = 'F7O3 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 = 'F7O3'
      chshap = 'TUBE'
      nmed = 137
      npar = 3
      par(1) = 0
      par(2) = 2.08
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.153) stop 'consistency check #1 failed'

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

      itmed = 138
      natmed = 'F7I3 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 = 'F7I3'
      chshap = 'TUBE'
      nmed = 138
      npar = 3
      par(1) = 0
      par(2) = 2.06
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.154) stop 'consistency check #1 failed'

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

      itmed = 139
      natmed = 'F7O4 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 = 'F7O4'
      chshap = 'TUBE'
      nmed = 139
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.155) stop 'consistency check #1 failed'

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

      itmed = 140
      natmed = 'F7I4 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 = 'F7I4'
      chshap = 'TUBE'
      nmed = 140
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.156) stop 'consistency check #1 failed'

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

      itmed = 141
      natmed = 'F7O5 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 = 'F7O5'
      chshap = 'TUBE'
      nmed = 141
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.157) stop 'consistency check #1 failed'

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

      itmed = 142
      natmed = 'F7I5 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 = 'F7I5'
      chshap = 'TUBE'
      nmed = 142
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.158) stop 'consistency check #1 failed'

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

      itmed = 143
      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 = 143
      npar = 3
      par(1) = 225
      par(2) = 135
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.159) stop 'consistency check #1 failed'

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

      itmed = 144
      natmed = 'ENTR 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 = 'ENTR'
      chshap = 'BOX '
      nmed = 144
      npar = 3
      par(1) = 46
      par(2) = 135
      par(3) = 30.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.160) stop 'consistency check #1 failed'

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

      itmed = 145
      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 = 145
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.161) stop 'consistency check #1 failed'

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

      itmed = 146
      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 = 146
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.162) 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 = 147
      natmed = 'WALL Lead'
      nmat = 19
      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 = 147
      npar = 3
      par(1) = 225
      par(2) = 135
      par(3) = 2.54
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.163) stop 'consistency check #1 failed'

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

      itmed = 148
      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 = 148
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 2.54
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.164) 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 = 149
      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 = 149
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 2.54
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.165) 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 = 150
      natmed = 'BPO2 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 = 'BPO2'
      chshap = 'TUBE'
      nmed = 150
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 63.86
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.166) stop 'consistency check #1 failed'

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

      itmed = 151
      natmed = 'BPI2 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 = 'BPI2'
      chshap = 'TUBE'
      nmed = 151
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 63.86
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.167) stop 'consistency check #1 failed'

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

      itmed = 152
      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 = 152
      npar = 3
      par(1) = 225
      par(2) = 1
      par(3) = 600
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.168) 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 = 153
      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 = 153
      npar = 3
      par(1) = 850
      par(2) = 750
      par(3) = 1500
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.169) 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 = 154
      natmed = 'TARM 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 = 'TARM'
      chshap = 'PCON'
      nmed = 154
      npar = 36
      par(1) = 0
      par(2) = 360
      par(3) = 11
      par(4) = -100
      par(5) = 0
      par(6) = 12.65
      par(7) = -52.4
      par(8) = 0
      par(9) = 12.65
      par(10) = -52.4
      par(11) = 0
      par(12) = 8.5
      par(13) = -35.2
      par(14) = 0
      par(15) = 8.5
      par(16) = -29.2
      par(17) = 0
      par(18) = 7.9
      par(19) = -5
      par(20) = 0
      par(21) = 7.9
      par(22) = -5
      par(23) = 0
      par(24) = 7.9
      par(25) = -4
      par(26) = 0
      par(27) = 7.9
      par(28) = -4
      par(29) = 0
      par(30) = 6.9
      par(31) = 1
      par(32) = 0
      par(33) = 6.9
      par(34) = 5
      par(35) = 0
      par(36) = 4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.170) stop 'consistency check #1 failed'

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

      itmed = 155
      natmed = 'TGBM 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 = 'TGBM'
      chshap = 'PCON'
      nmed = 155
      npar = 30
      par(1) = 0
      par(2) = 360
      par(3) = 9
      par(4) = -54.8
      par(5) = 8.2
      par(6) = 8.5
      par(7) = -35.2
      par(8) = 8.2
      par(9) = 8.5
      par(10) = -29.2
      par(11) = 7.6
      par(12) = 7.9
      par(13) = -5
      par(14) = 7.6
      par(15) = 7.9
      par(16) = -5
      par(17) = 6.6
      par(18) = 7.9
      par(19) = -4
      par(20) = 6.6
      par(21) = 7.9
      par(22) = -4
      par(23) = 6.6
      par(24) = 6.9
      par(25) = 1
      par(26) = 6.6
      par(27) = 6.9
      par(28) = 5
      par(29) = 3.7
      par(30) = 4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.171) stop 'consistency check #1 failed'

      chname = 'TGBM'
      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 = 156
      natmed = 'TGFL 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 = 'TGFL'
      chshap = 'TUBE'
      nmed = 156
      npar = 3
      par(1) = 8.5
      par(2) = 12.65
      par(3) = 2.54
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.172) stop 'consistency check #1 failed'

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

      itmed = 157
      natmed = 'TGF1 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 = 'TGF1'
      chshap = 'TUBE'
      nmed = 157
      npar = 3
      par(1) = 8.5
      par(2) = 12.65
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.173) stop 'consistency check #1 failed'

      chname = 'TGF1'
      nr = 1
      chmoth = 'TGFL'
      x = 0
      y = 0
      z = 1.27
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 158
      natmed = 'TGF2 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 = 'TGF2'
      chshap = 'TUBE'
      nmed = 158
      npar = 3
      par(1) = 10.1
      par(2) = 12.65
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.174) stop 'consistency check #1 failed'

      chname = 'TGF2'
      nr = 1
      chmoth = 'TGFL'
      x = 0
      y = 0
      z = -1.27
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 159
      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 = 159
      npar = 3
      par(1) = 0
      par(2) = 4.7
      par(3) = 21.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.175) stop 'consistency check #1 failed'

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

      imate = 20
      namate = 'HighDensityROHACELL'
      wmat(1) = 11
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 8
      call gfmate(13,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 = 160
      natmed = 'CYLW HighDensityROHACELL'
      nmat = 20
      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 = 160
      npar = 3
      par(1) = 3.7
      par(2) = 4.7
      par(3) = 21.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.176) 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 = 161
      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 = 161
      npar = 3
      par(1) = 0
      par(2) = 2
      par(3) = 0.0035
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.177) stop 'consistency check #1 failed'

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

      itmed = 162
      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 = 162
      npar = 3
      par(1) = 0
      par(2) = 2
      par(3) = 0.0035
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.178) stop 'consistency check #1 failed'

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

      itmed = 163
      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 = 163
      npar = 3
      par(1) = 2
      par(2) = 3.7
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.179) stop 'consistency check #1 failed'

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

      itmed = 164
      natmed = 'DFLT HighDensityROHACELL'
      nmat = 20
      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 = 164
      npar = 3
      par(1) = 2
      par(2) = 3.7
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.180) stop 'consistency check #1 failed'

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

      itmed = 165
      natmed = 'TGTV Kapton'
      nmat = 12
      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 = 165
      npar = 3
      par(1) = 0
      par(2) = 1.515
      par(3) = 15.015
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.181) stop 'consistency check #1 failed'

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

      imate = 21
      chnama = 'LiqHydrogen'
      a = 1.00797
      z = 1
      dens = 0.0708
      radl = 865.53672
      absl = 717.51412
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      itmed = 166
      natmed = 'LIH2 LiqHydrogen'
      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 = 'LIH2'
      chshap = 'TUBE'
      nmed = 166
      npar = 3
      par(1) = 0
      par(2) = 1.5
      par(3) = 15
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.182) 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 = 167
      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 = 167
      npar = 36
      par(1) = 0
      par(2) = 360
      par(3) = 11
      par(4) = -60.8
      par(5) = 12.65
      par(6) = 188
      par(7) = -12.5
      par(8) = 12.65
      par(9) = 188
      par(10) = 4.7
      par(11) = 8.5
      par(12) = 188
      par(13) = 10.7
      par(14) = 7.9
      par(15) = 188
      par(16) = 34.9
      par(17) = 7.9
      par(18) = 188
      par(19) = 34.9
      par(20) = 6.9
      par(21) = 188
      par(22) = 39.9
      par(23) = 6.9
      par(24) = 188
      par(25) = 43.9
      par(26) = 4.7
      par(27) = 188
      par(28) = 86.1
      par(29) = 4.7
      par(30) = 188
      par(31) = 86.1
      par(32) = 0
      par(33) = 188
      par(34) = 460
      par(35) = 0
      par(36) = 188
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.183) 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 = 168
      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 = 168
      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.184) 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 = 169
      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 = 169
      npar = 3
      par(1) = 95
      par(2) = 187.96
      par(3) = 188.9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.185) 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 = 170
      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 = 170
      npar = 3
      par(1) = 92.71
      par(2) = 187.96
      par(3) = 33
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.186) 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)

      itmed = 171
      natmed = 'STRT 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 = 'STRT'
      chshap = 'PGON'
      nmed = 171
      npar = 49
      par(1) = 0
      par(2) = 360
      par(3) = 30
      par(4) = 15
      par(5) = -0.28
      par(6) = 6.927952
      par(7) = 8.959079
      par(8) = 39.455
      par(9) = 6.927952
      par(10) = 8.959079
      par(11) = 39.485135
      par(12) = 6.927058
      par(13) = 8.959079
      par(14) = 40.142227
      par(15) = 6.907556
      par(16) = 8.939577
      par(17) = 40.262739
      par(18) = 6.8968
      par(19) = 8.936
      par(20) = 40.827035
      par(21) = 6.846438
      par(22) = 8.885638
      par(23) = 41.067634
      par(24) = 6.81048
      par(25) = 8.864165
      par(26) = 41.507012
      par(27) = 6.744815
      par(28) = 8.7985
      par(29) = 41.866852
      par(30) = 6.668985
      par(31) = 8.744721
      par(32) = 42.179766
      par(33) = 6.603043
      par(34) = 8.67878
      par(35) = 42.65758
      par(36) = 6.472328
      par(37) = 8.578089
      par(38) = 42.842928
      par(39) = 6.421623
      par(40) = 8.527383
      par(41) = 43.407954
      par(42) = 6.248877
      par(43) = 8.372809
      par(44) = 58.472773
      par(45) = 1.6431
      par(46) = 3.767032
      par(47) = 59.066617
      par(48) = 3.585476
      par(49) = 3.585476
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.187) stop 'consistency check #1 failed'

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

      imate = 22
      namate = 'Scintillator'
      wmat(1) = 8
      call gfmate(13,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 = 172
      natmed = 'STRC Scintillator'
      nmat = 22
      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 = 172
      npar = 49
      par(1) = -6
      par(2) = 12
      par(3) = 1
      par(4) = 15
      par(5) = 0
      par(6) = 7.34021
      par(7) = 7.641863
      par(8) = 39.465
      par(9) = 7.34021
      par(10) = 7.641863
      par(11) = 39.469475
      par(12) = 7.340078
      par(13) = 7.641863
      par(14) = 40.176676
      par(15) = 7.319088
      par(16) = 7.620874
      par(17) = 40.194574
      par(18) = 7.317491
      par(19) = 7.620342
      par(20) = 40.885848
      par(21) = 7.255797
      par(22) = 7.558648
      par(23) = 40.92158
      par(24) = 7.250456
      par(25) = 7.555459
      par(26) = 41.590017
      par(27) = 7.150558
      par(28) = 7.45556
      par(29) = 41.643458
      par(30) = 7.139296
      par(31) = 7.447574
      par(32) = 42.286705
      par(33) = 7.003742
      par(34) = 7.31202
      par(35) = 42.357668
      par(36) = 6.984329
      par(37) = 7.297066
      par(38) = 42.97346
      par(39) = 6.815868
      par(40) = 7.128604
      par(41) = 43.057375
      par(42) = 6.790212
      par(43) = 7.105648
      par(44) = 58.593742
      par(45) = 2.040268
      par(46) = 2.355704
      par(47) = 58.681937
      par(48) = 2.32874
      par(49) = 2.32874
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.188) stop 'consistency check #1 failed'

      irot = 12
      theta1 = 90
      phi1 = 6
      theta2 = 90
      phi2 = 96
      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 = 12
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 13
      theta1 = 90
      phi1 = 18
      theta2 = 90
      phi2 = 108
      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 = 13
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 14
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      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 = 14
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 15
      theta1 = 90
      phi1 = 42
      theta2 = 90
      phi2 = 132
      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 = 15
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 16
      theta1 = 90
      phi1 = 54
      theta2 = 90
      phi2 = 144
      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 = 16
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 17
      theta1 = 90
      phi1 = 66
      theta2 = 90
      phi2 = 156
      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 = 17
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 18
      theta1 = 90
      phi1 = 78
      theta2 = 90
      phi2 = 168
      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 = 18
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 19
      theta1 = 90
      phi1 = 90
      theta2 = 90
      phi2 = 180
      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 = 19
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 20
      theta1 = 90
      phi1 = 102
      theta2 = 90
      phi2 = -168
      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 = 20
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 21
      theta1 = 90
      phi1 = 114
      theta2 = 90
      phi2 = -156
      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 = 21
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 22
      theta1 = 90
      phi1 = 126
      theta2 = 90
      phi2 = -144
      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 = 22
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 23
      theta1 = 90
      phi1 = 138
      theta2 = 90
      phi2 = -132
      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 = 23
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 24
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      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 = 24
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 25
      theta1 = 90
      phi1 = 162
      theta2 = 90
      phi2 = -108
      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 = 25
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 26
      theta1 = 90
      phi1 = 174
      theta2 = 90
      phi2 = -96
      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 = 26
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 27
      theta1 = 90
      phi1 = -174
      theta2 = 90
      phi2 = -84
      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 = 27
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 28
      theta1 = 90
      phi1 = -162
      theta2 = 90
      phi2 = -72
      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 = 28
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 29
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      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 = 29
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 30
      theta1 = 90
      phi1 = -138
      theta2 = 90
      phi2 = -48
      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 = 30
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 31
      theta1 = 90
      phi1 = -126
      theta2 = 90
      phi2 = -36
      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 = 31
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 32
      theta1 = 90
      phi1 = -114
      theta2 = 90
      phi2 = -24
      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 = 32
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 33
      theta1 = 90
      phi1 = -102
      theta2 = 90
      phi2 = -12
      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 = 33
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 34
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = -1.0525064e-14
      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 = 34
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 35
      theta1 = 90
      phi1 = -78
      theta2 = 90
      phi2 = 12
      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 = 35
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRC'
      nr = 25
      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 = -54
      theta2 = 90
      phi2 = 36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 26
      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 = -42
      theta2 = 90
      phi2 = 48
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 27
      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 = -30
      theta2 = 90
      phi2 = 60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 28
      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 = -18
      theta2 = 90
      phi2 = 72
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRC'
      nr = 29
      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 = -6
      theta2 = 90
      phi2 = 84
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

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

      itmed = 173
      natmed = 'STIS HighDensityROHACELL'
      nmat = 20
      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 = 'STIS'
      chshap = 'PGON'
      nmed = 173
      npar = 49
      par(1) = 0
      par(2) = 360
      par(3) = 30
      par(4) = 15
      par(5) = 0
      par(6) = 6.938007
      par(7) = 7.336188
      par(8) = 39.465
      par(9) = 6.938007
      par(10) = 7.336188
      par(11) = 39.470908
      par(12) = 6.937832
      par(13) = 7.336188
      par(14) = 40.156743
      par(15) = 6.917477
      par(16) = 7.315833
      par(17) = 40.180368
      par(18) = 6.915368
      par(19) = 7.315132
      par(20) = 40.846052
      par(21) = 6.855958
      par(22) = 7.255721
      par(23) = 40.893219
      par(24) = 6.848908
      par(25) = 7.251512
      par(26) = 41.530498
      par(27) = 6.753666
      par(28) = 7.15627
      par(29) = 41.601041
      par(30) = 6.738801
      par(31) = 7.145727
      par(32) = 42.207673
      par(33) = 6.610963
      par(34) = 7.01789
      par(35) = 42.301344
      par(36) = 6.585338
      par(37) = 6.99815
      par(38) = 42.875193
      par(39) = 6.42835
      par(40) = 6.841163
      par(41) = 42.985961
      par(42) = 6.394485
      par(43) = 6.81086
      par(44) = 57.219765
      par(45) = 2.042775
      par(46) = 2.45915
      par(47) = 57.336181
      par(48) = 2.423557
      par(49) = 2.423557
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.189) stop 'consistency check #1 failed'

      chname = 'STIS'
      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 = 23
      namate = 'LowDensityROHACELL'
      wmat(1) = 11
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 8
      call gfmate(13,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 = 174
      natmed = 'STOS LowDensityROHACELL'
      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 = 'STOS'
      chshap = 'PGON'
      nmed = 174
      npar = 49
      par(1) = 0
      par(2) = 360
      par(3) = 30
      par(4) = 15
      par(5) = 0
      par(6) = 7.943515
      par(7) = 8.476435
      par(8) = 39.465
      par(9) = 7.943515
      par(10) = 8.476435
      par(11) = 39.472907
      par(12) = 7.943281
      par(13) = 8.476435
      par(14) = 40.212456
      par(15) = 7.921331
      par(16) = 8.454485
      par(17) = 40.244076
      par(18) = 7.918509
      par(19) = 8.453547
      par(20) = 40.957281
      par(21) = 7.854858
      par(22) = 8.389895
      par(23) = 41.020409
      par(24) = 7.845423
      par(25) = 8.384261
      par(26) = 41.696853
      par(27) = 7.744328
      par(28) = 8.283166
      par(29) = 41.791266
      par(30) = 7.724432
      par(31) = 8.269056
      par(32) = 42.428568
      par(33) = 7.590131
      par(34) = 8.134755
      par(35) = 42.553935
      par(36) = 7.555835
      par(37) = 8.108336
      par(38) = 43.14985
      par(39) = 7.392811
      par(40) = 7.945312
      par(41) = 43.298099
      par(42) = 7.347487
      par(43) = 7.904756
      par(44) = 45.062459
      par(45) = 6.808068
      par(46) = 7.365337
      par(47) = 45.21827
      par(48) = 7.317701
      par(49) = 7.317701
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.190) stop 'consistency check #1 failed'

      chname = 'STOS'
      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 = 24
      namate = 'Cellulose'
      wmat(1) = 10
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 6
      call gfmate(13,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 = 175
      natmed = 'STWR Cellulose'
      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 = 'STWR'
      chshap = 'PGON'
      nmed = 175
      npar = 49
      par(1) = 0
      par(2) = 360
      par(3) = 30
      par(4) = 15
      par(5) = 0
      par(6) = 7.651863
      par(7) = 7.702138
      par(8) = 39.465
      par(9) = 7.651863
      par(10) = 7.702138
      par(11) = 39.465746
      par(12) = 7.651841
      par(13) = 7.702138
      par(14) = 40.195159
      par(15) = 7.630192
      par(16) = 7.68049
      par(17) = 40.198142
      par(18) = 7.629926
      par(19) = 7.680401
      par(20) = 40.922749
      par(21) = 7.565257
      par(22) = 7.615732
      par(23) = 40.928704
      par(24) = 7.564367
      par(25) = 7.6152
      par(26) = 41.645206
      par(27) = 7.457285
      par(28) = 7.508119
      par(29) = 41.654113
      par(30) = 7.455408
      par(31) = 7.506787
      par(32) = 42.359988
      par(33) = 7.306657
      par(34) = 7.358036
      par(35) = 42.371815
      par(36) = 7.303421
      par(37) = 7.355544
      par(38) = 43.064579
      par(39) = 7.113902
      par(40) = 7.166025
      par(41) = 43.078565
      par(42) = 7.109626
      par(43) = 7.162199
      par(44) = 58.684861
      par(45) = 2.338303
      par(46) = 2.390875
      par(47) = 58.69956
      par(48) = 2.386381
      par(49) = 2.386381
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.191) 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)

      itmed = 176
      natmed = 'STRO 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 = 'STRO'
      chshap = 'TUBE'
      nmed = 176
      npar = 3
      par(1) = 7
      par(2) = 8.32
      par(3) = 0.14
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.192) stop 'consistency check #1 failed'

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

      itmed = 177
      natmed = 'STSI Silicon'
      nmat = 9
      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 = 'STSI'
      chshap = 'TUBE'
      nmed = 177
      npar = 3
      par(1) = 7.34021
      par(2) = 7.641863
      par(3) = 0.05
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.193) stop 'consistency check #1 failed'

      chname = 'STSI'
      nr = 1
      chmoth = 'STRO'
      x = 0
      y = 0
      z = 0.09
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 25
      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)

      itmed = 178
      natmed = 'STSS SiliconDioxide'
      nmat = 25
      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 = 'STSS'
      chshap = 'TUBE'
      nmed = 178
      npar = 3
      par(1) = 7.34021
      par(2) = 7.641863
      par(3) = 0.05
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.194) stop 'consistency check #1 failed'

      chname = 'STSS'
      nr = 1
      chmoth = 'STRO'
      x = 0
      y = 0
      z = -0.01
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 28
      namate = 'BoricOxide'
      wmat(1) = 2
      call gfmate(15,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 = 30
      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 = 29
      namate = 'SodiumOxide'
      wmat(1) = 2
      call gfmate(30,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 = 32
      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 = 31
      namate = 'PotassiumOxide'
      wmat(1) = 2
      call gfmate(32,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 = 33
      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 = 34
      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 = 27
      namate = 'BorosilicateGlass'
      wmat(1) = 0.7
      call gfmate(25,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.1
      call gfmate(28,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.08
      call gfmate(29,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.08
      call gfmate(31,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.025
      call gfmate(33,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf)
      wmat(6) = 0.015
      call gfmate(34,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 = 'EpoxyResin'
      wmat(1) = 18
      call gfmate(13,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 = 26
      namate = 'FR-4'
      wmat(1) = 0.7
      call gfmate(27,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.3
      call gfmate(35,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 = 179
      natmed = 'STRB FR-4'
      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 = 'STRB'
      chshap = 'TUBE'
      nmed = 179
      npar = 3
      par(1) = 7
      par(2) = 8.32
      par(3) = 0.04
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.195) stop 'consistency check #1 failed'

      chname = 'STRB'
      nr = 1
      chmoth = 'STRO'
      x = 0
      y = 0
      z = -0.1
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 180
      natmed = 'STCM 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 = 'STCM'
      chshap = 'TUBE'
      nmed = 180
      npar = 3
      par(1) = 8.2
      par(2) = 8.9
      par(3) = 14.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.196) stop 'consistency check #1 failed'

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

      itmed = 181
      natmed = 'STCB 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 = 'STCB'
      chshap = 'BOX '
      nmed = 181
      npar = 3
      par(1) = 0.05
      par(2) = 1.905
      par(3) = 14.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.197) stop 'consistency check #1 failed'

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

      chname = 'STCB'
      nr = 1
      chmoth = 'STCM'
      x = 5.0822842e-16
      y = 8.3
      z = 0
      irot = 42
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 37
      namate = 'Polyethylene'
      wmat(1) = 1
      call gfmate(13,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)

      imate = 36
      namate = 'CircuitBoards'
      wmat(1) = 0.35
      call gfmate(37,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.58
      call gfmate(18,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.07
      call gfmate(26,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 2.1285544
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 182
      natmed = 'STC1 CircuitBoards'
      nmat = 36
      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 = 'STC1'
      chshap = 'BOX '
      nmed = 182
      npar = 3
      par(1) = 0.05
      par(2) = 1.905
      par(3) = 2.682
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.198) stop 'consistency check #1 failed'

      chname = 'STC1'
      nr = 1
      chmoth = 'STCB'
      x = 0
      y = 0
      z = 12.167
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 40
      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 = 39
      namate = 'PVC'
      wmat(1) = 2
      call gfmate(13,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(40,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 = 38
      namate = 'SignalCables'
      wmat(1) = 0.4
      call gfmate(18,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.6
      call gfmate(39,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.003252
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 183
      natmed = 'STC2 SignalCables'
      nmat = 38
      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 = 'STC2'
      chshap = 'BOX '
      nmed = 183
      npar = 3
      par(1) = 0.05
      par(2) = 1.27
      par(3) = 12.168
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.199) stop 'consistency check #1 failed'

      chname = 'STC2'
      nr = 1
      chmoth = 'STCB'
      x = 0
      y = 0
      z = -2.682
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STCB'
      nr = 2
      chmoth = 'STCM'
      x = -4.8786176
      y = 6.7148411
      z = 0
      irot = 43
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STCB'
      nr = 3
      chmoth = 'STCM'
      x = -7.8937691
      y = 2.5648411
      z = 0
      irot = 44
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STCB'
      nr = 4
      chmoth = 'STCM'
      x = -7.8937691
      y = -2.5648411
      z = 0
      irot = 45
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STCB'
      nr = 5
      chmoth = 'STCM'
      x = -4.8786176
      y = -6.7148411
      z = 0
      irot = 46
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STCB'
      nr = 6
      chmoth = 'STCM'
      x = -1.5246853e-15
      y = -8.3
      z = 0
      irot = 47
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STCB'
      nr = 7
      chmoth = 'STCM'
      x = 4.8786176
      y = -6.7148411
      z = 0
      irot = 48
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STCB'
      nr = 8
      chmoth = 'STCM'
      x = 7.8937691
      y = -2.5648411
      z = 0
      irot = 49
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 50
      theta1 = 90
      phi1 = 18
      theta2 = 90
      phi2 = 108
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STCB'
      nr = 9
      chmoth = 'STCM'
      x = 7.8937691
      y = 2.5648411
      z = 0
      irot = 50
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 51
      theta1 = 90
      phi1 = 54
      theta2 = 90
      phi2 = 144
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STCB'
      nr = 10
      chmoth = 'STCM'
      x = 4.8786176
      y = 6.7148411
      z = 0
      irot = 51
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 184
      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 = 184
      npar = 3
      par(1) = 9
      par(2) = 59.741
      par(3) = 81.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.200) stop 'consistency check #1 failed'

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

      itmed = 185
      natmed = 'DCST 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 = 'DCST'
      chshap = 'TUBE'
      nmed = 185
      npar = 3
      par(1) = 57.4
      par(2) = 59.7
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.201) stop 'consistency check #1 failed'

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

      chname = 'SD01'
      chmoth = 'DCST'
      ndiv = 12
      iaxis = 2
      step = 30
      c0 = 10
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 186
      natmed = 'CDTI 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 = 'CDTI'
      chshap = 'TUBE'
      nmed = 186
      npar = 3
      par(1) = 0
      par(2) = 0.794
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.203) stop 'consistency check #1 failed'

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

      chname = 'CDTI'
      nr = 1
      chmoth = 'SD01'
      x = 56.527525
      y = -15.146505
      z = 0
      irot = 52
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 187
      natmed = 'CDTF 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 = 'CDTF'
      chshap = 'TUBE'
      nmed = 187
      npar = 3
      par(1) = 0.6289
      par(2) = 0.794
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.204) stop 'consistency check #1 failed'

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

      itmed = 188
      natmed = 'CDTP 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 = 'CDTP'
      chshap = 'TUBE'
      nmed = 188
      npar = 3
      par(1) = 0.25
      par(2) = 0.6289
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.205) stop 'consistency check #1 failed'

      chname = 'CDTP'
      nr = 1
      chmoth = 'CDTI'
      x = 0
      y = 0
      z = 73.73
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDTP'
      nr = 2
      chmoth = 'CDTI'
      x = 0
      y = 0
      z = -73.73
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 42
      namate = 'CO2'
      wmat(1) = 1
      call gfmate(13,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 = 41
      namate = 'CDchamberGas'
      wmat(1) = 0.474
      call gfmate(4,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.526
      call gfmate(42,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.0018129018
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 189
      natmed = 'CDCG CDchamberGas'
      nmat = 41
      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 = 'CDCG'
      chshap = 'TUBE'
      nmed = 189
      npar = 3
      par(1) = 9
      par(2) = 56.207
      par(3) = 81.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.206) stop 'consistency check #1 failed'

      chname = 'CDCG'
      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 = 190
      natmed = 'DC1 CDchamberGas'
      nmat = 41
      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 = 190
      npar = 3
      par(1) = 9.02
      par(2) = 12.9769
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.207) stop 'consistency check #1 failed'

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

      itmed = 191
      natmed = 'STRA CDchamberGas'
      nmat = 41
      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 = 191
      npar = 3
      par(1) = 0
      par(2) = 0.7874
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.208) stop 'consistency check #1 failed'

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

      imate = 44
      namate = 'Mylar'
      wmat(1) = 5
      call gfmate(13,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)

      imate = 43
      namate = 'CDCStrawMaterial'
      wmat(1) = 0.187
      call gfmate(7,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.165
      call gfmate(35,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.648
      call gfmate(44,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.5097316
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 192
      natmed = 'STRW CDCStrawMaterial'
      nmat = 43
      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 = 192
      npar = 3
      par(1) = 0.776
      par(2) = 0.7874
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.209) 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 = 193
      natmed = 'WIRE Tungsten'
      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 = 'WIRE'
      chshap = 'TUBE'
      nmed = 193
      npar = 3
      par(1) = 0
      par(2) = 0.001
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.210) 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)

      irot = 53
      theta1 = 90
      phi1 = 8.571429
      theta2 = 90
      phi2 = 98.571429
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 2
      chmoth = 'DC1'
      x = 10.602145
      y = 1.5980164
      z = 0
      irot = 53
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 54
      theta1 = 90
      phi1 = 17.142858
      theta2 = 90
      phi2 = 107.14286
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 3
      chmoth = 'DC1'
      x = 10.245556
      y = 3.1603357
      z = 0
      irot = 54
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 55
      theta1 = 90
      phi1 = 25.714287
      theta2 = 90
      phi2 = 115.71429
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 4
      chmoth = 'DC1'
      x = 9.660098
      y = 4.6520583
      z = 0
      irot = 55
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 56
      theta1 = 90
      phi1 = 34.285716
      theta2 = 90
      phi2 = 124.28572
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 5
      chmoth = 'DC1'
      x = 8.8588493
      y = 6.0398616
      z = 0
      irot = 56
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 57
      theta1 = 90
      phi1 = 42.857145
      theta2 = 90
      phi2 = 132.85715
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 6
      chmoth = 'DC1'
      x = 7.8597086
      y = 7.2927444
      z = 0
      irot = 57
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 58
      theta1 = 90
      phi1 = 51.428574
      theta2 = 90
      phi2 = 141.42857
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 7
      chmoth = 'DC1'
      x = 6.6849949
      y = 8.3827193
      z = 0
      irot = 58
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 59
      theta1 = 90
      phi1 = 60.000003
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 8
      chmoth = 'DC1'
      x = 5.3609495
      y = 9.2854381
      z = 0
      irot = 59
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 60
      theta1 = 90
      phi1 = 68.571432
      theta2 = 90
      phi2 = 158.57143
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 9
      chmoth = 'DC1'
      x = 3.9171493
      y = 9.9807355
      z = 0
      irot = 60
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 61
      theta1 = 90
      phi1 = 77.142861
      theta2 = 90
      phi2 = 167.14286
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 10
      chmoth = 'DC1'
      x = 2.3858465
      y = 10.45308
      z = 0
      irot = 61
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 62
      theta1 = 90
      phi1 = 85.71429
      theta2 = 90
      phi2 = 175.71429
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 11
      chmoth = 'DC1'
      x = 0.80124779
      y = 10.691919
      z = 0
      irot = 62
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 63
      theta1 = 90
      phi1 = 94.285719
      theta2 = 90
      phi2 = -175.71428
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 12
      chmoth = 'DC1'
      x = -0.80124947
      y = 10.691919
      z = 0
      irot = 63
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 64
      theta1 = 90
      phi1 = 102.85715
      theta2 = 90
      phi2 = -167.14285
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 13
      chmoth = 'DC1'
      x = -2.3858481
      y = 10.453079
      z = 0
      irot = 64
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 65
      theta1 = 90
      phi1 = 111.42858
      theta2 = 90
      phi2 = -158.57142
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 14
      chmoth = 'DC1'
      x = -3.9171509
      y = 9.9807349
      z = 0
      irot = 65
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 66
      theta1 = 90
      phi1 = 120.00001
      theta2 = 90
      phi2 = -149.99999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 15
      chmoth = 'DC1'
      x = -5.360951
      y = 9.2854372
      z = 0
      irot = 66
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 67
      theta1 = 90
      phi1 = 128.57144
      theta2 = 90
      phi2 = -141.42856
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 16
      chmoth = 'DC1'
      x = -6.6849962
      y = 8.3827182
      z = 0
      irot = 67
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 68
      theta1 = 90
      phi1 = 137.14286
      theta2 = 90
      phi2 = -132.85714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 17
      chmoth = 'DC1'
      x = -7.8597097
      y = 7.2927431
      z = 0
      irot = 68
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 69
      theta1 = 90
      phi1 = 145.71429
      theta2 = 90
      phi2 = -124.28571
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 18
      chmoth = 'DC1'
      x = -8.8588503
      y = 6.0398602
      z = 0
      irot = 69
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 70
      theta1 = 90
      phi1 = 154.28572
      theta2 = 90
      phi2 = -115.71428
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 19
      chmoth = 'DC1'
      x = -9.6600987
      y = 4.6520568
      z = 0
      irot = 70
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 71
      theta1 = 90
      phi1 = 162.85715
      theta2 = 90
      phi2 = -107.14285
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 20
      chmoth = 'DC1'
      x = -10.245557
      y = 3.160334
      z = 0
      irot = 71
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 72
      theta1 = 90
      phi1 = 171.42858
      theta2 = 90
      phi2 = -98.57142
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 21
      chmoth = 'DC1'
      x = -10.602145
      y = 1.5980147
      z = 0
      irot = 72
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 73
      theta1 = 90
      phi1 = -179.99999
      theta2 = 90
      phi2 = -89.999991
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 22
      chmoth = 'DC1'
      x = -10.7219
      y = -1.6841921e-06
      z = 0
      irot = 73
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 74
      theta1 = 90
      phi1 = -171.42856
      theta2 = 90
      phi2 = -81.428562
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 23
      chmoth = 'DC1'
      x = -10.602145
      y = -1.598018
      z = 0
      irot = 74
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 75
      theta1 = 90
      phi1 = -162.85713
      theta2 = 90
      phi2 = -72.857133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 24
      chmoth = 'DC1'
      x = -10.245556
      y = -3.1603373
      z = 0
      irot = 75
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 76
      theta1 = 90
      phi1 = -154.2857
      theta2 = 90
      phi2 = -64.285704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 25
      chmoth = 'DC1'
      x = -9.6600973
      y = -4.6520598
      z = 0
      irot = 76
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 77
      theta1 = 90
      phi1 = -145.71427
      theta2 = 90
      phi2 = -55.714275
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 26
      chmoth = 'DC1'
      x = -8.8588484
      y = -6.039863
      z = 0
      irot = 77
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 78
      theta1 = 90
      phi1 = -137.14285
      theta2 = 90
      phi2 = -47.142846
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 27
      chmoth = 'DC1'
      x = -7.8597074
      y = -7.2927456
      z = 0
      irot = 78
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 79
      theta1 = 90
      phi1 = -128.57142
      theta2 = 90
      phi2 = -38.571417
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 28
      chmoth = 'DC1'
      x = -6.6849936
      y = -8.3827203
      z = 0
      irot = 79
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 80
      theta1 = 90
      phi1 = -119.99999
      theta2 = 90
      phi2 = -29.999988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 29
      chmoth = 'DC1'
      x = -5.3609481
      y = -9.2854389
      z = 0
      irot = 80
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 81
      theta1 = 90
      phi1 = -111.42856
      theta2 = 90
      phi2 = -21.428559
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 30
      chmoth = 'DC1'
      x = -3.9171478
      y = -9.9807361
      z = 0
      irot = 81
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 82
      theta1 = 90
      phi1 = -102.85713
      theta2 = 90
      phi2 = -12.85713
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 31
      chmoth = 'DC1'
      x = -2.3858449
      y = -10.45308
      z = 0
      irot = 82
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 83
      theta1 = 90
      phi1 = -94.285701
      theta2 = 90
      phi2 = -4.285701
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 32
      chmoth = 'DC1'
      x = -0.80124611
      y = -10.69192
      z = 0
      irot = 83
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 33
      chmoth = 'DC1'
      x = 0.80125115
      y = -10.691919
      z = 0
      irot = 84
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 85
      theta1 = 90
      phi1 = -77.142843
      theta2 = 90
      phi2 = 12.857157
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 34
      chmoth = 'DC1'
      x = 2.3858498
      y = -10.453079
      z = 0
      irot = 85
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 86
      theta1 = 90
      phi1 = -68.571414
      theta2 = 90
      phi2 = 21.428586
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 35
      chmoth = 'DC1'
      x = 3.9171525
      y = -9.9807342
      z = 0
      irot = 86
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 87
      theta1 = 90
      phi1 = -59.999985
      theta2 = 90
      phi2 = 30.000015
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 36
      chmoth = 'DC1'
      x = 5.3609524
      y = -9.2854364
      z = 0
      irot = 87
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 88
      theta1 = 90
      phi1 = -51.428556
      theta2 = 90
      phi2 = 38.571444
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 37
      chmoth = 'DC1'
      x = 6.6849976
      y = -8.3827172
      z = 0
      irot = 88
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 89
      theta1 = 90
      phi1 = -42.857127
      theta2 = 90
      phi2 = 47.142873
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 38
      chmoth = 'DC1'
      x = 7.8597109
      y = -7.2927419
      z = 0
      irot = 89
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 39
      chmoth = 'DC1'
      x = 8.8588512
      y = -6.0398588
      z = 0
      irot = 90
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 91
      theta1 = 90
      phi1 = -25.714269
      theta2 = 90
      phi2 = 64.285731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 40
      chmoth = 'DC1'
      x = 9.6600995
      y = -4.6520552
      z = 0
      irot = 91
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 92
      theta1 = 90
      phi1 = -17.14284
      theta2 = 90
      phi2 = 72.85716
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 41
      chmoth = 'DC1'
      x = 10.245557
      y = -3.1603324
      z = 0
      irot = 92
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 93
      theta1 = 90
      phi1 = -8.571411
      theta2 = 90
      phi2 = 81.428589
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 42
      chmoth = 'DC1'
      x = 10.602146
      y = -1.598013
      z = 0
      irot = 93
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 94
      theta1 = 90
      phi1 = 4.285714
      theta2 = 90
      phi2 = 94.285714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 43
      chmoth = 'DC1'
      x = 12.063174
      y = 0.90400988
      z = 0
      irot = 94
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 95
      theta1 = 90
      phi1 = 12.857143
      theta2 = 90
      phi2 = 102.85714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 44
      chmoth = 'DC1'
      x = 11.793703
      y = 2.6918358
      z = 0
      irot = 95
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 96
      theta1 = 90
      phi1 = 21.428572
      theta2 = 90
      phi2 = 111.42857
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 45
      chmoth = 'DC1'
      x = 11.26078
      y = 4.4195305
      z = 0
      irot = 96
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 97
      theta1 = 90
      phi1 = 30.000001
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 46
      chmoth = 'DC1'
      x = 10.476309
      y = 6.0485002
      z = 0
      irot = 97
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 98
      theta1 = 90
      phi1 = 38.57143
      theta2 = 90
      phi2 = 128.57143
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 47
      chmoth = 'DC1'
      x = 9.4578153
      y = 7.5423564
      z = 0
      irot = 98
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 99
      theta1 = 90
      phi1 = 47.142859
      theta2 = 90
      phi2 = 137.14286
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 48
      chmoth = 'DC1'
      x = 8.2280493
      y = 8.8677288
      z = 0
      irot = 99
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 100
      theta1 = 90
      phi1 = 55.714288
      theta2 = 90
      phi2 = 145.71429
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 49
      chmoth = 'DC1'
      x = 6.8144823
      y = 9.9950107
      z = 0
      irot = 100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 101
      theta1 = 90
      phi1 = 64.285717
      theta2 = 90
      phi2 = 154.28572
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 50
      chmoth = 'DC1'
      x = 5.2486911
      y = 10.899021
      z = 0
      irot = 101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 102
      theta1 = 90
      phi1 = 72.857146
      theta2 = 90
      phi2 = 162.85715
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 51
      chmoth = 'DC1'
      x = 3.5656527
      y = 11.559564
      z = 0
      irot = 102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 103
      theta1 = 90
      phi1 = 81.428575
      theta2 = 90
      phi2 = 171.42858
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 52
      chmoth = 'DC1'
      x = 1.8029635
      y = 11.961887
      z = 0
      irot = 103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 53
      chmoth = 'DC1'
      x = -8.4452992e-07
      y = 12.097
      z = 0
      irot = 104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 105
      theta1 = 90
      phi1 = 98.571433
      theta2 = 90
      phi2 = -171.42857
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 54
      chmoth = 'DC1'
      x = -1.8029652
      y = 11.961886
      z = 0
      irot = 105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 106
      theta1 = 90
      phi1 = 107.14286
      theta2 = 90
      phi2 = -162.85714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 55
      chmoth = 'DC1'
      x = -3.5656543
      y = 11.559564
      z = 0
      irot = 106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 107
      theta1 = 90
      phi1 = 115.71429
      theta2 = 90
      phi2 = -154.28571
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 56
      chmoth = 'DC1'
      x = -5.2486926
      y = 10.89902
      z = 0
      irot = 107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 108
      theta1 = 90
      phi1 = 124.28572
      theta2 = 90
      phi2 = -145.71428
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 57
      chmoth = 'DC1'
      x = -6.8144837
      y = 9.9950098
      z = 0
      irot = 108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 109
      theta1 = 90
      phi1 = 132.85715
      theta2 = 90
      phi2 = -137.14285
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 58
      chmoth = 'DC1'
      x = -8.2280506
      y = 8.8677276
      z = 0
      irot = 109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 110
      theta1 = 90
      phi1 = 141.42858
      theta2 = 90
      phi2 = -128.57142
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 59
      chmoth = 'DC1'
      x = -9.4578163
      y = 7.542355
      z = 0
      irot = 110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 60
      chmoth = 'DC1'
      x = -10.47631
      y = 6.0484987
      z = 0
      irot = 111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 112
      theta1 = 90
      phi1 = 158.57144
      theta2 = 90
      phi2 = -111.42856
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 61
      chmoth = 'DC1'
      x = -11.26078
      y = 4.4195289
      z = 0
      irot = 112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 113
      theta1 = 90
      phi1 = 167.14287
      theta2 = 90
      phi2 = -102.85713
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 62
      chmoth = 'DC1'
      x = -11.793703
      y = 2.6918341
      z = 0
      irot = 113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 114
      theta1 = 90
      phi1 = 175.71429
      theta2 = 90
      phi2 = -94.285706
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 63
      chmoth = 'DC1'
      x = -12.063174
      y = 0.9040082
      z = 0
      irot = 114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 115
      theta1 = 90
      phi1 = -175.71428
      theta2 = 90
      phi2 = -85.714277
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 64
      chmoth = 'DC1'
      x = -12.063174
      y = -0.90401178
      z = 0
      irot = 115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 116
      theta1 = 90
      phi1 = -167.14285
      theta2 = 90
      phi2 = -77.142848
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 65
      chmoth = 'DC1'
      x = -11.793703
      y = -2.6918376
      z = 0
      irot = 116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 117
      theta1 = 90
      phi1 = -158.57142
      theta2 = 90
      phi2 = -68.571419
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 66
      chmoth = 'DC1'
      x = -11.260779
      y = -4.4195323
      z = 0
      irot = 117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 118
      theta1 = 90
      phi1 = -149.99999
      theta2 = 90
      phi2 = -59.99999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 67
      chmoth = 'DC1'
      x = -10.476308
      y = -6.0485018
      z = 0
      irot = 118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 119
      theta1 = 90
      phi1 = -141.42856
      theta2 = 90
      phi2 = -51.428561
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 68
      chmoth = 'DC1'
      x = -9.4578141
      y = -7.5423579
      z = 0
      irot = 119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 120
      theta1 = 90
      phi1 = -132.85713
      theta2 = 90
      phi2 = -42.857132
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 69
      chmoth = 'DC1'
      x = -8.2280479
      y = -8.8677301
      z = 0
      irot = 120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 121
      theta1 = 90
      phi1 = -124.2857
      theta2 = 90
      phi2 = -34.285703
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 70
      chmoth = 'DC1'
      x = -6.8144808
      y = -9.9950118
      z = 0
      irot = 121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 122
      theta1 = 90
      phi1 = -115.71427
      theta2 = 90
      phi2 = -25.714274
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 71
      chmoth = 'DC1'
      x = -5.2486894
      y = -10.899021
      z = 0
      irot = 122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 123
      theta1 = 90
      phi1 = -107.14284
      theta2 = 90
      phi2 = -17.142845
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 72
      chmoth = 'DC1'
      x = -3.5656509
      y = -11.559565
      z = 0
      irot = 123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 124
      theta1 = 90
      phi1 = -98.571416
      theta2 = 90
      phi2 = -8.571416
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 73
      chmoth = 'DC1'
      x = -1.8029617
      y = -11.961887
      z = 0
      irot = 124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 125
      theta1 = 90
      phi1 = -89.999987
      theta2 = 90
      phi2 = 1.3e-05
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 74
      chmoth = 'DC1'
      x = 2.7447222e-06
      y = -12.097
      z = 0
      irot = 125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 126
      theta1 = 90
      phi1 = -81.428558
      theta2 = 90
      phi2 = 8.571442
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 75
      chmoth = 'DC1'
      x = 1.8029671
      y = -11.961886
      z = 0
      irot = 126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 127
      theta1 = 90
      phi1 = -72.857129
      theta2 = 90
      phi2 = 17.142871
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 76
      chmoth = 'DC1'
      x = 3.5656561
      y = -11.559563
      z = 0
      irot = 127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 128
      theta1 = 90
      phi1 = -64.2857
      theta2 = 90
      phi2 = 25.7143
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 77
      chmoth = 'DC1'
      x = 5.2486943
      y = -10.899019
      z = 0
      irot = 128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 129
      theta1 = 90
      phi1 = -55.714271
      theta2 = 90
      phi2 = 34.285729
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 78
      chmoth = 'DC1'
      x = 6.8144853
      y = -9.9950087
      z = 0
      irot = 129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 130
      theta1 = 90
      phi1 = -47.142842
      theta2 = 90
      phi2 = 42.857158
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 79
      chmoth = 'DC1'
      x = 8.228052
      y = -8.8677263
      z = 0
      irot = 130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 131
      theta1 = 90
      phi1 = -38.571413
      theta2 = 90
      phi2 = 51.428587
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 80
      chmoth = 'DC1'
      x = 9.4578175
      y = -7.5423536
      z = 0
      irot = 131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 132
      theta1 = 90
      phi1 = -29.999984
      theta2 = 90
      phi2 = 60.000016
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 81
      chmoth = 'DC1'
      x = 10.476311
      y = -6.0484971
      z = 0
      irot = 132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 133
      theta1 = 90
      phi1 = -21.428555
      theta2 = 90
      phi2 = 68.571445
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 82
      chmoth = 'DC1'
      x = 11.260781
      y = -4.4195271
      z = 0
      irot = 133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 134
      theta1 = 90
      phi1 = -12.857126
      theta2 = 90
      phi2 = 77.142874
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 83
      chmoth = 'DC1'
      x = 11.793704
      y = -2.6918323
      z = 0
      irot = 134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 84
      chmoth = 'DC1'
      x = 12.063175
      y = -0.9040063
      z = 0
      irot = 135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 194
      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 = 194
      npar = 3
      par(1) = 9
      par(2) = 59.741
      par(3) = 0.625
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.211) stop 'consistency check #1 failed'

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

      imate = 46
      namate = 'CarbonFiber'
      wmat(1) = 1
      call gfmate(13,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 = 45
      namate = 'CarbonFiberEpoxy'
      wmat(1) = 0.375
      call gfmate(46,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.25
      call gfmate(35,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.375
      call gfmate(46,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.9104623
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 195
      natmed = 'CDPD CarbonFiberEpoxy'
      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 = 'CDPD'
      chshap = 'TUBE'
      nmed = 195
      npar = 3
      par(1) = 9
      par(2) = 59.741
      par(3) = 0.3
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.212) stop 'consistency check #1 failed'

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

      itmed = 196
      natmed = 'DC3 CDchamberGas'
      nmat = 41
      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 = 196
      npar = 3
      par(1) = 12.977
      par(2) = 16.1307
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.213) stop 'consistency check #1 failed'

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

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

      chname = 'STRA'
      nr = 85
      chmoth = 'DC3'
      x = 13.771905
      y = 0.48092553
      z = 0
      irot = 136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 137
      theta1 = 90
      phi1 = 8.6666667
      theta2 = 90
      phi2 = 98.666667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 86
      chmoth = 'DC3'
      x = 13.622953
      y = 2.0764943
      z = 0
      irot = 137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 138
      theta1 = 90
      phi1 = 15.333333
      theta2 = 90
      phi2 = 105.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 87
      chmoth = 'DC3'
      x = 13.289773
      y = 3.6439821
      z = 0
      irot = 138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 139
      theta1 = 90
      phi1 = 22
      theta2 = 90
      phi2 = 112
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 88
      chmoth = 'DC3'
      x = 12.776872
      y = 5.1621913
      z = 0
      irot = 139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 140
      theta1 = 90
      phi1 = 28.666667
      theta2 = 90
      phi2 = 118.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 89
      chmoth = 'DC3'
      x = 12.091185
      y = 6.6105906
      z = 0
      irot = 140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 141
      theta1 = 90
      phi1 = 35.333334
      theta2 = 90
      phi2 = 125.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 90
      chmoth = 'DC3'
      x = 11.241986
      y = 7.9695931
      z = 0
      irot = 141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 142
      theta1 = 90
      phi1 = 42
      theta2 = 90
      phi2 = 132
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 91
      chmoth = 'DC3'
      x = 10.240759
      y = 9.2208205
      z = 0
      irot = 142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 143
      theta1 = 90
      phi1 = 48.666667
      theta2 = 90
      phi2 = 138.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 92
      chmoth = 'DC3'
      x = 9.1010423
      y = 10.347352
      z = 0
      irot = 143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 144
      theta1 = 90
      phi1 = 55.333334
      theta2 = 90
      phi2 = 145.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 93
      chmoth = 'DC3'
      x = 7.8382501
      y = 11.333954
      z = 0
      irot = 144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 145
      theta1 = 90
      phi1 = 62
      theta2 = 90
      phi2 = 152
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 94
      chmoth = 'DC3'
      x = 6.4694589
      y = 12.167283
      z = 0
      irot = 145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 146
      theta1 = 90
      phi1 = 68.666667
      theta2 = 90
      phi2 = 158.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 95
      chmoth = 'DC3'
      x = 5.0131794
      y = 12.83607
      z = 0
      irot = 146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 147
      theta1 = 90
      phi1 = 75.333334
      theta2 = 90
      phi2 = 165.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 96
      chmoth = 'DC3'
      x = 3.4891053
      y = 13.331272
      z = 0
      irot = 147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 148
      theta1 = 90
      phi1 = 82
      theta2 = 90
      phi2 = 172
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 97
      chmoth = 'DC3'
      x = 1.917847
      y = 13.646191
      z = 0
      irot = 148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 149
      theta1 = 90
      phi1 = 88.666667
      theta2 = 90
      phi2 = 178.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 98
      chmoth = 'DC3'
      x = 0.3206531
      y = 13.776569
      z = 0
      irot = 149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 150
      theta1 = 90
      phi1 = 95.333334
      theta2 = 90
      phi2 = -174.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 99
      chmoth = 'DC3'
      x = -1.2808771
      y = 13.720642
      z = 0
      irot = 150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 151
      theta1 = 90
      phi1 = 102
      theta2 = 90
      phi2 = -168
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 100
      chmoth = 'DC3'
      x = -2.8650856
      y = 13.479167
      z = 0
      irot = 151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 152
      theta1 = 90
      phi1 = 108.66667
      theta2 = 90
      phi2 = -161.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 101
      chmoth = 'DC3'
      x = -4.4105487
      y = 13.05541
      z = 0
      irot = 152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 153
      theta1 = 90
      phi1 = 115.33333
      theta2 = 90
      phi2 = -154.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 102
      chmoth = 'DC3'
      x = -5.8963668
      y = 12.4551
      z = 0
      irot = 153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 154
      theta1 = 90
      phi1 = 122
      theta2 = 90
      phi2 = -148
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 103
      chmoth = 'DC3'
      x = -7.3024466
      y = 11.686357
      z = 0
      irot = 154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 155
      theta1 = 90
      phi1 = 128.66667
      theta2 = 90
      phi2 = -141.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 104
      chmoth = 'DC3'
      x = -8.6097733
      y = 10.759576
      z = 0
      irot = 155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 156
      theta1 = 90
      phi1 = 135.33333
      theta2 = 90
      phi2 = -134.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 105
      chmoth = 'DC3'
      x = -9.8006676
      y = 9.6872898
      z = 0
      irot = 156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 157
      theta1 = 90
      phi1 = 142
      theta2 = 90
      phi2 = -128
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 106
      chmoth = 'DC3'
      x = -10.859025
      y = 8.4839997
      z = 0
      irot = 157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 158
      theta1 = 90
      phi1 = 148.66667
      theta2 = 90
      phi2 = -121.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 107
      chmoth = 'DC3'
      x = -11.770532
      y = 7.1659781
      z = 0
      irot = 158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 159
      theta1 = 90
      phi1 = 155.33333
      theta2 = 90
      phi2 = -114.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 108
      chmoth = 'DC3'
      x = -12.522863
      y = 5.7510489
      z = 0
      irot = 159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 160
      theta1 = 90
      phi1 = 162
      theta2 = 90
      phi2 = -108
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 109
      chmoth = 'DC3'
      x = -13.105844
      y = 4.2583467
      z = 0
      irot = 160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 161
      theta1 = 90
      phi1 = 168.66667
      theta2 = 90
      phi2 = -101.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 110
      chmoth = 'DC3'
      x = -13.511591
      y = 2.7080576
      z = 0
      irot = 161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 162
      theta1 = 90
      phi1 = 175.33333
      theta2 = 90
      phi2 = -94.666666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 111
      chmoth = 'DC3'
      x = -13.734617
      y = 1.1211467
      z = 0
      irot = 162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 163
      theta1 = 90
      phi1 = -178
      theta2 = 90
      phi2 = -87.999999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 112
      chmoth = 'DC3'
      x = -13.771905
      y = -0.48092575
      z = 0
      irot = 163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 164
      theta1 = 90
      phi1 = -171.33333
      theta2 = 90
      phi2 = -81.333332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 113
      chmoth = 'DC3'
      x = -13.622953
      y = -2.0764945
      z = 0
      irot = 164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 165
      theta1 = 90
      phi1 = -164.66667
      theta2 = 90
      phi2 = -74.666666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 114
      chmoth = 'DC3'
      x = -13.289773
      y = -3.6439823
      z = 0
      irot = 165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 166
      theta1 = 90
      phi1 = -158
      theta2 = 90
      phi2 = -67.999999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 115
      chmoth = 'DC3'
      x = -12.776872
      y = -5.1621915
      z = 0
      irot = 166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 167
      theta1 = 90
      phi1 = -151.33333
      theta2 = 90
      phi2 = -61.333332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 116
      chmoth = 'DC3'
      x = -12.091185
      y = -6.6105908
      z = 0
      irot = 167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 168
      theta1 = 90
      phi1 = -144.66667
      theta2 = 90
      phi2 = -54.666666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 117
      chmoth = 'DC3'
      x = -11.241986
      y = -7.9695933
      z = 0
      irot = 168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 169
      theta1 = 90
      phi1 = -138
      theta2 = 90
      phi2 = -47.999999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 118
      chmoth = 'DC3'
      x = -10.240758
      y = -9.2208207
      z = 0
      irot = 169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 170
      theta1 = 90
      phi1 = -131.33333
      theta2 = 90
      phi2 = -41.333332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 119
      chmoth = 'DC3'
      x = -9.1010422
      y = -10.347352
      z = 0
      irot = 170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 171
      theta1 = 90
      phi1 = -124.66667
      theta2 = 90
      phi2 = -34.666666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 120
      chmoth = 'DC3'
      x = -7.8382499
      y = -11.333954
      z = 0
      irot = 171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 172
      theta1 = 90
      phi1 = -118
      theta2 = 90
      phi2 = -27.999999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 121
      chmoth = 'DC3'
      x = -6.4694587
      y = -12.167283
      z = 0
      irot = 172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 173
      theta1 = 90
      phi1 = -111.33333
      theta2 = 90
      phi2 = -21.333332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 122
      chmoth = 'DC3'
      x = -5.0131792
      y = -12.83607
      z = 0
      irot = 173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 174
      theta1 = 90
      phi1 = -104.66667
      theta2 = 90
      phi2 = -14.666665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 123
      chmoth = 'DC3'
      x = -3.4891051
      y = -13.331272
      z = 0
      irot = 174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 175
      theta1 = 90
      phi1 = -97.999999
      theta2 = 90
      phi2 = -7.9999987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 124
      chmoth = 'DC3'
      x = -1.9178468
      y = -13.646191
      z = 0
      irot = 175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 176
      theta1 = 90
      phi1 = -91.333332
      theta2 = 90
      phi2 = -1.333332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 125
      chmoth = 'DC3'
      x = -0.32065288
      y = -13.776569
      z = 0
      irot = 176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 177
      theta1 = 90
      phi1 = -84.666665
      theta2 = 90
      phi2 = 5.3333347
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 126
      chmoth = 'DC3'
      x = 1.2808773
      y = -13.720642
      z = 0
      irot = 177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 178
      theta1 = 90
      phi1 = -77.999999
      theta2 = 90
      phi2 = 12.000001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 127
      chmoth = 'DC3'
      x = 2.8650858
      y = -13.479167
      z = 0
      irot = 178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 179
      theta1 = 90
      phi1 = -71.333332
      theta2 = 90
      phi2 = 18.666668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 128
      chmoth = 'DC3'
      x = 4.4105489
      y = -13.05541
      z = 0
      irot = 179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 129
      chmoth = 'DC3'
      x = 5.896367
      y = -12.4551
      z = 0
      irot = 180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 181
      theta1 = 90
      phi1 = -57.999998
      theta2 = 90
      phi2 = 32.000002
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 130
      chmoth = 'DC3'
      x = 7.3024467
      y = -11.686357
      z = 0
      irot = 181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 131
      chmoth = 'DC3'
      x = 8.6097735
      y = -10.759576
      z = 0
      irot = 182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 183
      theta1 = 90
      phi1 = -44.666665
      theta2 = 90
      phi2 = 45.333335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 132
      chmoth = 'DC3'
      x = 9.8006677
      y = -9.6872896
      z = 0
      irot = 183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 184
      theta1 = 90
      phi1 = -37.999998
      theta2 = 90
      phi2 = 52.000002
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 133
      chmoth = 'DC3'
      x = 10.859025
      y = -8.4839995
      z = 0
      irot = 184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 185
      theta1 = 90
      phi1 = -31.333332
      theta2 = 90
      phi2 = 58.666668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 134
      chmoth = 'DC3'
      x = 11.770532
      y = -7.1659779
      z = 0
      irot = 185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 186
      theta1 = 90
      phi1 = -24.666665
      theta2 = 90
      phi2 = 65.333335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 135
      chmoth = 'DC3'
      x = 12.522863
      y = -5.7510487
      z = 0
      irot = 186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 187
      theta1 = 90
      phi1 = -17.999998
      theta2 = 90
      phi2 = 72.000002
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 136
      chmoth = 'DC3'
      x = 13.105844
      y = -4.2583465
      z = 0
      irot = 187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 188
      theta1 = 90
      phi1 = -11.333332
      theta2 = 90
      phi2 = 78.666668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 137
      chmoth = 'DC3'
      x = 13.511591
      y = -2.7080574
      z = 0
      irot = 188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 189
      theta1 = 90
      phi1 = -4.6666649
      theta2 = 90
      phi2 = 85.333335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 138
      chmoth = 'DC3'
      x = 13.734617
      y = -1.1211465
      z = 0
      irot = 189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 190
      theta1 = 90
      phi1 = 5.3333333
      theta2 = 90
      phi2 = 95.333333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 139
      chmoth = 'DC3'
      x = 15.09646
      y = 1.4093151
      z = 0
      irot = 190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 140
      chmoth = 'DC3'
      x = 14.830772
      y = 3.1523778
      z = 0
      irot = 191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 192
      theta1 = 90
      phi1 = 18.666667
      theta2 = 90
      phi2 = 108.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 141
      chmoth = 'DC3'
      x = 14.364523
      y = 4.8528101
      z = 0
      irot = 192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 193
      theta1 = 90
      phi1 = 25.333333
      theta2 = 90
      phi2 = 115.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 142
      chmoth = 'DC3'
      x = 13.704018
      y = 6.4876164
      z = 0
      irot = 193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 194
      theta1 = 90
      phi1 = 32
      theta2 = 90
      phi2 = 122
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 143
      chmoth = 'DC3'
      x = 12.85819
      y = 8.0346889
      z = 0
      irot = 194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 195
      theta1 = 90
      phi1 = 38.666667
      theta2 = 90
      phi2 = 128.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 144
      chmoth = 'DC3'
      x = 11.838477
      y = 9.473106
      z = 0
      irot = 195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 196
      theta1 = 90
      phi1 = 45.333334
      theta2 = 90
      phi2 = 135.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 145
      chmoth = 'DC3'
      x = 10.658669
      y = 10.783416
      z = 0
      irot = 196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 197
      theta1 = 90
      phi1 = 52
      theta2 = 90
      phi2 = 142
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 146
      chmoth = 'DC3'
      x = 9.3347208
      y = 11.947898
      z = 0
      irot = 197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 198
      theta1 = 90
      phi1 = 58.666667
      theta2 = 90
      phi2 = 148.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 147
      chmoth = 'DC3'
      x = 7.8845365
      y = 12.950805
      z = 0
      irot = 198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 199
      theta1 = 90
      phi1 = 65.333334
      theta2 = 90
      phi2 = 155.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 148
      chmoth = 'DC3'
      x = 6.3277273
      y = 13.778576
      z = 0
      irot = 199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 200
      theta1 = 90
      phi1 = 72
      theta2 = 90
      phi2 = 162
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 149
      chmoth = 'DC3'
      x = 4.6853465
      y = 14.420014
      z = 0
      irot = 200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 201
      theta1 = 90
      phi1 = 78.666667
      theta2 = 90
      phi2 = 168.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 150
      chmoth = 'DC3'
      x = 2.9796044
      y = 14.866447
      z = 0
      irot = 201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 202
      theta1 = 90
      phi1 = 85.333334
      theta2 = 90
      phi2 = 175.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 151
      chmoth = 'DC3'
      x = 1.2335683
      y = 15.111836
      z = 0
      irot = 202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 203
      theta1 = 90
      phi1 = 92
      theta2 = 90
      phi2 = -178
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 152
      chmoth = 'DC3'
      x = -0.52914976
      y = 15.152864
      z = 0
      irot = 203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 204
      theta1 = 90
      phi1 = 98.666667
      theta2 = 90
      phi2 = -171.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 153
      chmoth = 'DC3'
      x = -2.284712
      y = 14.988975
      z = 0
      irot = 204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 205
      theta1 = 90
      phi1 = 105.33333
      theta2 = 90
      phi2 = -164.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 154
      chmoth = 'DC3'
      x = -4.0093773
      y = 14.622386
      z = 0
      irot = 205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 206
      theta1 = 90
      phi1 = 112
      theta2 = 90
      phi2 = -158
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 155
      chmoth = 'DC3'
      x = -5.6798228
      y = 14.058054
      z = 0
      irot = 206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 207
      theta1 = 90
      phi1 = 118.66667
      theta2 = 90
      phi2 = -151.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 156
      chmoth = 'DC3'
      x = -7.2734583
      y = 13.303612
      z = 0
      irot = 207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 208
      theta1 = 90
      phi1 = 125.33333
      theta2 = 90
      phi2 = -144.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 157
      chmoth = 'DC3'
      x = -8.7687328
      y = 12.36926
      z = 0
      irot = 208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 209
      theta1 = 90
      phi1 = 132
      theta2 = 90
      phi2 = -138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 158
      chmoth = 'DC3'
      x = -10.145425
      y = 11.267636
      z = 0
      irot = 209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 210
      theta1 = 90
      phi1 = 138.66667
      theta2 = 90
      phi2 = -131.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 159
      chmoth = 'DC3'
      x = -11.384918
      y = 10.013636
      z = 0
      irot = 210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 211
      theta1 = 90
      phi1 = 145.33333
      theta2 = 90
      phi2 = -124.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 160
      chmoth = 'DC3'
      x = -12.47045
      y = 8.6242194
      z = 0
      irot = 211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 212
      theta1 = 90
      phi1 = 152
      theta2 = 90
      phi2 = -118
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 161
      chmoth = 'DC3'
      x = -13.38734
      y = 7.1181746
      z = 0
      irot = 212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 213
      theta1 = 90
      phi1 = 158.66667
      theta2 = 90
      phi2 = -111.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 162
      chmoth = 'DC3'
      x = -14.123189
      y = 5.5158688
      z = 0
      irot = 213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 214
      theta1 = 90
      phi1 = 165.33333
      theta2 = 90
      phi2 = -104.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 163
      chmoth = 'DC3'
      x = -14.668046
      y = 3.8389703
      z = 0
      irot = 214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 215
      theta1 = 90
      phi1 = 172
      theta2 = 90
      phi2 = -97.999999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 164
      chmoth = 'DC3'
      x = -15.014544
      y = 2.1101563
      z = 0
      irot = 215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 216
      theta1 = 90
      phi1 = 178.66667
      theta2 = 90
      phi2 = -91.333332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 165
      chmoth = 'DC3'
      x = -15.157995
      y = 0.35280602
      z = 0
      irot = 216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 217
      theta1 = 90
      phi1 = -174.66667
      theta2 = 90
      phi2 = -84.666666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 166
      chmoth = 'DC3'
      x = -15.09646
      y = -1.4093153
      z = 0
      irot = 217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 218
      theta1 = 90
      phi1 = -168
      theta2 = 90
      phi2 = -77.999999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 167
      chmoth = 'DC3'
      x = -14.830772
      y = -3.1523781
      z = 0
      irot = 218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 219
      theta1 = 90
      phi1 = -161.33333
      theta2 = 90
      phi2 = -71.333332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 168
      chmoth = 'DC3'
      x = -14.364523
      y = -4.8528103
      z = 0
      irot = 219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 220
      theta1 = 90
      phi1 = -154.66667
      theta2 = 90
      phi2 = -64.666666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 169
      chmoth = 'DC3'
      x = -13.704018
      y = -6.4876167
      z = 0
      irot = 220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 221
      theta1 = 90
      phi1 = -148
      theta2 = 90
      phi2 = -57.999999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 170
      chmoth = 'DC3'
      x = -12.85819
      y = -8.0346891
      z = 0
      irot = 221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 222
      theta1 = 90
      phi1 = -141.33333
      theta2 = 90
      phi2 = -51.333332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 171
      chmoth = 'DC3'
      x = -11.838477
      y = -9.4731061
      z = 0
      irot = 222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 223
      theta1 = 90
      phi1 = -134.66667
      theta2 = 90
      phi2 = -44.666666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 172
      chmoth = 'DC3'
      x = -10.658669
      y = -10.783416
      z = 0
      irot = 223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 224
      theta1 = 90
      phi1 = -128
      theta2 = 90
      phi2 = -37.999999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 173
      chmoth = 'DC3'
      x = -9.3347206
      y = -11.947898
      z = 0
      irot = 224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 225
      theta1 = 90
      phi1 = -121.33333
      theta2 = 90
      phi2 = -31.333332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 174
      chmoth = 'DC3'
      x = -7.8845363
      y = -12.950806
      z = 0
      irot = 225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 226
      theta1 = 90
      phi1 = -114.66667
      theta2 = 90
      phi2 = -24.666665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 175
      chmoth = 'DC3'
      x = -6.3277271
      y = -13.778576
      z = 0
      irot = 226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 227
      theta1 = 90
      phi1 = -108
      theta2 = 90
      phi2 = -17.999999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 176
      chmoth = 'DC3'
      x = -4.6853463
      y = -14.420014
      z = 0
      irot = 227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 228
      theta1 = 90
      phi1 = -101.33333
      theta2 = 90
      phi2 = -11.333332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 177
      chmoth = 'DC3'
      x = -2.9796042
      y = -14.866447
      z = 0
      irot = 228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 229
      theta1 = 90
      phi1 = -94.666665
      theta2 = 90
      phi2 = -4.6666654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 178
      chmoth = 'DC3'
      x = -1.233568
      y = -15.111836
      z = 0
      irot = 229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 230
      theta1 = 90
      phi1 = -87.999999
      theta2 = 90
      phi2 = 2.0000013
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 179
      chmoth = 'DC3'
      x = 0.52915
      y = -15.152864
      z = 0
      irot = 230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 231
      theta1 = 90
      phi1 = -81.333332
      theta2 = 90
      phi2 = 8.666668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 180
      chmoth = 'DC3'
      x = 2.2847122
      y = -14.988975
      z = 0
      irot = 231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 232
      theta1 = 90
      phi1 = -74.666665
      theta2 = 90
      phi2 = 15.333335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 181
      chmoth = 'DC3'
      x = 4.0093776
      y = -14.622386
      z = 0
      irot = 232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 233
      theta1 = 90
      phi1 = -67.999999
      theta2 = 90
      phi2 = 22.000001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 182
      chmoth = 'DC3'
      x = 5.679823
      y = -14.058054
      z = 0
      irot = 233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 234
      theta1 = 90
      phi1 = -61.333332
      theta2 = 90
      phi2 = 28.666668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 183
      chmoth = 'DC3'
      x = 7.2734585
      y = -13.303611
      z = 0
      irot = 234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 235
      theta1 = 90
      phi1 = -54.666665
      theta2 = 90
      phi2 = 35.333335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 184
      chmoth = 'DC3'
      x = 8.768733
      y = -12.36926
      z = 0
      irot = 235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 236
      theta1 = 90
      phi1 = -47.999998
      theta2 = 90
      phi2 = 42.000002
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 185
      chmoth = 'DC3'
      x = 10.145425
      y = -11.267636
      z = 0
      irot = 236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 237
      theta1 = 90
      phi1 = -41.333332
      theta2 = 90
      phi2 = 48.666668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 186
      chmoth = 'DC3'
      x = 11.384918
      y = -10.013636
      z = 0
      irot = 237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 238
      theta1 = 90
      phi1 = -34.666665
      theta2 = 90
      phi2 = 55.333335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 187
      chmoth = 'DC3'
      x = 12.47045
      y = -8.6242192
      z = 0
      irot = 238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 239
      theta1 = 90
      phi1 = -27.999998
      theta2 = 90
      phi2 = 62.000002
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 188
      chmoth = 'DC3'
      x = 13.38734
      y = -7.1181744
      z = 0
      irot = 239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 240
      theta1 = 90
      phi1 = -21.333332
      theta2 = 90
      phi2 = 68.666668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 189
      chmoth = 'DC3'
      x = 14.123189
      y = -5.5158686
      z = 0
      irot = 240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 241
      theta1 = 90
      phi1 = -14.666665
      theta2 = 90
      phi2 = 75.333335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 190
      chmoth = 'DC3'
      x = 14.668046
      y = -3.83897
      z = 0
      irot = 241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 242
      theta1 = 90
      phi1 = -7.9999983
      theta2 = 90
      phi2 = 82.000002
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 191
      chmoth = 'DC3'
      x = 15.014544
      y = -2.110156
      z = 0
      irot = 242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 243
      theta1 = 90
      phi1 = -1.3333316
      theta2 = 90
      phi2 = 88.666668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 192
      chmoth = 'DC3'
      x = 15.157995
      y = -0.35280578
      z = 0
      irot = 243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

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

      itmed = 197
      natmed = 'DC5 CDchamberGas'
      nmat = 41
      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 = 'DC5'
      chshap = 'TUBE'
      nmed = 197
      npar = 3
      par(1) = 16.1308
      par(2) = 30.5785
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.214) stop 'consistency check #1 failed'

      chname = 'DC5'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 3.29
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 198
      natmed = 'STLA CDchamberGas'
      nmat = 41
      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 = 198
      npar = 3
      par(1) = 0
      par(2) = 0.7874
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.215) stop 'consistency check #1 failed'

      irot = 244
      theta1 = 90
      phi1 = 0.33333
      theta2 = 96
      phi2 = 90.33333
      theta3 = 6
      phi3 = 90.33333
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1
      chmoth = 'DC5'
      x = 16.931813
      y = 0.098505424
      z = 0
      irot = 244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 199
      natmed = 'STLW CDCStrawMaterial'
      nmat = 43
      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 = 199
      npar = 3
      par(1) = 0.776
      par(2) = 0.7874
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.216) 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 = 200
      natmed = 'WILE Tungsten'
      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 = 'WILE'
      chshap = 'TUBE'
      nmed = 200
      npar = 3
      par(1) = 0
      par(2) = 0.0015
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.217) 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)

      irot = 245
      theta1 = 90
      phi1 = 5.7878755
      theta2 = 96
      phi2 = 95.787875
      theta3 = 6
      phi3 = 95.787875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 2
      chmoth = 'DC5'
      x = 16.845781
      y = 1.7075306
      z = 0
      irot = 245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 246
      theta1 = 90
      phi1 = 11.242421
      theta2 = 96
      phi2 = 101.24242
      theta3 = 6
      phi3 = 101.24242
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 3
      chmoth = 'DC5'
      x = 16.607191
      y = 3.3010921
      z = 0
      irot = 246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 247
      theta1 = 90
      phi1 = 16.696966
      theta2 = 96
      phi2 = 106.69697
      theta3 = 6
      phi3 = 106.69697
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 4
      chmoth = 'DC5'
      x = 16.218204
      y = 4.8647584
      z = 0
      irot = 247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 248
      theta1 = 90
      phi1 = 22.151512
      theta2 = 96
      phi2 = 112.15151
      theta3 = 6
      phi3 = 112.15151
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 5
      chmoth = 'DC5'
      x = 15.682342
      y = 6.3843686
      z = 0
      irot = 248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 249
      theta1 = 90
      phi1 = 27.606057
      theta2 = 96
      phi2 = 117.60606
      theta3 = 6
      phi3 = 117.60606
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 6
      chmoth = 'DC5'
      x = 15.004458
      y = 7.8461611
      z = 0
      irot = 249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 250
      theta1 = 90
      phi1 = 33.060603
      theta2 = 96
      phi2 = 123.0606
      theta3 = 6
      phi3 = 123.0606
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 7
      chmoth = 'DC5'
      x = 14.190692
      y = 9.2368975
      z = 0
      irot = 250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 251
      theta1 = 90
      phi1 = 38.515148
      theta2 = 96
      phi2 = 128.51515
      theta3 = 6
      phi3 = 128.51515
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 8
      chmoth = 'DC5'
      x = 13.248412
      y = 10.543983
      z = 0
      irot = 251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 252
      theta1 = 90
      phi1 = 43.969694
      theta2 = 96
      phi2 = 133.96969
      theta3 = 6
      phi3 = 133.96969
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 9
      chmoth = 'DC5'
      x = 12.186153
      y = 11.755581
      z = 0
      irot = 252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 253
      theta1 = 90
      phi1 = 49.424239
      theta2 = 96
      phi2 = 139.42424
      theta3 = 6
      phi3 = 139.42424
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 10
      chmoth = 'DC5'
      x = 11.013534
      y = 12.860718
      z = 0
      irot = 253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 254
      theta1 = 90
      phi1 = 54.878785
      theta2 = 96
      phi2 = 144.87878
      theta3 = 6
      phi3 = 144.87878
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 11
      chmoth = 'DC5'
      x = 9.7411752
      y = 13.849387
      z = 0
      irot = 254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 255
      theta1 = 90
      phi1 = 60.33333
      theta2 = 96
      phi2 = 150.33333
      theta3 = 6
      phi3 = 150.33333
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 12
      chmoth = 'DC5'
      x = 8.3805985
      y = 14.712633
      z = 0
      irot = 255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 256
      theta1 = 90
      phi1 = 65.787875
      theta2 = 96
      phi2 = 155.78788
      theta3 = 6
      phi3 = 155.78788
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 13
      chmoth = 'DC5'
      x = 6.9441258
      y = 15.44264
      z = 0
      irot = 256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 257
      theta1 = 90
      phi1 = 71.242421
      theta2 = 96
      phi2 = 161.24242
      theta3 = 6
      phi3 = 161.24242
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 14
      chmoth = 'DC5'
      x = 5.444766
      y = 16.032796
      z = 0
      irot = 257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 258
      theta1 = 90
      phi1 = 76.696966
      theta2 = 96
      phi2 = 166.69697
      theta3 = 6
      phi3 = 166.69697
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 15
      chmoth = 'DC5'
      x = 3.8960976
      y = 16.477756
      z = 0
      irot = 258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 259
      theta1 = 90
      phi1 = 82.151512
      theta2 = 96
      phi2 = 172.15151
      theta3 = 6
      phi3 = 172.15151
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 16
      chmoth = 'DC5'
      x = 2.3121455
      y = 16.773491
      z = 0
      irot = 259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 260
      theta1 = 90
      phi1 = 87.606057
      theta2 = 96
      phi2 = 177.60606
      theta3 = 6
      phi3 = 177.60606
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 17
      chmoth = 'DC5'
      x = 0.70725427
      y = 16.917323
      z = 0
      irot = 260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 261
      theta1 = 90
      phi1 = 93.060603
      theta2 = 96
      phi2 = -176.9394
      theta3 = 6
      phi3 = -176.9394
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 18
      chmoth = 'DC5'
      x = -0.90404197
      y = 16.907948
      z = 0
      irot = 261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 262
      theta1 = 90
      phi1 = 98.515148
      theta2 = 96
      phi2 = -171.48485
      theta3 = 6
      phi3 = -171.48485
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 19
      chmoth = 'DC5'
      x = -2.5071511
      y = 16.745453
      z = 0
      irot = 262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 263
      theta1 = 90
      phi1 = 103.96969
      theta2 = 96
      phi2 = -166.03031
      theta3 = 6
      phi3 = -166.03031
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 20
      chmoth = 'DC5'
      x = -4.087555
      y = 16.431309
      z = 0
      irot = 263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 264
      theta1 = 90
      phi1 = 109.42424
      theta2 = 96
      phi2 = -160.57576
      theta3 = 6
      phi3 = -160.57576
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 21
      chmoth = 'DC5'
      x = -5.6309415
      y = 15.96836
      z = 0
      irot = 264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 265
      theta1 = 90
      phi1 = 114.87878
      theta2 = 96
      phi2 = -155.12122
      theta3 = 6
      phi3 = -155.12122
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 22
      chmoth = 'DC5'
      x = -7.1233332
      y = 15.360799
      z = 0
      irot = 265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 266
      theta1 = 90
      phi1 = 120.33333
      theta2 = 96
      phi2 = -149.66667
      theta3 = 6
      phi3 = -149.66667
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 23
      chmoth = 'DC5'
      x = -8.5512149
      y = 14.614128
      z = 0
      irot = 266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 267
      theta1 = 90
      phi1 = 125.78788
      theta2 = 96
      phi2 = -144.21212
      theta3 = 6
      phi3 = -144.21212
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 24
      chmoth = 'DC5'
      x = -9.9016555
      y = 13.735109
      z = 0
      irot = 267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 268
      theta1 = 90
      phi1 = 131.24242
      theta2 = 96
      phi2 = -138.75758
      theta3 = 6
      phi3 = -138.75758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 25
      chmoth = 'DC5'
      x = -11.162425
      y = 12.731703
      z = 0
      irot = 268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 269
      theta1 = 90
      phi1 = 136.69697
      theta2 = 96
      phi2 = -133.30303
      theta3 = 6
      phi3 = -133.30303
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 26
      chmoth = 'DC5'
      x = -12.322106
      y = 11.612997
      z = 0
      irot = 269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 270
      theta1 = 90
      phi1 = 142.15151
      theta2 = 96
      phi2 = -127.84849
      theta3 = 6
      phi3 = -127.84849
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 27
      chmoth = 'DC5'
      x = -13.370196
      y = 10.389122
      z = 0
      irot = 270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 271
      theta1 = 90
      phi1 = 147.60606
      theta2 = 96
      phi2 = -122.39394
      theta3 = 6
      phi3 = -122.39394
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 28
      chmoth = 'DC5'
      x = -14.297204
      y = 9.0711614
      z = 0
      irot = 271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 272
      theta1 = 90
      phi1 = 153.0606
      theta2 = 96
      phi2 = -116.9394
      theta3 = 6
      phi3 = -116.9394
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 29
      chmoth = 'DC5'
      x = -15.094734
      y = 7.6710509
      z = 0
      irot = 272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 273
      theta1 = 90
      phi1 = 158.51515
      theta2 = 96
      phi2 = -111.48485
      theta3 = 6
      phi3 = -111.48485
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 30
      chmoth = 'DC5'
      x = -15.755563
      y = 6.2014701
      z = 0
      irot = 273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 274
      theta1 = 90
      phi1 = 163.96969
      theta2 = 96
      phi2 = -106.03031
      theta3 = 6
      phi3 = -106.03031
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 31
      chmoth = 'DC5'
      x = -16.273708
      y = 4.6757278
      z = 0
      irot = 274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 275
      theta1 = 90
      phi1 = 169.42424
      theta2 = 96
      phi2 = -100.57576
      theta3 = 6
      phi3 = -100.57576
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 32
      chmoth = 'DC5'
      x = -16.644476
      y = 3.1076415
      z = 0
      irot = 275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 276
      theta1 = 90
      phi1 = 174.87878
      theta2 = 96
      phi2 = -95.121215
      theta3 = 6
      phi3 = -95.121215
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 33
      chmoth = 'DC5'
      x = -16.864508
      y = 1.5114118
      z = 0
      irot = 276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 277
      theta1 = 90
      phi1 = -179.66667
      theta2 = 96
      phi2 = -89.66667
      theta3 = 6
      phi3 = -89.66667
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 34
      chmoth = 'DC5'
      x = -16.931813
      y = -0.098505424
      z = 0
      irot = 277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 278
      theta1 = 90
      phi1 = -174.21212
      theta2 = 96
      phi2 = -84.212125
      theta3 = 6
      phi3 = -84.212125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 35
      chmoth = 'DC5'
      x = -16.845781
      y = -1.7075306
      z = 0
      irot = 278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 279
      theta1 = 90
      phi1 = -168.75758
      theta2 = 96
      phi2 = -78.757579
      theta3 = 6
      phi3 = -78.757579
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 36
      chmoth = 'DC5'
      x = -16.607191
      y = -3.3010921
      z = 0
      irot = 279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 280
      theta1 = 90
      phi1 = -163.30303
      theta2 = 96
      phi2 = -73.303034
      theta3 = 6
      phi3 = -73.303034
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 37
      chmoth = 'DC5'
      x = -16.218204
      y = -4.8647584
      z = 0
      irot = 280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 281
      theta1 = 90
      phi1 = -157.84849
      theta2 = 96
      phi2 = -67.848488
      theta3 = 6
      phi3 = -67.848488
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 38
      chmoth = 'DC5'
      x = -15.682342
      y = -6.3843686
      z = 0
      irot = 281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 282
      theta1 = 90
      phi1 = -152.39394
      theta2 = 96
      phi2 = -62.393943
      theta3 = 6
      phi3 = -62.393943
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 39
      chmoth = 'DC5'
      x = -15.004458
      y = -7.8461611
      z = 0
      irot = 282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 283
      theta1 = 90
      phi1 = -146.9394
      theta2 = 96
      phi2 = -56.939397
      theta3 = 6
      phi3 = -56.939397
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 40
      chmoth = 'DC5'
      x = -14.190692
      y = -9.2368975
      z = 0
      irot = 283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 284
      theta1 = 90
      phi1 = -141.48485
      theta2 = 96
      phi2 = -51.484852
      theta3 = 6
      phi3 = -51.484852
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 41
      chmoth = 'DC5'
      x = -13.248412
      y = -10.543983
      z = 0
      irot = 284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 285
      theta1 = 90
      phi1 = -136.03031
      theta2 = 96
      phi2 = -46.030306
      theta3 = 6
      phi3 = -46.030306
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 42
      chmoth = 'DC5'
      x = -12.186153
      y = -11.755581
      z = 0
      irot = 285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 286
      theta1 = 90
      phi1 = -130.57576
      theta2 = 96
      phi2 = -40.575761
      theta3 = 6
      phi3 = -40.575761
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 43
      chmoth = 'DC5'
      x = -11.013534
      y = -12.860718
      z = 0
      irot = 286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 287
      theta1 = 90
      phi1 = -125.12122
      theta2 = 96
      phi2 = -35.121215
      theta3 = 6
      phi3 = -35.121215
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 44
      chmoth = 'DC5'
      x = -9.7411752
      y = -13.849387
      z = 0
      irot = 287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 288
      theta1 = 90
      phi1 = -119.66667
      theta2 = 96
      phi2 = -29.66667
      theta3 = 6
      phi3 = -29.66667
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 45
      chmoth = 'DC5'
      x = -8.3805985
      y = -14.712633
      z = 0
      irot = 288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 289
      theta1 = 90
      phi1 = -114.21212
      theta2 = 96
      phi2 = -24.212125
      theta3 = 6
      phi3 = -24.212125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 46
      chmoth = 'DC5'
      x = -6.9441258
      y = -15.44264
      z = 0
      irot = 289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 290
      theta1 = 90
      phi1 = -108.75758
      theta2 = 96
      phi2 = -18.757579
      theta3 = 6
      phi3 = -18.757579
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 47
      chmoth = 'DC5'
      x = -5.444766
      y = -16.032796
      z = 0
      irot = 290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 291
      theta1 = 90
      phi1 = -103.30303
      theta2 = 96
      phi2 = -13.303034
      theta3 = 6
      phi3 = -13.303034
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 48
      chmoth = 'DC5'
      x = -3.8960976
      y = -16.477756
      z = 0
      irot = 291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 292
      theta1 = 90
      phi1 = -97.848488
      theta2 = 96
      phi2 = -7.8484882
      theta3 = 6
      phi3 = -7.8484882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 49
      chmoth = 'DC5'
      x = -2.3121455
      y = -16.773491
      z = 0
      irot = 292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 293
      theta1 = 90
      phi1 = -92.393943
      theta2 = 96
      phi2 = -2.3939427
      theta3 = 6
      phi3 = -2.3939427
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 50
      chmoth = 'DC5'
      x = -0.70725427
      y = -16.917323
      z = 0
      irot = 293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 294
      theta1 = 90
      phi1 = -86.939397
      theta2 = 96
      phi2 = 3.0606027
      theta3 = 6
      phi3 = 3.0606027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 51
      chmoth = 'DC5'
      x = 0.90404197
      y = -16.907948
      z = 0
      irot = 294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 295
      theta1 = 90
      phi1 = -81.484852
      theta2 = 96
      phi2 = 8.5151482
      theta3 = 6
      phi3 = 8.5151482
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 52
      chmoth = 'DC5'
      x = 2.5071511
      y = -16.745453
      z = 0
      irot = 295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 296
      theta1 = 90
      phi1 = -76.030306
      theta2 = 96
      phi2 = 13.969694
      theta3 = 6
      phi3 = 13.969694
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 53
      chmoth = 'DC5'
      x = 4.087555
      y = -16.431309
      z = 0
      irot = 296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 297
      theta1 = 90
      phi1 = -70.575761
      theta2 = 96
      phi2 = 19.424239
      theta3 = 6
      phi3 = 19.424239
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 54
      chmoth = 'DC5'
      x = 5.6309415
      y = -15.96836
      z = 0
      irot = 297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 298
      theta1 = 90
      phi1 = -65.121215
      theta2 = 96
      phi2 = 24.878785
      theta3 = 6
      phi3 = 24.878785
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 55
      chmoth = 'DC5'
      x = 7.1233332
      y = -15.360799
      z = 0
      irot = 298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 299
      theta1 = 90
      phi1 = -59.66667
      theta2 = 96
      phi2 = 30.33333
      theta3 = 6
      phi3 = 30.33333
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 56
      chmoth = 'DC5'
      x = 8.5512149
      y = -14.614128
      z = 0
      irot = 299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 300
      theta1 = 90
      phi1 = -54.212125
      theta2 = 96
      phi2 = 35.787875
      theta3 = 6
      phi3 = 35.787875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 57
      chmoth = 'DC5'
      x = 9.9016555
      y = -13.735109
      z = 0
      irot = 300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 301
      theta1 = 90
      phi1 = -48.757579
      theta2 = 96
      phi2 = 41.242421
      theta3 = 6
      phi3 = 41.242421
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 58
      chmoth = 'DC5'
      x = 11.162425
      y = -12.731703
      z = 0
      irot = 301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 302
      theta1 = 90
      phi1 = -43.303034
      theta2 = 96
      phi2 = 46.696966
      theta3 = 6
      phi3 = 46.696966
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 59
      chmoth = 'DC5'
      x = 12.322106
      y = -11.612997
      z = 0
      irot = 302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 303
      theta1 = 90
      phi1 = -37.848488
      theta2 = 96
      phi2 = 52.151512
      theta3 = 6
      phi3 = 52.151512
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 60
      chmoth = 'DC5'
      x = 13.370196
      y = -10.389122
      z = 0
      irot = 303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 304
      theta1 = 90
      phi1 = -32.393943
      theta2 = 96
      phi2 = 57.606057
      theta3 = 6
      phi3 = 57.606057
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 61
      chmoth = 'DC5'
      x = 14.297204
      y = -9.0711614
      z = 0
      irot = 304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 305
      theta1 = 90
      phi1 = -26.939397
      theta2 = 96
      phi2 = 63.060603
      theta3 = 6
      phi3 = 63.060603
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 62
      chmoth = 'DC5'
      x = 15.094734
      y = -7.6710509
      z = 0
      irot = 305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 306
      theta1 = 90
      phi1 = -21.484852
      theta2 = 96
      phi2 = 68.515148
      theta3 = 6
      phi3 = 68.515148
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 63
      chmoth = 'DC5'
      x = 15.755563
      y = -6.2014701
      z = 0
      irot = 306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 307
      theta1 = 90
      phi1 = -16.030306
      theta2 = 96
      phi2 = 73.969694
      theta3 = 6
      phi3 = 73.969694
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 64
      chmoth = 'DC5'
      x = 16.273708
      y = -4.6757278
      z = 0
      irot = 307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 308
      theta1 = 90
      phi1 = -10.575761
      theta2 = 96
      phi2 = 79.424239
      theta3 = 6
      phi3 = 79.424239
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 65
      chmoth = 'DC5'
      x = 16.644476
      y = -3.1076415
      z = 0
      irot = 308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 309
      theta1 = 90
      phi1 = -5.1212155
      theta2 = 96
      phi2 = 84.878785
      theta3 = 6
      phi3 = 84.878785
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 66
      chmoth = 'DC5'
      x = 16.864508
      y = -1.5114118
      z = 0
      irot = 309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 310
      theta1 = 89.697147
      phi1 = 0.33333
      theta2 = 96.476649
      phi2 = 90.298949
      theta3 = 6.4837867
      phi3 = 92.999127
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 67
      chmoth = 'DC5'
      x = 18.28942
      y = 0.97790442
      z = 0
      irot = 310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 311
      theta1 = 89.697147
      phi1 = 5.7878755
      theta2 = 96.476649
      phi2 = 95.753494
      theta3 = 6.4837867
      phi3 = 98.453673
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 68
      chmoth = 'DC5'
      x = 18.113649
      y = 2.7119963
      z = 0
      irot = 311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 312
      theta1 = 89.697147
      phi1 = 11.242421
      theta2 = 96.476649
      phi2 = 101.20804
      theta3 = 6.4837867
      phi3 = 103.90822
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 69
      chmoth = 'DC5'
      x = 17.773837
      y = 4.421528
      z = 0
      irot = 312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 313
      theta1 = 89.697147
      phi1 = 16.696966
      theta2 = 96.476649
      phi2 = 106.66259
      theta3 = 6.4837867
      phi3 = 109.36276
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 70
      chmoth = 'DC5'
      x = 17.273063
      y = 6.0910176
      z = 0
      irot = 313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 314
      theta1 = 89.697147
      phi1 = 22.151512
      theta2 = 96.476649
      phi2 = 112.11713
      theta3 = 6.4837867
      phi3 = 114.81731
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 71
      chmoth = 'DC5'
      x = 16.615861
      y = 7.705346
      z = 0
      irot = 314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 315
      theta1 = 89.697147
      phi1 = 27.606057
      theta2 = 96.476649
      phi2 = 117.57168
      theta3 = 6.4837867
      phi3 = 120.27185
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 72
      chmoth = 'DC5'
      x = 15.808183
      y = 9.2498936
      z = 0
      irot = 315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 316
      theta1 = 89.697147
      phi1 = 33.060603
      theta2 = 96.476649
      phi2 = 123.02622
      theta3 = 6.4837867
      phi3 = 125.7264
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 73
      chmoth = 'DC5'
      x = 14.857344
      y = 10.710673
      z = 0
      irot = 316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 317
      theta1 = 89.697147
      phi1 = 38.515148
      theta2 = 96.476649
      phi2 = 128.48077
      theta3 = 6.4837867
      phi3 = 131.18095
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 74
      chmoth = 'DC5'
      x = 13.771955
      y = 12.074454
      z = 0
      irot = 317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 318
      theta1 = 89.697147
      phi1 = 43.969694
      theta2 = 96.476649
      phi2 = 133.93531
      theta3 = 6.4837867
      phi3 = 136.63549
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 75
      chmoth = 'DC5'
      x = 12.561845
      y = 13.328888
      z = 0
      irot = 318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 319
      theta1 = 89.697147
      phi1 = 49.424239
      theta2 = 96.476649
      phi2 = 139.38986
      theta3 = 6.4837867
      phi3 = 142.09004
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 76
      chmoth = 'DC5'
      x = 11.237972
      y = 14.462613
      z = 0
      irot = 319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 320
      theta1 = 89.697147
      phi1 = 54.878785
      theta2 = 96.476649
      phi2 = 144.8444
      theta3 = 6.4837867
      phi3 = 147.54458
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 77
      chmoth = 'DC5'
      x = 9.8123272
      y = 15.465362
      z = 0
      irot = 320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 321
      theta1 = 89.697147
      phi1 = 60.33333
      theta2 = 96.476649
      phi2 = 150.29895
      theta3 = 6.4837867
      phi3 = 152.99913
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 78
      chmoth = 'DC5'
      x = 8.2978201
      y = 16.328055
      z = 0
      irot = 321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 322
      theta1 = 89.697147
      phi1 = 65.787875
      theta2 = 96.476649
      phi2 = 155.75349
      theta3 = 6.4837867
      phi3 = 158.45367
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 79
      chmoth = 'DC5'
      x = 6.7081667
      y = 17.042878
      z = 0
      irot = 322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 323
      theta1 = 89.697147
      phi1 = 71.242421
      theta2 = 96.476649
      phi2 = 161.20804
      theta3 = 6.4837867
      phi3 = 163.90822
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 80
      chmoth = 'DC5'
      x = 5.057763
      y = 17.603358
      z = 0
      irot = 323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 324
      theta1 = 89.697147
      phi1 = 76.696966
      theta2 = 96.476649
      phi2 = 166.66259
      theta3 = 6.4837867
      phi3 = 169.36276
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 81
      chmoth = 'DC5'
      x = 3.3615555
      y = 18.00442
      z = 0
      irot = 324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 325
      theta1 = 89.697147
      phi1 = 82.151512
      theta2 = 96.476649
      phi2 = 172.11713
      theta3 = 6.4837867
      phi3 = 174.81731
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 82
      chmoth = 'DC5'
      x = 1.6349051
      y = 18.242431
      z = 0
      irot = 325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 326
      theta1 = 89.697147
      phi1 = 87.606057
      theta2 = 96.476649
      phi2 = 177.57168
      theta3 = 6.4837867
      phi3 = -179.72815
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 83
      chmoth = 'DC5'
      x = -0.10655112
      y = 18.315235
      z = 0
      irot = 326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 327
      theta1 = 89.697147
      phi1 = 93.060603
      theta2 = 96.476649
      phi2 = -176.97378
      theta3 = 6.4837867
      phi3 = -174.2736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 84
      chmoth = 'DC5'
      x = -1.8470424
      y = 18.222174
      z = 0
      irot = 327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 328
      theta1 = 89.697147
      phi1 = 98.515148
      theta2 = 96.476649
      phi2 = -171.51923
      theta3 = 6.4837867
      phi3 = -168.81905
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 85
      chmoth = 'DC5'
      x = -3.5708067
      y = 17.96409
      z = 0
      irot = 328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 329
      theta1 = 89.697147
      phi1 = 103.96969
      theta2 = 96.476649
      phi2 = -166.06469
      theta3 = 6.4837867
      phi3 = -163.36451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 86
      chmoth = 'DC5'
      x = -5.2622331
      y = 17.543321
      z = 0
      irot = 329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 330
      theta1 = 89.697147
      phi1 = 109.42424
      theta2 = 96.476649
      phi2 = -160.61014
      theta3 = 6.4837867
      phi3 = -157.90996
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 87
      chmoth = 'DC5'
      x = -6.906004
      y = 16.963676
      z = 0
      irot = 330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 331
      theta1 = 89.697147
      phi1 = 114.87878
      theta2 = 96.476649
      phi2 = -155.1556
      theta3 = 6.4837867
      phi3 = -152.45542
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 88
      chmoth = 'DC5'
      x = -8.487233
      y = 16.230406
      z = 0
      irot = 331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 332
      theta1 = 89.697147
      phi1 = 120.33333
      theta2 = 96.476649
      phi2 = -149.70105
      theta3 = 6.4837867
      phi3 = -147.00087
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 89
      chmoth = 'DC5'
      x = -9.9916003
      y = 15.35015
      z = 0
      irot = 332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 333
      theta1 = 89.697147
      phi1 = 125.78788
      theta2 = 96.476649
      phi2 = -144.24651
      theta3 = 6.4837867
      phi3 = -141.54633
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 90
      chmoth = 'DC5'
      x = -11.405482
      y = 14.330882
      z = 0
      irot = 333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 334
      theta1 = 89.697147
      phi1 = 131.24242
      theta2 = 96.476649
      phi2 = -138.79196
      theta3 = 6.4837867
      phi3 = -136.09178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 91
      chmoth = 'DC5'
      x = -12.716074
      y = 13.18183
      z = 0
      irot = 334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 335
      theta1 = 89.697147
      phi1 = 136.69697
      theta2 = 96.476649
      phi2 = -133.33741
      theta3 = 6.4837867
      phi3 = -130.63724
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 92
      chmoth = 'DC5'
      x = -13.911507
      y = 11.913402
      z = 0
      irot = 335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 336
      theta1 = 89.697147
      phi1 = 142.15151
      theta2 = 96.476649
      phi2 = -127.88287
      theta3 = 6.4837867
      phi3 = -125.18269
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 93
      chmoth = 'DC5'
      x = -14.980956
      y = 10.537085
      z = 0
      irot = 336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 337
      theta1 = 89.697147
      phi1 = 147.60606
      theta2 = 96.476649
      phi2 = -122.42832
      theta3 = 6.4837867
      phi3 = -119.72815
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 94
      chmoth = 'DC5'
      x = -15.914735
      y = 9.0653416
      z = 0
      irot = 337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 338
      theta1 = 89.697147
      phi1 = 153.0606
      theta2 = 96.476649
      phi2 = -116.97378
      theta3 = 6.4837867
      phi3 = -114.2736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 95
      chmoth = 'DC5'
      x = -16.704387
      y = 7.5115014
      z = 0
      irot = 338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 339
      theta1 = 89.697147
      phi1 = 158.51515
      theta2 = 96.476649
      phi2 = -111.51923
      theta3 = 6.4837867
      phi3 = -108.81905
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 96
      chmoth = 'DC5'
      x = -17.342762
      y = 5.8896358
      z = 0
      irot = 339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 340
      theta1 = 89.697147
      phi1 = 163.96969
      theta2 = 96.476649
      phi2 = -106.06469
      theta3 = 6.4837867
      phi3 = -103.36451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 97
      chmoth = 'DC5'
      x = -17.824078
      y = 4.2144327
      z = 0
      irot = 340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 341
      theta1 = 89.697147
      phi1 = 169.42424
      theta2 = 96.476649
      phi2 = -100.61014
      theta3 = 6.4837867
      phi3 = -97.909964
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 98
      chmoth = 'DC5'
      x = -18.143976
      y = 2.5010632
      z = 0
      irot = 341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 342
      theta1 = 89.697147
      phi1 = 174.87878
      theta2 = 96.476649
      phi2 = -95.155596
      theta3 = 6.4837867
      phi3 = -92.455418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 99
      chmoth = 'DC5'
      x = -18.29956
      y = 0.76504354
      z = 0
      irot = 342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 343
      theta1 = 89.697147
      phi1 = -179.66667
      theta2 = 96.476649
      phi2 = -89.701051
      theta3 = 6.4837867
      phi3 = -87.000873
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 100
      chmoth = 'DC5'
      x = -18.28942
      y = -0.97790442
      z = 0
      irot = 343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 344
      theta1 = 89.697147
      phi1 = -174.21212
      theta2 = 96.476649
      phi2 = -84.246506
      theta3 = 6.4837867
      phi3 = -81.546327
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 101
      chmoth = 'DC5'
      x = -18.113649
      y = -2.7119963
      z = 0
      irot = 344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 345
      theta1 = 89.697147
      phi1 = -168.75758
      theta2 = 96.476649
      phi2 = -78.79196
      theta3 = 6.4837867
      phi3 = -76.091782
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 102
      chmoth = 'DC5'
      x = -17.773837
      y = -4.421528
      z = 0
      irot = 345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 346
      theta1 = 89.697147
      phi1 = -163.30303
      theta2 = 96.476649
      phi2 = -73.337415
      theta3 = 6.4837867
      phi3 = -70.637236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 103
      chmoth = 'DC5'
      x = -17.273063
      y = -6.0910176
      z = 0
      irot = 346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 347
      theta1 = 89.697147
      phi1 = -157.84849
      theta2 = 96.476649
      phi2 = -67.882869
      theta3 = 6.4837867
      phi3 = -65.182691
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 104
      chmoth = 'DC5'
      x = -16.615861
      y = -7.705346
      z = 0
      irot = 347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 348
      theta1 = 89.697147
      phi1 = -152.39394
      theta2 = 96.476649
      phi2 = -62.428324
      theta3 = 6.4837867
      phi3 = -59.728145
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 105
      chmoth = 'DC5'
      x = -15.808183
      y = -9.2498936
      z = 0
      irot = 348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 349
      theta1 = 89.697147
      phi1 = -146.9394
      theta2 = 96.476649
      phi2 = -56.973778
      theta3 = 6.4837867
      phi3 = -54.2736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 106
      chmoth = 'DC5'
      x = -14.857344
      y = -10.710673
      z = 0
      irot = 349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 350
      theta1 = 89.697147
      phi1 = -141.48485
      theta2 = 96.476649
      phi2 = -51.519233
      theta3 = 6.4837867
      phi3 = -48.819054
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 107
      chmoth = 'DC5'
      x = -13.771955
      y = -12.074454
      z = 0
      irot = 350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 351
      theta1 = 89.697147
      phi1 = -136.03031
      theta2 = 96.476649
      phi2 = -46.064687
      theta3 = 6.4837867
      phi3 = -43.364509
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 108
      chmoth = 'DC5'
      x = -12.561845
      y = -13.328888
      z = 0
      irot = 351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 352
      theta1 = 89.697147
      phi1 = -130.57576
      theta2 = 96.476649
      phi2 = -40.610142
      theta3 = 6.4837867
      phi3 = -37.909964
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 109
      chmoth = 'DC5'
      x = -11.237972
      y = -14.462613
      z = 0
      irot = 352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 353
      theta1 = 89.697147
      phi1 = -125.12122
      theta2 = 96.476649
      phi2 = -35.155596
      theta3 = 6.4837867
      phi3 = -32.455418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 110
      chmoth = 'DC5'
      x = -9.8123272
      y = -15.465362
      z = 0
      irot = 353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 354
      theta1 = 89.697147
      phi1 = -119.66667
      theta2 = 96.476649
      phi2 = -29.701051
      theta3 = 6.4837867
      phi3 = -27.000873
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 111
      chmoth = 'DC5'
      x = -8.2978201
      y = -16.328055
      z = 0
      irot = 354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 355
      theta1 = 89.697147
      phi1 = -114.21212
      theta2 = 96.476649
      phi2 = -24.246506
      theta3 = 6.4837867
      phi3 = -21.546327
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 112
      chmoth = 'DC5'
      x = -6.7081667
      y = -17.042878
      z = 0
      irot = 355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 356
      theta1 = 89.697147
      phi1 = -108.75758
      theta2 = 96.476649
      phi2 = -18.79196
      theta3 = 6.4837867
      phi3 = -16.091782
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 113
      chmoth = 'DC5'
      x = -5.057763
      y = -17.603358
      z = 0
      irot = 356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 357
      theta1 = 89.697147
      phi1 = -103.30303
      theta2 = 96.476649
      phi2 = -13.337415
      theta3 = 6.4837867
      phi3 = -10.637236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 114
      chmoth = 'DC5'
      x = -3.3615555
      y = -18.00442
      z = 0
      irot = 357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 358
      theta1 = 89.697147
      phi1 = -97.848488
      theta2 = 96.476649
      phi2 = -7.8828692
      theta3 = 6.4837867
      phi3 = -5.1826909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 115
      chmoth = 'DC5'
      x = -1.6349051
      y = -18.242431
      z = 0
      irot = 358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 359
      theta1 = 89.697147
      phi1 = -92.393943
      theta2 = 96.476649
      phi2 = -2.4283238
      theta3 = 6.4837867
      phi3 = 0.27185459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 116
      chmoth = 'DC5'
      x = 0.10655112
      y = -18.315235
      z = 0
      irot = 359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 360
      theta1 = 89.697147
      phi1 = -86.939397
      theta2 = 96.476649
      phi2 = 3.0262217
      theta3 = 6.4837867
      phi3 = 5.7264
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 117
      chmoth = 'DC5'
      x = 1.8470424
      y = -18.222174
      z = 0
      irot = 360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 361
      theta1 = 89.697147
      phi1 = -81.484852
      theta2 = 96.476649
      phi2 = 8.4807671
      theta3 = 6.4837867
      phi3 = 11.180946
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 118
      chmoth = 'DC5'
      x = 3.5708067
      y = -17.96409
      z = 0
      irot = 361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 362
      theta1 = 89.697147
      phi1 = -76.030306
      theta2 = 96.476649
      phi2 = 13.935313
      theta3 = 6.4837867
      phi3 = 16.635491
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 119
      chmoth = 'DC5'
      x = 5.2622331
      y = -17.543321
      z = 0
      irot = 362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 363
      theta1 = 89.697147
      phi1 = -70.575761
      theta2 = 96.476649
      phi2 = 19.389858
      theta3 = 6.4837867
      phi3 = 22.090036
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 120
      chmoth = 'DC5'
      x = 6.906004
      y = -16.963676
      z = 0
      irot = 363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 364
      theta1 = 89.697147
      phi1 = -65.121215
      theta2 = 96.476649
      phi2 = 24.844404
      theta3 = 6.4837867
      phi3 = 27.544582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 121
      chmoth = 'DC5'
      x = 8.487233
      y = -16.230406
      z = 0
      irot = 364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 365
      theta1 = 89.697147
      phi1 = -59.66667
      theta2 = 96.476649
      phi2 = 30.298949
      theta3 = 6.4837867
      phi3 = 32.999127
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 122
      chmoth = 'DC5'
      x = 9.9916003
      y = -15.35015
      z = 0
      irot = 365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 366
      theta1 = 89.697147
      phi1 = -54.212125
      theta2 = 96.476649
      phi2 = 35.753494
      theta3 = 6.4837867
      phi3 = 38.453673
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 123
      chmoth = 'DC5'
      x = 11.405482
      y = -14.330882
      z = 0
      irot = 366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 367
      theta1 = 89.697147
      phi1 = -48.757579
      theta2 = 96.476649
      phi2 = 41.20804
      theta3 = 6.4837867
      phi3 = 43.908218
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 124
      chmoth = 'DC5'
      x = 12.716074
      y = -13.18183
      z = 0
      irot = 367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 368
      theta1 = 89.697147
      phi1 = -43.303034
      theta2 = 96.476649
      phi2 = 46.662585
      theta3 = 6.4837867
      phi3 = 49.362764
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 125
      chmoth = 'DC5'
      x = 13.911507
      y = -11.913402
      z = 0
      irot = 368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 369
      theta1 = 89.697147
      phi1 = -37.848488
      theta2 = 96.476649
      phi2 = 52.117131
      theta3 = 6.4837867
      phi3 = 54.817309
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 126
      chmoth = 'DC5'
      x = 14.980956
      y = -10.537085
      z = 0
      irot = 369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 370
      theta1 = 89.697147
      phi1 = -32.393943
      theta2 = 96.476649
      phi2 = 57.571676
      theta3 = 6.4837867
      phi3 = 60.271855
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 127
      chmoth = 'DC5'
      x = 15.914735
      y = -9.0653416
      z = 0
      irot = 370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 371
      theta1 = 89.697147
      phi1 = -26.939397
      theta2 = 96.476649
      phi2 = 63.026222
      theta3 = 6.4837867
      phi3 = 65.7264
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 128
      chmoth = 'DC5'
      x = 16.704387
      y = -7.5115014
      z = 0
      irot = 371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 372
      theta1 = 89.697147
      phi1 = -21.484852
      theta2 = 96.476649
      phi2 = 68.480767
      theta3 = 6.4837867
      phi3 = 71.180946
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 129
      chmoth = 'DC5'
      x = 17.342762
      y = -5.8896358
      z = 0
      irot = 372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 373
      theta1 = 89.697147
      phi1 = -16.030306
      theta2 = 96.476649
      phi2 = 73.935313
      theta3 = 6.4837867
      phi3 = 76.635491
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 130
      chmoth = 'DC5'
      x = 17.824078
      y = -4.2144327
      z = 0
      irot = 373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 374
      theta1 = 89.697147
      phi1 = -10.575761
      theta2 = 96.476649
      phi2 = 79.389858
      theta3 = 6.4837867
      phi3 = 82.090036
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 131
      chmoth = 'DC5'
      x = 18.143976
      y = -2.5010632
      z = 0
      irot = 374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 375
      theta1 = 89.697147
      phi1 = -5.1212155
      theta2 = 96.476649
      phi2 = 84.844404
      theta3 = 6.4837867
      phi3 = 87.544582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 132
      chmoth = 'DC5'
      x = 18.29956
      y = -0.76504354
      z = 0
      irot = 375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 376
      theta1 = 90
      phi1 = -0.5
      theta2 = 96
      phi2 = 89.5
      theta3 = 6
      phi3 = 89.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 133
      chmoth = 'DC5'
      x = 20.520519
      y = -0.17907985
      z = 0
      irot = 376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 377
      theta1 = 90
      phi1 = 4
      theta2 = 96
      phi2 = 94
      theta3 = 6
      phi3 = 94
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 134
      chmoth = 'DC5'
      x = 20.471311
      y = 1.4314935
      z = 0
      irot = 377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 378
      theta1 = 90
      phi1 = 8.5
      theta2 = 96
      phi2 = 98.5
      theta3 = 6
      phi3 = 98.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 135
      chmoth = 'DC5'
      x = 20.295891
      y = 3.0332413
      z = 0
      irot = 378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 379
      theta1 = 90
      phi1 = 13
      theta2 = 96
      phi2 = 103
      theta3 = 6
      phi3 = 103
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 136
      chmoth = 'DC5'
      x = 19.99534
      y = 4.6162881
      z = 0
      irot = 379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 380
      theta1 = 90
      phi1 = 17.5
      theta2 = 96
      phi2 = 107.5
      theta3 = 6
      phi3 = 107.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 137
      chmoth = 'DC5'
      x = 19.571512
      y = 6.1708739
      z = 0
      irot = 380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 381
      theta1 = 90
      phi1 = 22
      theta2 = 96
      phi2 = 112
      theta3 = 6
      phi3 = 112
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 138
      chmoth = 'DC5'
      x = 19.027018
      y = 7.6874143
      z = 0
      irot = 381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 382
      theta1 = 90
      phi1 = 26.5
      theta2 = 96
      phi2 = 116.5
      theta3 = 6
      phi3 = 116.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 139
      chmoth = 'DC5'
      x = 18.365217
      y = 9.1565592
      z = 0
      irot = 382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 383
      theta1 = 90
      phi1 = 31
      theta2 = 96
      phi2 = 121
      theta3 = 6
      phi3 = 121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 140
      chmoth = 'DC5'
      x = 17.590187
      y = 10.569251
      z = 0
      irot = 383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 384
      theta1 = 90
      phi1 = 35.5
      theta2 = 96
      phi2 = 125.5
      theta3 = 6
      phi3 = 125.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 141
      chmoth = 'DC5'
      x = 16.706709
      y = 11.91678
      z = 0
      irot = 384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 385
      theta1 = 90
      phi1 = 40
      theta2 = 96
      phi2 = 130
      theta3 = 6
      phi3 = 130
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 142
      chmoth = 'DC5'
      x = 15.720228
      y = 13.190837
      z = 0
      irot = 385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 386
      theta1 = 90
      phi1 = 44.5
      theta2 = 96
      phi2 = 134.5
      theta3 = 6
      phi3 = 134.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 143
      chmoth = 'DC5'
      x = 14.636826
      y = 14.383569
      z = 0
      irot = 386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 387
      theta1 = 90
      phi1 = 49
      theta2 = 96
      phi2 = 139
      theta3 = 6
      phi3 = 139
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 144
      chmoth = 'DC5'
      x = 13.463184
      y = 15.487622
      z = 0
      irot = 387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 388
      theta1 = 90
      phi1 = 53.5
      theta2 = 96
      phi2 = 143.5
      theta3 = 6
      phi3 = 143.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 145
      chmoth = 'DC5'
      x = 12.206537
      y = 16.496188
      z = 0
      irot = 388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 389
      theta1 = 90
      phi1 = 58
      theta2 = 96
      phi2 = 148
      theta3 = 6
      phi3 = 148
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 146
      chmoth = 'DC5'
      x = 10.874632
      y = 17.403049
      z = 0
      irot = 389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 390
      theta1 = 90
      phi1 = 62.5
      theta2 = 96
      phi2 = 152.5
      theta3 = 6
      phi3 = 152.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 147
      chmoth = 'DC5'
      x = 9.4756818
      y = 18.202615
      z = 0
      irot = 390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 391
      theta1 = 90
      phi1 = 67
      theta2 = 96
      phi2 = 157
      theta3 = 6
      phi3 = 157
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 148
      chmoth = 'DC5'
      x = 8.0183107
      y = 18.889956
      z = 0
      irot = 391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 392
      theta1 = 90
      phi1 = 71.5
      theta2 = 96
      phi2 = 161.5
      theta3 = 6
      phi3 = 161.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 149
      chmoth = 'DC5'
      x = 6.511504
      y = 19.460834
      z = 0
      irot = 392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 393
      theta1 = 90
      phi1 = 76
      theta2 = 96
      phi2 = 166
      theta3 = 6
      phi3 = 166
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 150
      chmoth = 'DC5'
      x = 4.9645518
      y = 19.91173
      z = 0
      irot = 393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 394
      theta1 = 90
      phi1 = 80.5
      theta2 = 96
      phi2 = 170.5
      theta3 = 6
      phi3 = 170.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 151
      chmoth = 'DC5'
      x = 3.3869914
      y = 20.239863
      z = 0
      irot = 394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 395
      theta1 = 90
      phi1 = 85
      theta2 = 96
      phi2 = 175
      theta3 = 6
      phi3 = 175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 152
      chmoth = 'DC5'
      x = 1.7885491
      y = 20.44321
      z = 0
      irot = 395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 396
      theta1 = 90
      phi1 = 89.5
      theta2 = 96
      phi2 = 179.5
      theta3 = 6
      phi3 = 179.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 153
      chmoth = 'DC5'
      x = 0.17907985
      y = 20.520519
      z = 0
      irot = 396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 397
      theta1 = 90
      phi1 = 94
      theta2 = 96
      phi2 = -176
      theta3 = 6
      phi3 = -176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 154
      chmoth = 'DC5'
      x = -1.4314935
      y = 20.471311
      z = 0
      irot = 397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 398
      theta1 = 90
      phi1 = 98.5
      theta2 = 96
      phi2 = -171.5
      theta3 = 6
      phi3 = -171.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 155
      chmoth = 'DC5'
      x = -3.0332413
      y = 20.295891
      z = 0
      irot = 398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 399
      theta1 = 90
      phi1 = 103
      theta2 = 96
      phi2 = -167
      theta3 = 6
      phi3 = -167
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 156
      chmoth = 'DC5'
      x = -4.6162881
      y = 19.99534
      z = 0
      irot = 399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 400
      theta1 = 90
      phi1 = 107.5
      theta2 = 96
      phi2 = -162.5
      theta3 = 6
      phi3 = -162.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 157
      chmoth = 'DC5'
      x = -6.1708739
      y = 19.571512
      z = 0
      irot = 400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 401
      theta1 = 90
      phi1 = 112
      theta2 = 96
      phi2 = -158
      theta3 = 6
      phi3 = -158
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 158
      chmoth = 'DC5'
      x = -7.6874143
      y = 19.027018
      z = 0
      irot = 401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 402
      theta1 = 90
      phi1 = 116.5
      theta2 = 96
      phi2 = -153.5
      theta3 = 6
      phi3 = -153.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 159
      chmoth = 'DC5'
      x = -9.1565592
      y = 18.365217
      z = 0
      irot = 402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 403
      theta1 = 90
      phi1 = 121
      theta2 = 96
      phi2 = -149
      theta3 = 6
      phi3 = -149
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 160
      chmoth = 'DC5'
      x = -10.569251
      y = 17.590187
      z = 0
      irot = 403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 404
      theta1 = 90
      phi1 = 125.5
      theta2 = 96
      phi2 = -144.5
      theta3 = 6
      phi3 = -144.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 161
      chmoth = 'DC5'
      x = -11.91678
      y = 16.706709
      z = 0
      irot = 404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 405
      theta1 = 90
      phi1 = 130
      theta2 = 96
      phi2 = -140
      theta3 = 6
      phi3 = -140
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 162
      chmoth = 'DC5'
      x = -13.190837
      y = 15.720228
      z = 0
      irot = 405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 406
      theta1 = 90
      phi1 = 134.5
      theta2 = 96
      phi2 = -135.5
      theta3 = 6
      phi3 = -135.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 163
      chmoth = 'DC5'
      x = -14.383569
      y = 14.636826
      z = 0
      irot = 406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 407
      theta1 = 90
      phi1 = 139
      theta2 = 96
      phi2 = -131
      theta3 = 6
      phi3 = -131
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 164
      chmoth = 'DC5'
      x = -15.487622
      y = 13.463184
      z = 0
      irot = 407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 408
      theta1 = 90
      phi1 = 143.5
      theta2 = 96
      phi2 = -126.5
      theta3 = 6
      phi3 = -126.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 165
      chmoth = 'DC5'
      x = -16.496188
      y = 12.206537
      z = 0
      irot = 408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 409
      theta1 = 90
      phi1 = 148
      theta2 = 96
      phi2 = -122
      theta3 = 6
      phi3 = -122
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 166
      chmoth = 'DC5'
      x = -17.403049
      y = 10.874632
      z = 0
      irot = 409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 410
      theta1 = 90
      phi1 = 152.5
      theta2 = 96
      phi2 = -117.5
      theta3 = 6
      phi3 = -117.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 167
      chmoth = 'DC5'
      x = -18.202615
      y = 9.4756818
      z = 0
      irot = 410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 411
      theta1 = 90
      phi1 = 157
      theta2 = 96
      phi2 = -113
      theta3 = 6
      phi3 = -113
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 168
      chmoth = 'DC5'
      x = -18.889956
      y = 8.0183107
      z = 0
      irot = 411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 412
      theta1 = 90
      phi1 = 161.5
      theta2 = 96
      phi2 = -108.5
      theta3 = 6
      phi3 = -108.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 169
      chmoth = 'DC5'
      x = -19.460834
      y = 6.511504
      z = 0
      irot = 412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 413
      theta1 = 90
      phi1 = 166
      theta2 = 96
      phi2 = -104
      theta3 = 6
      phi3 = -104
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 170
      chmoth = 'DC5'
      x = -19.91173
      y = 4.9645518
      z = 0
      irot = 413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 414
      theta1 = 90
      phi1 = 170.5
      theta2 = 96
      phi2 = -99.5
      theta3 = 6
      phi3 = -99.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 171
      chmoth = 'DC5'
      x = -20.239863
      y = 3.3869914
      z = 0
      irot = 414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 415
      theta1 = 90
      phi1 = 175
      theta2 = 96
      phi2 = -95
      theta3 = 6
      phi3 = -95
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 172
      chmoth = 'DC5'
      x = -20.44321
      y = 1.7885491
      z = 0
      irot = 415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 416
      theta1 = 90
      phi1 = 179.5
      theta2 = 96
      phi2 = -90.5
      theta3 = 6
      phi3 = -90.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 173
      chmoth = 'DC5'
      x = -20.520519
      y = 0.17907985
      z = 0
      irot = 416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 417
      theta1 = 90
      phi1 = -176
      theta2 = 96
      phi2 = -86
      theta3 = 6
      phi3 = -86
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 174
      chmoth = 'DC5'
      x = -20.471311
      y = -1.4314935
      z = 0
      irot = 417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 418
      theta1 = 90
      phi1 = -171.5
      theta2 = 96
      phi2 = -81.5
      theta3 = 6
      phi3 = -81.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 175
      chmoth = 'DC5'
      x = -20.295891
      y = -3.0332413
      z = 0
      irot = 418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 419
      theta1 = 90
      phi1 = -167
      theta2 = 96
      phi2 = -77
      theta3 = 6
      phi3 = -77
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 176
      chmoth = 'DC5'
      x = -19.99534
      y = -4.6162881
      z = 0
      irot = 419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 420
      theta1 = 90
      phi1 = -162.5
      theta2 = 96
      phi2 = -72.5
      theta3 = 6
      phi3 = -72.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 177
      chmoth = 'DC5'
      x = -19.571512
      y = -6.1708739
      z = 0
      irot = 420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 421
      theta1 = 90
      phi1 = -158
      theta2 = 96
      phi2 = -68
      theta3 = 6
      phi3 = -68
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 178
      chmoth = 'DC5'
      x = -19.027018
      y = -7.6874143
      z = 0
      irot = 421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 422
      theta1 = 90
      phi1 = -153.5
      theta2 = 96
      phi2 = -63.5
      theta3 = 6
      phi3 = -63.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 179
      chmoth = 'DC5'
      x = -18.365217
      y = -9.1565592
      z = 0
      irot = 422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 423
      theta1 = 90
      phi1 = -149
      theta2 = 96
      phi2 = -59
      theta3 = 6
      phi3 = -59
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 180
      chmoth = 'DC5'
      x = -17.590187
      y = -10.569251
      z = 0
      irot = 423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 424
      theta1 = 90
      phi1 = -144.5
      theta2 = 96
      phi2 = -54.5
      theta3 = 6
      phi3 = -54.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 181
      chmoth = 'DC5'
      x = -16.706709
      y = -11.91678
      z = 0
      irot = 424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 425
      theta1 = 90
      phi1 = -140
      theta2 = 96
      phi2 = -50
      theta3 = 6
      phi3 = -50
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 182
      chmoth = 'DC5'
      x = -15.720228
      y = -13.190837
      z = 0
      irot = 425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 426
      theta1 = 90
      phi1 = -135.5
      theta2 = 96
      phi2 = -45.5
      theta3 = 6
      phi3 = -45.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 183
      chmoth = 'DC5'
      x = -14.636826
      y = -14.383569
      z = 0
      irot = 426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 427
      theta1 = 90
      phi1 = -131
      theta2 = 96
      phi2 = -41
      theta3 = 6
      phi3 = -41
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 184
      chmoth = 'DC5'
      x = -13.463184
      y = -15.487622
      z = 0
      irot = 427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 428
      theta1 = 90
      phi1 = -126.5
      theta2 = 96
      phi2 = -36.5
      theta3 = 6
      phi3 = -36.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 185
      chmoth = 'DC5'
      x = -12.206537
      y = -16.496188
      z = 0
      irot = 428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 429
      theta1 = 90
      phi1 = -122
      theta2 = 96
      phi2 = -32
      theta3 = 6
      phi3 = -32
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 186
      chmoth = 'DC5'
      x = -10.874632
      y = -17.403049
      z = 0
      irot = 429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 430
      theta1 = 90
      phi1 = -117.5
      theta2 = 96
      phi2 = -27.5
      theta3 = 6
      phi3 = -27.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 187
      chmoth = 'DC5'
      x = -9.4756818
      y = -18.202615
      z = 0
      irot = 430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 431
      theta1 = 90
      phi1 = -113
      theta2 = 96
      phi2 = -23
      theta3 = 6
      phi3 = -23
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 188
      chmoth = 'DC5'
      x = -8.0183107
      y = -18.889956
      z = 0
      irot = 431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 432
      theta1 = 90
      phi1 = -108.5
      theta2 = 96
      phi2 = -18.5
      theta3 = 6
      phi3 = -18.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 189
      chmoth = 'DC5'
      x = -6.511504
      y = -19.460834
      z = 0
      irot = 432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 433
      theta1 = 90
      phi1 = -104
      theta2 = 96
      phi2 = -14
      theta3 = 6
      phi3 = -14
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 190
      chmoth = 'DC5'
      x = -4.9645518
      y = -19.91173
      z = 0
      irot = 433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 434
      theta1 = 90
      phi1 = -99.5
      theta2 = 96
      phi2 = -9.5
      theta3 = 6
      phi3 = -9.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 191
      chmoth = 'DC5'
      x = -3.3869914
      y = -20.239863
      z = 0
      irot = 434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 435
      theta1 = 90
      phi1 = -95
      theta2 = 96
      phi2 = -5
      theta3 = 6
      phi3 = -5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 192
      chmoth = 'DC5'
      x = -1.7885491
      y = -20.44321
      z = 0
      irot = 435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 436
      theta1 = 90
      phi1 = -90.5
      theta2 = 96
      phi2 = -0.5
      theta3 = 6
      phi3 = -0.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 193
      chmoth = 'DC5'
      x = -0.17907985
      y = -20.520519
      z = 0
      irot = 436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 437
      theta1 = 90
      phi1 = -86
      theta2 = 96
      phi2 = 4
      theta3 = 6
      phi3 = 4
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 194
      chmoth = 'DC5'
      x = 1.4314935
      y = -20.471311
      z = 0
      irot = 437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 438
      theta1 = 90
      phi1 = -81.5
      theta2 = 96
      phi2 = 8.5
      theta3 = 6
      phi3 = 8.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 195
      chmoth = 'DC5'
      x = 3.0332413
      y = -20.295891
      z = 0
      irot = 438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 439
      theta1 = 90
      phi1 = -77
      theta2 = 96
      phi2 = 13
      theta3 = 6
      phi3 = 13
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 196
      chmoth = 'DC5'
      x = 4.6162881
      y = -19.99534
      z = 0
      irot = 439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 440
      theta1 = 90
      phi1 = -72.5
      theta2 = 96
      phi2 = 17.5
      theta3 = 6
      phi3 = 17.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 197
      chmoth = 'DC5'
      x = 6.1708739
      y = -19.571512
      z = 0
      irot = 440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 441
      theta1 = 90
      phi1 = -68
      theta2 = 96
      phi2 = 22
      theta3 = 6
      phi3 = 22
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 198
      chmoth = 'DC5'
      x = 7.6874143
      y = -19.027018
      z = 0
      irot = 441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 442
      theta1 = 90
      phi1 = -63.5
      theta2 = 96
      phi2 = 26.5
      theta3 = 6
      phi3 = 26.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 199
      chmoth = 'DC5'
      x = 9.1565592
      y = -18.365217
      z = 0
      irot = 442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 443
      theta1 = 90
      phi1 = -59
      theta2 = 96
      phi2 = 31
      theta3 = 6
      phi3 = 31
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 200
      chmoth = 'DC5'
      x = 10.569251
      y = -17.590187
      z = 0
      irot = 443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 444
      theta1 = 90
      phi1 = -54.5
      theta2 = 96
      phi2 = 35.5
      theta3 = 6
      phi3 = 35.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 201
      chmoth = 'DC5'
      x = 11.91678
      y = -16.706709
      z = 0
      irot = 444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 445
      theta1 = 90
      phi1 = -50
      theta2 = 96
      phi2 = 40
      theta3 = 6
      phi3 = 40
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 202
      chmoth = 'DC5'
      x = 13.190837
      y = -15.720228
      z = 0
      irot = 445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 446
      theta1 = 90
      phi1 = -45.5
      theta2 = 96
      phi2 = 44.5
      theta3 = 6
      phi3 = 44.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 203
      chmoth = 'DC5'
      x = 14.383569
      y = -14.636826
      z = 0
      irot = 446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 447
      theta1 = 90
      phi1 = -41
      theta2 = 96
      phi2 = 49
      theta3 = 6
      phi3 = 49
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 204
      chmoth = 'DC5'
      x = 15.487622
      y = -13.463184
      z = 0
      irot = 447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 448
      theta1 = 90
      phi1 = -36.5
      theta2 = 96
      phi2 = 53.5
      theta3 = 6
      phi3 = 53.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 205
      chmoth = 'DC5'
      x = 16.496188
      y = -12.206537
      z = 0
      irot = 448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 449
      theta1 = 90
      phi1 = -32
      theta2 = 96
      phi2 = 58
      theta3 = 6
      phi3 = 58
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 206
      chmoth = 'DC5'
      x = 17.403049
      y = -10.874632
      z = 0
      irot = 449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 450
      theta1 = 90
      phi1 = -27.5
      theta2 = 96
      phi2 = 62.5
      theta3 = 6
      phi3 = 62.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 207
      chmoth = 'DC5'
      x = 18.202615
      y = -9.4756818
      z = 0
      irot = 450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 451
      theta1 = 90
      phi1 = -23
      theta2 = 96
      phi2 = 67
      theta3 = 6
      phi3 = 67
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 208
      chmoth = 'DC5'
      x = 18.889956
      y = -8.0183107
      z = 0
      irot = 451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 452
      theta1 = 90
      phi1 = -18.5
      theta2 = 96
      phi2 = 71.5
      theta3 = 6
      phi3 = 71.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 209
      chmoth = 'DC5'
      x = 19.460834
      y = -6.511504
      z = 0
      irot = 452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 453
      theta1 = 90
      phi1 = -14
      theta2 = 96
      phi2 = 76
      theta3 = 6
      phi3 = 76
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 210
      chmoth = 'DC5'
      x = 19.91173
      y = -4.9645518
      z = 0
      irot = 453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 454
      theta1 = 90
      phi1 = -9.5
      theta2 = 96
      phi2 = 80.5
      theta3 = 6
      phi3 = 80.5
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 211
      chmoth = 'DC5'
      x = 20.239863
      y = -3.3869914
      z = 0
      irot = 454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 455
      theta1 = 90
      phi1 = -5
      theta2 = 96
      phi2 = 85
      theta3 = 6
      phi3 = 85
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 212
      chmoth = 'DC5'
      x = 20.44321
      y = -1.7885491
      z = 0
      irot = 455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 456
      theta1 = 89.754385
      phi1 = -0.5
      theta2 = 96.395421
      phi2 = 89.47247
      theta3 = 6.400175
      phi3 = 91.690193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 213
      chmoth = 'DC5'
      x = 21.897872
      y = 0.66903892
      z = 0
      irot = 456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 457
      theta1 = 89.754385
      phi1 = 4
      theta2 = 96.395421
      phi2 = 93.97247
      theta3 = 6.400175
      phi3 = 96.190193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 214
      chmoth = 'DC5'
      x = 21.777876
      y = 2.3850637
      z = 0
      irot = 457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 458
      theta1 = 89.754385
      phi1 = 8.5
      theta2 = 96.395421
      phi2 = 98.47247
      theta3 = 6.400175
      phi3 = 100.69019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 215
      chmoth = 'DC5'
      x = 21.523612
      y = 4.0863839
      z = 0
      irot = 458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 459
      theta1 = 89.754385
      phi1 = 13
      theta2 = 96.395421
      phi2 = 102.97247
      theta3 = 6.400175
      phi3 = 105.19019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 216
      chmoth = 'DC5'
      x = 21.136648
      y = 5.7625101
      z = 0
      irot = 459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 460
      theta1 = 89.754385
      phi1 = 17.5
      theta2 = 96.395421
      phi2 = 107.47247
      theta3 = 6.400175
      phi3 = 109.69019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 217
      chmoth = 'DC5'
      x = 20.61937
      y = 7.4031085
      z = 0
      irot = 460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 461
      theta1 = 89.754385
      phi1 = 22
      theta2 = 96.395421
      phi2 = 111.97247
      theta3 = 6.400175
      phi3 = 114.19019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 218
      chmoth = 'DC5'
      x = 19.974966
      y = 8.9980643
      z = 0
      irot = 461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 462
      theta1 = 89.754385
      phi1 = 26.5
      theta2 = 96.395421
      phi2 = 116.47247
      theta3 = 6.400175
      phi3 = 118.69019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 219
      chmoth = 'DC5'
      x = 19.20741
      y = 10.537544
      z = 0
      irot = 462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 463
      theta1 = 89.754385
      phi1 = 31
      theta2 = 96.395421
      phi2 = 120.97247
      theta3 = 6.400175
      phi3 = 123.19019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 220
      chmoth = 'DC5'
      x = 18.321433
      y = 12.012056
      z = 0
      irot = 463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 464
      theta1 = 89.754385
      phi1 = 35.5
      theta2 = 96.395421
      phi2 = 125.47247
      theta3 = 6.400175
      phi3 = 127.69019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 221
      chmoth = 'DC5'
      x = 17.3225
      y = 13.41251
      z = 0
      irot = 464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 465
      theta1 = 89.754385
      phi1 = 40
      theta2 = 96.395421
      phi2 = 129.97247
      theta3 = 6.400175
      phi3 = 132.19019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 222
      chmoth = 'DC5'
      x = 16.216767
      y = 14.730272
      z = 0
      irot = 465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 466
      theta1 = 89.754385
      phi1 = 44.5
      theta2 = 96.395421
      phi2 = 134.47247
      theta3 = 6.400175
      phi3 = 136.69019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 223
      chmoth = 'DC5'
      x = 15.011052
      y = 15.957216
      z = 0
      irot = 466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 467
      theta1 = 89.754385
      phi1 = 49
      theta2 = 96.395421
      phi2 = 138.97247
      theta3 = 6.400175
      phi3 = 141.19019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 224
      chmoth = 'DC5'
      x = 13.712789
      y = 17.085779
      z = 0
      irot = 467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 468
      theta1 = 89.754385
      phi1 = 53.5
      theta2 = 96.395421
      phi2 = 143.47247
      theta3 = 6.400175
      phi3 = 145.69019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 225
      chmoth = 'DC5'
      x = 12.329982
      y = 18.109002
      z = 0
      irot = 468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 469
      theta1 = 89.754385
      phi1 = 58
      theta2 = 96.395421
      phi2 = 147.97247
      theta3 = 6.400175
      phi3 = 150.19019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 226
      chmoth = 'DC5'
      x = 10.871157
      y = 19.020577
      z = 0
      irot = 469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 470
      theta1 = 89.754385
      phi1 = 62.5
      theta2 = 96.395421
      phi2 = 152.47247
      theta3 = 6.400175
      phi3 = 154.69019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 227
      chmoth = 'DC5'
      x = 9.3453079
      y = 19.814884
      z = 0
      irot = 470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 471
      theta1 = 89.754385
      phi1 = 67
      theta2 = 96.395421
      phi2 = 156.97247
      theta3 = 6.400175
      phi3 = 159.19019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 228
      chmoth = 'DC5'
      x = 7.7618415
      y = 20.487026
      z = 0
      irot = 471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 472
      theta1 = 89.754385
      phi1 = 71.5
      theta2 = 96.395421
      phi2 = 161.47247
      theta3 = 6.400175
      phi3 = 163.69019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 229
      chmoth = 'DC5'
      x = 6.1305208
      y = 21.032858
      z = 0
      irot = 472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 473
      theta1 = 89.754385
      phi1 = 76
      theta2 = 96.395421
      phi2 = 165.97247
      theta3 = 6.400175
      phi3 = 168.19019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 230
      chmoth = 'DC5'
      x = 4.4614034
      y = 21.449016
      z = 0
      irot = 473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 474
      theta1 = 89.754385
      phi1 = 80.5
      theta2 = 96.395421
      phi2 = 170.47247
      theta3 = 6.400175
      phi3 = 172.69019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 231
      chmoth = 'DC5'
      x = 2.76478
      y = 21.732934
      z = 0
      irot = 474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 475
      theta1 = 89.754385
      phi1 = 85
      theta2 = 96.395421
      phi2 = 174.97247
      theta3 = 6.400175
      phi3 = 177.19019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 232
      chmoth = 'DC5'
      x = 1.0511108
      y = 21.882861
      z = 0
      irot = 475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 476
      theta1 = 89.754385
      phi1 = 89.5
      theta2 = 96.395421
      phi2 = 179.47247
      theta3 = 6.400175
      phi3 = -178.30981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 233
      chmoth = 'DC5'
      x = -0.66903892
      y = 21.897872
      z = 0
      irot = 476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 477
      theta1 = 89.754385
      phi1 = 94
      theta2 = 96.395421
      phi2 = -176.02753
      theta3 = 6.400175
      phi3 = -173.80981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 234
      chmoth = 'DC5'
      x = -2.3850637
      y = 21.777876
      z = 0
      irot = 477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 478
      theta1 = 89.754385
      phi1 = 98.5
      theta2 = 96.395421
      phi2 = -171.52753
      theta3 = 6.400175
      phi3 = -169.30981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 235
      chmoth = 'DC5'
      x = -4.0863839
      y = 21.523612
      z = 0
      irot = 478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 479
      theta1 = 89.754385
      phi1 = 103
      theta2 = 96.395421
      phi2 = -167.02753
      theta3 = 6.400175
      phi3 = -164.80981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 236
      chmoth = 'DC5'
      x = -5.7625101
      y = 21.136648
      z = 0
      irot = 479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 480
      theta1 = 89.754385
      phi1 = 107.5
      theta2 = 96.395421
      phi2 = -162.52753
      theta3 = 6.400175
      phi3 = -160.30981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 237
      chmoth = 'DC5'
      x = -7.4031085
      y = 20.61937
      z = 0
      irot = 480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 481
      theta1 = 89.754385
      phi1 = 112
      theta2 = 96.395421
      phi2 = -158.02753
      theta3 = 6.400175
      phi3 = -155.80981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 238
      chmoth = 'DC5'
      x = -8.9980643
      y = 19.974966
      z = 0
      irot = 481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 482
      theta1 = 89.754385
      phi1 = 116.5
      theta2 = 96.395421
      phi2 = -153.52753
      theta3 = 6.400175
      phi3 = -151.30981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 239
      chmoth = 'DC5'
      x = -10.537544
      y = 19.20741
      z = 0
      irot = 482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 483
      theta1 = 89.754385
      phi1 = 121
      theta2 = 96.395421
      phi2 = -149.02753
      theta3 = 6.400175
      phi3 = -146.80981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 240
      chmoth = 'DC5'
      x = -12.012056
      y = 18.321433
      z = 0
      irot = 483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 484
      theta1 = 89.754385
      phi1 = 125.5
      theta2 = 96.395421
      phi2 = -144.52753
      theta3 = 6.400175
      phi3 = -142.30981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 241
      chmoth = 'DC5'
      x = -13.41251
      y = 17.3225
      z = 0
      irot = 484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 485
      theta1 = 89.754385
      phi1 = 130
      theta2 = 96.395421
      phi2 = -140.02753
      theta3 = 6.400175
      phi3 = -137.80981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 242
      chmoth = 'DC5'
      x = -14.730272
      y = 16.216767
      z = 0
      irot = 485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 486
      theta1 = 89.754385
      phi1 = 134.5
      theta2 = 96.395421
      phi2 = -135.52753
      theta3 = 6.400175
      phi3 = -133.30981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 243
      chmoth = 'DC5'
      x = -15.957216
      y = 15.011052
      z = 0
      irot = 486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 487
      theta1 = 89.754385
      phi1 = 139
      theta2 = 96.395421
      phi2 = -131.02753
      theta3 = 6.400175
      phi3 = -128.80981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 244
      chmoth = 'DC5'
      x = -17.085779
      y = 13.712789
      z = 0
      irot = 487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 488
      theta1 = 89.754385
      phi1 = 143.5
      theta2 = 96.395421
      phi2 = -126.52753
      theta3 = 6.400175
      phi3 = -124.30981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 245
      chmoth = 'DC5'
      x = -18.109002
      y = 12.329982
      z = 0
      irot = 488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 489
      theta1 = 89.754385
      phi1 = 148
      theta2 = 96.395421
      phi2 = -122.02753
      theta3 = 6.400175
      phi3 = -119.80981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 246
      chmoth = 'DC5'
      x = -19.020577
      y = 10.871157
      z = 0
      irot = 489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 490
      theta1 = 89.754385
      phi1 = 152.5
      theta2 = 96.395421
      phi2 = -117.52753
      theta3 = 6.400175
      phi3 = -115.30981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 247
      chmoth = 'DC5'
      x = -19.814884
      y = 9.3453079
      z = 0
      irot = 490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 491
      theta1 = 89.754385
      phi1 = 157
      theta2 = 96.395421
      phi2 = -113.02753
      theta3 = 6.400175
      phi3 = -110.80981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 248
      chmoth = 'DC5'
      x = -20.487026
      y = 7.7618415
      z = 0
      irot = 491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 492
      theta1 = 89.754385
      phi1 = 161.5
      theta2 = 96.395421
      phi2 = -108.52753
      theta3 = 6.400175
      phi3 = -106.30981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 249
      chmoth = 'DC5'
      x = -21.032858
      y = 6.1305208
      z = 0
      irot = 492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 493
      theta1 = 89.754385
      phi1 = 166
      theta2 = 96.395421
      phi2 = -104.02753
      theta3 = 6.400175
      phi3 = -101.80981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 250
      chmoth = 'DC5'
      x = -21.449016
      y = 4.4614034
      z = 0
      irot = 493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 494
      theta1 = 89.754385
      phi1 = 170.5
      theta2 = 96.395421
      phi2 = -99.52753
      theta3 = 6.400175
      phi3 = -97.309807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 251
      chmoth = 'DC5'
      x = -21.732934
      y = 2.76478
      z = 0
      irot = 494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 495
      theta1 = 89.754385
      phi1 = 175
      theta2 = 96.395421
      phi2 = -95.02753
      theta3 = 6.400175
      phi3 = -92.809807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 252
      chmoth = 'DC5'
      x = -21.882861
      y = 1.0511108
      z = 0
      irot = 495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 496
      theta1 = 89.754385
      phi1 = 179.5
      theta2 = 96.395421
      phi2 = -90.52753
      theta3 = 6.400175
      phi3 = -88.309807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 253
      chmoth = 'DC5'
      x = -21.897872
      y = -0.66903892
      z = 0
      irot = 496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 497
      theta1 = 89.754385
      phi1 = -176
      theta2 = 96.395421
      phi2 = -86.02753
      theta3 = 6.400175
      phi3 = -83.809807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 254
      chmoth = 'DC5'
      x = -21.777876
      y = -2.3850637
      z = 0
      irot = 497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 498
      theta1 = 89.754385
      phi1 = -171.5
      theta2 = 96.395421
      phi2 = -81.52753
      theta3 = 6.400175
      phi3 = -79.309807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 255
      chmoth = 'DC5'
      x = -21.523612
      y = -4.0863839
      z = 0
      irot = 498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 499
      theta1 = 89.754385
      phi1 = -167
      theta2 = 96.395421
      phi2 = -77.02753
      theta3 = 6.400175
      phi3 = -74.809807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 256
      chmoth = 'DC5'
      x = -21.136648
      y = -5.7625101
      z = 0
      irot = 499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 500
      theta1 = 89.754385
      phi1 = -162.5
      theta2 = 96.395421
      phi2 = -72.52753
      theta3 = 6.400175
      phi3 = -70.309807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 257
      chmoth = 'DC5'
      x = -20.61937
      y = -7.4031085
      z = 0
      irot = 500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 501
      theta1 = 89.754385
      phi1 = -158
      theta2 = 96.395421
      phi2 = -68.02753
      theta3 = 6.400175
      phi3 = -65.809807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 258
      chmoth = 'DC5'
      x = -19.974966
      y = -8.9980643
      z = 0
      irot = 501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 502
      theta1 = 89.754385
      phi1 = -153.5
      theta2 = 96.395421
      phi2 = -63.52753
      theta3 = 6.400175
      phi3 = -61.309807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 259
      chmoth = 'DC5'
      x = -19.20741
      y = -10.537544
      z = 0
      irot = 502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 503
      theta1 = 89.754385
      phi1 = -149
      theta2 = 96.395421
      phi2 = -59.02753
      theta3 = 6.400175
      phi3 = -56.809807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 260
      chmoth = 'DC5'
      x = -18.321433
      y = -12.012056
      z = 0
      irot = 503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 504
      theta1 = 89.754385
      phi1 = -144.5
      theta2 = 96.395421
      phi2 = -54.52753
      theta3 = 6.400175
      phi3 = -52.309807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 261
      chmoth = 'DC5'
      x = -17.3225
      y = -13.41251
      z = 0
      irot = 504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 505
      theta1 = 89.754385
      phi1 = -140
      theta2 = 96.395421
      phi2 = -50.02753
      theta3 = 6.400175
      phi3 = -47.809807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 262
      chmoth = 'DC5'
      x = -16.216767
      y = -14.730272
      z = 0
      irot = 505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 506
      theta1 = 89.754385
      phi1 = -135.5
      theta2 = 96.395421
      phi2 = -45.52753
      theta3 = 6.400175
      phi3 = -43.309807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 263
      chmoth = 'DC5'
      x = -15.011052
      y = -15.957216
      z = 0
      irot = 506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 507
      theta1 = 89.754385
      phi1 = -131
      theta2 = 96.395421
      phi2 = -41.02753
      theta3 = 6.400175
      phi3 = -38.809807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 264
      chmoth = 'DC5'
      x = -13.712789
      y = -17.085779
      z = 0
      irot = 507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 508
      theta1 = 89.754385
      phi1 = -126.5
      theta2 = 96.395421
      phi2 = -36.52753
      theta3 = 6.400175
      phi3 = -34.309807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 265
      chmoth = 'DC5'
      x = -12.329982
      y = -18.109002
      z = 0
      irot = 508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 509
      theta1 = 89.754385
      phi1 = -122
      theta2 = 96.395421
      phi2 = -32.02753
      theta3 = 6.400175
      phi3 = -29.809807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 266
      chmoth = 'DC5'
      x = -10.871157
      y = -19.020577
      z = 0
      irot = 509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 510
      theta1 = 89.754385
      phi1 = -117.5
      theta2 = 96.395421
      phi2 = -27.52753
      theta3 = 6.400175
      phi3 = -25.309807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 267
      chmoth = 'DC5'
      x = -9.3453079
      y = -19.814884
      z = 0
      irot = 510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 511
      theta1 = 89.754385
      phi1 = -113
      theta2 = 96.395421
      phi2 = -23.02753
      theta3 = 6.400175
      phi3 = -20.809807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 268
      chmoth = 'DC5'
      x = -7.7618415
      y = -20.487026
      z = 0
      irot = 511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 512
      theta1 = 89.754385
      phi1 = -108.5
      theta2 = 96.395421
      phi2 = -18.52753
      theta3 = 6.400175
      phi3 = -16.309807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 269
      chmoth = 'DC5'
      x = -6.1305208
      y = -21.032858
      z = 0
      irot = 512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 513
      theta1 = 89.754385
      phi1 = -104
      theta2 = 96.395421
      phi2 = -14.02753
      theta3 = 6.400175
      phi3 = -11.809807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 270
      chmoth = 'DC5'
      x = -4.4614034
      y = -21.449016
      z = 0
      irot = 513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 514
      theta1 = 89.754385
      phi1 = -99.5
      theta2 = 96.395421
      phi2 = -9.5275304
      theta3 = 6.400175
      phi3 = -7.3098066
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 271
      chmoth = 'DC5'
      x = -2.76478
      y = -21.732934
      z = 0
      irot = 514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 515
      theta1 = 89.754385
      phi1 = -95
      theta2 = 96.395421
      phi2 = -5.0275304
      theta3 = 6.400175
      phi3 = -2.8098066
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 272
      chmoth = 'DC5'
      x = -1.0511108
      y = -21.882861
      z = 0
      irot = 515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 516
      theta1 = 89.754385
      phi1 = -90.5
      theta2 = 96.395421
      phi2 = -0.52753043
      theta3 = 6.400175
      phi3 = 1.6901934
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 273
      chmoth = 'DC5'
      x = 0.66903892
      y = -21.897872
      z = 0
      irot = 516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 517
      theta1 = 89.754385
      phi1 = -86
      theta2 = 96.395421
      phi2 = 3.9724696
      theta3 = 6.400175
      phi3 = 6.1901934
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 274
      chmoth = 'DC5'
      x = 2.3850637
      y = -21.777876
      z = 0
      irot = 517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 518
      theta1 = 89.754385
      phi1 = -81.5
      theta2 = 96.395421
      phi2 = 8.4724696
      theta3 = 6.400175
      phi3 = 10.690193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 275
      chmoth = 'DC5'
      x = 4.0863839
      y = -21.523612
      z = 0
      irot = 518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 519
      theta1 = 89.754385
      phi1 = -77
      theta2 = 96.395421
      phi2 = 12.97247
      theta3 = 6.400175
      phi3 = 15.190193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 276
      chmoth = 'DC5'
      x = 5.7625101
      y = -21.136648
      z = 0
      irot = 519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 520
      theta1 = 89.754385
      phi1 = -72.5
      theta2 = 96.395421
      phi2 = 17.47247
      theta3 = 6.400175
      phi3 = 19.690193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 277
      chmoth = 'DC5'
      x = 7.4031085
      y = -20.61937
      z = 0
      irot = 520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 521
      theta1 = 89.754385
      phi1 = -68
      theta2 = 96.395421
      phi2 = 21.97247
      theta3 = 6.400175
      phi3 = 24.190193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 278
      chmoth = 'DC5'
      x = 8.9980643
      y = -19.974966
      z = 0
      irot = 521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 522
      theta1 = 89.754385
      phi1 = -63.5
      theta2 = 96.395421
      phi2 = 26.47247
      theta3 = 6.400175
      phi3 = 28.690193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 279
      chmoth = 'DC5'
      x = 10.537544
      y = -19.20741
      z = 0
      irot = 522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 523
      theta1 = 89.754385
      phi1 = -59
      theta2 = 96.395421
      phi2 = 30.97247
      theta3 = 6.400175
      phi3 = 33.190193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 280
      chmoth = 'DC5'
      x = 12.012056
      y = -18.321433
      z = 0
      irot = 523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 524
      theta1 = 89.754385
      phi1 = -54.5
      theta2 = 96.395421
      phi2 = 35.47247
      theta3 = 6.400175
      phi3 = 37.690193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 281
      chmoth = 'DC5'
      x = 13.41251
      y = -17.3225
      z = 0
      irot = 524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 525
      theta1 = 89.754385
      phi1 = -50
      theta2 = 96.395421
      phi2 = 39.97247
      theta3 = 6.400175
      phi3 = 42.190193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 282
      chmoth = 'DC5'
      x = 14.730272
      y = -16.216767
      z = 0
      irot = 525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 526
      theta1 = 89.754385
      phi1 = -45.5
      theta2 = 96.395421
      phi2 = 44.47247
      theta3 = 6.400175
      phi3 = 46.690193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 283
      chmoth = 'DC5'
      x = 15.957216
      y = -15.011052
      z = 0
      irot = 526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 527
      theta1 = 89.754385
      phi1 = -41
      theta2 = 96.395421
      phi2 = 48.97247
      theta3 = 6.400175
      phi3 = 51.190193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 284
      chmoth = 'DC5'
      x = 17.085779
      y = -13.712789
      z = 0
      irot = 527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 528
      theta1 = 89.754385
      phi1 = -36.5
      theta2 = 96.395421
      phi2 = 53.47247
      theta3 = 6.400175
      phi3 = 55.690193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 285
      chmoth = 'DC5'
      x = 18.109002
      y = -12.329982
      z = 0
      irot = 528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 529
      theta1 = 89.754385
      phi1 = -32
      theta2 = 96.395421
      phi2 = 57.97247
      theta3 = 6.400175
      phi3 = 60.190193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 286
      chmoth = 'DC5'
      x = 19.020577
      y = -10.871157
      z = 0
      irot = 529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 530
      theta1 = 89.754385
      phi1 = -27.5
      theta2 = 96.395421
      phi2 = 62.47247
      theta3 = 6.400175
      phi3 = 64.690193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 287
      chmoth = 'DC5'
      x = 19.814884
      y = -9.3453079
      z = 0
      irot = 530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 531
      theta1 = 89.754385
      phi1 = -23
      theta2 = 96.395421
      phi2 = 66.97247
      theta3 = 6.400175
      phi3 = 69.190193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 288
      chmoth = 'DC5'
      x = 20.487026
      y = -7.7618415
      z = 0
      irot = 531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 532
      theta1 = 89.754385
      phi1 = -18.5
      theta2 = 96.395421
      phi2 = 71.47247
      theta3 = 6.400175
      phi3 = 73.690193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 289
      chmoth = 'DC5'
      x = 21.032858
      y = -6.1305208
      z = 0
      irot = 532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 533
      theta1 = 89.754385
      phi1 = -14
      theta2 = 96.395421
      phi2 = 75.97247
      theta3 = 6.400175
      phi3 = 78.190193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 290
      chmoth = 'DC5'
      x = 21.449016
      y = -4.4614034
      z = 0
      irot = 533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 534
      theta1 = 89.754385
      phi1 = -9.5
      theta2 = 96.395421
      phi2 = 80.47247
      theta3 = 6.400175
      phi3 = 82.690193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 291
      chmoth = 'DC5'
      x = 21.732934
      y = -2.76478
      z = 0
      irot = 534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 535
      theta1 = 89.754385
      phi1 = -5
      theta2 = 96.395421
      phi2 = 84.97247
      theta3 = 6.400175
      phi3 = 87.190193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 292
      chmoth = 'DC5'
      x = 21.882861
      y = -1.0511108
      z = 0
      irot = 535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 201
      natmed = 'STLB CDchamberGas'
      nmat = 41
      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 = 'STLB'
      chshap = 'TUBE'
      nmed = 201
      npar = 3
      par(1) = 0
      par(2) = 0.7874
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.218) stop 'consistency check #1 failed'

      irot = 536
      theta1 = 90
      phi1 = 1.1
      theta2 = 84
      phi2 = 91.1
      theta3 = 6
      phi3 = -88.9
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 1
      chmoth = 'DC5'
      x = 23.850004
      y = 0.45794347
      z = 0
      irot = 536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 202
      natmed = 'STLX CDCStrawMaterial'
      nmat = 43
      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 = 'STLX'
      chshap = 'TUBE'
      nmed = 202
      npar = 3
      par(1) = 0.776
      par(2) = 0.7874
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.219) stop 'consistency check #1 failed'

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

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

      irot = 537
      theta1 = 90
      phi1 = 4.9709677
      theta2 = 84
      phi2 = 94.970968
      theta3 = 6
      phi3 = -85.029032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 2
      chmoth = 'DC5'
      x = 23.764677
      y = 2.0670065
      z = 0
      irot = 537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 538
      theta1 = 90
      phi1 = 8.8419355
      theta2 = 84
      phi2 = 98.841935
      theta3 = 6
      phi3 = -81.158065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 3
      chmoth = 'DC5'
      x = 23.570918
      y = 3.6666382
      z = 0
      irot = 538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 539
      theta1 = 90
      phi1 = 12.712903
      theta2 = 84
      phi2 = 102.7129
      theta3 = 6
      phi3 = -77.287097
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 4
      chmoth = 'DC5'
      x = 23.26961
      y = 5.2495398
      z = 0
      irot = 539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 540
      theta1 = 90
      phi1 = 16.583871
      theta2 = 84
      phi2 = 106.58387
      theta3 = 6
      phi3 = -73.416129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 5
      chmoth = 'DC5'
      x = 22.862128
      y = 6.8084891
      z = 0
      irot = 540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 541
      theta1 = 90
      phi1 = 20.454839
      theta2 = 84
      phi2 = 110.45484
      theta3 = 6
      phi3 = -69.545161
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 6
      chmoth = 'DC5'
      x = 22.350331
      y = 8.3363727
      z = 0
      irot = 541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 542
      theta1 = 90
      phi1 = 24.325806
      theta2 = 84
      phi2 = 114.32581
      theta3 = 6
      phi3 = -65.674194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 7
      chmoth = 'DC5'
      x = 21.736555
      y = 9.8262194
      z = 0
      irot = 542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 543
      theta1 = 90
      phi1 = 28.196774
      theta2 = 84
      phi2 = 118.19677
      theta3 = 6
      phi3 = -61.803226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 8
      chmoth = 'DC5'
      x = 21.0236
      y = 11.271231
      z = 0
      irot = 543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 544
      theta1 = 90
      phi1 = 32.067742
      theta2 = 84
      phi2 = 122.06774
      theta3 = 6
      phi3 = -57.932258
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 9
      chmoth = 'DC5'
      x = 20.214719
      y = 12.664815
      z = 0
      irot = 544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 545
      theta1 = 90
      phi1 = 35.93871
      theta2 = 84
      phi2 = 125.93871
      theta3 = 6
      phi3 = -54.06129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 10
      chmoth = 'DC5'
      x = 19.313603
      y = 14.000612
      z = 0
      irot = 545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 546
      theta1 = 90
      phi1 = 39.809677
      theta2 = 84
      phi2 = 129.80968
      theta3 = 6
      phi3 = -50.190323
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 11
      chmoth = 'DC5'
      x = 18.324363
      y = 15.272528
      z = 0
      irot = 546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 547
      theta1 = 90
      phi1 = 43.680645
      theta2 = 84
      phi2 = 133.68065
      theta3 = 6
      phi3 = -46.319355
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 12
      chmoth = 'DC5'
      x = 17.251514
      y = 16.474759
      z = 0
      irot = 547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 548
      theta1 = 90
      phi1 = 47.551613
      theta2 = 84
      phi2 = 137.55161
      theta3 = 6
      phi3 = -42.448387
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 13
      chmoth = 'DC5'
      x = 16.09995
      y = 17.601819
      z = 0
      irot = 548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 549
      theta1 = 90
      phi1 = 51.422581
      theta2 = 84
      phi2 = 141.42258
      theta3 = 6
      phi3 = -38.577419
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 14
      chmoth = 'DC5'
      x = 14.874925
      y = 18.648566
      z = 0
      irot = 549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 550
      theta1 = 90
      phi1 = 55.293548
      theta2 = 84
      phi2 = 145.29355
      theta3 = 6
      phi3 = -34.706452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 15
      chmoth = 'DC5'
      x = 13.58203
      y = 19.610224
      z = 0
      irot = 550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 551
      theta1 = 90
      phi1 = 59.164516
      theta2 = 84
      phi2 = 149.16452
      theta3 = 6
      phi3 = -30.835484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 16
      chmoth = 'DC5'
      x = 12.227163
      y = 20.482404
      z = 0
      irot = 551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 552
      theta1 = 90
      phi1 = 63.035484
      theta2 = 84
      phi2 = 153.03548
      theta3 = 6
      phi3 = -26.964516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 17
      chmoth = 'DC5'
      x = 10.816506
      y = 21.261129
      z = 0
      irot = 552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 553
      theta1 = 90
      phi1 = 66.906452
      theta2 = 84
      phi2 = 156.90645
      theta3 = 6
      phi3 = -23.093548
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 18
      chmoth = 'DC5'
      x = 9.3564958
      y = 21.942844
      z = 0
      irot = 553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 554
      theta1 = 90
      phi1 = 70.777419
      theta2 = 84
      phi2 = 160.77742
      theta3 = 6
      phi3 = -19.222581
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 19
      chmoth = 'DC5'
      x = 7.8537942
      y = 22.524438
      z = 0
      irot = 554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 555
      theta1 = 90
      phi1 = 74.648387
      theta2 = 84
      phi2 = 164.64839
      theta3 = 6
      phi3 = -15.351613
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 20
      chmoth = 'DC5'
      x = 6.3152575
      y = 23.003259
      z = 0
      irot = 555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 556
      theta1 = 90
      phi1 = 78.519355
      theta2 = 84
      phi2 = 168.51935
      theta3 = 6
      phi3 = -11.480645
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 21
      chmoth = 'DC5'
      x = 4.7479058
      y = 23.377121
      z = 0
      irot = 556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 557
      theta1 = 90
      phi1 = 82.390323
      theta2 = 84
      phi2 = 172.39032
      theta3 = 6
      phi3 = -7.6096774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 22
      chmoth = 'DC5'
      x = 3.1588905
      y = 23.644319
      z = 0
      irot = 557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 558
      theta1 = 90
      phi1 = 86.26129
      theta2 = 84
      phi2 = 176.26129
      theta3 = 6
      phi3 = -3.7387097
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 23
      chmoth = 'DC5'
      x = 1.5554619
      y = 23.803633
      z = 0
      irot = 558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 559
      theta1 = 90
      phi1 = 90.132258
      theta2 = 84
      phi2 = -179.86774
      theta3 = 6
      phi3 = 0.13225806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 24
      chmoth = 'DC5'
      x = -0.055063986
      y = 23.854336
      z = 0
      irot = 559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 560
      theta1 = 90
      phi1 = 94.003226
      theta2 = 84
      phi2 = -175.99677
      theta3 = 6
      phi3 = 4.0032258
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 25
      chmoth = 'DC5'
      x = -1.6653386
      y = 23.796198
      z = 0
      irot = 560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 561
      theta1 = 90
      phi1 = 97.874194
      theta2 = 84
      phi2 = -172.12581
      theta3 = 6
      phi3 = 7.8741935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 26
      chmoth = 'DC5'
      x = -3.2680146
      y = 23.629483
      z = 0
      irot = 561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 562
      theta1 = 90
      phi1 = 101.74516
      theta2 = 84
      phi2 = -168.25484
      theta3 = 6
      phi3 = 11.745161
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 27
      chmoth = 'DC5'
      x = -4.8557794
      y = 23.354952
      z = 0
      irot = 562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 563
      theta1 = 90
      phi1 = 105.61613
      theta2 = 84
      phi2 = -164.38387
      theta3 = 6
      phi3 = 15.616129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 28
      chmoth = 'DC5'
      x = -6.4213885
      y = 22.973858
      z = 0
      irot = 563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 564
      theta1 = 90
      phi1 = 109.4871
      theta2 = 84
      phi2 = -160.5129
      theta3 = 6
      phi3 = 19.487097
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 29
      chmoth = 'DC5'
      x = -7.9576982
      y = 22.48794
      z = 0
      irot = 564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 565
      theta1 = 90
      phi1 = 113.35806
      theta2 = 84
      phi2 = -156.64194
      theta3 = 6
      phi3 = 23.358065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 30
      chmoth = 'DC5'
      x = -9.4576987
      y = 21.899414
      z = 0
      irot = 565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 566
      theta1 = 90
      phi1 = 117.22903
      theta2 = 84
      phi2 = -152.77097
      theta3 = 6
      phi3 = 27.229032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 31
      chmoth = 'DC5'
      x = -10.914546
      y = 21.210966
      z = 0
      irot = 566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 567
      theta1 = 90
      phi1 = 121.1
      theta2 = 84
      phi2 = -148.9
      theta3 = 6
      phi3 = 31.1
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 32
      chmoth = 'DC5'
      x = -12.321593
      y = 20.425738
      z = 0
      irot = 567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 568
      theta1 = 90
      phi1 = 124.97097
      theta2 = 84
      phi2 = -145.02903
      theta3 = 6
      phi3 = 34.970968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 33
      chmoth = 'DC5'
      x = -13.672419
      y = 19.547311
      z = 0
      irot = 568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 569
      theta1 = 90
      phi1 = 128.84194
      theta2 = 84
      phi2 = -141.15806
      theta3 = 6
      phi3 = 38.841935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 34
      chmoth = 'DC5'
      x = -14.960861
      y = 18.579694
      z = 0
      irot = 569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 570
      theta1 = 90
      phi1 = 132.7129
      theta2 = 84
      phi2 = -137.2871
      theta3 = 6
      phi3 = 42.712903
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 35
      chmoth = 'DC5'
      x = -16.18104
      y = 17.527303
      z = 0
      irot = 570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 571
      theta1 = 90
      phi1 = 136.58387
      theta2 = 84
      phi2 = -133.41613
      theta3 = 6
      phi3 = 46.583871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 36
      chmoth = 'DC5'
      x = -17.327388
      y = 16.394939
      z = 0
      irot = 571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 572
      theta1 = 90
      phi1 = 140.45484
      theta2 = 84
      phi2 = -129.54516
      theta3 = 6
      phi3 = 50.454839
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 37
      chmoth = 'DC5'
      x = -18.394676
      y = 15.187768
      z = 0
      irot = 572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 573
      theta1 = 90
      phi1 = 144.32581
      theta2 = 84
      phi2 = -125.67419
      theta3 = 6
      phi3 = 54.325806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 38
      chmoth = 'DC5'
      x = -19.378033
      y = 13.911299
      z = 0
      irot = 573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 574
      theta1 = 90
      phi1 = 148.19677
      theta2 = 84
      phi2 = -121.80323
      theta3 = 6
      phi3 = 58.196774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 39
      chmoth = 'DC5'
      x = -20.272973
      y = 12.571356
      z = 0
      irot = 574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 575
      theta1 = 90
      phi1 = 152.06774
      theta2 = 84
      phi2 = -117.93226
      theta3 = 6
      phi3 = 62.067742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 40
      chmoth = 'DC5'
      x = -21.075411
      y = 11.174052
      z = 0
      irot = 575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 576
      theta1 = 90
      phi1 = 155.93871
      theta2 = 84
      phi2 = -114.06129
      theta3 = 6
      phi3 = 65.93871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 41
      chmoth = 'DC5'
      x = -21.781687
      y = 9.7257644
      z = 0
      irot = 576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 577
      theta1 = 90
      phi1 = 159.80968
      theta2 = 84
      phi2 = -110.19032
      theta3 = 6
      phi3 = 69.809677
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 42
      chmoth = 'DC5'
      x = -22.388579
      y = 8.2331
      z = 0
      irot = 577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 578
      theta1 = 90
      phi1 = 163.68065
      theta2 = 84
      phi2 = -106.31935
      theta3 = 6
      phi3 = 73.680645
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 43
      chmoth = 'DC5'
      x = -22.893316
      y = 6.7028698
      z = 0
      irot = 578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 579
      theta1 = 90
      phi1 = 167.55161
      theta2 = 84
      phi2 = -102.44839
      theta3 = 6
      phi3 = 77.551613
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 44
      chmoth = 'DC5'
      x = -23.293597
      y = 5.142056
      z = 0
      irot = 579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 580
      theta1 = 90
      phi1 = 171.42258
      theta2 = 84
      phi2 = -98.577419
      theta3 = 6
      phi3 = 81.422581
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 45
      chmoth = 'DC5'
      x = -23.587594
      y = 3.5577801
      z = 0
      irot = 580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 581
      theta1 = 90
      phi1 = 175.29355
      theta2 = 84
      phi2 = -94.706452
      theta3 = 6
      phi3 = 85.293548
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 46
      chmoth = 'DC5'
      x = -23.773967
      y = 1.957271
      z = 0
      irot = 581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 582
      theta1 = 90
      phi1 = 179.16452
      theta2 = 84
      phi2 = -90.835484
      theta3 = 6
      phi3 = 89.164516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 47
      chmoth = 'DC5'
      x = -23.851864
      y = 0.34783121
      z = 0
      irot = 582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 583
      theta1 = 90
      phi1 = -176.96452
      theta2 = 84
      phi2 = -86.964516
      theta3 = 6
      phi3 = 93.035484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 48
      chmoth = 'DC5'
      x = -23.820931
      y = -1.2631956
      z = 0
      irot = 583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 584
      theta1 = 90
      phi1 = -173.09355
      theta2 = 84
      phi2 = -83.093548
      theta3 = 6
      phi3 = 96.906452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 49
      chmoth = 'DC5'
      x = -23.681308
      y = -2.8684588
      z = 0
      irot = 584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 585
      theta1 = 90
      phi1 = -169.22258
      theta2 = 84
      phi2 = -79.222581
      theta3 = 6
      phi3 = 100.77742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 50
      chmoth = 'DC5'
      x = -23.433633
      y = -4.4606338
      z = 0
      irot = 585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 586
      theta1 = 90
      phi1 = -165.35161
      theta2 = 84
      phi2 = -75.351613
      theta3 = 6
      phi3 = 104.64839
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 51
      chmoth = 'DC5'
      x = -23.079035
      y = -6.032456
      z = 0
      irot = 586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 587
      theta1 = 90
      phi1 = -161.48065
      theta2 = 84
      phi2 = -71.480645
      theta3 = 6
      phi3 = 108.51935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 52
      chmoth = 'DC5'
      x = -22.619134
      y = -7.5767535
      z = 0
      irot = 587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 588
      theta1 = 90
      phi1 = -157.60968
      theta2 = 84
      phi2 = -67.609677
      theta3 = 6
      phi3 = 112.39032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 53
      chmoth = 'DC5'
      x = -22.056026
      y = -9.08648
      z = 0
      irot = 588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 589
      theta1 = 90
      phi1 = -153.73871
      theta2 = 84
      phi2 = -63.73871
      theta3 = 6
      phi3 = 116.26129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 54
      chmoth = 'DC5'
      x = -21.392282
      y = -10.554747
      z = 0
      irot = 589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 590
      theta1 = 90
      phi1 = -149.86774
      theta2 = 84
      phi2 = -59.867742
      theta3 = 6
      phi3 = 120.13226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 55
      chmoth = 'DC5'
      x = -20.630929
      y = -11.974855
      z = 0
      irot = 590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 591
      theta1 = 90
      phi1 = -145.99677
      theta2 = 84
      phi2 = -55.996774
      theta3 = 6
      phi3 = 124.00323
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 56
      chmoth = 'DC5'
      x = -19.775443
      y = -13.340325
      z = 0
      irot = 591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 592
      theta1 = 90
      phi1 = -142.12581
      theta2 = 84
      phi2 = -52.125806
      theta3 = 6
      phi3 = 127.87419
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 57
      chmoth = 'DC5'
      x = -18.829725
      y = -14.644925
      z = 0
      irot = 592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 593
      theta1 = 90
      phi1 = -138.25484
      theta2 = 84
      phi2 = -48.254839
      theta3 = 6
      phi3 = 131.74516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 58
      chmoth = 'DC5'
      x = -17.798092
      y = -15.882705
      z = 0
      irot = 593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 594
      theta1 = 90
      phi1 = -134.38387
      theta2 = 84
      phi2 = -44.383871
      theta3 = 6
      phi3 = 135.61613
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 59
      chmoth = 'DC5'
      x = -16.685251
      y = -17.048015
      z = 0
      irot = 594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 595
      theta1 = 90
      phi1 = -130.5129
      theta2 = 84
      phi2 = -40.512903
      theta3 = 6
      phi3 = 139.4871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 60
      chmoth = 'DC5'
      x = -15.496278
      y = -18.135539
      z = 0
      irot = 595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 596
      theta1 = 90
      phi1 = -126.64194
      theta2 = 84
      phi2 = -36.641935
      theta3 = 6
      phi3 = 143.35806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 61
      chmoth = 'DC5'
      x = -14.2366
      y = -19.140314
      z = 0
      irot = 596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 597
      theta1 = 90
      phi1 = -122.77097
      theta2 = 84
      phi2 = -32.770968
      theta3 = 6
      phi3 = 147.22903
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 62
      chmoth = 'DC5'
      x = -12.911963
      y = -20.057757
      z = 0
      irot = 597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 598
      theta1 = 90
      phi1 = -118.9
      theta2 = 84
      phi2 = -28.9
      theta3 = 6
      phi3 = 151.1
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 63
      chmoth = 'DC5'
      x = -11.528411
      y = -20.883681
      z = 0
      irot = 598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 599
      theta1 = 90
      phi1 = -115.02903
      theta2 = 84
      phi2 = -25.029032
      theta3 = 6
      phi3 = 154.97097
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 64
      chmoth = 'DC5'
      x = -10.092259
      y = -21.614317
      z = 0
      irot = 599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 600
      theta1 = 90
      phi1 = -111.15806
      theta2 = 84
      phi2 = -21.158065
      theta3 = 6
      phi3 = 158.84194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 65
      chmoth = 'DC5'
      x = -8.6100571
      y = -22.246333
      z = 0
      irot = 600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 601
      theta1 = 90
      phi1 = -107.2871
      theta2 = 84
      phi2 = -17.287097
      theta3 = 6
      phi3 = 162.7129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 66
      chmoth = 'DC5'
      x = -7.0885699
      y = -22.776843
      z = 0
      irot = 601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 602
      theta1 = 90
      phi1 = -103.41613
      theta2 = 84
      phi2 = -13.416129
      theta3 = 6
      phi3 = 166.58387
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 67
      chmoth = 'DC5'
      x = -5.5347393
      y = -23.203428
      z = 0
      irot = 602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 603
      theta1 = 90
      phi1 = -99.545161
      theta2 = 84
      phi2 = -9.5451613
      theta3 = 6
      phi3 = 170.45484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 68
      chmoth = 'DC5'
      x = -3.9556549
      y = -23.524141
      z = 0
      irot = 603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 604
      theta1 = 90
      phi1 = -95.674194
      theta2 = 84
      phi2 = -5.6741935
      theta3 = 6
      phi3 = 174.32581
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 69
      chmoth = 'DC5'
      x = -2.3585217
      y = -23.737518
      z = 0
      irot = 604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 605
      theta1 = 90
      phi1 = -91.803226
      theta2 = 84
      phi2 = -1.8032258
      theta3 = 6
      phi3 = 178.19677
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 70
      chmoth = 'DC5'
      x = -0.75062717
      y = -23.842587
      z = 0
      irot = 605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 606
      theta1 = 90
      phi1 = -87.932258
      theta2 = 84
      phi2 = 2.0677419
      theta3 = 6
      phi3 = -177.93226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 71
      chmoth = 'DC5'
      x = 0.86069231
      y = -23.838868
      z = 0
      irot = 606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 607
      theta1 = 90
      phi1 = -84.06129
      theta2 = 84
      phi2 = 5.9387097
      theta3 = 6
      phi3 = -174.06129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 72
      chmoth = 'DC5'
      x = 2.4680847
      y = -23.726377
      z = 0
      irot = 607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 608
      theta1 = 90
      phi1 = -80.190323
      theta2 = 84
      phi2 = 9.8096774
      theta3 = 6
      phi3 = -170.19032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 73
      chmoth = 'DC5'
      x = 4.0642157
      y = -23.505628
      z = 0
      irot = 608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 609
      theta1 = 90
      phi1 = -76.319355
      theta2 = 84
      phi2 = 13.680645
      theta3 = 6
      phi3 = -166.31935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 74
      chmoth = 'DC5'
      x = 5.6418027
      y = -23.177628
      z = 0
      irot = 609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 610
      theta1 = 90
      phi1 = -72.448387
      theta2 = 84
      phi2 = 17.551613
      theta3 = 6
      phi3 = -162.44839
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 75
      chmoth = 'DC5'
      x = 7.1936474
      y = -22.743875
      z = 0
      irot = 610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 611
      theta1 = 90
      phi1 = -68.577419
      theta2 = 84
      phi2 = 21.422581
      theta3 = 6
      phi3 = -158.57742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 76
      chmoth = 'DC5'
      x = 8.7126691
      y = -22.206346
      z = 0
      irot = 611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 612
      theta1 = 90
      phi1 = -64.706452
      theta2 = 84
      phi2 = 25.293548
      theta3 = 6
      phi3 = -154.70645
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 77
      chmoth = 'DC5'
      x = 10.191937
      y = -21.567495
      z = 0
      irot = 612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 613
      theta1 = 90
      phi1 = -60.835484
      theta2 = 84
      phi2 = 29.164516
      theta3 = 6
      phi3 = -150.83548
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 78
      chmoth = 'DC5'
      x = 11.624701
      y = -20.830236
      z = 0
      irot = 613
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 614
      theta1 = 90
      phi1 = -56.964516
      theta2 = 84
      phi2 = 33.035484
      theta3 = 6
      phi3 = -146.96452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 79
      chmoth = 'DC5'
      x = 13.004425
      y = -19.997933
      z = 0
      irot = 614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 615
      theta1 = 90
      phi1 = -53.093548
      theta2 = 84
      phi2 = 36.906452
      theta3 = 6
      phi3 = -143.09355
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 80
      chmoth = 'DC5'
      x = 14.324812
      y = -19.074385
      z = 0
      irot = 615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 616
      theta1 = 90
      phi1 = -49.222581
      theta2 = 84
      phi2 = 40.777419
      theta3 = 6
      phi3 = -139.22258
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 81
      chmoth = 'DC5'
      x = 15.579839
      y = -18.063804
      z = 0
      irot = 616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 617
      theta1 = 90
      phi1 = -45.351613
      theta2 = 84
      phi2 = 44.648387
      theta3 = 6
      phi3 = -135.35161
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 82
      chmoth = 'DC5'
      x = 16.763778
      y = -16.970803
      z = 0
      irot = 617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 618
      theta1 = 90
      phi1 = -41.480645
      theta2 = 84
      phi2 = 48.519355
      theta3 = 6
      phi3 = -131.48065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 83
      chmoth = 'DC5'
      x = 17.871228
      y = -15.800368
      z = 0
      irot = 618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 619
      theta1 = 90
      phi1 = -37.609677
      theta2 = 84
      phi2 = 52.390323
      theta3 = 6
      phi3 = -127.60968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 84
      chmoth = 'DC5'
      x = 18.897135
      y = -14.557839
      z = 0
      irot = 619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 620
      theta1 = 90
      phi1 = -33.73871
      theta2 = 84
      phi2 = 56.26129
      theta3 = 6
      phi3 = -123.73871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 85
      chmoth = 'DC5'
      x = 19.83682
      y = -13.248886
      z = 0
      irot = 620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 621
      theta1 = 90
      phi1 = -29.867742
      theta2 = 84
      phi2 = 60.132258
      theta3 = 6
      phi3 = -119.86774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 86
      chmoth = 'DC5'
      x = 20.685993
      y = -11.879481
      z = 0
      irot = 621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 622
      theta1 = 90
      phi1 = -25.996774
      theta2 = 84
      phi2 = 64.003226
      theta3 = 6
      phi3 = -115.99677
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 87
      chmoth = 'DC5'
      x = 21.440781
      y = -10.455874
      z = 0
      irot = 622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 623
      theta1 = 90
      phi1 = -22.125806
      theta2 = 84
      phi2 = 67.874194
      theta3 = 6
      phi3 = -112.12581
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 88
      chmoth = 'DC5'
      x = 22.09774
      y = -8.984558
      z = 0
      irot = 623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 624
      theta1 = 90
      phi1 = -18.254839
      theta2 = 84
      phi2 = 71.745161
      theta3 = 6
      phi3 = -108.25484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 89
      chmoth = 'DC5'
      x = 22.653872
      y = -7.4722479
      z = 0
      irot = 624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 625
      theta1 = 90
      phi1 = -14.383871
      theta2 = 84
      phi2 = 75.616129
      theta3 = 6
      phi3 = -104.38387
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 90
      chmoth = 'DC5'
      x = 23.106639
      y = -5.9258437
      z = 0
      irot = 625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 626
      theta1 = 90
      phi1 = -10.512903
      theta2 = 84
      phi2 = 79.487097
      theta3 = 6
      phi3 = -100.5129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 91
      chmoth = 'DC5'
      x = 23.453976
      y = -4.3524012
      z = 0
      irot = 626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 627
      theta1 = 90
      phi1 = -6.6419355
      theta2 = 84
      phi2 = 83.358065
      theta3 = 6
      phi3 = -96.641935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 92
      chmoth = 'DC5'
      x = 23.694298
      y = -2.7590996
      z = 0
      irot = 627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 628
      theta1 = 90
      phi1 = -2.7709677
      theta2 = 84
      phi2 = 87.229032
      theta3 = 6
      phi3 = -92.770968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 93
      chmoth = 'DC5'
      x = 23.826509
      y = -1.153209
      z = 0
      irot = 628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 629
      theta1 = 90.208647
      phi1 = 1.1
      theta2 = 83.658622
      phi2 = 91.076813
      theta3 = 6.3448375
      phi3 = -87.023219
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 94
      chmoth = 'DC5'
      x = 25.207983
      y = 1.3367482
      z = 0
      irot = 629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 630
      theta1 = 90.208647
      phi1 = 4.9709677
      theta2 = 83.658622
      phi2 = 94.94778
      theta3 = 6.3448375
      phi3 = -83.152252
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 95
      chmoth = 'DC5'
      x = 25.060231
      y = 3.0354831
      z = 0
      irot = 630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 631
      theta1 = 90.208647
      phi1 = 8.8419355
      theta2 = 83.658622
      phi2 = 98.818748
      theta3 = 6.3448375
      phi3 = -79.281284
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 96
      chmoth = 'DC5'
      x = 24.798134
      y = 4.7203678
      z = 0
      irot = 631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 632
      theta1 = 90.208647
      phi1 = 12.712903
      theta2 = 83.658622
      phi2 = 102.68972
      theta3 = 6.3448375
      phi3 = -75.410316
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 97
      chmoth = 'DC5'
      x = 24.422889
      y = 6.3837146
      z = 0
      irot = 632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 633
      theta1 = 90.208647
      phi1 = 16.583871
      theta2 = 83.658622
      phi2 = 106.56068
      theta3 = 6.3448375
      phi3 = -71.539348
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 98
      chmoth = 'DC5'
      x = 23.936208
      y = 8.0179339
      z = 0
      irot = 633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 634
      theta1 = 90.208647
      phi1 = 20.454839
      theta2 = 83.658622
      phi2 = 110.43165
      theta3 = 6.3448375
      phi3 = -67.668381
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 99
      chmoth = 'DC5'
      x = 23.340312
      y = 9.6155693
      z = 0
      irot = 634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 635
      theta1 = 90.208647
      phi1 = 24.325806
      theta2 = 83.658622
      phi2 = 114.30262
      theta3 = 6.3448375
      phi3 = -63.797413
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 100
      chmoth = 'DC5'
      x = 22.637919
      y = 11.169331
      z = 0
      irot = 635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 636
      theta1 = 90.208647
      phi1 = 28.196774
      theta2 = 83.658622
      phi2 = 118.17359
      theta3 = 6.3448375
      phi3 = -59.926445
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 101
      chmoth = 'DC5'
      x = 21.832234
      y = 12.67213
      z = 0
      irot = 636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 637
      theta1 = 90.208647
      phi1 = 32.067742
      theta2 = 83.658622
      phi2 = 122.04455
      theta3 = 6.3448375
      phi3 = -56.055477
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 102
      chmoth = 'DC5'
      x = 20.926934
      y = 14.117108
      z = 0
      irot = 637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 638
      theta1 = 90.208647
      phi1 = 35.93871
      theta2 = 83.658622
      phi2 = 125.91552
      theta3 = 6.3448375
      phi3 = -52.18451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 103
      chmoth = 'DC5'
      x = 19.926149
      y = 15.497674
      z = 0
      irot = 638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 639
      theta1 = 90.208647
      phi1 = 39.809677
      theta2 = 83.658622
      phi2 = 129.78649
      theta3 = 6.3448375
      phi3 = -48.313542
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 104
      chmoth = 'DC5'
      x = 18.834446
      y = 16.807527
      z = 0
      irot = 639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 640
      theta1 = 90.208647
      phi1 = 43.680645
      theta2 = 83.658622
      phi2 = 133.65746
      theta3 = 6.3448375
      phi3 = -44.442574
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 105
      chmoth = 'DC5'
      x = 17.656806
      y = 18.040691
      z = 0
      irot = 640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 641
      theta1 = 90.208647
      phi1 = 47.551613
      theta2 = 83.658622
      phi2 = 137.52843
      theta3 = 6.3448375
      phi3 = -40.571606
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 106
      chmoth = 'DC5'
      x = 16.398601
      y = 19.19154
      z = 0
      irot = 641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 642
      theta1 = 90.208647
      phi1 = 51.422581
      theta2 = 83.658622
      phi2 = 141.39939
      theta3 = 6.3448375
      phi3 = -36.700639
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 107
      chmoth = 'DC5'
      x = 15.065574
      y = 20.254822
      z = 0
      irot = 642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 643
      theta1 = 90.208647
      phi1 = 55.293548
      theta2 = 83.658622
      phi2 = 145.27036
      theta3 = 6.3448375
      phi3 = -32.829671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 108
      chmoth = 'DC5'
      x = 13.663805
      y = 21.225686
      z = 0
      irot = 643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 644
      theta1 = 90.208647
      phi1 = 59.164516
      theta2 = 83.658622
      phi2 = 149.14133
      theta3 = 6.3448375
      phi3 = -28.958703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 109
      chmoth = 'DC5'
      x = 12.199692
      y = 22.099702
      z = 0
      irot = 644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 645
      theta1 = 90.208647
      phi1 = 63.035484
      theta2 = 83.658622
      phi2 = 153.0123
      theta3 = 6.3448375
      phi3 = -25.087735
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 110
      chmoth = 'DC5'
      x = 10.679915
      y = 22.872882
      z = 0
      irot = 645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 646
      theta1 = 90.208647
      phi1 = 66.906452
      theta2 = 83.658622
      phi2 = 156.88326
      theta3 = 6.3448375
      phi3 = -21.216768
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 111
      chmoth = 'DC5'
      x = 9.1114074
      y = 23.541699
      z = 0
      irot = 646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 647
      theta1 = 90.208647
      phi1 = 70.777419
      theta2 = 83.658622
      phi2 = 160.75423
      theta3 = 6.3448375
      phi3 = -17.3458
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 112
      chmoth = 'DC5'
      x = 7.5013266
      y = 24.1031
      z = 0
      irot = 647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 648
      theta1 = 90.208647
      phi1 = 74.648387
      theta2 = 83.658622
      phi2 = 164.6252
      theta3 = 6.3448375
      phi3 = -13.474832
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 113
      chmoth = 'DC5'
      x = 5.857019
      y = 24.554524
      z = 0
      irot = 648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 649
      theta1 = 90.208647
      phi1 = 78.519355
      theta2 = 83.658622
      phi2 = 168.49617
      theta3 = 6.3448375
      phi3 = -9.6038645
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 114
      chmoth = 'DC5'
      x = 4.1859872
      y = 24.893912
      z = 0
      irot = 649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 650
      theta1 = 90.208647
      phi1 = 82.390323
      theta2 = 83.658622
      phi2 = 172.36714
      theta3 = 6.3448375
      phi3 = -5.7328968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 115
      chmoth = 'DC5'
      x = 2.4958557
      y = 25.119714
      z = 0
      irot = 650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 651
      theta1 = 90.208647
      phi1 = 86.26129
      theta2 = 83.658622
      phi2 = 176.2381
      theta3 = 6.3448375
      phi3 = -1.861929
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 116
      chmoth = 'DC5'
      x = 0.79433615
      y = 25.230901
      z = 0
      irot = 651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 652
      theta1 = 90.208647
      phi1 = 90.132258
      theta2 = 83.658622
      phi2 = -179.89093
      theta3 = 6.3448375
      phi3 = 2.0090387
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 117
      chmoth = 'DC5'
      x = -0.91080775
      y = 25.226965
      z = 0
      irot = 652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 653
      theta1 = 90.208647
      phi1 = 94.003226
      theta2 = 83.658622
      phi2 = -176.01996
      theta3 = 6.3448375
      phi3 = 5.8800064
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 118
      chmoth = 'DC5'
      x = -2.6117959
      y = 25.107924
      z = 0
      irot = 653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 654
      theta1 = 90.208647
      phi1 = 97.874194
      theta2 = 83.658622
      phi2 = -172.14899
      theta3 = 6.3448375
      phi3 = 9.7509742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 119
      chmoth = 'DC5'
      x = -4.3008669
      y = 24.874321
      z = 0
      irot = 654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 655
      theta1 = 90.208647
      phi1 = 101.74516
      theta2 = 83.658622
      phi2 = -168.27803
      theta3 = 6.3448375
      phi3 = 13.621942
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 120
      chmoth = 'DC5'
      x = -5.9703141
      y = 24.527223
      z = 0
      irot = 655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 656
      theta1 = 90.208647
      phi1 = 105.61613
      theta2 = 83.658622
      phi2 = -164.40706
      theta3 = 6.3448375
      phi3 = 17.49291
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 121
      chmoth = 'DC5'
      x = -7.6125202
      y = 24.068213
      z = 0
      irot = 656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 657
      theta1 = 90.208647
      phi1 = 109.4871
      theta2 = 83.658622
      phi2 = -160.53609
      theta3 = 6.3448375
      phi3 = 21.363877
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 122
      chmoth = 'DC5'
      x = -9.219992
      y = 23.499384
      z = 0
      irot = 657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 658
      theta1 = 90.208647
      phi1 = 113.35806
      theta2 = 83.658622
      phi2 = -156.66512
      theta3 = 6.3448375
      phi3 = 25.234845
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 123
      chmoth = 'DC5'
      x = -10.785395
      y = 22.823334
      z = 0
      irot = 658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 659
      theta1 = 90.208647
      phi1 = 117.22903
      theta2 = 83.658622
      phi2 = -152.79416
      theta3 = 6.3448375
      phi3 = 29.105813
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 124
      chmoth = 'DC5'
      x = -12.301587
      y = 22.043146
      z = 0
      irot = 659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 660
      theta1 = 90.208647
      phi1 = 121.1
      theta2 = 83.658622
      phi2 = -148.92319
      theta3 = 6.3448375
      phi3 = 32.976781
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 125
      chmoth = 'DC5'
      x = -13.76165
      y = 21.16238
      z = 0
      irot = 660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 661
      theta1 = 90.208647
      phi1 = 124.97097
      theta2 = 83.658622
      phi2 = -145.05222
      theta3 = 6.3448375
      phi3 = 36.847748
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 126
      chmoth = 'DC5'
      x = -15.158921
      y = 20.185055
      z = 0
      irot = 661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 662
      theta1 = 90.208647
      phi1 = 128.84194
      theta2 = 83.658622
      phi2 = -141.18125
      theta3 = 6.3448375
      phi3 = 40.718716
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 127
      chmoth = 'DC5'
      x = -16.487025
      y = 19.11563
      z = 0
      irot = 662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 663
      theta1 = 90.208647
      phi1 = 132.7129
      theta2 = 83.658622
      phi2 = -137.31028
      theta3 = 6.3448375
      phi3 = 44.589684
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 128
      chmoth = 'DC5'
      x = -17.739904
      y = 17.958985
      z = 0
      irot = 663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 664
      theta1 = 90.208647
      phi1 = 136.58387
      theta2 = 83.658622
      phi2 = -133.43932
      theta3 = 6.3448375
      phi3 = 48.460652
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 129
      chmoth = 'DC5'
      x = -18.911839
      y = 16.720397
      z = 0
      irot = 664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 665
      theta1 = 90.208647
      phi1 = 140.45484
      theta2 = 83.658622
      phi2 = -129.56835
      theta3 = 6.3448375
      phi3 = 52.331619
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 130
      chmoth = 'DC5'
      x = -19.997483
      y = 15.405518
      z = 0
      irot = 665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 666
      theta1 = 90.208647
      phi1 = 144.32581
      theta2 = 83.658622
      phi2 = -125.69738
      theta3 = 6.3448375
      phi3 = 56.202587
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 131
      chmoth = 'DC5'
      x = -20.991884
      y = 14.020347
      z = 0
      irot = 666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 667
      theta1 = 90.208647
      phi1 = 148.19677
      theta2 = 83.658622
      phi2 = -121.82641
      theta3 = 6.3448375
      phi3 = 60.073555
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 132
      chmoth = 'DC5'
      x = -21.890503
      y = 12.571205
      z = 0
      irot = 667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 668
      theta1 = 90.208647
      phi1 = 152.06774
      theta2 = 83.658622
      phi2 = -117.95545
      theta3 = 6.3448375
      phi3 = 63.944523
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 133
      chmoth = 'DC5'
      x = -22.689241
      y = 11.064703
      z = 0
      irot = 668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 669
      theta1 = 90.208647
      phi1 = 155.93871
      theta2 = 83.658622
      phi2 = -114.08448
      theta3 = 6.3448375
      phi3 = 67.81549
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 134
      chmoth = 'DC5'
      x = -23.384454
      y = 9.5077148
      z = 0
      irot = 669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 670
      theta1 = 90.208647
      phi1 = 159.80968
      theta2 = 83.658622
      phi2 = -110.21351
      theta3 = 6.3448375
      phi3 = 71.686458
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 135
      chmoth = 'DC5'
      x = -23.972968
      y = 7.9073455
      z = 0
      irot = 670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 671
      theta1 = 90.208647
      phi1 = 163.68065
      theta2 = 83.658622
      phi2 = -106.34254
      theta3 = 6.3448375
      phi3 = 75.557426
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 136
      chmoth = 'DC5'
      x = -24.4521
      y = 6.2708967
      z = 0
      irot = 671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 672
      theta1 = 90.208647
      phi1 = 167.55161
      theta2 = 83.658622
      phi2 = -102.47157
      theta3 = 6.3448375
      phi3 = 79.428394
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 137
      chmoth = 'DC5'
      x = -24.819662
      y = 4.6058354
      z = 0
      irot = 672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 673
      theta1 = 90.208647
      phi1 = 171.42258
      theta2 = 83.658622
      phi2 = -98.600607
      theta3 = 6.3448375
      phi3 = 83.299361
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 138
      chmoth = 'DC5'
      x = -25.073977
      y = 2.9197586
      z = 0
      irot = 673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 674
      theta1 = 90.208647
      phi1 = 175.29355
      theta2 = 83.658622
      phi2 = -94.729639
      theta3 = 6.3448375
      phi3 = 87.170329
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 139
      chmoth = 'DC5'
      x = -25.213886
      y = 1.2203596
      z = 0
      irot = 674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 675
      theta1 = 90.208647
      phi1 = 179.16452
      theta2 = 83.658622
      phi2 = -90.858671
      theta3 = 6.3448375
      phi3 = 91.041297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 140
      chmoth = 'DC5'
      x = -25.23875
      y = -0.48460752
      z = 0
      irot = 675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 676
      theta1 = 90.208647
      phi1 = -176.96452
      theta2 = 83.658622
      phi2 = -86.987704
      theta3 = 6.3448375
      phi3 = 94.912265
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 141
      chmoth = 'DC5'
      x = -25.148454
      y = -2.1873635
      z = 0
      irot = 676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 677
      theta1 = 90.208647
      phi1 = -173.09355
      theta2 = 83.658622
      phi2 = -83.116736
      theta3 = 6.3448375
      phi3 = 98.783232
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 142
      chmoth = 'DC5'
      x = -24.943413
      y = -3.8801391
      z = 0
      irot = 677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 678
      theta1 = 90.208647
      phi1 = -169.22258
      theta2 = 83.658622
      phi2 = -79.245768
      theta3 = 6.3448375
      phi3 = 102.6542
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 143
      chmoth = 'DC5'
      x = -24.62456
      y = -5.5552105
      z = 0
      irot = 678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 679
      theta1 = 90.208647
      phi1 = -165.35161
      theta2 = 83.658622
      phi2 = -75.3748
      theta3 = 6.3448375
      phi3 = 106.52517
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 144
      chmoth = 'DC5'
      x = -24.193351
      y = -7.2049347
      z = 0
      irot = 679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 680
      theta1 = 90.208647
      phi1 = -161.48065
      theta2 = 83.658622
      phi2 = -71.503833
      theta3 = 6.3448375
      phi3 = 110.39614
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 145
      chmoth = 'DC5'
      x = -23.651753
      y = -8.8217845
      z = 0
      irot = 680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 681
      theta1 = 90.208647
      phi1 = -157.60968
      theta2 = 83.658622
      phi2 = -67.632865
      theta3 = 6.3448375
      phi3 = 114.2671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 146
      chmoth = 'DC5'
      x = -23.002238
      y = -10.398383
      z = 0
      irot = 681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 682
      theta1 = 90.208647
      phi1 = -153.73871
      theta2 = 83.658622
      phi2 = -63.761897
      theta3 = 6.3448375
      phi3 = 118.13807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 147
      chmoth = 'DC5'
      x = -22.247769
      y = -11.927535
      z = 0
      irot = 682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 683
      theta1 = 90.208647
      phi1 = -149.86774
      theta2 = 83.658622
      phi2 = -59.890929
      theta3 = 6.3448375
      phi3 = 122.00904
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 148
      chmoth = 'DC5'
      x = -21.391788
      y = -13.402265
      z = 0
      irot = 683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 684
      theta1 = 90.208647
      phi1 = -145.99677
      theta2 = 83.658622
      phi2 = -56.019962
      theta3 = 6.3448375
      phi3 = 125.88001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 149
      chmoth = 'DC5'
      x = -20.438202
      y = -14.815844
      z = 0
      irot = 684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 685
      theta1 = 90.208647
      phi1 = -142.12581
      theta2 = 83.658622
      phi2 = -52.148994
      theta3 = 6.3448375
      phi3 = 129.75097
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 150
      chmoth = 'DC5'
      x = -19.391361
      y = -16.161821
      z = 0
      irot = 685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 686
      theta1 = 90.208647
      phi1 = -138.25484
      theta2 = 83.658622
      phi2 = -48.278026
      theta3 = 6.3448375
      phi3 = 133.62194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 151
      chmoth = 'DC5'
      x = -18.256041
      y = -17.434055
      z = 0
      irot = 686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 687
      theta1 = 90.208647
      phi1 = -134.38387
      theta2 = 83.658622
      phi2 = -44.407058
      theta3 = 6.3448375
      phi3 = 137.49291
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 152
      chmoth = 'DC5'
      x = -17.037423
      y = -18.626742
      z = 0
      irot = 687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 688
      theta1 = 90.208647
      phi1 = -130.5129
      theta2 = 83.658622
      phi2 = -40.536091
      theta3 = 6.3448375
      phi3 = 141.36388
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 153
      chmoth = 'DC5'
      x = -15.741068
      y = -19.73444
      z = 0
      irot = 688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 689
      theta1 = 90.208647
      phi1 = -126.64194
      theta2 = 83.658622
      phi2 = -36.665123
      theta3 = 6.3448375
      phi3 = 145.23485
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 154
      chmoth = 'DC5'
      x = -14.372889
      y = -20.752093
      z = 0
      irot = 689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 690
      theta1 = 90.208647
      phi1 = -122.77097
      theta2 = 83.658622
      phi2 = -32.794155
      theta3 = 6.3448375
      phi3 = 149.10581
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 155
      chmoth = 'DC5'
      x = -12.939131
      y = -21.67506
      z = 0
      irot = 690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 691
      theta1 = 90.208647
      phi1 = -118.9
      theta2 = 83.658622
      phi2 = -28.923187
      theta3 = 6.3448375
      phi3 = 152.97678
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 156
      chmoth = 'DC5'
      x = -11.446334
      y = -22.499128
      z = 0
      irot = 691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 692
      theta1 = 90.208647
      phi1 = -115.02903
      theta2 = 83.658622
      phi2 = -25.05222
      theta3 = 6.3448375
      phi3 = 156.84775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 157
      chmoth = 'DC5'
      x = -9.9013099
      y = -23.220538
      z = 0
      irot = 692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 693
      theta1 = 90.208647
      phi1 = -111.15806
      theta2 = 83.658622
      phi2 = -21.181252
      theta3 = 6.3448375
      phi3 = 160.71872
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 158
      chmoth = 'DC5'
      x = -8.3111085
      y = -23.835998
      z = 0
      irot = 693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 694
      theta1 = 90.208647
      phi1 = -107.2871
      theta2 = 83.658622
      phi2 = -17.310284
      theta3 = 6.3448375
      phi3 = 164.58968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 159
      chmoth = 'DC5'
      x = -6.6829855
      y = -24.3427
      z = 0
      irot = 694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 695
      theta1 = 90.208647
      phi1 = -103.41613
      theta2 = 83.658622
      phi2 = -13.439317
      theta3 = 6.3448375
      phi3 = 168.46065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 160
      chmoth = 'DC5'
      x = -5.0243696
      y = -24.738331
      z = 0
      irot = 695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 696
      theta1 = 90.208647
      phi1 = -99.545161
      theta2 = 83.658622
      phi2 = -9.5683488
      theta3 = 6.3448375
      phi3 = 172.33162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 161
      chmoth = 'DC5'
      x = -3.3428286
      y = -25.021087
      z = 0
      irot = 696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 697
      theta1 = 90.208647
      phi1 = -95.674194
      theta2 = 83.658622
      phi2 = -5.697381
      theta3 = 6.3448375
      phi3 = 176.20259
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 162
      chmoth = 'DC5'
      x = -1.646035
      y = -25.189678
      z = 0
      irot = 697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 698
      theta1 = 90.208647
      phi1 = -91.803226
      theta2 = 83.658622
      phi2 = -1.8264133
      theta3 = 6.3448375
      phi3 = -179.92645
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 163
      chmoth = 'DC5'
      x = 0.058269042
      y = -25.243334
      z = 0
      irot = 698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 699
      theta1 = 90.208647
      phi1 = -87.932258
      theta2 = 83.658622
      phi2 = 2.0445545
      theta3 = 6.3448375
      phi3 = -176.05548
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 164
      chmoth = 'DC5'
      x = 1.7623072
      y = -25.181811
      z = 0
      irot = 699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 700
      theta1 = 90.208647
      phi1 = -84.06129
      theta2 = 83.658622
      phi2 = 5.9155222
      theta3 = 6.3448375
      phi3 = -172.18451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 165
      chmoth = 'DC5'
      x = 3.4583044
      y = -25.005388
      z = 0
      irot = 700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 701
      theta1 = 90.208647
      phi1 = -80.190323
      theta2 = 83.658622
      phi2 = 9.7864899
      theta3 = 6.3448375
      phi3 = -168.31354
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 166
      chmoth = 'DC5'
      x = 5.1385221
      y = -24.714872
      z = 0
      irot = 701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 702
      theta1 = 90.208647
      phi1 = -76.319355
      theta2 = 83.658622
      phi2 = 13.657458
      theta3 = 6.3448375
      phi3 = -164.44257
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 167
      chmoth = 'DC5'
      x = 6.7952939
      y = -24.311588
      z = 0
      irot = 702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 703
      theta1 = 90.208647
      phi1 = -72.448387
      theta2 = 83.658622
      phi2 = 17.528425
      theta3 = 6.3448375
      phi3 = -160.57161
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 168
      chmoth = 'DC5'
      x = 8.4210604
      y = -23.797375
      z = 0
      irot = 703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 704
      theta1 = 90.208647
      phi1 = -68.577419
      theta2 = 83.658622
      phi2 = 21.399393
      theta3 = 6.3448375
      phi3 = -156.70064
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 169
      chmoth = 'DC5'
      x = 10.008403
      y = -23.174581
      z = 0
      irot = 704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 705
      theta1 = 90.208647
      phi1 = -64.706452
      theta2 = 83.658622
      phi2 = 25.270361
      theta3 = 6.3448375
      phi3 = -152.82967
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 170
      chmoth = 'DC5'
      x = 11.550081
      y = -22.446046
      z = 0
      irot = 705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 706
      theta1 = 90.208647
      phi1 = -60.835484
      theta2 = 83.658622
      phi2 = 29.141329
      theta3 = 6.3448375
      phi3 = -148.9587
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 171
      chmoth = 'DC5'
      x = 13.039057
      y = -21.615094
      z = 0
      irot = 706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 707
      theta1 = 90.208647
      phi1 = -56.964516
      theta2 = 83.658622
      phi2 = 33.012296
      theta3 = 6.3448375
      phi3 = -145.08774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 172
      chmoth = 'DC5'
      x = 14.46854
      y = -20.685519
      z = 0
      irot = 707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 708
      theta1 = 90.208647
      phi1 = -53.093548
      theta2 = 83.658622
      phi2 = 36.883264
      theta3 = 6.3448375
      phi3 = -141.21677
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 173
      chmoth = 'DC5'
      x = 15.832005
      y = -19.66156
      z = 0
      irot = 708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 709
      theta1 = 90.208647
      phi1 = -49.222581
      theta2 = 83.658622
      phi2 = 40.754232
      theta3 = 6.3448375
      phi3 = -137.3458
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 174
      chmoth = 'DC5'
      x = 17.123233
      y = -18.547889
      z = 0
      irot = 709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 710
      theta1 = 90.208647
      phi1 = -45.351613
      theta2 = 83.658622
      phi2 = 44.6252
      theta3 = 6.3448375
      phi3 = -133.47483
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 175
      chmoth = 'DC5'
      x = 18.336332
      y = -17.349589
      z = 0
      irot = 710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 711
      theta1 = 90.208647
      phi1 = -41.480645
      theta2 = 83.658622
      phi2 = 48.496167
      theta3 = 6.3448375
      phi3 = -129.60386
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 176
      chmoth = 'DC5'
      x = 19.465766
      y = -16.072127
      z = 0
      irot = 711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 712
      theta1 = 90.208647
      phi1 = -37.609677
      theta2 = 83.658622
      phi2 = 52.367135
      theta3 = 6.3448375
      phi3 = -125.7329
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 177
      chmoth = 'DC5'
      x = 20.506383
      y = -14.721331
      z = 0
      irot = 712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 713
      theta1 = 90.208647
      phi1 = -33.73871
      theta2 = 83.658622
      phi2 = 56.238103
      theta3 = 6.3448375
      phi3 = -121.86193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 178
      chmoth = 'DC5'
      x = 21.453433
      y = -13.303366
      z = 0
      irot = 713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 714
      theta1 = 90.208647
      phi1 = -29.867742
      theta2 = 83.658622
      phi2 = 60.109071
      theta3 = 6.3448375
      phi3 = -117.99096
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 179
      chmoth = 'DC5'
      x = 22.302596
      y = -11.8247
      z = 0
      irot = 714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 715
      theta1 = 90.208647
      phi1 = -25.996774
      theta2 = 83.658622
      phi2 = 63.980038
      theta3 = 6.3448375
      phi3 = -114.11999
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 180
      chmoth = 'DC5'
      x = 23.049998
      y = -10.29208
      z = 0
      irot = 715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 716
      theta1 = 90.208647
      phi1 = -22.125806
      theta2 = 83.658622
      phi2 = 67.851006
      theta3 = 6.3448375
      phi3 = -110.24903
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 181
      chmoth = 'DC5'
      x = 23.692228
      y = -8.7125007
      z = 0
      irot = 716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 717
      theta1 = 90.208647
      phi1 = -18.254839
      theta2 = 83.658622
      phi2 = 71.721974
      theta3 = 6.3448375
      phi3 = -106.37806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 182
      chmoth = 'DC5'
      x = 24.226355
      y = -7.0931678
      z = 0
      irot = 717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 718
      theta1 = 90.208647
      phi1 = -14.383871
      theta2 = 83.658622
      phi2 = 75.592942
      theta3 = 6.3448375
      phi3 = -102.50709
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 183
      chmoth = 'DC5'
      x = 24.649944
      y = -5.4414705
      z = 0
      irot = 718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 719
      theta1 = 90.208647
      phi1 = -10.512903
      theta2 = 83.658622
      phi2 = 79.463909
      theta3 = 6.3448375
      phi3 = -98.636123
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 184
      chmoth = 'DC5'
      x = 24.96106
      y = -3.7649449
      z = 0
      irot = 719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 720
      theta1 = 90.208647
      phi1 = -6.6419355
      theta2 = 83.658622
      phi2 = 83.334877
      theta3 = 6.3448375
      phi3 = -94.765155
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 185
      chmoth = 'DC5'
      x = 25.158285
      y = -2.0712408
      z = 0
      irot = 720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 721
      theta1 = 90.208647
      phi1 = -2.7709677
      theta2 = 83.658622
      phi2 = 87.205845
      theta3 = 6.3448375
      phi3 = -90.894187
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 186
      chmoth = 'DC5'
      x = 25.240718
      y = -0.36808606
      z = 0
      irot = 721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 722
      theta1 = 90
      phi1 = -1.4
      theta2 = 84
      phi2 = 88.6
      theta3 = 6
      phi3 = -91.4
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 187
      chmoth = 'DC5'
      x = 27.179584
      y = -0.66425473
      z = 0
      irot = 722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 723
      theta1 = 90
      phi1 = 1.9962264
      theta2 = 84
      phi2 = 91.996226
      theta3 = 6
      phi3 = -88.003774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 188
      chmoth = 'DC5'
      x = 27.1712
      y = 0.94704751
      z = 0
      irot = 723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 724
      theta1 = 90
      phi1 = 5.3924528
      theta2 = 84
      phi2 = 95.392453
      theta3 = 6
      phi3 = -84.607547
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 189
      chmoth = 'DC5'
      x = 27.067377
      y = 2.5550232
      z = 0
      irot = 724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 725
      theta1 = 90
      phi1 = 8.7886792
      theta2 = 84
      phi2 = 98.788679
      theta3 = 6
      phi3 = -81.211321
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 190
      chmoth = 'DC5'
      x = 26.868478
      y = 4.1540243
      z = 0
      irot = 725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 726
      theta1 = 90
      phi1 = 12.184906
      theta2 = 84
      phi2 = 102.18491
      theta3 = 6
      phi3 = -77.815094
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 191
      chmoth = 'DC5'
      x = 26.575203
      y = 5.7384342
      z = 0
      irot = 726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 727
      theta1 = 90
      phi1 = 15.581132
      theta2 = 84
      phi2 = 105.58113
      theta3 = 6
      phi3 = -74.418868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 192
      chmoth = 'DC5'
      x = 26.188581
      y = 7.3026877
      z = 0
      irot = 727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 728
      theta1 = 90
      phi1 = 18.977358
      theta2 = 84
      phi2 = 108.97736
      theta3 = 6
      phi3 = -71.022642
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 193
      chmoth = 'DC5'
      x = 25.709971
      y = 8.8412902
      z = 0
      irot = 728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 729
      theta1 = 90
      phi1 = 22.373585
      theta2 = 84
      phi2 = 112.37358
      theta3 = 6
      phi3 = -67.626415
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 194
      chmoth = 'DC5'
      x = 25.141054
      y = 10.348837
      z = 0
      irot = 729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 730
      theta1 = 90
      phi1 = 25.769811
      theta2 = 84
      phi2 = 115.76981
      theta3 = 6
      phi3 = -64.230189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 195
      chmoth = 'DC5'
      x = 24.483828
      y = 11.820034
      z = 0
      irot = 730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 731
      theta1 = 90
      phi1 = 29.166038
      theta2 = 84
      phi2 = 119.16604
      theta3 = 6
      phi3 = -60.833962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 196
      chmoth = 'DC5'
      x = 23.740602
      y = 13.249712
      z = 0
      irot = 731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 732
      theta1 = 90
      phi1 = 32.562264
      theta2 = 84
      phi2 = 122.56226
      theta3 = 6
      phi3 = -57.437736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 197
      chmoth = 'DC5'
      x = 22.913985
      y = 14.63285
      z = 0
      irot = 732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 733
      theta1 = 90
      phi1 = 35.958491
      theta2 = 84
      phi2 = 125.95849
      theta3 = 6
      phi3 = -54.041509
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 198
      chmoth = 'DC5'
      x = 22.006883
      y = 15.96459
      z = 0
      irot = 733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 734
      theta1 = 90
      phi1 = 39.354717
      theta2 = 84
      phi2 = 129.35472
      theta3 = 6
      phi3 = -50.645283
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 199
      chmoth = 'DC5'
      x = 21.022481
      y = 17.240253
      z = 0
      irot = 734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 735
      theta1 = 90
      phi1 = 42.750943
      theta2 = 84
      phi2 = 132.75094
      theta3 = 6
      phi3 = -47.249057
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 200
      chmoth = 'DC5'
      x = 19.964236
      y = 18.45536
      z = 0
      irot = 735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 736
      theta1 = 90
      phi1 = 46.14717
      theta2 = 84
      phi2 = 136.14717
      theta3 = 6
      phi3 = -43.85283
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 201
      chmoth = 'DC5'
      x = 18.835867
      y = 19.605641
      z = 0
      irot = 736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 737
      theta1 = 90
      phi1 = 49.543396
      theta2 = 84
      phi2 = 139.5434
      theta3 = 6
      phi3 = -40.456604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 202
      chmoth = 'DC5'
      x = 17.641335
      y = 20.687057
      z = 0
      irot = 737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 738
      theta1 = 90
      phi1 = 52.939623
      theta2 = 84
      phi2 = 142.93962
      theta3 = 6
      phi3 = -37.060377
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 203
      chmoth = 'DC5'
      x = 16.384838
      y = 21.695809
      z = 0
      irot = 738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 739
      theta1 = 90
      phi1 = 56.335849
      theta2 = 84
      phi2 = 146.33585
      theta3 = 6
      phi3 = -33.664151
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 204
      chmoth = 'DC5'
      x = 15.070789
      y = 22.628353
      z = 0
      irot = 739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 740
      theta1 = 90
      phi1 = 59.732075
      theta2 = 84
      phi2 = 149.73208
      theta3 = 6
      phi3 = -30.267925
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 205
      chmoth = 'DC5'
      x = 13.703802
      y = 23.481415
      z = 0
      irot = 740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 741
      theta1 = 90
      phi1 = 63.128302
      theta2 = 84
      phi2 = 153.1283
      theta3 = 6
      phi3 = -26.871698
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 206
      chmoth = 'DC5'
      x = 12.288681
      y = 24.251997
      z = 0
      irot = 741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 742
      theta1 = 90
      phi1 = 66.524528
      theta2 = 84
      phi2 = 156.52453
      theta3 = 6
      phi3 = -23.475472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 207
      chmoth = 'DC5'
      x = 10.830395
      y = 24.937393
      z = 0
      irot = 742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 743
      theta1 = 90
      phi1 = 69.920755
      theta2 = 84
      phi2 = 159.92075
      theta3 = 6
      phi3 = -20.079245
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 208
      chmoth = 'DC5'
      x = 9.3340675
      y = 25.535196
      z = 0
      irot = 743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 744
      theta1 = 90
      phi1 = 73.316981
      theta2 = 84
      phi2 = 163.31698
      theta3 = 6
      phi3 = -16.683019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 209
      chmoth = 'DC5'
      x = 7.8049533
      y = 26.043305
      z = 0
      irot = 744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 745
      theta1 = 90
      phi1 = 76.713208
      theta2 = 84
      phi2 = 166.71321
      theta3 = 6
      phi3 = -13.286792
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 210
      chmoth = 'DC5'
      x = 6.248424
      y = 26.459936
      z = 0
      irot = 745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 746
      theta1 = 90
      phi1 = 80.109434
      theta2 = 84
      phi2 = 170.10943
      theta3 = 6
      phi3 = -9.890566
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 211
      chmoth = 'DC5'
      x = 4.6699468
      y = 26.783626
      z = 0
      irot = 746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 747
      theta1 = 90
      phi1 = 83.50566
      theta2 = 84
      phi2 = 173.50566
      theta3 = 6
      phi3 = -6.4943396
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 212
      chmoth = 'DC5'
      x = 3.0750663
      y = 27.013237
      z = 0
      irot = 747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 748
      theta1 = 90
      phi1 = 86.901887
      theta2 = 84
      phi2 = 176.90189
      theta3 = 6
      phi3 = -3.0981132
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 213
      chmoth = 'DC5'
      x = 1.4693845
      y = 27.147964
      z = 0
      irot = 748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 749
      theta1 = 90
      phi1 = 90.298113
      theta2 = 84
      phi2 = -179.70189
      theta3 = 6
      phi3 = 0.29811321
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 214
      chmoth = 'DC5'
      x = -0.14145851
      y = 27.187332
      z = 0
      irot = 749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 750
      theta1 = 90
      phi1 = 93.69434
      theta2 = 84
      phi2 = -176.30566
      theta3 = 6
      phi3 = 3.6943396
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 215
      chmoth = 'DC5'
      x = -1.7518047
      y = 27.131204
      z = 0
      irot = 750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 751
      theta1 = 90
      phi1 = 97.090566
      theta2 = 84
      phi2 = -172.90943
      theta3 = 6
      phi3 = 7.090566
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 216
      chmoth = 'DC5'
      x = -3.3559976
      y = 26.979776
      z = 0
      irot = 751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 752
      theta1 = 90
      phi1 = 100.48679
      theta2 = 84
      phi2 = -169.51321
      theta3 = 6
      phi3 = 10.486792
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 217
      chmoth = 'DC5'
      x = -4.9484024
      y = 26.733581
      z = 0
      irot = 752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 753
      theta1 = 90
      phi1 = 103.88302
      theta2 = 84
      phi2 = -166.11698
      theta3 = 6
      phi3 = 13.883019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 218
      chmoth = 'DC5'
      x = -6.5234258
      y = 26.393483
      z = 0
      irot = 753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 754
      theta1 = 90
      phi1 = 107.27925
      theta2 = 84
      phi2 = -162.72075
      theta3 = 6
      phi3 = 17.279245
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 219
      chmoth = 'DC5'
      x = -8.0755354
      y = 25.960677
      z = 0
      irot = 754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 755
      theta1 = 90
      phi1 = 110.67547
      theta2 = 84
      phi2 = -159.32453
      theta3 = 6
      phi3 = 20.675472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 220
      chmoth = 'DC5'
      x = -9.5992795
      y = 25.436683
      z = 0
      irot = 755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 756
      theta1 = 90
      phi1 = 114.0717
      theta2 = 84
      phi2 = -155.9283
      theta3 = 6
      phi3 = 24.071698
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 221
      chmoth = 'DC5'
      x = -11.089306
      y = 24.823342
      z = 0
      irot = 756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 757
      theta1 = 90
      phi1 = 117.46792
      theta2 = 84
      phi2 = -152.53208
      theta3 = 6
      phi3 = 27.467925
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 222
      chmoth = 'DC5'
      x = -12.54038
      y = 24.122809
      z = 0
      irot = 757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 758
      theta1 = 90
      phi1 = 120.86415
      theta2 = 84
      phi2 = -149.13585
      theta3 = 6
      phi3 = 30.864151
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 223
      chmoth = 'DC5'
      x = -13.947406
      y = 23.337542
      z = 0
      irot = 758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 759
      theta1 = 90
      phi1 = 124.26038
      theta2 = 84
      phi2 = -145.73962
      theta3 = 6
      phi3 = 34.260377
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 224
      chmoth = 'DC5'
      x = -15.305442
      y = 22.470302
      z = 0
      irot = 759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 760
      theta1 = 90
      phi1 = 127.6566
      theta2 = 84
      phi2 = -142.3434
      theta3 = 6
      phi3 = 37.656604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 225
      chmoth = 'DC5'
      x = -16.609716
      y = 21.524135
      z = 0
      irot = 760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 761
      theta1 = 90
      phi1 = 131.05283
      theta2 = 84
      phi2 = -138.94717
      theta3 = 6
      phi3 = 41.05283
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 226
      chmoth = 'DC5'
      x = -17.855648
      y = 20.502362
      z = 0
      irot = 761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 762
      theta1 = 90
      phi1 = 134.44906
      theta2 = 84
      phi2 = -135.55094
      theta3 = 6
      phi3 = 44.449057
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 227
      chmoth = 'DC5'
      x = -19.038862
      y = 19.408575
      z = 0
      irot = 762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 763
      theta1 = 90
      phi1 = 137.84528
      theta2 = 84
      phi2 = -132.15472
      theta3 = 6
      phi3 = 47.845283
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 228
      chmoth = 'DC5'
      x = -20.1552
      y = 18.246614
      z = 0
      irot = 763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 764
      theta1 = 90
      phi1 = 141.24151
      theta2 = 84
      phi2 = -128.75849
      theta3 = 6
      phi3 = 51.241509
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 229
      chmoth = 'DC5'
      x = -21.200743
      y = 17.020561
      z = 0
      irot = 764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 765
      theta1 = 90
      phi1 = 144.63774
      theta2 = 84
      phi2 = -125.36226
      theta3 = 6
      phi3 = 54.637736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 230
      chmoth = 'DC5'
      x = -22.171818
      y = 15.734723
      z = 0
      irot = 765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 766
      theta1 = 90
      phi1 = 148.03396
      theta2 = 84
      phi2 = -121.96604
      theta3 = 6
      phi3 = 58.033962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 231
      chmoth = 'DC5'
      x = -23.065013
      y = 14.393617
      z = 0
      irot = 766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 767
      theta1 = 90
      phi1 = 151.43019
      theta2 = 84
      phi2 = -118.56981
      theta3 = 6
      phi3 = 61.430189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 232
      chmoth = 'DC5'
      x = -23.877192
      y = 13.001952
      z = 0
      irot = 767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 768
      theta1 = 90
      phi1 = 154.82642
      theta2 = 84
      phi2 = -115.17358
      theta3 = 6
      phi3 = 64.826415
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 233
      chmoth = 'DC5'
      x = -24.605501
      y = 11.564617
      z = 0
      irot = 768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 769
      theta1 = 90
      phi1 = 158.22264
      theta2 = 84
      phi2 = -111.77736
      theta3 = 6
      phi3 = 68.222642
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 234
      chmoth = 'DC5'
      x = -25.247382
      y = 10.086661
      z = 0
      irot = 769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 770
      theta1 = 90
      phi1 = 161.61887
      theta2 = 84
      phi2 = -108.38113
      theta3 = 6
      phi3 = 71.618868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 235
      chmoth = 'DC5'
      x = -25.800581
      y = 8.5732755
      z = 0
      irot = 770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 771
      theta1 = 90
      phi1 = 165.01509
      theta2 = 84
      phi2 = -104.98491
      theta3 = 6
      phi3 = 75.015094
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 236
      chmoth = 'DC5'
      x = -26.263154
      y = 7.0297759
      z = 0
      irot = 771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 772
      theta1 = 90
      phi1 = 168.41132
      theta2 = 84
      phi2 = -101.58868
      theta3 = 6
      phi3 = 78.411321
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 237
      chmoth = 'DC5'
      x = -26.633478
      y = 5.4615839
      z = 0
      irot = 772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 773
      theta1 = 90
      phi1 = 171.80755
      theta2 = 84
      phi2 = -98.192453
      theta3 = 6
      phi3 = 81.807547
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 238
      chmoth = 'DC5'
      x = -26.91025
      y = 3.874208
      z = 0
      irot = 773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 774
      theta1 = 90
      phi1 = 175.20377
      theta2 = 84
      phi2 = -94.796226
      theta3 = 6
      phi3 = 85.203774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 239
      chmoth = 'DC5'
      x = -27.092499
      y = 2.2732238
      z = 0
      irot = 774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 775
      theta1 = 90
      phi1 = 178.6
      theta2 = 84
      phi2 = -91.4
      theta3 = 6
      phi3 = 88.6
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 240
      chmoth = 'DC5'
      x = -27.179584
      y = 0.66425473
      z = 0
      irot = 775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 776
      theta1 = 90
      phi1 = -178.00377
      theta2 = 84
      phi2 = -88.003774
      theta3 = 6
      phi3 = 91.996226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 241
      chmoth = 'DC5'
      x = -27.1712
      y = -0.94704751
      z = 0
      irot = 776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 777
      theta1 = 90
      phi1 = -174.60755
      theta2 = 84
      phi2 = -84.607547
      theta3 = 6
      phi3 = 95.392453
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 242
      chmoth = 'DC5'
      x = -27.067377
      y = -2.5550232
      z = 0
      irot = 777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 778
      theta1 = 90
      phi1 = -171.21132
      theta2 = 84
      phi2 = -81.211321
      theta3 = 6
      phi3 = 98.788679
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 243
      chmoth = 'DC5'
      x = -26.868478
      y = -4.1540243
      z = 0
      irot = 778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 779
      theta1 = 90
      phi1 = -167.81509
      theta2 = 84
      phi2 = -77.815094
      theta3 = 6
      phi3 = 102.18491
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 244
      chmoth = 'DC5'
      x = -26.575203
      y = -5.7384342
      z = 0
      irot = 779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 780
      theta1 = 90
      phi1 = -164.41887
      theta2 = 84
      phi2 = -74.418868
      theta3 = 6
      phi3 = 105.58113
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 245
      chmoth = 'DC5'
      x = -26.188581
      y = -7.3026877
      z = 0
      irot = 780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 781
      theta1 = 90
      phi1 = -161.02264
      theta2 = 84
      phi2 = -71.022642
      theta3 = 6
      phi3 = 108.97736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 246
      chmoth = 'DC5'
      x = -25.709971
      y = -8.8412902
      z = 0
      irot = 781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 782
      theta1 = 90
      phi1 = -157.62642
      theta2 = 84
      phi2 = -67.626415
      theta3 = 6
      phi3 = 112.37358
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 247
      chmoth = 'DC5'
      x = -25.141054
      y = -10.348837
      z = 0
      irot = 782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 783
      theta1 = 90
      phi1 = -154.23019
      theta2 = 84
      phi2 = -64.230189
      theta3 = 6
      phi3 = 115.76981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 248
      chmoth = 'DC5'
      x = -24.483828
      y = -11.820034
      z = 0
      irot = 783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 784
      theta1 = 90
      phi1 = -150.83396
      theta2 = 84
      phi2 = -60.833962
      theta3 = 6
      phi3 = 119.16604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 249
      chmoth = 'DC5'
      x = -23.740602
      y = -13.249712
      z = 0
      irot = 784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 785
      theta1 = 90
      phi1 = -147.43774
      theta2 = 84
      phi2 = -57.437736
      theta3 = 6
      phi3 = 122.56226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 250
      chmoth = 'DC5'
      x = -22.913985
      y = -14.63285
      z = 0
      irot = 785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 786
      theta1 = 90
      phi1 = -144.04151
      theta2 = 84
      phi2 = -54.041509
      theta3 = 6
      phi3 = 125.95849
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 251
      chmoth = 'DC5'
      x = -22.006883
      y = -15.96459
      z = 0
      irot = 786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 787
      theta1 = 90
      phi1 = -140.64528
      theta2 = 84
      phi2 = -50.645283
      theta3 = 6
      phi3 = 129.35472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 252
      chmoth = 'DC5'
      x = -21.022481
      y = -17.240253
      z = 0
      irot = 787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 788
      theta1 = 90
      phi1 = -137.24906
      theta2 = 84
      phi2 = -47.249057
      theta3 = 6
      phi3 = 132.75094
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 253
      chmoth = 'DC5'
      x = -19.964236
      y = -18.45536
      z = 0
      irot = 788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 789
      theta1 = 90
      phi1 = -133.85283
      theta2 = 84
      phi2 = -43.85283
      theta3 = 6
      phi3 = 136.14717
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 254
      chmoth = 'DC5'
      x = -18.835867
      y = -19.605641
      z = 0
      irot = 789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 790
      theta1 = 90
      phi1 = -130.4566
      theta2 = 84
      phi2 = -40.456604
      theta3 = 6
      phi3 = 139.5434
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 255
      chmoth = 'DC5'
      x = -17.641335
      y = -20.687057
      z = 0
      irot = 790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 791
      theta1 = 90
      phi1 = -127.06038
      theta2 = 84
      phi2 = -37.060377
      theta3 = 6
      phi3 = 142.93962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 256
      chmoth = 'DC5'
      x = -16.384838
      y = -21.695809
      z = 0
      irot = 791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 792
      theta1 = 90
      phi1 = -123.66415
      theta2 = 84
      phi2 = -33.664151
      theta3 = 6
      phi3 = 146.33585
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 257
      chmoth = 'DC5'
      x = -15.070789
      y = -22.628353
      z = 0
      irot = 792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 793
      theta1 = 90
      phi1 = -120.26792
      theta2 = 84
      phi2 = -30.267925
      theta3 = 6
      phi3 = 149.73208
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 258
      chmoth = 'DC5'
      x = -13.703802
      y = -23.481415
      z = 0
      irot = 793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 794
      theta1 = 90
      phi1 = -116.8717
      theta2 = 84
      phi2 = -26.871698
      theta3 = 6
      phi3 = 153.1283
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 259
      chmoth = 'DC5'
      x = -12.288681
      y = -24.251997
      z = 0
      irot = 794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 795
      theta1 = 90
      phi1 = -113.47547
      theta2 = 84
      phi2 = -23.475472
      theta3 = 6
      phi3 = 156.52453
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 260
      chmoth = 'DC5'
      x = -10.830395
      y = -24.937393
      z = 0
      irot = 795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 796
      theta1 = 90
      phi1 = -110.07925
      theta2 = 84
      phi2 = -20.079245
      theta3 = 6
      phi3 = 159.92075
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 261
      chmoth = 'DC5'
      x = -9.3340675
      y = -25.535196
      z = 0
      irot = 796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 797
      theta1 = 90
      phi1 = -106.68302
      theta2 = 84
      phi2 = -16.683019
      theta3 = 6
      phi3 = 163.31698
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 262
      chmoth = 'DC5'
      x = -7.8049533
      y = -26.043305
      z = 0
      irot = 797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 798
      theta1 = 90
      phi1 = -103.28679
      theta2 = 84
      phi2 = -13.286792
      theta3 = 6
      phi3 = 166.71321
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 263
      chmoth = 'DC5'
      x = -6.248424
      y = -26.459936
      z = 0
      irot = 798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 799
      theta1 = 90
      phi1 = -99.890566
      theta2 = 84
      phi2 = -9.890566
      theta3 = 6
      phi3 = 170.10943
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 264
      chmoth = 'DC5'
      x = -4.6699468
      y = -26.783626
      z = 0
      irot = 799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 800
      theta1 = 90
      phi1 = -96.49434
      theta2 = 84
      phi2 = -6.4943396
      theta3 = 6
      phi3 = 173.50566
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 265
      chmoth = 'DC5'
      x = -3.0750663
      y = -27.013237
      z = 0
      irot = 800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 801
      theta1 = 90
      phi1 = -93.098113
      theta2 = 84
      phi2 = -3.0981132
      theta3 = 6
      phi3 = 176.90189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 266
      chmoth = 'DC5'
      x = -1.4693845
      y = -27.147964
      z = 0
      irot = 801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 802
      theta1 = 90
      phi1 = -89.701887
      theta2 = 84
      phi2 = 0.29811321
      theta3 = 6
      phi3 = -179.70189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 267
      chmoth = 'DC5'
      x = 0.14145851
      y = -27.187332
      z = 0
      irot = 802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 803
      theta1 = 90
      phi1 = -86.30566
      theta2 = 84
      phi2 = 3.6943396
      theta3 = 6
      phi3 = -176.30566
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 268
      chmoth = 'DC5'
      x = 1.7518047
      y = -27.131204
      z = 0
      irot = 803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 804
      theta1 = 90
      phi1 = -82.909434
      theta2 = 84
      phi2 = 7.090566
      theta3 = 6
      phi3 = -172.90943
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 269
      chmoth = 'DC5'
      x = 3.3559976
      y = -26.979776
      z = 0
      irot = 804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 805
      theta1 = 90
      phi1 = -79.513208
      theta2 = 84
      phi2 = 10.486792
      theta3 = 6
      phi3 = -169.51321
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 270
      chmoth = 'DC5'
      x = 4.9484024
      y = -26.733581
      z = 0
      irot = 805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 806
      theta1 = 90
      phi1 = -76.116981
      theta2 = 84
      phi2 = 13.883019
      theta3 = 6
      phi3 = -166.11698
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 271
      chmoth = 'DC5'
      x = 6.5234258
      y = -26.393483
      z = 0
      irot = 806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 807
      theta1 = 90
      phi1 = -72.720755
      theta2 = 84
      phi2 = 17.279245
      theta3 = 6
      phi3 = -162.72075
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 272
      chmoth = 'DC5'
      x = 8.0755354
      y = -25.960677
      z = 0
      irot = 807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 808
      theta1 = 90
      phi1 = -69.324528
      theta2 = 84
      phi2 = 20.675472
      theta3 = 6
      phi3 = -159.32453
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 273
      chmoth = 'DC5'
      x = 9.5992795
      y = -25.436683
      z = 0
      irot = 808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 809
      theta1 = 90
      phi1 = -65.928302
      theta2 = 84
      phi2 = 24.071698
      theta3 = 6
      phi3 = -155.9283
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 274
      chmoth = 'DC5'
      x = 11.089306
      y = -24.823342
      z = 0
      irot = 809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 810
      theta1 = 90
      phi1 = -62.532075
      theta2 = 84
      phi2 = 27.467925
      theta3 = 6
      phi3 = -152.53208
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 275
      chmoth = 'DC5'
      x = 12.54038
      y = -24.122809
      z = 0
      irot = 810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 811
      theta1 = 90
      phi1 = -59.135849
      theta2 = 84
      phi2 = 30.864151
      theta3 = 6
      phi3 = -149.13585
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 276
      chmoth = 'DC5'
      x = 13.947406
      y = -23.337542
      z = 0
      irot = 811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 812
      theta1 = 90
      phi1 = -55.739623
      theta2 = 84
      phi2 = 34.260377
      theta3 = 6
      phi3 = -145.73962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 277
      chmoth = 'DC5'
      x = 15.305442
      y = -22.470302
      z = 0
      irot = 812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 813
      theta1 = 90
      phi1 = -52.343396
      theta2 = 84
      phi2 = 37.656604
      theta3 = 6
      phi3 = -142.3434
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 278
      chmoth = 'DC5'
      x = 16.609716
      y = -21.524135
      z = 0
      irot = 813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 814
      theta1 = 90
      phi1 = -48.94717
      theta2 = 84
      phi2 = 41.05283
      theta3 = 6
      phi3 = -138.94717
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 279
      chmoth = 'DC5'
      x = 17.855648
      y = -20.502362
      z = 0
      irot = 814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 815
      theta1 = 90
      phi1 = -45.550943
      theta2 = 84
      phi2 = 44.449057
      theta3 = 6
      phi3 = -135.55094
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 280
      chmoth = 'DC5'
      x = 19.038862
      y = -19.408575
      z = 0
      irot = 815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 816
      theta1 = 90
      phi1 = -42.154717
      theta2 = 84
      phi2 = 47.845283
      theta3 = 6
      phi3 = -132.15472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 281
      chmoth = 'DC5'
      x = 20.1552
      y = -18.246614
      z = 0
      irot = 816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 817
      theta1 = 90
      phi1 = -38.758491
      theta2 = 84
      phi2 = 51.241509
      theta3 = 6
      phi3 = -128.75849
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 282
      chmoth = 'DC5'
      x = 21.200743
      y = -17.020561
      z = 0
      irot = 817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 818
      theta1 = 90
      phi1 = -35.362264
      theta2 = 84
      phi2 = 54.637736
      theta3 = 6
      phi3 = -125.36226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 283
      chmoth = 'DC5'
      x = 22.171818
      y = -15.734723
      z = 0
      irot = 818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 819
      theta1 = 90
      phi1 = -31.966038
      theta2 = 84
      phi2 = 58.033962
      theta3 = 6
      phi3 = -121.96604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 284
      chmoth = 'DC5'
      x = 23.065013
      y = -14.393617
      z = 0
      irot = 819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 820
      theta1 = 90
      phi1 = -28.569811
      theta2 = 84
      phi2 = 61.430189
      theta3 = 6
      phi3 = -118.56981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 285
      chmoth = 'DC5'
      x = 23.877192
      y = -13.001952
      z = 0
      irot = 820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 821
      theta1 = 90
      phi1 = -25.173585
      theta2 = 84
      phi2 = 64.826415
      theta3 = 6
      phi3 = -115.17358
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 286
      chmoth = 'DC5'
      x = 24.605501
      y = -11.564617
      z = 0
      irot = 821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 822
      theta1 = 90
      phi1 = -21.777358
      theta2 = 84
      phi2 = 68.222642
      theta3 = 6
      phi3 = -111.77736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 287
      chmoth = 'DC5'
      x = 25.247382
      y = -10.086661
      z = 0
      irot = 822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 823
      theta1 = 90
      phi1 = -18.381132
      theta2 = 84
      phi2 = 71.618868
      theta3 = 6
      phi3 = -108.38113
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 288
      chmoth = 'DC5'
      x = 25.800581
      y = -8.5732755
      z = 0
      irot = 823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 824
      theta1 = 90
      phi1 = -14.984906
      theta2 = 84
      phi2 = 75.015094
      theta3 = 6
      phi3 = -104.98491
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 289
      chmoth = 'DC5'
      x = 26.263154
      y = -7.0297759
      z = 0
      irot = 824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 825
      theta1 = 90
      phi1 = -11.588679
      theta2 = 84
      phi2 = 78.411321
      theta3 = 6
      phi3 = -101.58868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 290
      chmoth = 'DC5'
      x = 26.633478
      y = -5.4615839
      z = 0
      irot = 825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 826
      theta1 = 90
      phi1 = -8.1924528
      theta2 = 84
      phi2 = 81.807547
      theta3 = 6
      phi3 = -98.192453
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 291
      chmoth = 'DC5'
      x = 26.91025
      y = -3.874208
      z = 0
      irot = 826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 827
      theta1 = 90
      phi1 = -4.7962264
      theta2 = 84
      phi2 = 85.203774
      theta3 = 6
      phi3 = -94.796226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 292
      chmoth = 'DC5'
      x = 27.092499
      y = -2.2732238
      z = 0
      irot = 827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 828
      theta1 = 90.181146
      phi1 = -1.4
      theta2 = 83.699682
      phi2 = 88.58
      theta3 = 6.3029431
      phi3 = -89.759743
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 293
      chmoth = 'DC5'
      x = 28.577964
      y = 0.14869349
      z = 0
      irot = 828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 829
      theta1 = 90.181146
      phi1 = 1.9962264
      theta2 = 83.699682
      phi2 = 91.976227
      theta3 = 6.3029431
      phi3 = -86.363517
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 294
      chmoth = 'DC5'
      x = 28.518964
      y = 1.8414089
      z = 0
      irot = 829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 830
      theta1 = 90.181146
      phi1 = 5.3924528
      theta2 = 83.699682
      phi2 = 95.372453
      theta3 = 6.3029431
      phi3 = -82.96729
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 295
      chmoth = 'DC5'
      x = 28.359791
      y = 3.5276562
      z = 0
      irot = 830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 831
      theta1 = 90.181146
      phi1 = 8.7886792
      theta2 = 83.699682
      phi2 = 98.768679
      theta3 = 6.3029431
      phi3 = -79.571064
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 296
      chmoth = 'DC5'
      x = 28.101003
      y = 5.2015125
      z = 0
      irot = 831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 832
      theta1 = 90.181146
      phi1 = 12.184906
      theta2 = 83.699682
      phi2 = 102.16491
      theta3 = 6.3029431
      phi3 = -76.174837
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 297
      chmoth = 'DC5'
      x = 27.74351
      y = 6.8570984
      z = 0
      irot = 832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 833
      theta1 = 90.181146
      phi1 = 15.581132
      theta2 = 83.699682
      phi2 = 105.56113
      theta3 = 6.3029431
      phi3 = -72.778611
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 298
      chmoth = 'DC5'
      x = 27.288566
      y = 8.4885984
      z = 0
      irot = 833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 834
      theta1 = 90.181146
      phi1 = 18.977358
      theta2 = 83.699682
      phi2 = 108.95736
      theta3 = 6.3029431
      phi3 = -69.382384
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 299
      chmoth = 'DC5'
      x = 26.73777
      y = 10.090282
      z = 0
      irot = 834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 835
      theta1 = 90.181146
      phi1 = 22.373585
      theta2 = 83.699682
      phi2 = 112.35359
      theta3 = 6.3029431
      phi3 = -65.986158
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 300
      chmoth = 'DC5'
      x = 26.093056
      y = 11.656523
      z = 0
      irot = 835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 836
      theta1 = 90.181146
      phi1 = 25.769811
      theta2 = 83.699682
      phi2 = 115.74981
      theta3 = 6.3029431
      phi3 = -62.589932
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 301
      chmoth = 'DC5'
      x = 25.35669
      y = 13.18182
      z = 0
      irot = 836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 837
      theta1 = 90.181146
      phi1 = 29.166038
      theta2 = 83.699682
      phi2 = 119.14604
      theta3 = 6.3029431
      phi3 = -59.193705
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 302
      chmoth = 'DC5'
      x = 24.531258
      y = 14.660815
      z = 0
      irot = 837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 838
      theta1 = 90.181146
      phi1 = 32.562264
      theta2 = 83.699682
      phi2 = 122.54226
      theta3 = 6.3029431
      phi3 = -55.797479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 303
      chmoth = 'DC5'
      x = 23.619658
      y = 16.088314
      z = 0
      irot = 838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 839
      theta1 = 90.181146
      phi1 = 35.958491
      theta2 = 83.699682
      phi2 = 125.93849
      theta3 = 6.3029431
      phi3 = -52.401252
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 304
      chmoth = 'DC5'
      x = 22.625094
      y = 17.459302
      z = 0
      irot = 839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 840
      theta1 = 90.181146
      phi1 = 39.354717
      theta2 = 83.699682
      phi2 = 129.33472
      theta3 = 6.3029431
      phi3 = -49.005026
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 305
      chmoth = 'DC5'
      x = 21.551058
      y = 18.768964
      z = 0
      irot = 840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 841
      theta1 = 90.181146
      phi1 = 42.750943
      theta2 = 83.699682
      phi2 = 132.73094
      theta3 = 6.3029431
      phi3 = -45.6088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 306
      chmoth = 'DC5'
      x = 20.401324
      y = 20.012699
      z = 0
      irot = 841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 842
      theta1 = 90.181146
      phi1 = 46.14717
      theta2 = 83.699682
      phi2 = 136.12717
      theta3 = 6.3029431
      phi3 = -42.212573
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 307
      chmoth = 'DC5'
      x = 19.179929
      y = 21.186138
      z = 0
      irot = 842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 843
      theta1 = 90.181146
      phi1 = 49.543396
      theta2 = 83.699682
      phi2 = 139.5234
      theta3 = 6.3029431
      phi3 = -38.816347
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 308
      chmoth = 'DC5'
      x = 17.891163
      y = 22.285161
      z = 0
      irot = 843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 844
      theta1 = 90.181146
      phi1 = 52.939623
      theta2 = 83.699682
      phi2 = 142.91962
      theta3 = 6.3029431
      phi3 = -35.42012
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 309
      chmoth = 'DC5'
      x = 16.539555
      y = 23.305906
      z = 0
      irot = 844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 845
      theta1 = 90.181146
      phi1 = 56.335849
      theta2 = 83.699682
      phi2 = 146.31585
      theta3 = 6.3029431
      phi3 = -32.023894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 310
      chmoth = 'DC5'
      x = 15.129851
      y = 24.244788
      z = 0
      irot = 845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 846
      theta1 = 90.181146
      phi1 = 59.732075
      theta2 = 83.699682
      phi2 = 149.71208
      theta3 = 6.3029431
      phi3 = -28.627667
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 311
      chmoth = 'DC5'
      x = 13.667002
      y = 25.098509
      z = 0
      irot = 846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 847
      theta1 = 90.181146
      phi1 = 63.128302
      theta2 = 83.699682
      phi2 = 153.1083
      theta3 = 6.3029431
      phi3 = -25.231441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 312
      chmoth = 'DC5'
      x = 12.156148
      y = 25.864072
      z = 0
      irot = 847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 848
      theta1 = 90.181146
      phi1 = 66.524528
      theta2 = 83.699682
      phi2 = 156.50453
      theta3 = 6.3029431
      phi3 = -21.835215
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 313
      chmoth = 'DC5'
      x = 10.602594
      y = 26.538785
      z = 0
      irot = 848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 849
      theta1 = 90.181146
      phi1 = 69.920755
      theta2 = 83.699682
      phi2 = 159.90075
      theta3 = 6.3029431
      phi3 = -18.438988
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 314
      chmoth = 'DC5'
      x = 9.011799
      y = 27.12028
      z = 0
      irot = 849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 850
      theta1 = 90.181146
      phi1 = 73.316981
      theta2 = 83.699682
      phi2 = 163.29698
      theta3 = 6.3029431
      phi3 = -15.042762
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 315
      chmoth = 'DC5'
      x = 7.3893494
      y = 27.606514
      z = 0
      irot = 850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 851
      theta1 = 90.181146
      phi1 = 76.713208
      theta2 = 83.699682
      phi2 = 166.69321
      theta3 = 6.3029431
      phi3 = -11.646535
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 316
      chmoth = 'DC5'
      x = 5.7409445
      y = 27.99578
      z = 0
      irot = 851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 852
      theta1 = 90.181146
      phi1 = 80.109434
      theta2 = 83.699682
      phi2 = 170.08943
      theta3 = 6.3029431
      phi3 = -8.250309
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 317
      chmoth = 'DC5'
      x = 4.0723743
      y = 28.286709
      z = 0
      irot = 852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 853
      theta1 = 90.181146
      phi1 = 83.50566
      theta2 = 83.699682
      phi2 = 173.48566
      theta3 = 6.3029431
      phi3 = -4.8540825
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 318
      chmoth = 'DC5'
      x = 2.3894998
      y = 28.47828
      z = 0
      irot = 853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 854
      theta1 = 90.181146
      phi1 = 86.901887
      theta2 = 83.699682
      phi2 = 176.88189
      theta3 = 6.3029431
      phi3 = -1.4578561
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 319
      chmoth = 'DC5'
      x = 0.69823198
      y = 28.56982
      z = 0
      irot = 854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 855
      theta1 = 90.181146
      phi1 = 90.298113
      theta2 = 83.699682
      phi2 = -179.72189
      theta3 = 6.3029431
      phi3 = 1.9383703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 320
      chmoth = 'DC5'
      x = -0.99548835
      y = 28.561007
      z = 0
      irot = 855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 856
      theta1 = 90.181146
      phi1 = 93.69434
      theta2 = 83.699682
      phi2 = -176.32566
      theta3 = 6.3029431
      phi3 = 5.3345967
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 321
      chmoth = 'DC5'
      x = -2.685712
      y = 28.451873
      z = 0
      irot = 856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 857
      theta1 = 90.181146
      phi1 = 97.090566
      theta2 = 83.699682
      phi2 = -172.92943
      theta3 = 6.3029431
      phi3 = 8.7308231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 322
      chmoth = 'DC5'
      x = -4.366502
      y = 28.242801
      z = 0
      irot = 857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 858
      theta1 = 90.181146
      phi1 = 100.48679
      theta2 = 83.699682
      phi2 = -169.53321
      theta3 = 6.3029431
      phi3 = 12.12705
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 323
      chmoth = 'DC5'
      x = -6.0319545
      y = 27.934524
      z = 0
      irot = 858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 859
      theta1 = 90.181146
      phi1 = 103.88302
      theta2 = 83.699682
      phi2 = -166.13698
      theta3 = 6.3029431
      phi3 = 15.523276
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 324
      chmoth = 'DC5'
      x = -7.6762195
      y = 27.528127
      z = 0
      irot = 859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 860
      theta1 = 90.181146
      phi1 = 107.27925
      theta2 = 83.699682
      phi2 = -162.74075
      theta3 = 6.3029431
      phi3 = 18.919502
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 325
      chmoth = 'DC5'
      x = -9.2935215
      y = 27.025036
      z = 0
      irot = 860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 861
      theta1 = 90.181146
      phi1 = 110.67547
      theta2 = 83.699682
      phi2 = -159.34453
      theta3 = 6.3029431
      phi3 = 22.315729
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 326
      chmoth = 'DC5'
      x = -10.87818
      y = 26.427019
      z = 0
      irot = 861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 862
      theta1 = 90.181146
      phi1 = 114.0717
      theta2 = 83.699682
      phi2 = -155.9483
      theta3 = 6.3029431
      phi3 = 25.711955
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 327
      chmoth = 'DC5'
      x = -12.424628
      y = 25.736176
      z = 0
      irot = 862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 863
      theta1 = 90.181146
      phi1 = 117.46792
      theta2 = 83.699682
      phi2 = -152.55208
      theta3 = 6.3029431
      phi3 = 29.108182
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 328
      chmoth = 'DC5'
      x = -13.927434
      y = 24.954933
      z = 0
      irot = 863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 864
      theta1 = 90.181146
      phi1 = 120.86415
      theta2 = 83.699682
      phi2 = -149.15585
      theta3 = 6.3029431
      phi3 = 32.504408
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 329
      chmoth = 'DC5'
      x = -15.38132
      y = 24.086036
      z = 0
      irot = 864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 865
      theta1 = 90.181146
      phi1 = 124.26038
      theta2 = 83.699682
      phi2 = -145.75962
      theta3 = 6.3029431
      phi3 = 35.900634
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 330
      chmoth = 'DC5'
      x = -16.781178
      y = 23.132535
      z = 0
      irot = 865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 866
      theta1 = 90.181146
      phi1 = 127.6566
      theta2 = 83.699682
      phi2 = -142.3634
      theta3 = 6.3029431
      phi3 = 39.296861
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 331
      chmoth = 'DC5'
      x = -18.122092
      y = 22.097781
      z = 0
      irot = 866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 867
      theta1 = 90.181146
      phi1 = 131.05283
      theta2 = 83.699682
      phi2 = -138.96717
      theta3 = 6.3029431
      phi3 = 42.693087
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 332
      chmoth = 'DC5'
      x = -19.399351
      y = 20.985407
      z = 0
      irot = 867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 868
      theta1 = 90.181146
      phi1 = 134.44906
      theta2 = 83.699682
      phi2 = -135.57094
      theta3 = 6.3029431
      phi3 = 46.089314
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 333
      chmoth = 'DC5'
      x = -20.608469
      y = 19.799321
      z = 0
      irot = 868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 869
      theta1 = 90.181146
      phi1 = 137.84528
      theta2 = 83.699682
      phi2 = -132.17472
      theta3 = 6.3029431
      phi3 = 49.48554
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 334
      chmoth = 'DC5'
      x = -21.745199
      y = 18.54369
      z = 0
      irot = 869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 870
      theta1 = 90.181146
      phi1 = 141.24151
      theta2 = 83.699682
      phi2 = -128.77849
      theta3 = 6.3029431
      phi3 = 52.881767
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 335
      chmoth = 'DC5'
      x = -22.805549
      y = 17.222923
      z = 0
      irot = 870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 871
      theta1 = 90.181146
      phi1 = 144.63774
      theta2 = 83.699682
      phi2 = -125.38226
      theta3 = 6.3029431
      phi3 = 56.277993
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 336
      chmoth = 'DC5'
      x = -23.785793
      y = 15.84166
      z = 0
      irot = 871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 872
      theta1 = 90.181146
      phi1 = 148.03396
      theta2 = 83.699682
      phi2 = -121.98604
      theta3 = 6.3029431
      phi3 = 59.674219
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 337
      chmoth = 'DC5'
      x = -24.682488
      y = 14.404752
      z = 0
      irot = 872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 873
      theta1 = 90.181146
      phi1 = 151.43019
      theta2 = 83.699682
      phi2 = -118.58981
      theta3 = 6.3029431
      phi3 = 63.070446
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 338
      chmoth = 'DC5'
      x = -25.492486
      y = 12.917248
      z = 0
      irot = 873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 874
      theta1 = 90.181146
      phi1 = 154.82642
      theta2 = 83.699682
      phi2 = -115.19358
      theta3 = 6.3029431
      phi3 = 66.466672
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 339
      chmoth = 'DC5'
      x = -26.21294
      y = 11.384371
      z = 0
      irot = 874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 875
      theta1 = 90.181146
      phi1 = 158.22264
      theta2 = 83.699682
      phi2 = -111.79736
      theta3 = 6.3029431
      phi3 = 69.862899
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 340
      chmoth = 'DC5'
      x = -26.84132
      y = 9.8115055
      z = 0
      irot = 875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 876
      theta1 = 90.181146
      phi1 = 161.61887
      theta2 = 83.699682
      phi2 = -108.40113
      theta3 = 6.3029431
      phi3 = 73.259125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 341
      chmoth = 'DC5'
      x = -27.37542
      y = 8.2041772
      z = 0
      irot = 876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 877
      theta1 = 90.181146
      phi1 = 165.01509
      theta2 = 83.699682
      phi2 = -105.00491
      theta3 = 6.3029431
      phi3 = 76.655351
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 342
      chmoth = 'DC5'
      x = -27.813362
      y = 6.5680314
      z = 0
      irot = 877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 878
      theta1 = 90.181146
      phi1 = 168.41132
      theta2 = 83.699682
      phi2 = -101.60868
      theta3 = 6.3029431
      phi3 = 80.051578
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 343
      chmoth = 'DC5'
      x = -28.153608
      y = 4.9088152
      z = 0
      irot = 878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 879
      theta1 = 90.181146
      phi1 = 171.80755
      theta2 = 83.699682
      phi2 = -98.212453
      theta3 = 6.3029431
      phi3 = 83.447804
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 344
      chmoth = 'DC5'
      x = -28.394964
      y = 3.2323566
      z = 0
      irot = 879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 880
      theta1 = 90.181146
      phi1 = 175.20377
      theta2 = 83.699682
      phi2 = -94.816226
      theta3 = 6.3029431
      phi3 = 86.844031
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 345
      chmoth = 'DC5'
      x = -28.536582
      y = 1.5445442
      z = 0
      irot = 880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 881
      theta1 = 90.181146
      phi1 = 178.6
      theta2 = 83.699682
      phi2 = -91.42
      theta3 = 6.3029431
      phi3 = 90.240257
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 346
      chmoth = 'DC5'
      x = -28.577964
      y = -0.14869349
      z = 0
      irot = 881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 882
      theta1 = 90.181146
      phi1 = -178.00377
      theta2 = 83.699682
      phi2 = -88.023773
      theta3 = 6.3029431
      phi3 = 93.636483
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 347
      chmoth = 'DC5'
      x = -28.518964
      y = -1.8414089
      z = 0
      irot = 882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 883
      theta1 = 90.181146
      phi1 = -174.60755
      theta2 = 83.699682
      phi2 = -84.627547
      theta3 = 6.3029431
      phi3 = 97.03271
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 348
      chmoth = 'DC5'
      x = -28.359791
      y = -3.5276562
      z = 0
      irot = 883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 884
      theta1 = 90.181146
      phi1 = -171.21132
      theta2 = 83.699682
      phi2 = -81.231321
      theta3 = 6.3029431
      phi3 = 100.42894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 349
      chmoth = 'DC5'
      x = -28.101003
      y = -5.2015125
      z = 0
      irot = 884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 885
      theta1 = 90.181146
      phi1 = -167.81509
      theta2 = 83.699682
      phi2 = -77.835094
      theta3 = 6.3029431
      phi3 = 103.82516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 350
      chmoth = 'DC5'
      x = -27.74351
      y = -6.8570984
      z = 0
      irot = 885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 886
      theta1 = 90.181146
      phi1 = -164.41887
      theta2 = 83.699682
      phi2 = -74.438868
      theta3 = 6.3029431
      phi3 = 107.22139
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 351
      chmoth = 'DC5'
      x = -27.288566
      y = -8.4885984
      z = 0
      irot = 886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 887
      theta1 = 90.181146
      phi1 = -161.02264
      theta2 = 83.699682
      phi2 = -71.042641
      theta3 = 6.3029431
      phi3 = 110.61762
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 352
      chmoth = 'DC5'
      x = -26.73777
      y = -10.090282
      z = 0
      irot = 887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 888
      theta1 = 90.181146
      phi1 = -157.62642
      theta2 = 83.699682
      phi2 = -67.646415
      theta3 = 6.3029431
      phi3 = 114.01384
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 353
      chmoth = 'DC5'
      x = -26.093056
      y = -11.656523
      z = 0
      irot = 888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 889
      theta1 = 90.181146
      phi1 = -154.23019
      theta2 = 83.699682
      phi2 = -64.250188
      theta3 = 6.3029431
      phi3 = 117.41007
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 354
      chmoth = 'DC5'
      x = -25.35669
      y = -13.18182
      z = 0
      irot = 889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 890
      theta1 = 90.181146
      phi1 = -150.83396
      theta2 = 83.699682
      phi2 = -60.853962
      theta3 = 6.3029431
      phi3 = 120.80629
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 355
      chmoth = 'DC5'
      x = -24.531258
      y = -14.660815
      z = 0
      irot = 890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 891
      theta1 = 90.181146
      phi1 = -147.43774
      theta2 = 83.699682
      phi2 = -57.457736
      theta3 = 6.3029431
      phi3 = 124.20252
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 356
      chmoth = 'DC5'
      x = -23.619658
      y = -16.088314
      z = 0
      irot = 891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 892
      theta1 = 90.181146
      phi1 = -144.04151
      theta2 = 83.699682
      phi2 = -54.061509
      theta3 = 6.3029431
      phi3 = 127.59875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 357
      chmoth = 'DC5'
      x = -22.625094
      y = -17.459302
      z = 0
      irot = 892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 893
      theta1 = 90.181146
      phi1 = -140.64528
      theta2 = 83.699682
      phi2 = -50.665283
      theta3 = 6.3029431
      phi3 = 130.99497
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 358
      chmoth = 'DC5'
      x = -21.551058
      y = -18.768964
      z = 0
      irot = 893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 894
      theta1 = 90.181146
      phi1 = -137.24906
      theta2 = 83.699682
      phi2 = -47.269056
      theta3 = 6.3029431
      phi3 = 134.3912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 359
      chmoth = 'DC5'
      x = -20.401324
      y = -20.012699
      z = 0
      irot = 894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 895
      theta1 = 90.181146
      phi1 = -133.85283
      theta2 = 83.699682
      phi2 = -43.87283
      theta3 = 6.3029431
      phi3 = 137.78743
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 360
      chmoth = 'DC5'
      x = -19.179929
      y = -21.186138
      z = 0
      irot = 895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 896
      theta1 = 90.181146
      phi1 = -130.4566
      theta2 = 83.699682
      phi2 = -40.476604
      theta3 = 6.3029431
      phi3 = 141.18365
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 361
      chmoth = 'DC5'
      x = -17.891163
      y = -22.285161
      z = 0
      irot = 896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 897
      theta1 = 90.181146
      phi1 = -127.06038
      theta2 = 83.699682
      phi2 = -37.080377
      theta3 = 6.3029431
      phi3 = 144.57988
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 362
      chmoth = 'DC5'
      x = -16.539555
      y = -23.305906
      z = 0
      irot = 897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 898
      theta1 = 90.181146
      phi1 = -123.66415
      theta2 = 83.699682
      phi2 = -33.684151
      theta3 = 6.3029431
      phi3 = 147.97611
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 363
      chmoth = 'DC5'
      x = -15.129851
      y = -24.244788
      z = 0
      irot = 898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 899
      theta1 = 90.181146
      phi1 = -120.26792
      theta2 = 83.699682
      phi2 = -30.287924
      theta3 = 6.3029431
      phi3 = 151.37233
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 364
      chmoth = 'DC5'
      x = -13.667002
      y = -25.098509
      z = 0
      irot = 899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 900
      theta1 = 90.181146
      phi1 = -116.8717
      theta2 = 83.699682
      phi2 = -26.891698
      theta3 = 6.3029431
      phi3 = 154.76856
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 365
      chmoth = 'DC5'
      x = -12.156148
      y = -25.864072
      z = 0
      irot = 900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 901
      theta1 = 90.181146
      phi1 = -113.47547
      theta2 = 83.699682
      phi2 = -23.495471
      theta3 = 6.3029431
      phi3 = 158.16479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 366
      chmoth = 'DC5'
      x = -10.602594
      y = -26.538785
      z = 0
      irot = 901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 902
      theta1 = 90.181146
      phi1 = -110.07925
      theta2 = 83.699682
      phi2 = -20.099245
      theta3 = 6.3029431
      phi3 = 161.56101
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 367
      chmoth = 'DC5'
      x = -9.011799
      y = -27.12028
      z = 0
      irot = 902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 903
      theta1 = 90.181146
      phi1 = -106.68302
      theta2 = 83.699682
      phi2 = -16.703019
      theta3 = 6.3029431
      phi3 = 164.95724
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 368
      chmoth = 'DC5'
      x = -7.3893494
      y = -27.606514
      z = 0
      irot = 903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 904
      theta1 = 90.181146
      phi1 = -103.28679
      theta2 = 83.699682
      phi2 = -13.306792
      theta3 = 6.3029431
      phi3 = 168.35346
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 369
      chmoth = 'DC5'
      x = -5.7409445
      y = -27.99578
      z = 0
      irot = 904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 905
      theta1 = 90.181146
      phi1 = -99.890566
      theta2 = 83.699682
      phi2 = -9.9105658
      theta3 = 6.3029431
      phi3 = 171.74969
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 370
      chmoth = 'DC5'
      x = -4.0723743
      y = -28.286709
      z = 0
      irot = 905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 906
      theta1 = 90.181146
      phi1 = -96.49434
      theta2 = 83.699682
      phi2 = -6.5143394
      theta3 = 6.3029431
      phi3 = 175.14592
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 371
      chmoth = 'DC5'
      x = -2.3894998
      y = -28.47828
      z = 0
      irot = 906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 907
      theta1 = 90.181146
      phi1 = -93.098113
      theta2 = 83.699682
      phi2 = -3.118113
      theta3 = 6.3029431
      phi3 = 178.54214
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 372
      chmoth = 'DC5'
      x = -0.69823198
      y = -28.56982
      z = 0
      irot = 907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 908
      theta1 = 90.181146
      phi1 = -89.701887
      theta2 = 83.699682
      phi2 = 0.27811342
      theta3 = 6.3029431
      phi3 = -178.06163
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 373
      chmoth = 'DC5'
      x = 0.99548835
      y = -28.561007
      z = 0
      irot = 908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 909
      theta1 = 90.181146
      phi1 = -86.30566
      theta2 = 83.699682
      phi2 = 3.6743398
      theta3 = 6.3029431
      phi3 = -174.6654
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 374
      chmoth = 'DC5'
      x = 2.685712
      y = -28.451873
      z = 0
      irot = 909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 910
      theta1 = 90.181146
      phi1 = -82.909434
      theta2 = 83.699682
      phi2 = 7.0705662
      theta3 = 6.3029431
      phi3 = -171.26918
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 375
      chmoth = 'DC5'
      x = 4.366502
      y = -28.242801
      z = 0
      irot = 910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 911
      theta1 = 90.181146
      phi1 = -79.513208
      theta2 = 83.699682
      phi2 = 10.466793
      theta3 = 6.3029431
      phi3 = -167.87295
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 376
      chmoth = 'DC5'
      x = 6.0319545
      y = -27.934524
      z = 0
      irot = 911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 912
      theta1 = 90.181146
      phi1 = -76.116981
      theta2 = 83.699682
      phi2 = 13.863019
      theta3 = 6.3029431
      phi3 = -164.47672
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 377
      chmoth = 'DC5'
      x = 7.6762195
      y = -27.528127
      z = 0
      irot = 912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 913
      theta1 = 90.181146
      phi1 = -72.720755
      theta2 = 83.699682
      phi2 = 17.259245
      theta3 = 6.3029431
      phi3 = -161.0805
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 378
      chmoth = 'DC5'
      x = 9.2935215
      y = -27.025036
      z = 0
      irot = 913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 914
      theta1 = 90.181146
      phi1 = -69.324528
      theta2 = 83.699682
      phi2 = 20.655472
      theta3 = 6.3029431
      phi3 = -157.68427
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 379
      chmoth = 'DC5'
      x = 10.87818
      y = -26.427019
      z = 0
      irot = 914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 915
      theta1 = 90.181146
      phi1 = -65.928302
      theta2 = 83.699682
      phi2 = 24.051698
      theta3 = 6.3029431
      phi3 = -154.28804
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 380
      chmoth = 'DC5'
      x = 12.424628
      y = -25.736176
      z = 0
      irot = 915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 916
      theta1 = 90.181146
      phi1 = -62.532075
      theta2 = 83.699682
      phi2 = 27.447925
      theta3 = 6.3029431
      phi3 = -150.89182
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 381
      chmoth = 'DC5'
      x = 13.927434
      y = -24.954933
      z = 0
      irot = 916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 917
      theta1 = 90.181146
      phi1 = -59.135849
      theta2 = 83.699682
      phi2 = 30.844151
      theta3 = 6.3029431
      phi3 = -147.49559
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 382
      chmoth = 'DC5'
      x = 15.38132
      y = -24.086036
      z = 0
      irot = 917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 918
      theta1 = 90.181146
      phi1 = -55.739623
      theta2 = 83.699682
      phi2 = 34.240378
      theta3 = 6.3029431
      phi3 = -144.09937
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 383
      chmoth = 'DC5'
      x = 16.781178
      y = -23.132535
      z = 0
      irot = 918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 919
      theta1 = 90.181146
      phi1 = -52.343396
      theta2 = 83.699682
      phi2 = 37.636604
      theta3 = 6.3029431
      phi3 = -140.70314
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 384
      chmoth = 'DC5'
      x = 18.122092
      y = -22.097781
      z = 0
      irot = 919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 920
      theta1 = 90.181146
      phi1 = -48.94717
      theta2 = 83.699682
      phi2 = 41.03283
      theta3 = 6.3029431
      phi3 = -137.30691
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 385
      chmoth = 'DC5'
      x = 19.399351
      y = -20.985407
      z = 0
      irot = 920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 921
      theta1 = 90.181146
      phi1 = -45.550943
      theta2 = 83.699682
      phi2 = 44.429057
      theta3 = 6.3029431
      phi3 = -133.91069
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 386
      chmoth = 'DC5'
      x = 20.608469
      y = -19.799321
      z = 0
      irot = 921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 922
      theta1 = 90.181146
      phi1 = -42.154717
      theta2 = 83.699682
      phi2 = 47.825283
      theta3 = 6.3029431
      phi3 = -130.51446
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 387
      chmoth = 'DC5'
      x = 21.745199
      y = -18.54369
      z = 0
      irot = 922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 923
      theta1 = 90.181146
      phi1 = -38.758491
      theta2 = 83.699682
      phi2 = 51.22151
      theta3 = 6.3029431
      phi3 = -127.11823
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 388
      chmoth = 'DC5'
      x = 22.805549
      y = -17.222923
      z = 0
      irot = 923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 924
      theta1 = 90.181146
      phi1 = -35.362264
      theta2 = 83.699682
      phi2 = 54.617736
      theta3 = 6.3029431
      phi3 = -123.72201
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 389
      chmoth = 'DC5'
      x = 23.785793
      y = -15.84166
      z = 0
      irot = 924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 925
      theta1 = 90.181146
      phi1 = -31.966038
      theta2 = 83.699682
      phi2 = 58.013962
      theta3 = 6.3029431
      phi3 = -120.32578
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 390
      chmoth = 'DC5'
      x = 24.682488
      y = -14.404752
      z = 0
      irot = 925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 926
      theta1 = 90.181146
      phi1 = -28.569811
      theta2 = 83.699682
      phi2 = 61.410189
      theta3 = 6.3029431
      phi3 = -116.92955
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 391
      chmoth = 'DC5'
      x = 25.492486
      y = -12.917248
      z = 0
      irot = 926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 927
      theta1 = 90.181146
      phi1 = -25.173585
      theta2 = 83.699682
      phi2 = 64.806415
      theta3 = 6.3029431
      phi3 = -113.53333
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 392
      chmoth = 'DC5'
      x = 26.21294
      y = -11.384371
      z = 0
      irot = 927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 928
      theta1 = 90.181146
      phi1 = -21.777358
      theta2 = 83.699682
      phi2 = 68.202642
      theta3 = 6.3029431
      phi3 = -110.1371
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 393
      chmoth = 'DC5'
      x = 26.84132
      y = -9.8115055
      z = 0
      irot = 928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 929
      theta1 = 90.181146
      phi1 = -18.381132
      theta2 = 83.699682
      phi2 = 71.598868
      theta3 = 6.3029431
      phi3 = -106.74087
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 394
      chmoth = 'DC5'
      x = 27.37542
      y = -8.2041772
      z = 0
      irot = 929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 930
      theta1 = 90.181146
      phi1 = -14.984906
      theta2 = 83.699682
      phi2 = 74.995095
      theta3 = 6.3029431
      phi3 = -103.34465
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 395
      chmoth = 'DC5'
      x = 27.813362
      y = -6.5680314
      z = 0
      irot = 930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 931
      theta1 = 90.181146
      phi1 = -11.588679
      theta2 = 83.699682
      phi2 = 78.391321
      theta3 = 6.3029431
      phi3 = -99.948422
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 396
      chmoth = 'DC5'
      x = 28.153608
      y = -4.9088152
      z = 0
      irot = 931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 932
      theta1 = 90.181146
      phi1 = -8.1924528
      theta2 = 83.699682
      phi2 = 81.787547
      theta3 = 6.3029431
      phi3 = -96.552196
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 397
      chmoth = 'DC5'
      x = 28.394964
      y = -3.2323566
      z = 0
      irot = 932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 933
      theta1 = 90.181146
      phi1 = -4.7962264
      theta2 = 83.699682
      phi2 = 85.183774
      theta3 = 6.3029431
      phi3 = -93.155969
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 398
      chmoth = 'DC5'
      x = 28.536582
      y = -1.5445442
      z = 0
      irot = 933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

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

      itmed = 203
      natmed = 'DC13 CDchamberGas'
      nmat = 41
      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 = 'DC13'
      chshap = 'TUBE'
      nmed = 203
      npar = 3
      par(1) = 30.5786
      par(2) = 33.632
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.220) stop 'consistency check #1 failed'

      chname = 'DC13'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 3.29
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 934
      theta1 = 90
      phi1 = 0.5
      theta2 = 90
      phi2 = 90.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 193
      chmoth = 'DC13'
      x = 31.378705
      y = 0.27383781
      z = 0
      irot = 934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 935
      theta1 = 90
      phi1 = 3.426829
      theta2 = 90
      phi2 = 93.426829
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 194
      chmoth = 'DC13'
      x = 31.323791
      y = 1.8756958
      z = 0
      irot = 935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 936
      theta1 = 90
      phi1 = 6.353658
      theta2 = 90
      phi2 = 96.353658
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 195
      chmoth = 'DC13'
      x = 31.187157
      y = 3.4726603
      z = 0
      irot = 936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 937
      theta1 = 90
      phi1 = 9.280487
      theta2 = 90
      phi2 = 99.280487
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 196
      chmoth = 'DC13'
      x = 30.969159
      y = 5.060565
      z = 0
      irot = 937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 938
      theta1 = 90
      phi1 = 12.207316
      theta2 = 90
      phi2 = 102.20732
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 197
      chmoth = 'DC13'
      x = 30.670366
      y = 6.6352673
      z = 0
      irot = 938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 939
      theta1 = 90
      phi1 = 15.134145
      theta2 = 90
      phi2 = 105.13415
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 198
      chmoth = 'DC13'
      x = 30.291558
      y = 8.1926589
      z = 0
      irot = 939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 940
      theta1 = 90
      phi1 = 18.060974
      theta2 = 90
      phi2 = 108.06097
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 199
      chmoth = 'DC13'
      x = 29.833722
      y = 9.7286768
      z = 0
      irot = 940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 941
      theta1 = 90
      phi1 = 20.987803
      theta2 = 90
      phi2 = 110.9878
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 200
      chmoth = 'DC13'
      x = 29.298054
      y = 11.239314
      z = 0
      irot = 941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 942
      theta1 = 90
      phi1 = 23.914632
      theta2 = 90
      phi2 = 113.91463
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 201
      chmoth = 'DC13'
      x = 28.68595
      y = 12.720629
      z = 0
      irot = 942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 943
      theta1 = 90
      phi1 = 26.841461
      theta2 = 90
      phi2 = 116.84146
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 202
      chmoth = 'DC13'
      x = 27.999008
      y = 14.168757
      z = 0
      irot = 943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 944
      theta1 = 90
      phi1 = 29.76829
      theta2 = 90
      phi2 = 119.76829
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 203
      chmoth = 'DC13'
      x = 27.23902
      y = 15.57992
      z = 0
      irot = 944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 945
      theta1 = 90
      phi1 = 32.695119
      theta2 = 90
      phi2 = 122.69512
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 204
      chmoth = 'DC13'
      x = 26.407968
      y = 16.950438
      z = 0
      irot = 945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 946
      theta1 = 90
      phi1 = 35.621948
      theta2 = 90
      phi2 = 125.62195
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 205
      chmoth = 'DC13'
      x = 25.508021
      y = 18.276733
      z = 0
      irot = 946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 947
      theta1 = 90
      phi1 = 38.548777
      theta2 = 90
      phi2 = 128.54878
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 206
      chmoth = 'DC13'
      x = 24.541527
      y = 19.555347
      z = 0
      irot = 947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 948
      theta1 = 90
      phi1 = 41.475606
      theta2 = 90
      phi2 = 131.47561
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 207
      chmoth = 'DC13'
      x = 23.511006
      y = 20.782943
      z = 0
      irot = 948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 949
      theta1 = 90
      phi1 = 44.402435
      theta2 = 90
      phi2 = 134.40244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 208
      chmoth = 'DC13'
      x = 22.419148
      y = 21.956318
      z = 0
      irot = 949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 950
      theta1 = 90
      phi1 = 47.329264
      theta2 = 90
      phi2 = 137.32926
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 209
      chmoth = 'DC13'
      x = 21.268801
      y = 23.072413
      z = 0
      irot = 950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 951
      theta1 = 90
      phi1 = 50.256093
      theta2 = 90
      phi2 = 140.25609
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 210
      chmoth = 'DC13'
      x = 20.062966
      y = 24.128313
      z = 0
      irot = 951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 952
      theta1 = 90
      phi1 = 53.182922
      theta2 = 90
      phi2 = 143.18292
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 211
      chmoth = 'DC13'
      x = 18.804789
      y = 25.121266
      z = 0
      irot = 952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 953
      theta1 = 90
      phi1 = 56.109751
      theta2 = 90
      phi2 = 146.10975
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 212
      chmoth = 'DC13'
      x = 17.497553
      y = 26.048681
      z = 0
      irot = 953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 954
      theta1 = 90
      phi1 = 59.03658
      theta2 = 90
      phi2 = 149.03658
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 213
      chmoth = 'DC13'
      x = 16.144667
      y = 26.908137
      z = 0
      irot = 954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 955
      theta1 = 90
      phi1 = 61.963409
      theta2 = 90
      phi2 = 151.96341
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 214
      chmoth = 'DC13'
      x = 14.749662
      y = 27.697393
      z = 0
      irot = 955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 956
      theta1 = 90
      phi1 = 64.890238
      theta2 = 90
      phi2 = 154.89024
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 215
      chmoth = 'DC13'
      x = 13.316177
      y = 28.41439
      z = 0
      irot = 956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 957
      theta1 = 90
      phi1 = 67.817067
      theta2 = 90
      phi2 = 157.81707
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 216
      chmoth = 'DC13'
      x = 11.847951
      y = 29.057257
      z = 0
      irot = 957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 958
      theta1 = 90
      phi1 = 70.743896
      theta2 = 90
      phi2 = 160.7439
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 217
      chmoth = 'DC13'
      x = 10.348816
      y = 29.624317
      z = 0
      irot = 958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 959
      theta1 = 90
      phi1 = 73.670725
      theta2 = 90
      phi2 = 163.67073
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 218
      chmoth = 'DC13'
      x = 8.8226811
      y = 30.11409
      z = 0
      irot = 959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 960
      theta1 = 90
      phi1 = 76.597554
      theta2 = 90
      phi2 = 166.59755
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 219
      chmoth = 'DC13'
      x = 7.2735292
      y = 30.525299
      z = 0
      irot = 960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 961
      theta1 = 90
      phi1 = 79.524383
      theta2 = 90
      phi2 = 169.52438
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 220
      chmoth = 'DC13'
      x = 5.7054015
      y = 30.856871
      z = 0
      irot = 961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 962
      theta1 = 90
      phi1 = 82.451212
      theta2 = 90
      phi2 = 172.45121
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 221
      chmoth = 'DC13'
      x = 4.1223891
      y = 31.107942
      z = 0
      irot = 962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 963
      theta1 = 90
      phi1 = 85.378041
      theta2 = 90
      phi2 = 175.37804
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 222
      chmoth = 'DC13'
      x = 2.5286219
      y = 31.277855
      z = 0
      irot = 963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 964
      theta1 = 90
      phi1 = 88.30487
      theta2 = 90
      phi2 = 178.30487
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 223
      chmoth = 'DC13'
      x = 0.92825773
      y = 31.366167
      z = 0
      irot = 964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 965
      theta1 = 90
      phi1 = 91.231699
      theta2 = 90
      phi2 = -178.7683
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 224
      chmoth = 'DC13'
      x = -0.67452812
      y = 31.372649
      z = 0
      irot = 965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 966
      theta1 = 90
      phi1 = 94.158528
      theta2 = 90
      phi2 = -175.84147
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 225
      chmoth = 'DC13'
      x = -2.2755542
      y = 31.297284
      z = 0
      irot = 966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 967
      theta1 = 90
      phi1 = 97.085357
      theta2 = 90
      phi2 = -172.91464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 226
      chmoth = 'DC13'
      x = -3.8706436
      y = 31.140267
      z = 0
      irot = 967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 968
      theta1 = 90
      phi1 = 100.01219
      theta2 = 90
      phi2 = -169.98781
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 227
      chmoth = 'DC13'
      x = -5.455635
      y = 30.902009
      z = 0
      irot = 968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 969
      theta1 = 90
      phi1 = 102.93902
      theta2 = 90
      phi2 = -167.06098
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 228
      chmoth = 'DC13'
      x = -7.0263932
      y = 30.583131
      z = 0
      irot = 969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 970
      theta1 = 90
      phi1 = 105.86584
      theta2 = 90
      phi2 = -164.13416
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 229
      chmoth = 'DC13'
      x = -8.5788204
      y = 30.184466
      z = 0
      irot = 970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 971
      theta1 = 90
      phi1 = 108.79267
      theta2 = 90
      phi2 = -161.20733
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 230
      chmoth = 'DC13'
      x = -10.108866
      y = 29.707052
      z = 0
      irot = 971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 972
      theta1 = 90
      phi1 = 111.7195
      theta2 = 90
      phi2 = -158.2805
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 231
      chmoth = 'DC13'
      x = -11.61254
      y = 29.152136
      z = 0
      irot = 972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 973
      theta1 = 90
      phi1 = 114.64633
      theta2 = 90
      phi2 = -155.35367
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 232
      chmoth = 'DC13'
      x = -13.085917
      y = 28.521166
      z = 0
      irot = 973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 974
      theta1 = 90
      phi1 = 117.57316
      theta2 = 90
      phi2 = -152.42684
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 233
      chmoth = 'DC13'
      x = -14.525155
      y = 27.815787
      z = 0
      irot = 974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 975
      theta1 = 90
      phi1 = 120.49999
      theta2 = 90
      phi2 = -149.50001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 234
      chmoth = 'DC13'
      x = -15.926498
      y = 27.03784
      z = 0
      irot = 975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 976
      theta1 = 90
      phi1 = 123.42682
      theta2 = 90
      phi2 = -146.57318
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 235
      chmoth = 'DC13'
      x = -17.286291
      y = 26.189354
      z = 0
      irot = 976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 977
      theta1 = 90
      phi1 = 126.35365
      theta2 = 90
      phi2 = -143.64635
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 236
      chmoth = 'DC13'
      x = -18.600986
      y = 25.272544
      z = 0
      irot = 977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 978
      theta1 = 90
      phi1 = 129.28048
      theta2 = 90
      phi2 = -140.71952
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 237
      chmoth = 'DC13'
      x = -19.867153
      y = 24.2898
      z = 0
      irot = 978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 979
      theta1 = 90
      phi1 = 132.20731
      theta2 = 90
      phi2 = -137.79269
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 238
      chmoth = 'DC13'
      x = -21.081489
      y = 23.243687
      z = 0
      irot = 979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 980
      theta1 = 90
      phi1 = 135.13413
      theta2 = 90
      phi2 = -134.86587
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 239
      chmoth = 'DC13'
      x = -22.240825
      y = 22.136933
      z = 0
      irot = 980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 981
      theta1 = 90
      phi1 = 138.06096
      theta2 = 90
      phi2 = -131.93904
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 240
      chmoth = 'DC13'
      x = -23.342138
      y = 20.972427
      z = 0
      irot = 981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 982
      theta1 = 90
      phi1 = 140.98779
      theta2 = 90
      phi2 = -129.01221
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 241
      chmoth = 'DC13'
      x = -24.382554
      y = 19.753207
      z = 0
      irot = 982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 983
      theta1 = 90
      phi1 = 143.91462
      theta2 = 90
      phi2 = -126.08538
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 242
      chmoth = 'DC13'
      x = -25.359359
      y = 18.482452
      z = 0
      irot = 983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 984
      theta1 = 90
      phi1 = 146.84145
      theta2 = 90
      phi2 = -123.15855
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 243
      chmoth = 'DC13'
      x = -26.270004
      y = 17.163479
      z = 0
      irot = 984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 985
      theta1 = 90
      phi1 = 149.76828
      theta2 = 90
      phi2 = -120.23172
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 244
      chmoth = 'DC13'
      x = -27.112114
      y = 15.799728
      z = 0
      irot = 985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 986
      theta1 = 90
      phi1 = 152.69511
      theta2 = 90
      phi2 = -117.30489
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 245
      chmoth = 'DC13'
      x = -27.883491
      y = 14.394758
      z = 0
      irot = 986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 987
      theta1 = 90
      phi1 = 155.62194
      theta2 = 90
      phi2 = -114.37806
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 246
      chmoth = 'DC13'
      x = -28.582123
      y = 12.952233
      z = 0
      irot = 987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 988
      theta1 = 90
      phi1 = 158.54877
      theta2 = 90
      phi2 = -111.45123
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 247
      chmoth = 'DC13'
      x = -29.206188
      y = 11.475918
      z = 0
      irot = 988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 989
      theta1 = 90
      phi1 = 161.4756
      theta2 = 90
      phi2 = -108.5244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 248
      chmoth = 'DC13'
      x = -29.754058
      y = 9.969663
      z = 0
      irot = 989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 990
      theta1 = 90
      phi1 = 164.40242
      theta2 = 90
      phi2 = -105.59758
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 249
      chmoth = 'DC13'
      x = -30.224302
      y = 8.4373984
      z = 0
      irot = 990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 991
      theta1 = 90
      phi1 = 167.32925
      theta2 = 90
      phi2 = -102.67075
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 250
      chmoth = 'DC13'
      x = -30.615695
      y = 6.8831216
      z = 0
      irot = 991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 992
      theta1 = 90
      phi1 = 170.25608
      theta2 = 90
      phi2 = -99.743918
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 251
      chmoth = 'DC13'
      x = -30.927215
      y = 5.3108876
      z = 0
      irot = 992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 993
      theta1 = 90
      phi1 = 173.18291
      theta2 = 90
      phi2 = -96.817089
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 252
      chmoth = 'DC13'
      x = -31.158049
      y = 3.724798
      z = 0
      irot = 993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 994
      theta1 = 90
      phi1 = 176.10974
      theta2 = 90
      phi2 = -93.89026
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 253
      chmoth = 'DC13'
      x = -31.307595
      y = 2.1289909
      z = 0
      irot = 994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 995
      theta1 = 90
      phi1 = 179.03657
      theta2 = 90
      phi2 = -90.963431
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 254
      chmoth = 'DC13'
      x = -31.375464
      y = 0.5276295
      z = 0
      irot = 995
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 996
      theta1 = 90
      phi1 = -178.0366
      theta2 = 90
      phi2 = -88.036602
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 255
      chmoth = 'DC13'
      x = -31.361477
      y = -1.0751084
      z = 0
      irot = 996
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 997
      theta1 = 90
      phi1 = -175.10977
      theta2 = 90
      phi2 = -85.109773
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 256
      chmoth = 'DC13'
      x = -31.265672
      y = -2.6750415
      z = 0
      irot = 997
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 998
      theta1 = 90
      phi1 = -172.18294
      theta2 = 90
      phi2 = -82.182944
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 257
      chmoth = 'DC13'
      x = -31.088299
      y = -4.2679957
      z = 0
      irot = 998
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 999
      theta1 = 90
      phi1 = -169.25611
      theta2 = 90
      phi2 = -79.256115
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 258
      chmoth = 'DC13'
      x = -30.82982
      y = -5.8498153
      z = 0
      irot = 999
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1000
      theta1 = 90
      phi1 = -166.32929
      theta2 = 90
      phi2 = -76.329286
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 259
      chmoth = 'DC13'
      x = -30.490909
      y = -7.4163733
      z = 0
      irot = 1000
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1001
      theta1 = 90
      phi1 = -163.40246
      theta2 = 90
      phi2 = -73.402457
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 260
      chmoth = 'DC13'
      x = -30.072451
      y = -8.9635828
      z = 0
      irot = 1001
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1002
      theta1 = 90
      phi1 = -160.47563
      theta2 = 90
      phi2 = -70.475628
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 261
      chmoth = 'DC13'
      x = -29.575537
      y = -10.487407
      z = 0
      irot = 1002
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1003
      theta1 = 90
      phi1 = -157.5488
      theta2 = 90
      phi2 = -67.548799
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 262
      chmoth = 'DC13'
      x = -29.001465
      y = -11.983872
      z = 0
      irot = 1003
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1004
      theta1 = 90
      phi1 = -154.62197
      theta2 = 90
      phi2 = -64.62197
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 263
      chmoth = 'DC13'
      x = -28.35173
      y = -13.449071
      z = 0
      irot = 1004
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1005
      theta1 = 90
      phi1 = -151.69514
      theta2 = 90
      phi2 = -61.695141
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 264
      chmoth = 'DC13'
      x = -27.62803
      y = -14.879184
      z = 0
      irot = 1005
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1006
      theta1 = 90
      phi1 = -148.76831
      theta2 = 90
      phi2 = -58.768312
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 265
      chmoth = 'DC13'
      x = -26.832251
      y = -16.270478
      z = 0
      irot = 1006
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1007
      theta1 = 90
      phi1 = -145.84148
      theta2 = 90
      phi2 = -55.841483
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 266
      chmoth = 'DC13'
      x = -25.966469
      y = -17.619325
      z = 0
      irot = 1007
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1008
      theta1 = 90
      phi1 = -142.91465
      theta2 = 90
      phi2 = -52.914654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 267
      chmoth = 'DC13'
      x = -25.032944
      y = -18.922205
      z = 0
      irot = 1008
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1009
      theta1 = 90
      phi1 = -139.98782
      theta2 = 90
      phi2 = -49.987825
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 268
      chmoth = 'DC13'
      x = -24.034111
      y = -20.175718
      z = 0
      irot = 1009
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1010
      theta1 = 90
      phi1 = -137.061
      theta2 = 90
      phi2 = -47.060996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 269
      chmoth = 'DC13'
      x = -22.972576
      y = -21.376596
      z = 0
      irot = 1010
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1011
      theta1 = 90
      phi1 = -134.13417
      theta2 = 90
      phi2 = -44.134167
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 270
      chmoth = 'DC13'
      x = -21.851108
      y = -22.521705
      z = 0
      irot = 1011
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1012
      theta1 = 90
      phi1 = -131.20734
      theta2 = 90
      phi2 = -41.207338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 271
      chmoth = 'DC13'
      x = -20.672633
      y = -23.608057
      z = 0
      irot = 1012
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1013
      theta1 = 90
      phi1 = -128.28051
      theta2 = 90
      phi2 = -38.280509
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 272
      chmoth = 'DC13'
      x = -19.440226
      y = -24.632819
      z = 0
      irot = 1013
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1014
      theta1 = 90
      phi1 = -125.35368
      theta2 = 90
      phi2 = -35.35368
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 273
      chmoth = 'DC13'
      x = -18.157101
      y = -25.593316
      z = 0
      irot = 1014
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1015
      theta1 = 90
      phi1 = -122.42685
      theta2 = 90
      phi2 = -32.426851
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 274
      chmoth = 'DC13'
      x = -16.826606
      y = -26.487043
      z = 0
      irot = 1015
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1016
      theta1 = 90
      phi1 = -119.50002
      theta2 = 90
      phi2 = -29.500022
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 275
      chmoth = 'DC13'
      x = -15.452213
      y = -27.311669
      z = 0
      irot = 1016
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1017
      theta1 = 90
      phi1 = -116.57319
      theta2 = 90
      phi2 = -26.573193
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 276
      chmoth = 'DC13'
      x = -14.037506
      y = -28.065041
      z = 0
      irot = 1017
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1018
      theta1 = 90
      phi1 = -113.64636
      theta2 = 90
      phi2 = -23.646364
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 277
      chmoth = 'DC13'
      x = -12.586177
      y = -28.745195
      z = 0
      irot = 1018
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1019
      theta1 = 90
      phi1 = -110.71954
      theta2 = 90
      phi2 = -20.719535
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 278
      chmoth = 'DC13'
      x = -11.102013
      y = -29.350357
      z = 0
      irot = 1019
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1020
      theta1 = 90
      phi1 = -107.79271
      theta2 = 90
      phi2 = -17.792706
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 279
      chmoth = 'DC13'
      x = -9.5888845
      y = -29.878946
      z = 0
      irot = 1020
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1021
      theta1 = 90
      phi1 = -104.86588
      theta2 = 90
      phi2 = -14.865877
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 280
      chmoth = 'DC13'
      x = -8.0507397
      y = -30.329585
      z = 0
      irot = 1021
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1022
      theta1 = 90
      phi1 = -101.93905
      theta2 = 90
      phi2 = -11.939048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 281
      chmoth = 'DC13'
      x = -6.4915915
      y = -30.701097
      z = 0
      irot = 1022
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1023
      theta1 = 90
      phi1 = -99.012219
      theta2 = 90
      phi2 = -9.012219
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 282
      chmoth = 'DC13'
      x = -4.9155075
      y = -30.992514
      z = 0
      irot = 1023
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1024
      theta1 = 90
      phi1 = -96.08539
      theta2 = 90
      phi2 = -6.08539
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 283
      chmoth = 'DC13'
      x = -3.3265995
      y = -31.203075
      z = 0
      irot = 1024
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1025
      theta1 = 90
      phi1 = -93.158561
      theta2 = 90
      phi2 = -3.158561
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 284
      chmoth = 'DC13'
      x = -1.7290128
      y = -31.33223
      z = 0
      irot = 1025
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1026
      theta1 = 90
      phi1 = -90.231732
      theta2 = 90
      phi2 = -0.231732
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 285
      chmoth = 'DC13'
      x = -0.12691523
      y = -31.379643
      z = 0
      irot = 1026
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1027
      theta1 = 90
      phi1 = -87.304903
      theta2 = 90
      phi2 = 2.695097
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 286
      chmoth = 'DC13'
      x = 1.4755134
      y = -31.345191
      z = 0
      irot = 1027
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1028
      theta1 = 90
      phi1 = -84.378074
      theta2 = 90
      phi2 = 5.621926
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 287
      chmoth = 'DC13'
      x = 3.0740926
      y = -31.228962
      z = 0
      irot = 1028
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1029
      theta1 = 90
      phi1 = -81.451245
      theta2 = 90
      phi2 = 8.548755
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 288
      chmoth = 'DC13'
      x = 4.6646518
      y = -31.031261
      z = 0
      irot = 1029
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1030
      theta1 = 90
      phi1 = -78.524416
      theta2 = 90
      phi2 = 11.475584
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 289
      chmoth = 'DC13'
      x = 6.2430415
      y = -30.752602
      z = 0
      irot = 1030
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1031
      theta1 = 90
      phi1 = -75.597587
      theta2 = 90
      phi2 = 14.402413
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 290
      chmoth = 'DC13'
      x = 7.8051438
      y = -30.393714
      z = 0
      irot = 1031
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1032
      theta1 = 90
      phi1 = -72.670758
      theta2 = 90
      phi2 = 17.329242
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 291
      chmoth = 'DC13'
      x = 9.3468834
      y = -29.955532
      z = 0
      irot = 1032
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1033
      theta1 = 90
      phi1 = -69.743929
      theta2 = 90
      phi2 = 20.256071
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 292
      chmoth = 'DC13'
      x = 10.864238
      y = -29.439199
      z = 0
      irot = 1033
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1034
      theta1 = 90
      phi1 = -66.8171
      theta2 = 90
      phi2 = 23.1829
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 293
      chmoth = 'DC13'
      x = 12.353249
      y = -28.846063
      z = 0
      irot = 1034
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1035
      theta1 = 90
      phi1 = -63.890271
      theta2 = 90
      phi2 = 26.109729
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 294
      chmoth = 'DC13'
      x = 13.810032
      y = -28.177671
      z = 0
      irot = 1035
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1036
      theta1 = 90
      phi1 = -60.963442
      theta2 = 90
      phi2 = 29.036558
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 295
      chmoth = 'DC13'
      x = 15.230786
      y = -27.435766
      z = 0
      irot = 1036
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1037
      theta1 = 90
      phi1 = -58.036613
      theta2 = 90
      phi2 = 31.963387
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 296
      chmoth = 'DC13'
      x = 16.611805
      y = -26.622285
      z = 0
      irot = 1037
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1038
      theta1 = 90
      phi1 = -55.109784
      theta2 = 90
      phi2 = 34.890216
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 297
      chmoth = 'DC13'
      x = 17.949485
      y = -25.739349
      z = 0
      irot = 1038
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1039
      theta1 = 90
      phi1 = -52.182955
      theta2 = 90
      phi2 = 37.817045
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 298
      chmoth = 'DC13'
      x = 19.240337
      y = -24.789263
      z = 0
      irot = 1039
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1040
      theta1 = 90
      phi1 = -49.256126
      theta2 = 90
      phi2 = 40.743874
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 299
      chmoth = 'DC13'
      x = 20.480994
      y = -23.774503
      z = 0
      irot = 1040
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1041
      theta1 = 90
      phi1 = -46.329297
      theta2 = 90
      phi2 = 43.670703
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 300
      chmoth = 'DC13'
      x = 21.668218
      y = -22.697719
      z = 0
      irot = 1041
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1042
      theta1 = 90
      phi1 = -43.402468
      theta2 = 90
      phi2 = 46.597532
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 301
      chmoth = 'DC13'
      x = 22.798912
      y = -21.561719
      z = 0
      irot = 1042
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1043
      theta1 = 90
      phi1 = -40.475639
      theta2 = 90
      phi2 = 49.524361
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 302
      chmoth = 'DC13'
      x = 23.870126
      y = -20.369468
      z = 0
      irot = 1043
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1044
      theta1 = 90
      phi1 = -37.54881
      theta2 = 90
      phi2 = 52.45119
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 303
      chmoth = 'DC13'
      x = 24.879066
      y = -19.124074
      z = 0
      irot = 1044
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1045
      theta1 = 90
      phi1 = -34.621981
      theta2 = 90
      phi2 = 55.378019
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 304
      chmoth = 'DC13'
      x = 25.823099
      y = -17.828788
      z = 0
      irot = 1045
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1046
      theta1 = 90
      phi1 = -31.695152
      theta2 = 90
      phi2 = 58.304848
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 305
      chmoth = 'DC13'
      x = 26.699763
      y = -16.486989
      z = 0
      irot = 1046
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1047
      theta1 = 90
      phi1 = -28.768323
      theta2 = 90
      phi2 = 61.231677
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 306
      chmoth = 'DC13'
      x = 27.50677
      y = -15.102177
      z = 0
      irot = 1047
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1048
      theta1 = 90
      phi1 = -25.841494
      theta2 = 90
      phi2 = 64.158506
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 307
      chmoth = 'DC13'
      x = 28.242015
      y = -13.677965
      z = 0
      irot = 1048
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1049
      theta1 = 90
      phi1 = -22.914665
      theta2 = 90
      phi2 = 67.085335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 308
      chmoth = 'DC13'
      x = 28.90358
      y = -12.218069
      z = 0
      irot = 1049
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1050
      theta1 = 90
      phi1 = -19.987836
      theta2 = 90
      phi2 = 70.012164
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 309
      chmoth = 'DC13'
      x = 29.489738
      y = -10.726297
      z = 0
      irot = 1050
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1051
      theta1 = 90
      phi1 = -17.061007
      theta2 = 90
      phi2 = 72.938993
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 310
      chmoth = 'DC13'
      x = 29.998962
      y = -9.2065422
      z = 0
      irot = 1051
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1052
      theta1 = 90
      phi1 = -14.134178
      theta2 = 90
      phi2 = 75.865822
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 311
      chmoth = 'DC13'
      x = 30.429921
      y = -7.6627681
      z = 0
      irot = 1052
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1053
      theta1 = 90
      phi1 = -11.207349
      theta2 = 90
      phi2 = 78.792651
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 312
      chmoth = 'DC13'
      x = 30.781493
      y = -6.0990027
      z = 0
      irot = 1053
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1054
      theta1 = 90
      phi1 = -8.28052
      theta2 = 90
      phi2 = 81.71948
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 313
      chmoth = 'DC13'
      x = 31.052759
      y = -4.5193258
      z = 0
      irot = 1054
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1055
      theta1 = 90
      phi1 = -5.353691
      theta2 = 90
      phi2 = 84.646309
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 314
      chmoth = 'DC13'
      x = 31.243012
      y = -2.9278584
      z = 0
      irot = 1055
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1056
      theta1 = 90
      phi1 = -2.426862
      theta2 = 90
      phi2 = 87.573138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 315
      chmoth = 'DC13'
      x = 31.351755
      y = -1.3287526
      z = 0
      irot = 1056
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1057
      theta1 = 90
      phi1 = 1.9634146
      theta2 = 90
      phi2 = 91.963415
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 316
      chmoth = 'DC13'
      x = 32.755458
      y = 1.1229052
      z = 0
      irot = 1057
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1058
      theta1 = 90
      phi1 = 4.8902436
      theta2 = 90
      phi2 = 94.890244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 317
      chmoth = 'DC13'
      x = 32.655394
      y = 2.7939535
      z = 0
      irot = 1058
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1059
      theta1 = 90
      phi1 = 7.8170726
      theta2 = 90
      phi2 = 97.817073
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 318
      chmoth = 'DC13'
      x = 32.470136
      y = 4.4577126
      z = 0
      irot = 1059
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1060
      theta1 = 90
      phi1 = 10.743902
      theta2 = 90
      phi2 = 100.7439
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 319
      chmoth = 'DC13'
      x = 32.200168
      y = 6.1098421
      z = 0
      irot = 1060
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1061
      theta1 = 90
      phi1 = 13.670731
      theta2 = 90
      phi2 = 103.67073
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 320
      chmoth = 'DC13'
      x = 31.846192
      y = 7.7460317
      z = 0
      irot = 1061
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1062
      theta1 = 90
      phi1 = 16.59756
      theta2 = 90
      phi2 = 106.59756
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 321
      chmoth = 'DC13'
      x = 31.409134
      y = 9.3620127
      z = 0
      irot = 1062
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1063
      theta1 = 90
      phi1 = 19.524389
      theta2 = 90
      phi2 = 109.52439
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 322
      chmoth = 'DC13'
      x = 30.890132
      y = 10.953569
      z = 0
      irot = 1063
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1064
      theta1 = 90
      phi1 = 22.451218
      theta2 = 90
      phi2 = 112.45122
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 323
      chmoth = 'DC13'
      x = 30.290542
      y = 12.516549
      z = 0
      irot = 1064
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1065
      theta1 = 90
      phi1 = 25.378047
      theta2 = 90
      phi2 = 115.37805
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 324
      chmoth = 'DC13'
      x = 29.611928
      y = 14.046875
      z = 0
      irot = 1065
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1066
      theta1 = 90
      phi1 = 28.304876
      theta2 = 90
      phi2 = 118.30488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 325
      chmoth = 'DC13'
      x = 28.856059
      y = 15.540554
      z = 0
      irot = 1066
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1067
      theta1 = 90
      phi1 = 31.231705
      theta2 = 90
      phi2 = 121.2317
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 326
      chmoth = 'DC13'
      x = 28.024908
      y = 16.99369
      z = 0
      irot = 1067
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1068
      theta1 = 90
      phi1 = 34.158534
      theta2 = 90
      phi2 = 124.15853
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 327
      chmoth = 'DC13'
      x = 27.120643
      y = 18.402491
      z = 0
      irot = 1068
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1069
      theta1 = 90
      phi1 = 37.085363
      theta2 = 90
      phi2 = 127.08536
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 328
      chmoth = 'DC13'
      x = 26.145624
      y = 19.763282
      z = 0
      irot = 1069
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1070
      theta1 = 90
      phi1 = 40.012192
      theta2 = 90
      phi2 = 130.01219
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 329
      chmoth = 'DC13'
      x = 25.102393
      y = 21.072513
      z = 0
      irot = 1070
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1071
      theta1 = 90
      phi1 = 42.939021
      theta2 = 90
      phi2 = 132.93902
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 330
      chmoth = 'DC13'
      x = 23.993674
      y = 22.326768
      z = 0
      irot = 1071
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1072
      theta1 = 90
      phi1 = 45.86585
      theta2 = 90
      phi2 = 135.86585
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 331
      chmoth = 'DC13'
      x = 22.822358
      y = 23.522775
      z = 0
      irot = 1072
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1073
      theta1 = 90
      phi1 = 48.792679
      theta2 = 90
      phi2 = 138.79268
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 332
      chmoth = 'DC13'
      x = 21.5915
      y = 24.657414
      z = 0
      irot = 1073
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1074
      theta1 = 90
      phi1 = 51.719508
      theta2 = 90
      phi2 = 141.71951
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 333
      chmoth = 'DC13'
      x = 20.304313
      y = 25.727725
      z = 0
      irot = 1074
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1075
      theta1 = 90
      phi1 = 54.646337
      theta2 = 90
      phi2 = 144.64634
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 334
      chmoth = 'DC13'
      x = 18.964155
      y = 26.730915
      z = 0
      irot = 1075
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1076
      theta1 = 90
      phi1 = 57.573166
      theta2 = 90
      phi2 = 147.57317
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 335
      chmoth = 'DC13'
      x = 17.574521
      y = 27.664366
      z = 0
      irot = 1076
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1077
      theta1 = 90
      phi1 = 60.499995
      theta2 = 90
      phi2 = 150.49999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 336
      chmoth = 'DC13'
      x = 16.139037
      y = 28.525645
      z = 0
      irot = 1077
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1078
      theta1 = 90
      phi1 = 63.426824
      theta2 = 90
      phi2 = 153.42682
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 337
      chmoth = 'DC13'
      x = 14.661448
      y = 29.312504
      z = 0
      irot = 1078
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1079
      theta1 = 90
      phi1 = 66.353653
      theta2 = 90
      phi2 = 156.35365
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 338
      chmoth = 'DC13'
      x = 13.14561
      y = 30.02289
      z = 0
      irot = 1079
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1080
      theta1 = 90
      phi1 = 69.280482
      theta2 = 90
      phi2 = 159.28048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 339
      chmoth = 'DC13'
      x = 11.595476
      y = 30.654949
      z = 0
      irot = 1080
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1081
      theta1 = 90
      phi1 = 72.207311
      theta2 = 90
      phi2 = 162.20731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 340
      chmoth = 'DC13'
      x = 10.01509
      y = 31.207033
      z = 0
      irot = 1081
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1082
      theta1 = 90
      phi1 = 75.13414
      theta2 = 90
      phi2 = 165.13414
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 341
      chmoth = 'DC13'
      x = 8.4085765
      y = 31.677702
      z = 0
      irot = 1082
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1083
      theta1 = 90
      phi1 = 78.060969
      theta2 = 90
      phi2 = 168.06097
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 342
      chmoth = 'DC13'
      x = 6.7801259
      y = 32.065727
      z = 0
      irot = 1083
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1084
      theta1 = 90
      phi1 = 80.987798
      theta2 = 90
      phi2 = 170.9878
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 343
      chmoth = 'DC13'
      x = 5.1339867
      y = 32.370096
      z = 0
      irot = 1084
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1085
      theta1 = 90
      phi1 = 83.914627
      theta2 = 90
      phi2 = 173.91463
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 344
      chmoth = 'DC13'
      x = 3.4744535
      y = 32.590016
      z = 0
      irot = 1085
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1086
      theta1 = 90
      phi1 = 86.841456
      theta2 = 90
      phi2 = 176.84146
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 345
      chmoth = 'DC13'
      x = 1.8058559
      y = 32.724912
      z = 0
      irot = 1086
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1087
      theta1 = 90
      phi1 = 89.768285
      theta2 = 90
      phi2 = 179.76828
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 346
      chmoth = 'DC13'
      x = 0.13254697
      y = 32.774432
      z = 0
      irot = 1087
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1088
      theta1 = 90
      phi1 = 92.695114
      theta2 = 90
      phi2 = -177.30489
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 347
      chmoth = 'DC13'
      x = -1.5411077
      y = 32.738448
      z = 0
      irot = 1088
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1089
      theta1 = 90
      phi1 = 95.621943
      theta2 = 90
      phi2 = -174.37806
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 348
      chmoth = 'DC13'
      x = -3.2107419
      y = 32.617052
      z = 0
      irot = 1089
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1090
      theta1 = 90
      phi1 = 98.548772
      theta2 = 90
      phi2 = -171.45123
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 349
      chmoth = 'DC13'
      x = -4.8719996
      y = 32.410563
      z = 0
      irot = 1090
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1091
      theta1 = 90
      phi1 = 101.4756
      theta2 = 90
      phi2 = -168.5244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 350
      chmoth = 'DC13'
      x = -6.5205467
      y = 32.119518
      z = 0
      irot = 1091
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1092
      theta1 = 90
      phi1 = 104.40243
      theta2 = 90
      phi2 = -165.59757
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 351
      chmoth = 'DC13'
      x = -8.1520826
      y = 31.744677
      z = 0
      irot = 1092
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1093
      theta1 = 90
      phi1 = 107.32926
      theta2 = 90
      phi2 = -162.67074
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 352
      chmoth = 'DC13'
      x = -9.7623506
      y = 31.287018
      z = 0
      irot = 1093
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1094
      theta1 = 90
      phi1 = 110.25609
      theta2 = 90
      phi2 = -159.74391
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 353
      chmoth = 'DC13'
      x = -11.34715
      y = 30.747734
      z = 0
      irot = 1094
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1095
      theta1 = 90
      phi1 = 113.18292
      theta2 = 90
      phi2 = -156.81708
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 354
      chmoth = 'DC13'
      x = -12.902345
      y = 30.128233
      z = 0
      irot = 1095
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1096
      theta1 = 90
      phi1 = 116.10975
      theta2 = 90
      phi2 = -153.89025
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 355
      chmoth = 'DC13'
      x = -14.42388
      y = 29.430131
      z = 0
      irot = 1096
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1097
      theta1 = 90
      phi1 = 119.03657
      theta2 = 90
      phi2 = -150.96343
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 356
      chmoth = 'DC13'
      x = -15.907785
      y = 28.65525
      z = 0
      irot = 1097
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1098
      theta1 = 90
      phi1 = 121.9634
      theta2 = 90
      phi2 = -148.0366
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 357
      chmoth = 'DC13'
      x = -17.350188
      y = 27.80561
      z = 0
      irot = 1098
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1099
      theta1 = 90
      phi1 = 124.89023
      theta2 = 90
      phi2 = -145.10977
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 358
      chmoth = 'DC13'
      x = -18.747327
      y = 26.883428
      z = 0
      irot = 1099
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1100
      theta1 = 90
      phi1 = 127.81706
      theta2 = 90
      phi2 = -142.18294
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 359
      chmoth = 'DC13'
      x = -20.095556
      y = 25.891111
      z = 0
      irot = 1100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1101
      theta1 = 90
      phi1 = 130.74389
      theta2 = 90
      phi2 = -139.25611
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 360
      chmoth = 'DC13'
      x = -21.391357
      y = 24.831246
      z = 0
      irot = 1101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1102
      theta1 = 90
      phi1 = 133.67072
      theta2 = 90
      phi2 = -136.32928
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 361
      chmoth = 'DC13'
      x = -22.631352
      y = 23.7066
      z = 0
      irot = 1102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1103
      theta1 = 90
      phi1 = 136.59755
      theta2 = 90
      phi2 = -133.40245
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 362
      chmoth = 'DC13'
      x = -23.812303
      y = 22.520106
      z = 0
      irot = 1103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1104
      theta1 = 90
      phi1 = 139.52438
      theta2 = 90
      phi2 = -130.47562
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 363
      chmoth = 'DC13'
      x = -24.931131
      y = 21.274859
      z = 0
      irot = 1104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1105
      theta1 = 90
      phi1 = 142.45121
      theta2 = 90
      phi2 = -127.54879
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 364
      chmoth = 'DC13'
      x = -25.984917
      y = 19.974109
      z = 0
      irot = 1105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1106
      theta1 = 90
      phi1 = 145.37804
      theta2 = 90
      phi2 = -124.62196
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 365
      chmoth = 'DC13'
      x = -26.970911
      y = 18.621249
      z = 0
      irot = 1106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1107
      theta1 = 90
      phi1 = 148.30486
      theta2 = 90
      phi2 = -121.69514
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 366
      chmoth = 'DC13'
      x = -27.886541
      y = 17.219808
      z = 0
      irot = 1107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1108
      theta1 = 90
      phi1 = 151.23169
      theta2 = 90
      phi2 = -118.76831
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 367
      chmoth = 'DC13'
      x = -28.729418
      y = 15.773443
      z = 0
      irot = 1108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1109
      theta1 = 90
      phi1 = 154.15852
      theta2 = 90
      phi2 = -115.84148
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 368
      chmoth = 'DC13'
      x = -29.497344
      y = 14.285926
      z = 0
      irot = 1109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1110
      theta1 = 90
      phi1 = 157.08535
      theta2 = 90
      phi2 = -112.91465
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 369
      chmoth = 'DC13'
      x = -30.188314
      y = 12.761139
      z = 0
      irot = 1110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1111
      theta1 = 90
      phi1 = 160.01218
      theta2 = 90
      phi2 = -109.98782
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 370
      chmoth = 'DC13'
      x = -30.800526
      y = 11.20306
      z = 0
      irot = 1111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1112
      theta1 = 90
      phi1 = 162.93901
      theta2 = 90
      phi2 = -107.06099
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 371
      chmoth = 'DC13'
      x = -31.332383
      y = 9.6157532
      z = 0
      irot = 1112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1113
      theta1 = 90
      phi1 = 165.86584
      theta2 = 90
      phi2 = -104.13416
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 372
      chmoth = 'DC13'
      x = -31.782498
      y = 8.00336
      z = 0
      irot = 1113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1114
      theta1 = 90
      phi1 = 168.79267
      theta2 = 90
      phi2 = -101.20733
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 373
      chmoth = 'DC13'
      x = -32.149696
      y = 6.370087
      z = 0
      irot = 1114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1115
      theta1 = 90
      phi1 = 171.7195
      theta2 = 90
      phi2 = -98.280503
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 374
      chmoth = 'DC13'
      x = -32.433019
      y = 4.7201952
      z = 0
      irot = 1115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1116
      theta1 = 90
      phi1 = 174.64633
      theta2 = 90
      phi2 = -95.353674
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 375
      chmoth = 'DC13'
      x = -32.631728
      y = 3.0579889
      z = 0
      irot = 1116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1117
      theta1 = 90
      phi1 = 177.57315
      theta2 = 90
      phi2 = -92.426845
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 376
      chmoth = 'DC13'
      x = -32.745304
      y = 1.3878046
      z = 0
      irot = 1117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1118
      theta1 = 90
      phi1 = -179.50002
      theta2 = 90
      phi2 = -89.500016
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 377
      chmoth = 'DC13'
      x = -32.773452
      y = -0.2860002
      z = 0
      irot = 1118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1119
      theta1 = 90
      phi1 = -176.57319
      theta2 = 90
      phi2 = -86.573187
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 378
      chmoth = 'DC13'
      x = -32.716098
      y = -1.9590589
      z = 0
      irot = 1119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1120
      theta1 = 90
      phi1 = -173.64636
      theta2 = 90
      phi2 = -83.646358
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 379
      chmoth = 'DC13'
      x = -32.573391
      y = -3.6270067
      z = 0
      irot = 1120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1121
      theta1 = 90
      phi1 = -170.71953
      theta2 = 90
      phi2 = -80.719529
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 380
      chmoth = 'DC13'
      x = -32.345703
      y = -5.285492
      z = 0
      irot = 1121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1122
      theta1 = 90
      phi1 = -167.7927
      theta2 = 90
      phi2 = -77.7927
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 381
      chmoth = 'DC13'
      x = -32.03363
      y = -6.930188
      z = 0
      irot = 1122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1123
      theta1 = 90
      phi1 = -164.86587
      theta2 = 90
      phi2 = -74.865871
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 382
      chmoth = 'DC13'
      x = -31.637985
      y = -8.556804
      z = 0
      irot = 1123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1124
      theta1 = 90
      phi1 = -161.93904
      theta2 = 90
      phi2 = -71.939042
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 383
      chmoth = 'DC13'
      x = -31.159799
      y = -10.161096
      z = 0
      irot = 1124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1125
      theta1 = 90
      phi1 = -159.01221
      theta2 = 90
      phi2 = -69.012213
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 384
      chmoth = 'DC13'
      x = -30.600321
      y = -11.738879
      z = 0
      irot = 1125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1126
      theta1 = 90
      phi1 = -156.08538
      theta2 = 90
      phi2 = -66.085384
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 385
      chmoth = 'DC13'
      x = -29.961011
      y = -13.286037
      z = 0
      irot = 1126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1127
      theta1 = 90
      phi1 = -153.15856
      theta2 = 90
      phi2 = -63.158555
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 386
      chmoth = 'DC13'
      x = -29.243536
      y = -14.798533
      z = 0
      irot = 1127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1128
      theta1 = 90
      phi1 = -150.23173
      theta2 = 90
      phi2 = -60.231726
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 387
      chmoth = 'DC13'
      x = -28.449767
      y = -16.272421
      z = 0
      irot = 1128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1129
      theta1 = 90
      phi1 = -147.3049
      theta2 = 90
      phi2 = -57.304897
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 388
      chmoth = 'DC13'
      x = -27.581777
      y = -17.703857
      z = 0
      irot = 1129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1130
      theta1 = 90
      phi1 = -144.37807
      theta2 = 90
      phi2 = -54.378068
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 389
      chmoth = 'DC13'
      x = -26.641829
      y = -19.089105
      z = 0
      irot = 1130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1131
      theta1 = 90
      phi1 = -141.45124
      theta2 = 90
      phi2 = -51.451239
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 390
      chmoth = 'DC13'
      x = -25.632375
      y = -20.424552
      z = 0
      irot = 1131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1132
      theta1 = 90
      phi1 = -138.52441
      theta2 = 90
      phi2 = -48.52441
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 391
      chmoth = 'DC13'
      x = -24.556049
      y = -21.706713
      z = 0
      irot = 1132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1133
      theta1 = 90
      phi1 = -135.59758
      theta2 = 90
      phi2 = -45.597581
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 392
      chmoth = 'DC13'
      x = -23.41566
      y = -22.932245
      z = 0
      irot = 1133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1134
      theta1 = 90
      phi1 = -132.67075
      theta2 = 90
      phi2 = -42.670752
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 393
      chmoth = 'DC13'
      x = -22.214181
      y = -24.097948
      z = 0
      irot = 1134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1135
      theta1 = 90
      phi1 = -129.74392
      theta2 = 90
      phi2 = -39.743923
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 394
      chmoth = 'DC13'
      x = -20.954749
      y = -25.200783
      z = 0
      irot = 1135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1136
      theta1 = 90
      phi1 = -126.81709
      theta2 = 90
      phi2 = -36.817094
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 395
      chmoth = 'DC13'
      x = -19.640648
      y = -26.237872
      z = 0
      irot = 1136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1137
      theta1 = 90
      phi1 = -123.89027
      theta2 = 90
      phi2 = -33.890265
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 396
      chmoth = 'DC13'
      x = -18.275306
      y = -27.206509
      z = 0
      irot = 1137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1138
      theta1 = 90
      phi1 = -120.96344
      theta2 = 90
      phi2 = -30.963436
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 397
      chmoth = 'DC13'
      x = -16.862287
      y = -28.104168
      z = 0
      irot = 1138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1139
      theta1 = 90
      phi1 = -118.03661
      theta2 = 90
      phi2 = -28.036607
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 398
      chmoth = 'DC13'
      x = -15.405276
      y = -28.928506
      z = 0
      irot = 1139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1140
      theta1 = 90
      phi1 = -115.10978
      theta2 = 90
      phi2 = -25.109778
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 399
      chmoth = 'DC13'
      x = -13.908074
      y = -29.677373
      z = 0
      irot = 1140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1141
      theta1 = 90
      phi1 = -112.18295
      theta2 = 90
      phi2 = -22.182949
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 400
      chmoth = 'DC13'
      x = -12.374588
      y = -30.348815
      z = 0
      irot = 1141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1142
      theta1 = 90
      phi1 = -109.25612
      theta2 = 90
      phi2 = -19.25612
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 401
      chmoth = 'DC13'
      x = -10.808817
      y = -30.94108
      z = 0
      irot = 1142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1143
      theta1 = 90
      phi1 = -106.32929
      theta2 = 90
      phi2 = -16.329291
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 402
      chmoth = 'DC13'
      x = -9.214848
      y = -31.452624
      z = 0
      irot = 1143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1144
      theta1 = 90
      phi1 = -103.40246
      theta2 = 90
      phi2 = -13.402462
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 403
      chmoth = 'DC13'
      x = -7.5968382
      y = -31.882111
      z = 0
      irot = 1144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1145
      theta1 = 90
      phi1 = -100.47563
      theta2 = 90
      phi2 = -10.475633
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 404
      chmoth = 'DC13'
      x = -5.9590092
      y = -32.228422
      z = 0
      irot = 1145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1146
      theta1 = 90
      phi1 = -97.548804
      theta2 = 90
      phi2 = -7.5488044
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 405
      chmoth = 'DC13'
      x = -4.3056338
      y = -32.490652
      z = 0
      irot = 1146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1147
      theta1 = 90
      phi1 = -94.621975
      theta2 = 90
      phi2 = -4.6219754
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 406
      chmoth = 'DC13'
      x = -2.6410255
      y = -32.668118
      z = 0
      irot = 1147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1148
      theta1 = 90
      phi1 = -91.695146
      theta2 = 90
      phi2 = -1.6951464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 407
      chmoth = 'DC13'
      x = -0.96952708
      y = -32.760357
      z = 0
      irot = 1148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1149
      theta1 = 90
      phi1 = -88.768317
      theta2 = 90
      phi2 = 1.2316826
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 408
      chmoth = 'DC13'
      x = 0.70450073
      y = -32.767127
      z = 0
      irot = 1149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1150
      theta1 = 90
      phi1 = -85.841488
      theta2 = 90
      phi2 = 4.1585116
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 409
      chmoth = 'DC13'
      x = 2.3766906
      y = -32.688412
      z = 0
      irot = 1150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1151
      theta1 = 90
      phi1 = -82.914659
      theta2 = 90
      phi2 = 7.0853406
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 410
      chmoth = 'DC13'
      x = 4.0426799
      y = -32.524417
      z = 0
      irot = 1151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1152
      theta1 = 90
      phi1 = -79.98783
      theta2 = 90
      phi2 = 10.01217
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 411
      chmoth = 'DC13'
      x = 5.6981224
      y = -32.275569
      z = 0
      irot = 1152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1153
      theta1 = 90
      phi1 = -77.061001
      theta2 = 90
      phi2 = 12.938999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 412
      chmoth = 'DC13'
      x = 7.3386991
      y = -31.942518
      z = 0
      irot = 1153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1154
      theta1 = 90
      phi1 = -74.134172
      theta2 = 90
      phi2 = 15.865828
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 413
      chmoth = 'DC13'
      x = 8.96013
      y = -31.526133
      z = 0
      irot = 1154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1155
      theta1 = 90
      phi1 = -71.207343
      theta2 = 90
      phi2 = 18.792657
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 414
      chmoth = 'DC13'
      x = 10.558185
      y = -31.027499
      z = 0
      irot = 1155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1156
      theta1 = 90
      phi1 = -68.280514
      theta2 = 90
      phi2 = 21.719486
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 415
      chmoth = 'DC13'
      x = 12.128695
      y = -30.447918
      z = 0
      irot = 1156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1157
      theta1 = 90
      phi1 = -65.353685
      theta2 = 90
      phi2 = 24.646315
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 416
      chmoth = 'DC13'
      x = 13.667562
      y = -29.788902
      z = 0
      irot = 1157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1158
      theta1 = 90
      phi1 = -62.426856
      theta2 = 90
      phi2 = 27.573144
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 417
      chmoth = 'DC13'
      x = 15.170773
      y = -29.052171
      z = 0
      irot = 1158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1159
      theta1 = 90
      phi1 = -59.500027
      theta2 = 90
      phi2 = 30.499973
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 418
      chmoth = 'DC13'
      x = 16.634404
      y = -28.239645
      z = 0
      irot = 1159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1160
      theta1 = 90
      phi1 = -56.573198
      theta2 = 90
      phi2 = 33.426802
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 419
      chmoth = 'DC13'
      x = 18.054638
      y = -27.353446
      z = 0
      irot = 1160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1161
      theta1 = 90
      phi1 = -53.646369
      theta2 = 90
      phi2 = 36.353631
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 420
      chmoth = 'DC13'
      x = 19.42777
      y = -26.395884
      z = 0
      irot = 1161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1162
      theta1 = 90
      phi1 = -50.71954
      theta2 = 90
      phi2 = 39.28046
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 421
      chmoth = 'DC13'
      x = 20.750217
      y = -25.369459
      z = 0
      irot = 1162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1163
      theta1 = 90
      phi1 = -47.792711
      theta2 = 90
      phi2 = 42.207289
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 422
      chmoth = 'DC13'
      x = 22.018529
      y = -24.276848
      z = 0
      irot = 1163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1164
      theta1 = 90
      phi1 = -44.865882
      theta2 = 90
      phi2 = 45.134118
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 423
      chmoth = 'DC13'
      x = 23.229397
      y = -23.120901
      z = 0
      irot = 1164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1165
      theta1 = 90
      phi1 = -41.939053
      theta2 = 90
      phi2 = 48.060947
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 424
      chmoth = 'DC13'
      x = 24.379663
      y = -21.904634
      z = 0
      irot = 1165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1166
      theta1 = 90
      phi1 = -39.012224
      theta2 = 90
      phi2 = 50.987776
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 425
      chmoth = 'DC13'
      x = 25.466325
      y = -20.631221
      z = 0
      irot = 1166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1167
      theta1 = 90
      phi1 = -36.085395
      theta2 = 90
      phi2 = 53.914605
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 426
      chmoth = 'DC13'
      x = 26.486547
      y = -19.303983
      z = 0
      irot = 1167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1168
      theta1 = 90
      phi1 = -33.158566
      theta2 = 90
      phi2 = 56.841434
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 427
      chmoth = 'DC13'
      x = 27.43767
      y = -17.926383
      z = 0
      irot = 1168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1169
      theta1 = 90
      phi1 = -30.231737
      theta2 = 90
      phi2 = 59.768263
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 428
      chmoth = 'DC13'
      x = 28.317211
      y = -16.502016
      z = 0
      irot = 1169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1170
      theta1 = 90
      phi1 = -27.304908
      theta2 = 90
      phi2 = 62.695092
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 429
      chmoth = 'DC13'
      x = 29.122875
      y = -15.034596
      z = 0
      irot = 1170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1171
      theta1 = 90
      phi1 = -24.378079
      theta2 = 90
      phi2 = 65.621921
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 430
      chmoth = 'DC13'
      x = 29.852562
      y = -13.527954
      z = 0
      irot = 1171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1172
      theta1 = 90
      phi1 = -21.45125
      theta2 = 90
      phi2 = 68.54875
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 431
      chmoth = 'DC13'
      x = 30.504366
      y = -11.986018
      z = 0
      irot = 1172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1173
      theta1 = 90
      phi1 = -18.524421
      theta2 = 90
      phi2 = 71.475579
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 432
      chmoth = 'DC13'
      x = 31.076588
      y = -10.412812
      z = 0
      irot = 1173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1174
      theta1 = 90
      phi1 = -15.597592
      theta2 = 90
      phi2 = 74.402408
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 433
      chmoth = 'DC13'
      x = 31.567735
      y = -8.81244
      z = 0
      irot = 1174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1175
      theta1 = 90
      phi1 = -12.670763
      theta2 = 90
      phi2 = 77.329237
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 434
      chmoth = 'DC13'
      x = 31.976525
      y = -7.1890775
      z = 0
      irot = 1175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1176
      theta1 = 90
      phi1 = -9.7439344
      theta2 = 90
      phi2 = 80.256066
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 435
      chmoth = 'DC13'
      x = 32.301892
      y = -5.5469596
      z = 0
      irot = 1176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1177
      theta1 = 90
      phi1 = -6.8171054
      theta2 = 90
      phi2 = 83.182895
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 436
      chmoth = 'DC13'
      x = 32.542987
      y = -3.8903703
      z = 0
      irot = 1177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1178
      theta1 = 90
      phi1 = -3.8902764
      theta2 = 90
      phi2 = 86.109724
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 437
      chmoth = 'DC13'
      x = 32.699181
      y = -2.2236314
      z = 0
      irot = 1178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1179
      theta1 = 90
      phi1 = -0.9634474
      theta2 = 90
      phi2 = 89.036553
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 438
      chmoth = 'DC13'
      x = 32.770066
      y = -0.5510914
      z = 0
      irot = 1179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 4
      chmoth = 'DC13'
      x = 0
      y = 0
      z = -75.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 4
      chmoth = 'DC13'
      x = 0
      y = 0
      z = 75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 204
      natmed = 'DC15 CDchamberGas'
      nmat = 41
      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 = 204
      npar = 3
      par(1) = 33.633
      par(2) = 36.6432
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.221) stop 'consistency check #1 failed'

      chname = 'DC15'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 3.29
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 439
      chmoth = 'DC15'
      x = 34.429055
      y = 0.6009614
      z = 0
      irot = 1180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1181
      theta1 = 90
      phi1 = 3.6666667
      theta2 = 90
      phi2 = 93.666667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 440
      chmoth = 'DC15'
      x = 34.363813
      y = 2.2021332
      z = 0
      irot = 1181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1182
      theta1 = 90
      phi1 = 6.3333334
      theta2 = 90
      phi2 = 96.333333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 441
      chmoth = 'DC15'
      x = 34.224146
      y = 3.7985357
      z = 0
      irot = 1182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1183
      theta1 = 90
      phi1 = 9.0000001
      theta2 = 90
      phi2 = 99
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 442
      chmoth = 'DC15'
      x = 34.010357
      y = 5.3867114
      z = 0
      irot = 1183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1184
      theta1 = 90
      phi1 = 11.666667
      theta2 = 90
      phi2 = 101.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 443
      chmoth = 'DC15'
      x = 33.722909
      y = 6.9632206
      z = 0
      irot = 1184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1185
      theta1 = 90
      phi1 = 14.333334
      theta2 = 90
      phi2 = 104.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 444
      chmoth = 'DC15'
      x = 33.362425
      y = 8.5246491
      z = 0
      irot = 1185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 445
      chmoth = 'DC15'
      x = 32.929685
      y = 10.067615
      z = 0
      irot = 1186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1187
      theta1 = 90
      phi1 = 19.666667
      theta2 = 90
      phi2 = 109.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 446
      chmoth = 'DC15'
      x = 32.425627
      y = 11.588777
      z = 0
      irot = 1187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1188
      theta1 = 90
      phi1 = 22.333334
      theta2 = 90
      phi2 = 112.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 447
      chmoth = 'DC15'
      x = 31.851342
      y = 13.08484
      z = 0
      irot = 1188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 448
      chmoth = 'DC15'
      x = 31.208074
      y = 14.552564
      z = 0
      irot = 1189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1190
      theta1 = 90
      phi1 = 27.666667
      theta2 = 90
      phi2 = 117.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 449
      chmoth = 'DC15'
      x = 30.497217
      y = 15.988771
      z = 0
      irot = 1190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1191
      theta1 = 90
      phi1 = 30.333334
      theta2 = 90
      phi2 = 120.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 450
      chmoth = 'DC15'
      x = 29.720309
      y = 17.390349
      z = 0
      irot = 1191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1192
      theta1 = 90
      phi1 = 33
      theta2 = 90
      phi2 = 123
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 451
      chmoth = 'DC15'
      x = 28.879034
      y = 18.754264
      z = 0
      irot = 1192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1193
      theta1 = 90
      phi1 = 35.666667
      theta2 = 90
      phi2 = 125.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 452
      chmoth = 'DC15'
      x = 27.975213
      y = 20.077561
      z = 0
      irot = 1193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1194
      theta1 = 90
      phi1 = 38.333334
      theta2 = 90
      phi2 = 128.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 453
      chmoth = 'DC15'
      x = 27.010804
      y = 21.357375
      z = 0
      irot = 1194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1195
      theta1 = 90
      phi1 = 41.000001
      theta2 = 90
      phi2 = 131
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 454
      chmoth = 'DC15'
      x = 25.987896
      y = 22.590934
      z = 0
      irot = 1195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1196
      theta1 = 90
      phi1 = 43.666667
      theta2 = 90
      phi2 = 133.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 455
      chmoth = 'DC15'
      x = 24.908704
      y = 23.775565
      z = 0
      irot = 1196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1197
      theta1 = 90
      phi1 = 46.333334
      theta2 = 90
      phi2 = 136.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 456
      chmoth = 'DC15'
      x = 23.775565
      y = 24.908704
      z = 0
      irot = 1197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1198
      theta1 = 90
      phi1 = 49.000001
      theta2 = 90
      phi2 = 139
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 457
      chmoth = 'DC15'
      x = 22.590933
      y = 25.987896
      z = 0
      irot = 1198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1199
      theta1 = 90
      phi1 = 51.666667
      theta2 = 90
      phi2 = 141.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 458
      chmoth = 'DC15'
      x = 21.357375
      y = 27.010805
      z = 0
      irot = 1199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1200
      theta1 = 90
      phi1 = 54.333334
      theta2 = 90
      phi2 = 144.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 459
      chmoth = 'DC15'
      x = 20.077561
      y = 27.975213
      z = 0
      irot = 1200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1201
      theta1 = 90
      phi1 = 57.000001
      theta2 = 90
      phi2 = 147
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 460
      chmoth = 'DC15'
      x = 18.754264
      y = 28.879034
      z = 0
      irot = 1201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1202
      theta1 = 90
      phi1 = 59.666667
      theta2 = 90
      phi2 = 149.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 461
      chmoth = 'DC15'
      x = 17.390349
      y = 29.720309
      z = 0
      irot = 1202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1203
      theta1 = 90
      phi1 = 62.333334
      theta2 = 90
      phi2 = 152.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 462
      chmoth = 'DC15'
      x = 15.98877
      y = 30.497217
      z = 0
      irot = 1203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1204
      theta1 = 90
      phi1 = 65.000001
      theta2 = 90
      phi2 = 155
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 463
      chmoth = 'DC15'
      x = 14.552564
      y = 31.208074
      z = 0
      irot = 1204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1205
      theta1 = 90
      phi1 = 67.666668
      theta2 = 90
      phi2 = 157.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 464
      chmoth = 'DC15'
      x = 13.084839
      y = 31.851342
      z = 0
      irot = 1205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1206
      theta1 = 90
      phi1 = 70.333334
      theta2 = 90
      phi2 = 160.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 465
      chmoth = 'DC15'
      x = 11.588776
      y = 32.425627
      z = 0
      irot = 1206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1207
      theta1 = 90
      phi1 = 73.000001
      theta2 = 90
      phi2 = 163
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 466
      chmoth = 'DC15'
      x = 10.067614
      y = 32.929685
      z = 0
      irot = 1207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1208
      theta1 = 90
      phi1 = 75.666668
      theta2 = 90
      phi2 = 165.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 467
      chmoth = 'DC15'
      x = 8.5246485
      y = 33.362425
      z = 0
      irot = 1208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1209
      theta1 = 90
      phi1 = 78.333334
      theta2 = 90
      phi2 = 168.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 468
      chmoth = 'DC15'
      x = 6.96322
      y = 33.722909
      z = 0
      irot = 1209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1210
      theta1 = 90
      phi1 = 81.000001
      theta2 = 90
      phi2 = 171
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 469
      chmoth = 'DC15'
      x = 5.3867107
      y = 34.010357
      z = 0
      irot = 1210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1211
      theta1 = 90
      phi1 = 83.666668
      theta2 = 90
      phi2 = 173.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 470
      chmoth = 'DC15'
      x = 3.798535
      y = 34.224146
      z = 0
      irot = 1211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1212
      theta1 = 90
      phi1 = 86.333334
      theta2 = 90
      phi2 = 176.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 471
      chmoth = 'DC15'
      x = 2.2021325
      y = 34.363813
      z = 0
      irot = 1212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1213
      theta1 = 90
      phi1 = 89.000001
      theta2 = 90
      phi2 = 179
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 472
      chmoth = 'DC15'
      x = 0.60096074
      y = 34.429056
      z = 0
      irot = 1213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1214
      theta1 = 90
      phi1 = 91.666668
      theta2 = 90
      phi2 = -178.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 473
      chmoth = 'DC15'
      x = -1.0015126
      y = 34.419733
      z = 0
      irot = 1214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1215
      theta1 = 90
      phi1 = 94.333334
      theta2 = 90
      phi2 = -175.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 474
      chmoth = 'DC15'
      x = -2.6018169
      y = 34.335864
      z = 0
      irot = 1215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1216
      theta1 = 90
      phi1 = 97.000001
      theta2 = 90
      phi2 = -173
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 475
      chmoth = 'DC15'
      x = -4.1964862
      y = 34.177632
      z = 0
      irot = 1216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1217
      theta1 = 90
      phi1 = 99.666668
      theta2 = 90
      phi2 = -170.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 476
      chmoth = 'DC15'
      x = -5.7820669
      y = 33.945378
      z = 0
      irot = 1217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1218
      theta1 = 90
      phi1 = 102.33333
      theta2 = 90
      phi2 = -167.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 477
      chmoth = 'DC15'
      x = -7.3551249
      y = 33.639607
      z = 0
      irot = 1218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1219
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 478
      chmoth = 'DC15'
      x = -8.9122534
      y = 33.260979
      z = 0
      irot = 1219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1220
      theta1 = 90
      phi1 = 107.66667
      theta2 = 90
      phi2 = -162.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 479
      chmoth = 'DC15'
      x = -10.45008
      y = 32.810316
      z = 0
      irot = 1220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1221
      theta1 = 90
      phi1 = 110.33333
      theta2 = 90
      phi2 = -159.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 480
      chmoth = 'DC15'
      x = -11.965274
      y = 32.288593
      z = 0
      irot = 1221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1222
      theta1 = 90
      phi1 = 113
      theta2 = 90
      phi2 = -157
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 481
      chmoth = 'DC15'
      x = -13.454554
      y = 31.69694
      z = 0
      irot = 1222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1223
      theta1 = 90
      phi1 = 115.66667
      theta2 = 90
      phi2 = -154.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 482
      chmoth = 'DC15'
      x = -14.914694
      y = 31.036638
      z = 0
      irot = 1223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1224
      theta1 = 90
      phi1 = 118.33333
      theta2 = 90
      phi2 = -151.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 483
      chmoth = 'DC15'
      x = -16.342532
      y = 30.309118
      z = 0
      irot = 1224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1225
      theta1 = 90
      phi1 = 121
      theta2 = 90
      phi2 = -149
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 484
      chmoth = 'DC15'
      x = -17.734976
      y = 29.515956
      z = 0
      irot = 1225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1226
      theta1 = 90
      phi1 = 123.66667
      theta2 = 90
      phi2 = -146.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 485
      chmoth = 'DC15'
      x = -19.08901
      y = 28.658868
      z = 0
      irot = 1226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1227
      theta1 = 90
      phi1 = 126.33333
      theta2 = 90
      phi2 = -143.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 486
      chmoth = 'DC15'
      x = -20.401702
      y = 27.739711
      z = 0
      irot = 1227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1228
      theta1 = 90
      phi1 = 129
      theta2 = 90
      phi2 = -141
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 487
      chmoth = 'DC15'
      x = -21.670208
      y = 26.760477
      z = 0
      irot = 1228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1229
      theta1 = 90
      phi1 = 131.66667
      theta2 = 90
      phi2 = -138.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 488
      chmoth = 'DC15'
      x = -22.891781
      y = 25.723285
      z = 0
      irot = 1229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1230
      theta1 = 90
      phi1 = 134.33333
      theta2 = 90
      phi2 = -135.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 489
      chmoth = 'DC15'
      x = -24.063776
      y = 24.630382
      z = 0
      irot = 1230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1231
      theta1 = 90
      phi1 = 137
      theta2 = 90
      phi2 = -133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 490
      chmoth = 'DC15'
      x = -25.183653
      y = 23.484135
      z = 0
      irot = 1231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1232
      theta1 = 90
      phi1 = 139.66667
      theta2 = 90
      phi2 = -130.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 491
      chmoth = 'DC15'
      x = -26.248989
      y = 22.287027
      z = 0
      irot = 1232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1233
      theta1 = 90
      phi1 = 142.33334
      theta2 = 90
      phi2 = -127.66666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 492
      chmoth = 'DC15'
      x = -27.257475
      y = 21.041651
      z = 0
      irot = 1233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1234
      theta1 = 90
      phi1 = 145
      theta2 = 90
      phi2 = -125
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 493
      chmoth = 'DC15'
      x = -28.206928
      y = 19.750702
      z = 0
      irot = 1234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1235
      theta1 = 90
      phi1 = 147.66667
      theta2 = 90
      phi2 = -122.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 494
      chmoth = 'DC15'
      x = -29.09529
      y = 18.416978
      z = 0
      irot = 1235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1236
      theta1 = 90
      phi1 = 150.33334
      theta2 = 90
      phi2 = -119.66666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 495
      chmoth = 'DC15'
      x = -29.920639
      y = 17.043367
      z = 0
      irot = 1236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1237
      theta1 = 90
      phi1 = 153
      theta2 = 90
      phi2 = -117
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 496
      chmoth = 'DC15'
      x = -30.681186
      y = 15.632844
      z = 0
      irot = 1237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1238
      theta1 = 90
      phi1 = 155.66667
      theta2 = 90
      phi2 = -114.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 497
      chmoth = 'DC15'
      x = -31.375285
      y = 14.188464
      z = 0
      irot = 1238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1239
      theta1 = 90
      phi1 = 158.33334
      theta2 = 90
      phi2 = -111.66666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 498
      chmoth = 'DC15'
      x = -32.001432
      y = 12.713354
      z = 0
      irot = 1239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1240
      theta1 = 90
      phi1 = 161
      theta2 = 90
      phi2 = -109
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 499
      chmoth = 'DC15'
      x = -32.558271
      y = 11.21071
      z = 0
      irot = 1240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1241
      theta1 = 90
      phi1 = 163.66667
      theta2 = 90
      phi2 = -106.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 500
      chmoth = 'DC15'
      x = -33.044596
      y = 9.6837867
      z = 0
      irot = 1241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1242
      theta1 = 90
      phi1 = 166.33334
      theta2 = 90
      phi2 = -103.66666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 501
      chmoth = 'DC15'
      x = -33.459353
      y = 8.1358901
      z = 0
      irot = 1242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1243
      theta1 = 90
      phi1 = 169
      theta2 = 90
      phi2 = -101
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 502
      chmoth = 'DC15'
      x = -33.801645
      y = 6.570373
      z = 0
      irot = 1243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1244
      theta1 = 90
      phi1 = 171.66667
      theta2 = 90
      phi2 = -98.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 503
      chmoth = 'DC15'
      x = -34.07073
      y = 4.9906259
      z = 0
      irot = 1244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1245
      theta1 = 90
      phi1 = 174.33334
      theta2 = 90
      phi2 = -95.666665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 504
      chmoth = 'DC15'
      x = -34.266026
      y = 3.4000702
      z = 0
      irot = 1245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1246
      theta1 = 90
      phi1 = 177
      theta2 = 90
      phi2 = -92.999998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 505
      chmoth = 'DC15'
      x = -34.387109
      y = 1.8021507
      z = 0
      irot = 1246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1247
      theta1 = 90
      phi1 = 179.66667
      theta2 = 90
      phi2 = -90.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 506
      chmoth = 'DC15'
      x = -34.433717
      y = 0.20032816
      z = 0
      irot = 1247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1248
      theta1 = 90
      phi1 = -177.66666
      theta2 = 90
      phi2 = -87.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 507
      chmoth = 'DC15'
      x = -34.40575
      y = -1.4019282
      z = 0
      irot = 1248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1249
      theta1 = 90
      phi1 = -175
      theta2 = 90
      phi2 = -84.999998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 508
      chmoth = 'DC15'
      x = -34.303267
      y = -3.0011484
      z = 0
      irot = 1249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1250
      theta1 = 90
      phi1 = -172.33333
      theta2 = 90
      phi2 = -82.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 509
      chmoth = 'DC15'
      x = -34.126491
      y = -4.5938687
      z = 0
      irot = 1250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1251
      theta1 = 90
      phi1 = -169.66666
      theta2 = 90
      phi2 = -79.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 510
      chmoth = 'DC15'
      x = -33.875805
      y = -6.1766397
      z = 0
      irot = 1251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1252
      theta1 = 90
      phi1 = -167
      theta2 = 90
      phi2 = -76.999998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 511
      chmoth = 'DC15'
      x = -33.551751
      y = -7.7460335
      z = 0
      irot = 1252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1253
      theta1 = 90
      phi1 = -164.33333
      theta2 = 90
      phi2 = -74.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 512
      chmoth = 'DC15'
      x = -33.155031
      y = -9.2986511
      z = 0
      irot = 1253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1254
      theta1 = 90
      phi1 = -161.66666
      theta2 = 90
      phi2 = -71.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 513
      chmoth = 'DC15'
      x = -32.686505
      y = -10.83113
      z = 0
      irot = 1254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1255
      theta1 = 90
      phi1 = -159
      theta2 = 90
      phi2 = -68.999998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 514
      chmoth = 'DC15'
      x = -32.147188
      y = -12.340151
      z = 0
      irot = 1255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1256
      theta1 = 90
      phi1 = -156.33333
      theta2 = 90
      phi2 = -66.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 515
      chmoth = 'DC15'
      x = -31.538247
      y = -13.822446
      z = 0
      irot = 1256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1257
      theta1 = 90
      phi1 = -153.66666
      theta2 = 90
      phi2 = -63.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 516
      chmoth = 'DC15'
      x = -30.861001
      y = -15.274804
      z = 0
      irot = 1257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1258
      theta1 = 90
      phi1 = -151
      theta2 = 90
      phi2 = -60.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 517
      chmoth = 'DC15'
      x = -30.116917
      y = -16.694081
      z = 0
      irot = 1258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1259
      theta1 = 90
      phi1 = -148.33333
      theta2 = 90
      phi2 = -58.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 518
      chmoth = 'DC15'
      x = -29.307606
      y = -18.077202
      z = 0
      irot = 1259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1260
      theta1 = 90
      phi1 = -145.66666
      theta2 = 90
      phi2 = -55.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 519
      chmoth = 'DC15'
      x = -28.434822
      y = -19.421172
      z = 0
      irot = 1260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1261
      theta1 = 90
      phi1 = -143
      theta2 = 90
      phi2 = -52.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 520
      chmoth = 'DC15'
      x = -27.500454
      y = -20.72308
      z = 0
      irot = 1261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1262
      theta1 = 90
      phi1 = -140.33333
      theta2 = 90
      phi2 = -50.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 521
      chmoth = 'DC15'
      x = -26.506526
      y = -21.980107
      z = 0
      irot = 1262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1263
      theta1 = 90
      phi1 = -137.66666
      theta2 = 90
      phi2 = -47.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 522
      chmoth = 'DC15'
      x = -25.455191
      y = -23.189529
      z = 0
      irot = 1263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 523
      chmoth = 'DC15'
      x = -24.348726
      y = -24.348728
      z = 0
      irot = 1264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1265
      theta1 = 90
      phi1 = -132.33333
      theta2 = 90
      phi2 = -42.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 524
      chmoth = 'DC15'
      x = -23.189527
      y = -25.455193
      z = 0
      irot = 1265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1266
      theta1 = 90
      phi1 = -129.66666
      theta2 = 90
      phi2 = -39.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 525
      chmoth = 'DC15'
      x = -21.980104
      y = -26.506528
      z = 0
      irot = 1266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1267
      theta1 = 90
      phi1 = -127
      theta2 = 90
      phi2 = -36.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 526
      chmoth = 'DC15'
      x = -20.723078
      y = -27.500456
      z = 0
      irot = 1267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1268
      theta1 = 90
      phi1 = -124.33333
      theta2 = 90
      phi2 = -34.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 527
      chmoth = 'DC15'
      x = -19.42117
      y = -28.434824
      z = 0
      irot = 1268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1269
      theta1 = 90
      phi1 = -121.66666
      theta2 = 90
      phi2 = -31.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 528
      chmoth = 'DC15'
      x = -18.0772
      y = -29.307608
      z = 0
      irot = 1269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1270
      theta1 = 90
      phi1 = -119
      theta2 = 90
      phi2 = -28.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 529
      chmoth = 'DC15'
      x = -16.694078
      y = -30.116918
      z = 0
      irot = 1270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1271
      theta1 = 90
      phi1 = -116.33333
      theta2 = 90
      phi2 = -26.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 530
      chmoth = 'DC15'
      x = -15.274801
      y = -30.861002
      z = 0
      irot = 1271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1272
      theta1 = 90
      phi1 = -113.66666
      theta2 = 90
      phi2 = -23.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 531
      chmoth = 'DC15'
      x = -13.822443
      y = -31.538248
      z = 0
      irot = 1272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 532
      chmoth = 'DC15'
      x = -12.340148
      y = -32.147189
      z = 0
      irot = 1273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1274
      theta1 = 90
      phi1 = -108.33333
      theta2 = 90
      phi2 = -18.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 533
      chmoth = 'DC15'
      x = -10.831127
      y = -32.686507
      z = 0
      irot = 1274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1275
      theta1 = 90
      phi1 = -105.66666
      theta2 = 90
      phi2 = -15.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 534
      chmoth = 'DC15'
      x = -9.2986479
      y = -33.155032
      z = 0
      irot = 1275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1276
      theta1 = 90
      phi1 = -103
      theta2 = 90
      phi2 = -12.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 535
      chmoth = 'DC15'
      x = -7.7460302
      y = -33.551752
      z = 0
      irot = 1276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1277
      theta1 = 90
      phi1 = -100.33333
      theta2 = 90
      phi2 = -10.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 536
      chmoth = 'DC15'
      x = -6.1766364
      y = -33.875805
      z = 0
      irot = 1277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1278
      theta1 = 90
      phi1 = -97.666663
      theta2 = 90
      phi2 = -7.6666634
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 537
      chmoth = 'DC15'
      x = -4.5938653
      y = -34.126491
      z = 0
      irot = 1278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1279
      theta1 = 90
      phi1 = -94.999997
      theta2 = 90
      phi2 = -4.9999967
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 538
      chmoth = 'DC15'
      x = -3.001145
      y = -34.303267
      z = 0
      irot = 1279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1280
      theta1 = 90
      phi1 = -92.33333
      theta2 = 90
      phi2 = -2.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 539
      chmoth = 'DC15'
      x = -1.4019249
      y = -34.40575
      z = 0
      irot = 1280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1281
      theta1 = 90
      phi1 = -89.666663
      theta2 = 90
      phi2 = 0.3333367
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 540
      chmoth = 'DC15'
      x = 0.20033153
      y = -34.433717
      z = 0
      irot = 1281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1282
      theta1 = 90
      phi1 = -86.999997
      theta2 = 90
      phi2 = 3.0000034
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 541
      chmoth = 'DC15'
      x = 1.8021541
      y = -34.387109
      z = 0
      irot = 1282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1283
      theta1 = 90
      phi1 = -84.33333
      theta2 = 90
      phi2 = 5.6666701
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 542
      chmoth = 'DC15'
      x = 3.4000735
      y = -34.266026
      z = 0
      irot = 1283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1284
      theta1 = 90
      phi1 = -81.666663
      theta2 = 90
      phi2 = 8.3333368
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 543
      chmoth = 'DC15'
      x = 4.9906292
      y = -34.07073
      z = 0
      irot = 1284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1285
      theta1 = 90
      phi1 = -78.999996
      theta2 = 90
      phi2 = 11.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 544
      chmoth = 'DC15'
      x = 6.5703763
      y = -33.801645
      z = 0
      irot = 1285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1286
      theta1 = 90
      phi1 = -76.33333
      theta2 = 90
      phi2 = 13.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 545
      chmoth = 'DC15'
      x = 8.1358934
      y = -33.459352
      z = 0
      irot = 1286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1287
      theta1 = 90
      phi1 = -73.666663
      theta2 = 90
      phi2 = 16.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 546
      chmoth = 'DC15'
      x = 9.6837899
      y = -33.044595
      z = 0
      irot = 1287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1288
      theta1 = 90
      phi1 = -70.999996
      theta2 = 90
      phi2 = 19.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 547
      chmoth = 'DC15'
      x = 11.210714
      y = -32.55827
      z = 0
      irot = 1288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1289
      theta1 = 90
      phi1 = -68.33333
      theta2 = 90
      phi2 = 21.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 548
      chmoth = 'DC15'
      x = 12.713357
      y = -32.001431
      z = 0
      irot = 1289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1290
      theta1 = 90
      phi1 = -65.666663
      theta2 = 90
      phi2 = 24.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 549
      chmoth = 'DC15'
      x = 14.188467
      y = -31.375284
      z = 0
      irot = 1290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1291
      theta1 = 90
      phi1 = -62.999996
      theta2 = 90
      phi2 = 27.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 550
      chmoth = 'DC15'
      x = 15.632847
      y = -30.681185
      z = 0
      irot = 1291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1292
      theta1 = 90
      phi1 = -60.33333
      theta2 = 90
      phi2 = 29.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 551
      chmoth = 'DC15'
      x = 17.04337
      y = -29.920638
      z = 0
      irot = 1292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1293
      theta1 = 90
      phi1 = -57.666663
      theta2 = 90
      phi2 = 32.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 552
      chmoth = 'DC15'
      x = 18.416981
      y = -29.095289
      z = 0
      irot = 1293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1294
      theta1 = 90
      phi1 = -54.999996
      theta2 = 90
      phi2 = 35.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 553
      chmoth = 'DC15'
      x = 19.750705
      y = -28.206926
      z = 0
      irot = 1294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1295
      theta1 = 90
      phi1 = -52.333329
      theta2 = 90
      phi2 = 37.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 554
      chmoth = 'DC15'
      x = 21.041653
      y = -27.257473
      z = 0
      irot = 1295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1296
      theta1 = 90
      phi1 = -49.666663
      theta2 = 90
      phi2 = 40.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 555
      chmoth = 'DC15'
      x = 22.28703
      y = -26.248987
      z = 0
      irot = 1296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1297
      theta1 = 90
      phi1 = -46.999996
      theta2 = 90
      phi2 = 43.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 556
      chmoth = 'DC15'
      x = 23.484138
      y = -25.183651
      z = 0
      irot = 1297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1298
      theta1 = 90
      phi1 = -44.333329
      theta2 = 90
      phi2 = 45.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 557
      chmoth = 'DC15'
      x = 24.630384
      y = -24.063773
      z = 0
      irot = 1298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1299
      theta1 = 90
      phi1 = -41.666663
      theta2 = 90
      phi2 = 48.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 558
      chmoth = 'DC15'
      x = 25.723287
      y = -22.891778
      z = 0
      irot = 1299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1300
      theta1 = 90
      phi1 = -38.999996
      theta2 = 90
      phi2 = 51.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 559
      chmoth = 'DC15'
      x = 26.760479
      y = -21.670205
      z = 0
      irot = 1300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1301
      theta1 = 90
      phi1 = -36.333329
      theta2 = 90
      phi2 = 53.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 560
      chmoth = 'DC15'
      x = 27.739713
      y = -20.401699
      z = 0
      irot = 1301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1302
      theta1 = 90
      phi1 = -33.666663
      theta2 = 90
      phi2 = 56.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 561
      chmoth = 'DC15'
      x = 28.65887
      y = -19.089008
      z = 0
      irot = 1302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1303
      theta1 = 90
      phi1 = -30.999996
      theta2 = 90
      phi2 = 59.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 562
      chmoth = 'DC15'
      x = 29.515957
      y = -17.734973
      z = 0
      irot = 1303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1304
      theta1 = 90
      phi1 = -28.333329
      theta2 = 90
      phi2 = 61.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 563
      chmoth = 'DC15'
      x = 30.30912
      y = -16.342529
      z = 0
      irot = 1304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1305
      theta1 = 90
      phi1 = -25.666662
      theta2 = 90
      phi2 = 64.333338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 564
      chmoth = 'DC15'
      x = 31.03664
      y = -14.914691
      z = 0
      irot = 1305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1306
      theta1 = 90
      phi1 = -22.999996
      theta2 = 90
      phi2 = 67.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 565
      chmoth = 'DC15'
      x = 31.696941
      y = -13.454551
      z = 0
      irot = 1306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1307
      theta1 = 90
      phi1 = -20.333329
      theta2 = 90
      phi2 = 69.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 566
      chmoth = 'DC15'
      x = 32.288594
      y = -11.965271
      z = 0
      irot = 1307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1308
      theta1 = 90
      phi1 = -17.666662
      theta2 = 90
      phi2 = 72.333338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 567
      chmoth = 'DC15'
      x = 32.810317
      y = -10.450077
      z = 0
      irot = 1308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1309
      theta1 = 90
      phi1 = -14.999996
      theta2 = 90
      phi2 = 75.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 568
      chmoth = 'DC15'
      x = 33.26098
      y = -8.9122501
      z = 0
      irot = 1309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1310
      theta1 = 90
      phi1 = -12.333329
      theta2 = 90
      phi2 = 77.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 569
      chmoth = 'DC15'
      x = 33.639608
      y = -7.3551217
      z = 0
      irot = 1310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1311
      theta1 = 90
      phi1 = -9.6666623
      theta2 = 90
      phi2 = 80.333338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 570
      chmoth = 'DC15'
      x = 33.945379
      y = -5.7820636
      z = 0
      irot = 1311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1312
      theta1 = 90
      phi1 = -6.9999956
      theta2 = 90
      phi2 = 83.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 571
      chmoth = 'DC15'
      x = 34.177632
      y = -4.1964829
      z = 0
      irot = 1312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1313
      theta1 = 90
      phi1 = -4.3333289
      theta2 = 90
      phi2 = 85.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 572
      chmoth = 'DC15'
      x = 34.335864
      y = -2.6018136
      z = 0
      irot = 1313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1314
      theta1 = 90
      phi1 = -1.6666622
      theta2 = 90
      phi2 = 88.333338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 573
      chmoth = 'DC15'
      x = 34.419733
      y = -1.0015092
      z = 0
      irot = 1314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1315
      theta1 = 90
      phi1 = 2.3333333
      theta2 = 90
      phi2 = 92.333333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 574
      chmoth = 'DC15'
      x = 35.800392
      y = 1.4587542
      z = 0
      irot = 1315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 575
      chmoth = 'DC15'
      x = 35.693756
      y = 3.122799
      z = 0
      irot = 1316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1317
      theta1 = 90
      phi1 = 7.6666667
      theta2 = 90
      phi2 = 97.666667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 576
      chmoth = 'DC15'
      x = 35.509814
      y = 4.7800805
      z = 0
      irot = 1317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1318
      theta1 = 90
      phi1 = 10.333333
      theta2 = 90
      phi2 = 100.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 577
      chmoth = 'DC15'
      x = 35.248966
      y = 6.4270094
      z = 0
      irot = 1318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 578
      chmoth = 'DC15'
      x = 34.911777
      y = 8.0600188
      z = 0
      irot = 1319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1320
      theta1 = 90
      phi1 = 15.666667
      theta2 = 90
      phi2 = 105.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 579
      chmoth = 'DC15'
      x = 34.498976
      y = 9.6755721
      z = 0
      irot = 1320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1321
      theta1 = 90
      phi1 = 18.333334
      theta2 = 90
      phi2 = 108.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 580
      chmoth = 'DC15'
      x = 34.011459
      y = 11.27017
      z = 0
      irot = 1321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1322
      theta1 = 90
      phi1 = 21
      theta2 = 90
      phi2 = 111
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 581
      chmoth = 'DC15'
      x = 33.45028
      y = 12.84036
      z = 0
      irot = 1322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1323
      theta1 = 90
      phi1 = 23.666667
      theta2 = 90
      phi2 = 113.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 582
      chmoth = 'DC15'
      x = 32.816655
      y = 14.38274
      z = 0
      irot = 1323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1324
      theta1 = 90
      phi1 = 26.333334
      theta2 = 90
      phi2 = 116.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 583
      chmoth = 'DC15'
      x = 32.111957
      y = 15.89397
      z = 0
      irot = 1324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1325
      theta1 = 90
      phi1 = 29
      theta2 = 90
      phi2 = 119
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 584
      chmoth = 'DC15'
      x = 31.337711
      y = 17.370777
      z = 0
      irot = 1325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1326
      theta1 = 90
      phi1 = 31.666667
      theta2 = 90
      phi2 = 121.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 585
      chmoth = 'DC15'
      x = 30.495595
      y = 18.809964
      z = 0
      irot = 1326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1327
      theta1 = 90
      phi1 = 34.333334
      theta2 = 90
      phi2 = 124.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 586
      chmoth = 'DC15'
      x = 29.587433
      y = 20.208412
      z = 0
      irot = 1327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1328
      theta1 = 90
      phi1 = 37
      theta2 = 90
      phi2 = 127
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 587
      chmoth = 'DC15'
      x = 28.61519
      y = 21.563093
      z = 0
      irot = 1328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1329
      theta1 = 90
      phi1 = 39.666667
      theta2 = 90
      phi2 = 129.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 588
      chmoth = 'DC15'
      x = 27.580973
      y = 22.871073
      z = 0
      irot = 1329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1330
      theta1 = 90
      phi1 = 42.333334
      theta2 = 90
      phi2 = 132.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 589
      chmoth = 'DC15'
      x = 26.487022
      y = 24.129519
      z = 0
      irot = 1330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      nr = 590
      chmoth = 'DC15'
      x = 25.335706
      y = 25.335707
      z = 0
      irot = 1331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1332
      theta1 = 90
      phi1 = 47.666667
      theta2 = 90
      phi2 = 137.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 591
      chmoth = 'DC15'
      x = 24.129519
      y = 26.487023
      z = 0
      irot = 1332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1333
      theta1 = 90
      phi1 = 50.333334
      theta2 = 90
      phi2 = 140.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 592
      chmoth = 'DC15'
      x = 22.871072
      y = 27.580974
      z = 0
      irot = 1333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1334
      theta1 = 90
      phi1 = 53.000001
      theta2 = 90
      phi2 = 143
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 593
      chmoth = 'DC15'
      x = 21.563092
      y = 28.61519
      z = 0
      irot = 1334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1335
      theta1 = 90
      phi1 = 55.666667
      theta2 = 90
      phi2 = 145.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 594
      chmoth = 'DC15'
      x = 20.208411
      y = 29.587433
      z = 0
      irot = 1335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1336
      theta1 = 90
      phi1 = 58.333334
      theta2 = 90
      phi2 = 148.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 595
      chmoth = 'DC15'
      x = 18.809963
      y = 30.495596
      z = 0
      irot = 1336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1337
      theta1 = 90
      phi1 = 61.000001
      theta2 = 90
      phi2 = 151
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 596
      chmoth = 'DC15'
      x = 17.370777
      y = 31.337712
      z = 0
      irot = 1337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1338
      theta1 = 90
      phi1 = 63.666667
      theta2 = 90
      phi2 = 153.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 597
      chmoth = 'DC15'
      x = 15.893969
      y = 32.111957
      z = 0
      irot = 1338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1339
      theta1 = 90
      phi1 = 66.333334
      theta2 = 90
      phi2 = 156.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 598
      chmoth = 'DC15'
      x = 14.382739
      y = 32.816656
      z = 0
      irot = 1339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1340
      theta1 = 90
      phi1 = 69.000001
      theta2 = 90
      phi2 = 159
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 599
      chmoth = 'DC15'
      x = 12.840359
      y = 33.45028
      z = 0
      irot = 1340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1341
      theta1 = 90
      phi1 = 71.666667
      theta2 = 90
      phi2 = 161.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 600
      chmoth = 'DC15'
      x = 11.27017
      y = 34.011459
      z = 0
      irot = 1341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1342
      theta1 = 90
      phi1 = 74.333334
      theta2 = 90
      phi2 = 164.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 601
      chmoth = 'DC15'
      x = 9.6755715
      y = 34.498977
      z = 0
      irot = 1342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1343
      theta1 = 90
      phi1 = 77.000001
      theta2 = 90
      phi2 = 167
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 602
      chmoth = 'DC15'
      x = 8.0600182
      y = 34.911777
      z = 0
      irot = 1343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1344
      theta1 = 90
      phi1 = 79.666668
      theta2 = 90
      phi2 = 169.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 603
      chmoth = 'DC15'
      x = 6.4270088
      y = 35.248966
      z = 0
      irot = 1344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1345
      theta1 = 90
      phi1 = 82.333334
      theta2 = 90
      phi2 = 172.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 604
      chmoth = 'DC15'
      x = 4.7800799
      y = 35.509814
      z = 0
      irot = 1345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1346
      theta1 = 90
      phi1 = 85.000001
      theta2 = 90
      phi2 = 175
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 605
      chmoth = 'DC15'
      x = 3.1227984
      y = 35.693756
      z = 0
      irot = 1346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1347
      theta1 = 90
      phi1 = 87.666668
      theta2 = 90
      phi2 = 177.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 606
      chmoth = 'DC15'
      x = 1.4587536
      y = 35.800393
      z = 0
      irot = 1347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1348
      theta1 = 90
      phi1 = 90.333334
      theta2 = 90
      phi2 = -179.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 607
      chmoth = 'DC15'
      x = -0.20845056
      y = 35.829494
      z = 0
      irot = 1348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1349
      theta1 = 90
      phi1 = 93.000001
      theta2 = 90
      phi2 = -177
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 608
      chmoth = 'DC15'
      x = -1.8752032
      y = 35.780996
      z = 0
      irot = 1349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1350
      theta1 = 90
      phi1 = 95.666668
      theta2 = 90
      phi2 = -174.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 609
      chmoth = 'DC15'
      x = -3.5378946
      y = 35.655005
      z = 0
      irot = 1350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1351
      theta1 = 90
      phi1 = 98.333334
      theta2 = 90
      phi2 = -171.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 610
      chmoth = 'DC15'
      x = -5.1929237
      y = 35.451793
      z = 0
      irot = 1351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1352
      theta1 = 90
      phi1 = 101
      theta2 = 90
      phi2 = -169
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 611
      chmoth = 'DC15'
      x = -6.8367061
      y = 35.1718
      z = 0
      irot = 1352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1353
      theta1 = 90
      phi1 = 103.66667
      theta2 = 90
      phi2 = -166.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 612
      chmoth = 'DC15'
      x = -8.4656817
      y = 34.815633
      z = 0
      irot = 1353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1354
      theta1 = 90
      phi1 = 106.33333
      theta2 = 90
      phi2 = -163.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 613
      chmoth = 'DC15'
      x = -10.076323
      y = 34.384063
      z = 0
      irot = 1354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1355
      theta1 = 90
      phi1 = 109
      theta2 = 90
      phi2 = -161
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 614
      chmoth = 'DC15'
      x = -11.66514
      y = 33.878025
      z = 0
      irot = 1355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1356
      theta1 = 90
      phi1 = 111.66667
      theta2 = 90
      phi2 = -158.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 615
      chmoth = 'DC15'
      x = -13.228694
      y = 33.298614
      z = 0
      irot = 1356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1357
      theta1 = 90
      phi1 = 114.33333
      theta2 = 90
      phi2 = -155.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 616
      chmoth = 'DC15'
      x = -14.763597
      y = 32.647087
      z = 0
      irot = 1357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1358
      theta1 = 90
      phi1 = 117
      theta2 = 90
      phi2 = -153
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 617
      chmoth = 'DC15'
      x = -16.266526
      y = 31.924852
      z = 0
      irot = 1358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1359
      theta1 = 90
      phi1 = 119.66667
      theta2 = 90
      phi2 = -150.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 618
      chmoth = 'DC15'
      x = -17.734225
      y = 31.133476
      z = 0
      irot = 1359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1360
      theta1 = 90
      phi1 = 122.33333
      theta2 = 90
      phi2 = -147.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 619
      chmoth = 'DC15'
      x = -19.163515
      y = 30.274672
      z = 0
      irot = 1360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1361
      theta1 = 90
      phi1 = 125
      theta2 = 90
      phi2 = -145
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 620
      chmoth = 'DC15'
      x = -20.551302
      y = 29.350299
      z = 0
      irot = 1361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1362
      theta1 = 90
      phi1 = 127.66667
      theta2 = 90
      phi2 = -142.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 621
      chmoth = 'DC15'
      x = -21.894579
      y = 28.36236
      z = 0
      irot = 1362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1363
      theta1 = 90
      phi1 = 130.33333
      theta2 = 90
      phi2 = -139.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 622
      chmoth = 'DC15'
      x = -23.190437
      y = 27.312995
      z = 0
      irot = 1363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1364
      theta1 = 90
      phi1 = 133
      theta2 = 90
      phi2 = -137
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 623
      chmoth = 'DC15'
      x = -24.43607
      y = 26.204476
      z = 0
      irot = 1364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1365
      theta1 = 90
      phi1 = 135.66667
      theta2 = 90
      phi2 = -134.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 624
      chmoth = 'DC15'
      x = -25.62878
      y = 25.039203
      z = 0
      irot = 1365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1366
      theta1 = 90
      phi1 = 138.33333
      theta2 = 90
      phi2 = -131.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 625
      chmoth = 'DC15'
      x = -26.765984
      y = 23.819702
      z = 0
      irot = 1366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1367
      theta1 = 90
      phi1 = 141
      theta2 = 90
      phi2 = -129
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 626
      chmoth = 'DC15'
      x = -27.845218
      y = 22.548612
      z = 0
      irot = 1367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1368
      theta1 = 90
      phi1 = 143.66667
      theta2 = 90
      phi2 = -126.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 627
      chmoth = 'DC15'
      x = -28.864146
      y = 21.228687
      z = 0
      irot = 1368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1369
      theta1 = 90
      phi1 = 146.33334
      theta2 = 90
      phi2 = -123.66666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 628
      chmoth = 'DC15'
      x = -29.820561
      y = 19.862785
      z = 0
      irot = 1369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1370
      theta1 = 90
      phi1 = 149
      theta2 = 90
      phi2 = -121
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 629
      chmoth = 'DC15'
      x = -30.712391
      y = 18.453865
      z = 0
      irot = 1370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1371
      theta1 = 90
      phi1 = 151.66667
      theta2 = 90
      phi2 = -118.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 630
      chmoth = 'DC15'
      x = -31.537704
      y = 17.004978
      z = 0
      irot = 1371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1372
      theta1 = 90
      phi1 = 154.33334
      theta2 = 90
      phi2 = -115.66666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 631
      chmoth = 'DC15'
      x = -32.294714
      y = 15.519262
      z = 0
      irot = 1372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1373
      theta1 = 90
      phi1 = 157
      theta2 = 90
      phi2 = -113
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 632
      chmoth = 'DC15'
      x = -32.981781
      y = 13.999934
      z = 0
      irot = 1373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1374
      theta1 = 90
      phi1 = 159.66667
      theta2 = 90
      phi2 = -110.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 633
      chmoth = 'DC15'
      x = -33.597417
      y = 12.450286
      z = 0
      irot = 1374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1375
      theta1 = 90
      phi1 = 162.33334
      theta2 = 90
      phi2 = -107.66666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 634
      chmoth = 'DC15'
      x = -34.140288
      y = 10.873674
      z = 0
      irot = 1375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1376
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 635
      chmoth = 'DC15'
      x = -34.609219
      y = 9.2735111
      z = 0
      irot = 1376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1377
      theta1 = 90
      phi1 = 167.66667
      theta2 = 90
      phi2 = -102.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 636
      chmoth = 'DC15'
      x = -35.003194
      y = 7.6532641
      z = 0
      irot = 1377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1378
      theta1 = 90
      phi1 = 170.33334
      theta2 = 90
      phi2 = -99.666665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 637
      chmoth = 'DC15'
      x = -35.32136
      y = 6.0164419
      z = 0
      irot = 1378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1379
      theta1 = 90
      phi1 = 173
      theta2 = 90
      phi2 = -96.999998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 638
      chmoth = 'DC15'
      x = -35.563028
      y = 4.3665895
      z = 0
      irot = 1379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1380
      theta1 = 90
      phi1 = 175.66667
      theta2 = 90
      phi2 = -94.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 639
      chmoth = 'DC15'
      x = -35.727674
      y = 2.7072799
      z = 0
      irot = 1380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1381
      theta1 = 90
      phi1 = 178.33334
      theta2 = 90
      phi2 = -91.666665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 640
      chmoth = 'DC15'
      x = -35.814942
      y = 1.042107
      z = 0
      irot = 1381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1382
      theta1 = 90
      phi1 = -179
      theta2 = 90
      phi2 = -88.999998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 641
      chmoth = 'DC15'
      x = -35.824643
      y = -0.62532284
      z = 0
      irot = 1382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1383
      theta1 = 90
      phi1 = -176.33333
      theta2 = 90
      phi2 = -86.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 642
      chmoth = 'DC15'
      x = -35.756755
      y = -2.2913984
      z = 0
      irot = 1383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1384
      theta1 = 90
      phi1 = -173.66666
      theta2 = 90
      phi2 = -83.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 643
      chmoth = 'DC15'
      x = -35.611427
      y = -3.9525113
      z = 0
      irot = 1384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1385
      theta1 = 90
      phi1 = -171
      theta2 = 90
      phi2 = -80.999998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 644
      chmoth = 'DC15'
      x = -35.388972
      y = -5.6050639
      z = 0
      irot = 1385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1386
      theta1 = 90
      phi1 = -168.33333
      theta2 = 90
      phi2 = -78.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 645
      chmoth = 'DC15'
      x = -35.089872
      y = -7.2454773
      z = 0
      irot = 1386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1387
      theta1 = 90
      phi1 = -165.66666
      theta2 = 90
      phi2 = -75.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 646
      chmoth = 'DC15'
      x = -34.714776
      y = -8.8701985
      z = 0
      irot = 1387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1388
      theta1 = 90
      phi1 = -163
      theta2 = 90
      phi2 = -72.999998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 647
      chmoth = 'DC15'
      x = -34.264495
      y = -10.475709
      z = 0
      irot = 1388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1389
      theta1 = 90
      phi1 = -160.33333
      theta2 = 90
      phi2 = -70.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 648
      chmoth = 'DC15'
      x = -33.740004
      y = -12.058531
      z = 0
      irot = 1389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1390
      theta1 = 90
      phi1 = -157.66666
      theta2 = 90
      phi2 = -67.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 649
      chmoth = 'DC15'
      x = -33.142441
      y = -13.615237
      z = 0
      irot = 1390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1391
      theta1 = 90
      phi1 = -155
      theta2 = 90
      phi2 = -64.999998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 650
      chmoth = 'DC15'
      x = -32.473098
      y = -15.142456
      z = 0
      irot = 1391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1392
      theta1 = 90
      phi1 = -152.33333
      theta2 = 90
      phi2 = -62.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 651
      chmoth = 'DC15'
      x = -31.733426
      y = -16.636879
      z = 0
      irot = 1392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1393
      theta1 = 90
      phi1 = -149.66666
      theta2 = 90
      phi2 = -59.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 652
      chmoth = 'DC15'
      x = -30.925026
      y = -18.095271
      z = 0
      irot = 1393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1394
      theta1 = 90
      phi1 = -147
      theta2 = 90
      phi2 = -56.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 653
      chmoth = 'DC15'
      x = -30.049649
      y = -19.514472
      z = 0
      irot = 1394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1395
      theta1 = 90
      phi1 = -144.33333
      theta2 = 90
      phi2 = -54.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 654
      chmoth = 'DC15'
      x = -29.109192
      y = -20.89141
      z = 0
      irot = 1395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1396
      theta1 = 90
      phi1 = -141.66666
      theta2 = 90
      phi2 = -51.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 655
      chmoth = 'DC15'
      x = -28.105691
      y = -22.223101
      z = 0
      irot = 1396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1397
      theta1 = 90
      phi1 = -139
      theta2 = 90
      phi2 = -48.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 656
      chmoth = 'DC15'
      x = -27.041319
      y = -23.506662
      z = 0
      irot = 1397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1398
      theta1 = 90
      phi1 = -136.33333
      theta2 = 90
      phi2 = -46.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 657
      chmoth = 'DC15'
      x = -25.918381
      y = -24.739313
      z = 0
      irot = 1398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1399
      theta1 = 90
      phi1 = -133.66666
      theta2 = 90
      phi2 = -43.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 658
      chmoth = 'DC15'
      x = -24.73931
      y = -25.918383
      z = 0
      irot = 1399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1400
      theta1 = 90
      phi1 = -131
      theta2 = 90
      phi2 = -40.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 659
      chmoth = 'DC15'
      x = -23.506659
      y = -27.041321
      z = 0
      irot = 1400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1401
      theta1 = 90
      phi1 = -128.33333
      theta2 = 90
      phi2 = -38.333331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 660
      chmoth = 'DC15'
      x = -22.223098
      y = -28.105693
      z = 0
      irot = 1401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1402
      theta1 = 90
      phi1 = -125.66666
      theta2 = 90
      phi2 = -35.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 661
      chmoth = 'DC15'
      x = -20.891407
      y = -29.109194
      z = 0
      irot = 1402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1403
      theta1 = 90
      phi1 = -123
      theta2 = 90
      phi2 = -32.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 662
      chmoth = 'DC15'
      x = -19.51447
      y = -30.049651
      z = 0
      irot = 1403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1404
      theta1 = 90
      phi1 = -120.33333
      theta2 = 90
      phi2 = -30.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 663
      chmoth = 'DC15'
      x = -18.095268
      y = -30.925028
      z = 0
      irot = 1404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1405
      theta1 = 90
      phi1 = -117.66666
      theta2 = 90
      phi2 = -27.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 664
      chmoth = 'DC15'
      x = -16.636876
      y = -31.733427
      z = 0
      irot = 1405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1406
      theta1 = 90
      phi1 = -115
      theta2 = 90
      phi2 = -24.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 665
      chmoth = 'DC15'
      x = -15.142453
      y = -32.473099
      z = 0
      irot = 1406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1407
      theta1 = 90
      phi1 = -112.33333
      theta2 = 90
      phi2 = -22.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 666
      chmoth = 'DC15'
      x = -13.615234
      y = -33.142442
      z = 0
      irot = 1407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1408
      theta1 = 90
      phi1 = -109.66666
      theta2 = 90
      phi2 = -19.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 667
      chmoth = 'DC15'
      x = -12.058528
      y = -33.740005
      z = 0
      irot = 1408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1409
      theta1 = 90
      phi1 = -107
      theta2 = 90
      phi2 = -16.999997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 668
      chmoth = 'DC15'
      x = -10.475706
      y = -34.264496
      z = 0
      irot = 1409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1410
      theta1 = 90
      phi1 = -104.33333
      theta2 = 90
      phi2 = -14.33333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 669
      chmoth = 'DC15'
      x = -8.8701952
      y = -34.714776
      z = 0
      irot = 1410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1411
      theta1 = 90
      phi1 = -101.66666
      theta2 = 90
      phi2 = -11.666664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 670
      chmoth = 'DC15'
      x = -7.2454739
      y = -35.089873
      z = 0
      irot = 1411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1412
      theta1 = 90
      phi1 = -98.999997
      theta2 = 90
      phi2 = -8.9999968
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 671
      chmoth = 'DC15'
      x = -5.6050605
      y = -35.388972
      z = 0
      irot = 1412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1413
      theta1 = 90
      phi1 = -96.33333
      theta2 = 90
      phi2 = -6.3333301
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 672
      chmoth = 'DC15'
      x = -3.9525079
      y = -35.611427
      z = 0
      irot = 1413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1414
      theta1 = 90
      phi1 = -93.666663
      theta2 = 90
      phi2 = -3.6666634
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 673
      chmoth = 'DC15'
      x = -2.291395
      y = -35.756756
      z = 0
      irot = 1414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1415
      theta1 = 90
      phi1 = -90.999997
      theta2 = 90
      phi2 = -0.9999967
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 674
      chmoth = 'DC15'
      x = -0.6253194
      y = -35.824643
      z = 0
      irot = 1415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1416
      theta1 = 90
      phi1 = -88.33333
      theta2 = 90
      phi2 = 1.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 675
      chmoth = 'DC15'
      x = 1.0421105
      y = -35.814942
      z = 0
      irot = 1416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1417
      theta1 = 90
      phi1 = -85.666663
      theta2 = 90
      phi2 = 4.3333367
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 676
      chmoth = 'DC15'
      x = 2.7072834
      y = -35.727674
      z = 0
      irot = 1417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1418
      theta1 = 90
      phi1 = -82.999997
      theta2 = 90
      phi2 = 7.0000034
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 677
      chmoth = 'DC15'
      x = 4.3665929
      y = -35.563028
      z = 0
      irot = 1418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1419
      theta1 = 90
      phi1 = -80.33333
      theta2 = 90
      phi2 = 9.6666701
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 678
      chmoth = 'DC15'
      x = 6.0164453
      y = -35.32136
      z = 0
      irot = 1419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1420
      theta1 = 90
      phi1 = -77.666663
      theta2 = 90
      phi2 = 12.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 679
      chmoth = 'DC15'
      x = 7.6532675
      y = -35.003194
      z = 0
      irot = 1420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1421
      theta1 = 90
      phi1 = -74.999996
      theta2 = 90
      phi2 = 15.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 680
      chmoth = 'DC15'
      x = 9.2735144
      y = -34.609218
      z = 0
      irot = 1421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1422
      theta1 = 90
      phi1 = -72.33333
      theta2 = 90
      phi2 = 17.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 681
      chmoth = 'DC15'
      x = 10.873677
      y = -34.140287
      z = 0
      irot = 1422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1423
      theta1 = 90
      phi1 = -69.666663
      theta2 = 90
      phi2 = 20.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 682
      chmoth = 'DC15'
      x = 12.450289
      y = -33.597416
      z = 0
      irot = 1423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1424
      theta1 = 90
      phi1 = -66.999996
      theta2 = 90
      phi2 = 23.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 683
      chmoth = 'DC15'
      x = 13.999937
      y = -32.98178
      z = 0
      irot = 1424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1425
      theta1 = 90
      phi1 = -64.33333
      theta2 = 90
      phi2 = 25.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 684
      chmoth = 'DC15'
      x = 15.519265
      y = -32.294713
      z = 0
      irot = 1425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1426
      theta1 = 90
      phi1 = -61.666663
      theta2 = 90
      phi2 = 28.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 685
      chmoth = 'DC15'
      x = 17.004981
      y = -31.537703
      z = 0
      irot = 1426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1427
      theta1 = 90
      phi1 = -58.999996
      theta2 = 90
      phi2 = 31.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 686
      chmoth = 'DC15'
      x = 18.453868
      y = -30.712389
      z = 0
      irot = 1427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1428
      theta1 = 90
      phi1 = -56.33333
      theta2 = 90
      phi2 = 33.66667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 687
      chmoth = 'DC15'
      x = 19.862788
      y = -29.820559
      z = 0
      irot = 1428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1429
      theta1 = 90
      phi1 = -53.666663
      theta2 = 90
      phi2 = 36.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 688
      chmoth = 'DC15'
      x = 21.228689
      y = -28.864144
      z = 0
      irot = 1429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1430
      theta1 = 90
      phi1 = -50.999996
      theta2 = 90
      phi2 = 39.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 689
      chmoth = 'DC15'
      x = 22.548614
      y = -27.845216
      z = 0
      irot = 1430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1431
      theta1 = 90
      phi1 = -48.333329
      theta2 = 90
      phi2 = 41.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 690
      chmoth = 'DC15'
      x = 23.819704
      y = -26.765981
      z = 0
      irot = 1431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1432
      theta1 = 90
      phi1 = -45.666663
      theta2 = 90
      phi2 = 44.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 691
      chmoth = 'DC15'
      x = 25.039206
      y = -25.628778
      z = 0
      irot = 1432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1433
      theta1 = 90
      phi1 = -42.999996
      theta2 = 90
      phi2 = 47.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 692
      chmoth = 'DC15'
      x = 26.204478
      y = -24.436068
      z = 0
      irot = 1433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1434
      theta1 = 90
      phi1 = -40.333329
      theta2 = 90
      phi2 = 49.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 693
      chmoth = 'DC15'
      x = 27.312997
      y = -23.190435
      z = 0
      irot = 1434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1435
      theta1 = 90
      phi1 = -37.666663
      theta2 = 90
      phi2 = 52.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 694
      chmoth = 'DC15'
      x = 28.362362
      y = -21.894576
      z = 0
      irot = 1435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1436
      theta1 = 90
      phi1 = -34.999996
      theta2 = 90
      phi2 = 55.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 695
      chmoth = 'DC15'
      x = 29.350301
      y = -20.551299
      z = 0
      irot = 1436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1437
      theta1 = 90
      phi1 = -32.333329
      theta2 = 90
      phi2 = 57.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 696
      chmoth = 'DC15'
      x = 30.274674
      y = -19.163512
      z = 0
      irot = 1437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1438
      theta1 = 90
      phi1 = -29.666663
      theta2 = 90
      phi2 = 60.333337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 697
      chmoth = 'DC15'
      x = 31.133478
      y = -17.734222
      z = 0
      irot = 1438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1439
      theta1 = 90
      phi1 = -26.999996
      theta2 = 90
      phi2 = 63.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 698
      chmoth = 'DC15'
      x = 31.924854
      y = -16.266523
      z = 0
      irot = 1439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1440
      theta1 = 90
      phi1 = -24.333329
      theta2 = 90
      phi2 = 65.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 699
      chmoth = 'DC15'
      x = 32.647088
      y = -14.763594
      z = 0
      irot = 1440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1441
      theta1 = 90
      phi1 = -21.666662
      theta2 = 90
      phi2 = 68.333338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 700
      chmoth = 'DC15'
      x = 33.298616
      y = -13.228691
      z = 0
      irot = 1441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1442
      theta1 = 90
      phi1 = -18.999996
      theta2 = 90
      phi2 = 71.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 701
      chmoth = 'DC15'
      x = 33.878026
      y = -11.665137
      z = 0
      irot = 1442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1443
      theta1 = 90
      phi1 = -16.333329
      theta2 = 90
      phi2 = 73.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 702
      chmoth = 'DC15'
      x = 34.384064
      y = -10.076319
      z = 0
      irot = 1443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1444
      theta1 = 90
      phi1 = -13.666662
      theta2 = 90
      phi2 = 76.333338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 703
      chmoth = 'DC15'
      x = 34.815634
      y = -8.4656784
      z = 0
      irot = 1444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1445
      theta1 = 90
      phi1 = -10.999996
      theta2 = 90
      phi2 = 79.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 704
      chmoth = 'DC15'
      x = 35.171801
      y = -6.8367027
      z = 0
      irot = 1445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1446
      theta1 = 90
      phi1 = -8.333329
      theta2 = 90
      phi2 = 81.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 705
      chmoth = 'DC15'
      x = 35.451793
      y = -5.1929203
      z = 0
      irot = 1446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1447
      theta1 = 90
      phi1 = -5.6666623
      theta2 = 90
      phi2 = 84.333338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 706
      chmoth = 'DC15'
      x = 35.655005
      y = -3.5378912
      z = 0
      irot = 1447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1448
      theta1 = 90
      phi1 = -2.9999956
      theta2 = 90
      phi2 = 87.000004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 707
      chmoth = 'DC15'
      x = 35.780996
      y = -1.8751998
      z = 0
      irot = 1448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1449
      theta1 = 90
      phi1 = -0.3333289
      theta2 = 90
      phi2 = 89.666671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 708
      chmoth = 'DC15'
      x = 35.829494
      y = -0.20844712
      z = 0
      irot = 1449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 5
      chmoth = 'DC15'
      x = 0
      y = 0
      z = -75.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 5
      chmoth = 'DC15'
      x = 0
      y = 0
      z = 75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 205
      natmed = 'DC17 CDchamberGas'
      nmat = 41
      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 = 205
      npar = 3
      par(1) = 36.6433
      par(2) = 49.572
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.222) stop 'consistency check #1 failed'

      chname = 'DC17'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 3.29
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1450
      theta1 = 90
      phi1 = 0.2
      theta2 = 96
      phi2 = 90.2
      theta3 = 6
      phi3 = 90.2
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 399
      chmoth = 'DC17'
      x = 37.444372
      y = 0.13070605
      z = 0
      irot = 1450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1451
      theta1 = 90
      phi1 = 2.6657534
      theta2 = 96
      phi2 = 92.665753
      theta3 = 6
      phi3 = 92.665753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 400
      chmoth = 'DC17'
      x = 37.404079
      y = 1.7415255
      z = 0
      irot = 1451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1452
      theta1 = 90
      phi1 = 5.1315068
      theta2 = 96
      phi2 = 95.131507
      theta3 = 6
      phi3 = 95.131507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 401
      chmoth = 'DC17'
      x = 37.294523
      y = 3.3491201
      z = 0
      irot = 1452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1453
      theta1 = 90
      phi1 = 7.5972603
      theta2 = 96
      phi2 = 97.59726
      theta3 = 6
      phi3 = 97.59726
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 402
      chmoth = 'DC17'
      x = 37.115906
      y = 4.9505129
      z = 0
      irot = 1453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1454
      theta1 = 90
      phi1 = 10.063014
      theta2 = 96
      phi2 = 100.06301
      theta3 = 6
      phi3 = 100.06301
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 403
      chmoth = 'DC17'
      x = 36.868559
      y = 6.5427384
      z = 0
      irot = 1454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1455
      theta1 = 90
      phi1 = 12.528767
      theta2 = 96
      phi2 = 102.52877
      theta3 = 6
      phi3 = 102.52877
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 404
      chmoth = 'DC17'
      x = 36.55294
      y = 8.1228483
      z = 0
      irot = 1455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1456
      theta1 = 90
      phi1 = 14.994521
      theta2 = 96
      phi2 = 104.99452
      theta3 = 6
      phi3 = 104.99452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 405
      chmoth = 'DC17'
      x = 36.169633
      y = 9.6879166
      z = 0
      irot = 1456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1457
      theta1 = 90
      phi1 = 17.460274
      theta2 = 96
      phi2 = 107.46027
      theta3 = 6
      phi3 = 107.46027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 406
      chmoth = 'DC17'
      x = 35.719348
      y = 11.235045
      z = 0
      irot = 1457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1458
      theta1 = 90
      phi1 = 19.926027
      theta2 = 96
      phi2 = 109.92603
      theta3 = 6
      phi3 = 109.92603
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 407
      chmoth = 'DC17'
      x = 35.202919
      y = 12.761369
      z = 0
      irot = 1458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1459
      theta1 = 90
      phi1 = 22.391781
      theta2 = 96
      phi2 = 112.39178
      theta3 = 6
      phi3 = 112.39178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 408
      chmoth = 'DC17'
      x = 34.621303
      y = 14.264061
      z = 0
      irot = 1459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1460
      theta1 = 90
      phi1 = 24.857534
      theta2 = 96
      phi2 = 114.85753
      theta3 = 6
      phi3 = 114.85753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 409
      chmoth = 'DC17'
      x = 33.975576
      y = 15.74034
      z = 0
      irot = 1460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1461
      theta1 = 90
      phi1 = 27.323288
      theta2 = 96
      phi2 = 117.32329
      theta3 = 6
      phi3 = 117.32329
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 410
      chmoth = 'DC17'
      x = 33.266934
      y = 17.187472
      z = 0
      irot = 1461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1462
      theta1 = 90
      phi1 = 29.789041
      theta2 = 96
      phi2 = 119.78904
      theta3 = 6
      phi3 = 119.78904
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 411
      chmoth = 'DC17'
      x = 32.496689
      y = 18.602776
      z = 0
      irot = 1462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1463
      theta1 = 90
      phi1 = 32.254795
      theta2 = 96
      phi2 = 122.25479
      theta3 = 6
      phi3 = 122.25479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 412
      chmoth = 'DC17'
      x = 31.666268
      y = 19.983632
      z = 0
      irot = 1463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1464
      theta1 = 90
      phi1 = 34.720548
      theta2 = 96
      phi2 = 124.72055
      theta3 = 6
      phi3 = 124.72055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 413
      chmoth = 'DC17'
      x = 30.777208
      y = 21.327483
      z = 0
      irot = 1464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1465
      theta1 = 90
      phi1 = 37.186301
      theta2 = 96
      phi2 = 127.1863
      theta3 = 6
      phi3 = 127.1863
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 414
      chmoth = 'DC17'
      x = 29.831156
      y = 22.63184
      z = 0
      irot = 1465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1466
      theta1 = 90
      phi1 = 39.652055
      theta2 = 96
      phi2 = 129.65205
      theta3 = 6
      phi3 = 129.65205
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 415
      chmoth = 'DC17'
      x = 28.829863
      y = 23.894289
      z = 0
      irot = 1466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1467
      theta1 = 90
      phi1 = 42.117808
      theta2 = 96
      phi2 = 132.11781
      theta3 = 6
      phi3 = 132.11781
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 416
      chmoth = 'DC17'
      x = 27.775185
      y = 25.112491
      z = 0
      irot = 1467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1468
      theta1 = 90
      phi1 = 44.583562
      theta2 = 96
      phi2 = 134.58356
      theta3 = 6
      phi3 = 134.58356
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 417
      chmoth = 'DC17'
      x = 26.669073
      y = 26.28419
      z = 0
      irot = 1468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1469
      theta1 = 90
      phi1 = 47.049315
      theta2 = 96
      phi2 = 137.04932
      theta3 = 6
      phi3 = 137.04932
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 418
      chmoth = 'DC17'
      x = 25.513576
      y = 27.407217
      z = 0
      irot = 1469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1470
      theta1 = 90
      phi1 = 49.515068
      theta2 = 96
      phi2 = 139.51507
      theta3 = 6
      phi3 = 139.51507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 419
      chmoth = 'DC17'
      x = 24.310833
      y = 28.479492
      z = 0
      irot = 1470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1471
      theta1 = 90
      phi1 = 51.980822
      theta2 = 96
      phi2 = 141.98082
      theta3 = 6
      phi3 = 141.98082
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 420
      chmoth = 'DC17'
      x = 23.063073
      y = 29.499029
      z = 0
      irot = 1471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1472
      theta1 = 90
      phi1 = 54.446575
      theta2 = 96
      phi2 = 144.44658
      theta3 = 6
      phi3 = 144.44658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 421
      chmoth = 'DC17'
      x = 21.772605
      y = 30.463942
      z = 0
      irot = 1472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1473
      theta1 = 90
      phi1 = 56.912329
      theta2 = 96
      phi2 = 146.91233
      theta3 = 6
      phi3 = 146.91233
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 422
      chmoth = 'DC17'
      x = 20.441819
      y = 31.372442
      z = 0
      irot = 1473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1474
      theta1 = 90
      phi1 = 59.378082
      theta2 = 96
      phi2 = 149.37808
      theta3 = 6
      phi3 = 149.37808
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 423
      chmoth = 'DC17'
      x = 19.07318
      y = 32.222847
      z = 0
      irot = 1474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1475
      theta1 = 90
      phi1 = 61.843836
      theta2 = 96
      phi2 = 151.84384
      theta3 = 6
      phi3 = 151.84384
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 424
      chmoth = 'DC17'
      x = 17.669222
      y = 33.013583
      z = 0
      irot = 1475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1476
      theta1 = 90
      phi1 = 64.309589
      theta2 = 96
      phi2 = 154.30959
      theta3 = 6
      phi3 = 154.30959
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 425
      chmoth = 'DC17'
      x = 16.232544
      y = 33.743186
      z = 0
      irot = 1476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1477
      theta1 = 90
      phi1 = 66.775342
      theta2 = 96
      phi2 = 156.77534
      theta3 = 6
      phi3 = 156.77534
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 426
      chmoth = 'DC17'
      x = 14.765807
      y = 34.410304
      z = 0
      irot = 1477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1478
      theta1 = 90
      phi1 = 69.241096
      theta2 = 96
      phi2 = 159.2411
      theta3 = 6
      phi3 = 159.2411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 427
      chmoth = 'DC17'
      x = 13.271728
      y = 35.013702
      z = 0
      irot = 1478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1479
      theta1 = 90
      phi1 = 71.706849
      theta2 = 96
      phi2 = 161.70685
      theta3 = 6
      phi3 = 161.70685
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 428
      chmoth = 'DC17'
      x = 11.753072
      y = 35.552262
      z = 0
      irot = 1479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1480
      theta1 = 90
      phi1 = 74.172603
      theta2 = 96
      phi2 = 164.1726
      theta3 = 6
      phi3 = 164.1726
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 429
      chmoth = 'DC17'
      x = 10.212652
      y = 36.024989
      z = 0
      irot = 1480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1481
      theta1 = 90
      phi1 = 76.638356
      theta2 = 96
      phi2 = 166.63836
      theta3 = 6
      phi3 = 166.63836
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 430
      chmoth = 'DC17'
      x = 8.6533211
      y = 36.431005
      z = 0
      irot = 1481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1482
      theta1 = 90
      phi1 = 79.10411
      theta2 = 96
      phi2 = 169.10411
      theta3 = 6
      phi3 = 169.10411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 431
      chmoth = 'DC17'
      x = 7.0779659
      y = 36.769559
      z = 0
      irot = 1482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1483
      theta1 = 90
      phi1 = 81.569863
      theta2 = 96
      phi2 = 171.56986
      theta3 = 6
      phi3 = 171.56986
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 432
      chmoth = 'DC17'
      x = 5.489504
      y = 37.040025
      z = 0
      irot = 1483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1484
      theta1 = 90
      phi1 = 84.035616
      theta2 = 96
      phi2 = 174.03562
      theta3 = 6
      phi3 = 174.03562
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 433
      chmoth = 'DC17'
      x = 3.8908768
      y = 37.2419
      z = 0
      irot = 1484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1485
      theta1 = 90
      phi1 = 86.50137
      theta2 = 96
      phi2 = 176.50137
      theta3 = 6
      phi3 = 176.50137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 434
      chmoth = 'DC17'
      x = 2.2850446
      y = 37.374813
      z = 0
      irot = 1485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1486
      theta1 = 90
      phi1 = 88.967123
      theta2 = 96
      phi2 = 178.96712
      theta3 = 6
      phi3 = 178.96712
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 435
      chmoth = 'DC17'
      x = 0.67498097
      y = 37.438516
      z = 0
      irot = 1486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1487
      theta1 = 90
      phi1 = 91.432877
      theta2 = 96
      phi2 = -178.56712
      theta3 = 6
      phi3 = -178.56712
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 436
      chmoth = 'DC17'
      x = -0.93633254
      y = 37.432891
      z = 0
      irot = 1487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1488
      theta1 = 90
      phi1 = 93.89863
      theta2 = 96
      phi2 = -176.10137
      theta3 = 6
      phi3 = -176.10137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 437
      chmoth = 'DC17'
      x = -2.5459122
      y = 37.35795
      z = 0
      irot = 1488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1489
      theta1 = 90
      phi1 = 96.364384
      theta2 = 96
      phi2 = -173.63562
      theta3 = 6
      phi3 = -173.63562
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 438
      chmoth = 'DC17'
      x = -4.1507774
      y = 37.21383
      z = 0
      irot = 1489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1490
      theta1 = 90
      phi1 = 98.830137
      theta2 = 96
      phi2 = -171.16986
      theta3 = 6
      phi3 = -171.16986
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 439
      chmoth = 'DC17'
      x = -5.7479563
      y = 37.000798
      z = 0
      irot = 1490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1491
      theta1 = 90
      phi1 = 101.29589
      theta2 = 96
      phi2 = -168.70411
      theta3 = 6
      phi3 = -168.70411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 440
      chmoth = 'DC17'
      x = -7.3344913
      y = 36.71925
      z = 0
      irot = 1491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1492
      theta1 = 90
      phi1 = 103.76164
      theta2 = 96
      phi2 = -166.23836
      theta3 = 6
      phi3 = -166.23836
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 441
      chmoth = 'DC17'
      x = -8.9074445
      y = 36.369706
      z = 0
      irot = 1492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1493
      theta1 = 90
      phi1 = 106.2274
      theta2 = 96
      phi2 = -163.7726
      theta3 = 6
      phi3 = -163.7726
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 442
      chmoth = 'DC17'
      x = -10.463903
      y = 35.952814
      z = 0
      irot = 1493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1494
      theta1 = 90
      phi1 = 108.69315
      theta2 = 96
      phi2 = -161.30685
      theta3 = 6
      phi3 = -161.30685
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 443
      chmoth = 'DC17'
      x = -12.000985
      y = 35.469345
      z = 0
      irot = 1494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1495
      theta1 = 90
      phi1 = 111.1589
      theta2 = 96
      phi2 = -158.8411
      theta3 = 6
      phi3 = -158.8411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 444
      chmoth = 'DC17'
      x = -13.515844
      y = 34.920195
      z = 0
      irot = 1495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1496
      theta1 = 90
      phi1 = 113.62466
      theta2 = 96
      phi2 = -156.37534
      theta3 = 6
      phi3 = -156.37534
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 445
      chmoth = 'DC17'
      x = -15.005675
      y = 34.306381
      z = 0
      irot = 1496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1497
      theta1 = 90
      phi1 = 116.09041
      theta2 = 96
      phi2 = -153.90959
      theta3 = 6
      phi3 = -153.90959
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 446
      chmoth = 'DC17'
      x = -16.467718
      y = 33.62904
      z = 0
      irot = 1497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1498
      theta1 = 90
      phi1 = 118.55616
      theta2 = 96
      phi2 = -151.44384
      theta3 = 6
      phi3 = -151.44384
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 447
      chmoth = 'DC17'
      x = -17.899267
      y = 32.889425
      z = 0
      irot = 1498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1499
      theta1 = 90
      phi1 = 121.02192
      theta2 = 96
      phi2 = -148.97808
      theta3 = 6
      phi3 = -148.97808
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 448
      chmoth = 'DC17'
      x = -19.297671
      y = 32.088907
      z = 0
      irot = 1499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1500
      theta1 = 90
      phi1 = 123.48767
      theta2 = 96
      phi2 = -146.51233
      theta3 = 6
      phi3 = -146.51233
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 449
      chmoth = 'DC17'
      x = -20.66034
      y = 31.228967
      z = 0
      irot = 1500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1501
      theta1 = 90
      phi1 = 125.95342
      theta2 = 96
      phi2 = -144.04658
      theta3 = 6
      phi3 = -144.04658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 450
      chmoth = 'DC17'
      x = -21.984751
      y = 30.311199
      z = 0
      irot = 1501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1502
      theta1 = 90
      phi1 = 128.41918
      theta2 = 96
      phi2 = -141.58082
      theta3 = 6
      phi3 = -141.58082
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 451
      chmoth = 'DC17'
      x = -23.268451
      y = 29.337301
      z = 0
      irot = 1502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1503
      theta1 = 90
      phi1 = 130.88493
      theta2 = 96
      phi2 = -139.11507
      theta3 = 6
      phi3 = -139.11507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 452
      chmoth = 'DC17'
      x = -24.509064
      y = 28.309078
      z = 0
      irot = 1503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1504
      theta1 = 90
      phi1 = 133.35068
      theta2 = 96
      phi2 = -136.64932
      theta3 = 6
      phi3 = -136.64932
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 453
      chmoth = 'DC17'
      x = -25.704291
      y = 27.228432
      z = 0
      irot = 1504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1505
      theta1 = 90
      phi1 = 135.81644
      theta2 = 96
      phi2 = -134.18356
      theta3 = 6
      phi3 = -134.18356
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 454
      chmoth = 'DC17'
      x = -26.851919
      y = 26.097366
      z = 0
      irot = 1505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1506
      theta1 = 90
      phi1 = 138.28219
      theta2 = 96
      phi2 = -131.71781
      theta3 = 6
      phi3 = -131.71781
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 455
      chmoth = 'DC17'
      x = -27.949825
      y = 24.917973
      z = 0
      irot = 1506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1507
      theta1 = 90
      phi1 = 140.74795
      theta2 = 96
      phi2 = -129.25205
      theta3 = 6
      phi3 = -129.25205
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 456
      chmoth = 'DC17'
      x = -28.995973
      y = 23.692438
      z = 0
      irot = 1507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1508
      theta1 = 90
      phi1 = 143.2137
      theta2 = 96
      phi2 = -126.7863
      theta3 = 6
      phi3 = -126.7863
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 457
      chmoth = 'DC17'
      x = -29.988428
      y = 22.42303
      z = 0
      irot = 1508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1509
      theta1 = 90
      phi1 = 145.67945
      theta2 = 96
      phi2 = -124.32055
      theta3 = 6
      phi3 = -124.32055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 458
      chmoth = 'DC17'
      x = -30.925351
      y = 21.1121
      z = 0
      irot = 1509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1510
      theta1 = 90
      phi1 = 148.14521
      theta2 = 96
      phi2 = -121.85479
      theta3 = 6
      phi3 = -121.85479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 459
      chmoth = 'DC17'
      x = -31.805007
      y = 19.762075
      z = 0
      irot = 1510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1511
      theta1 = 90
      phi1 = 150.61096
      theta2 = 96
      phi2 = -119.38904
      theta3 = 6
      phi3 = -119.38904
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 460
      chmoth = 'DC17'
      x = -32.625768
      y = 18.375455
      z = 0
      irot = 1511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1512
      theta1 = 90
      phi1 = 153.07671
      theta2 = 96
      phi2 = -116.92329
      theta3 = 6
      phi3 = -116.92329
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 461
      chmoth = 'DC17'
      x = -33.386113
      y = 16.954808
      z = 0
      irot = 1512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1513
      theta1 = 90
      phi1 = 155.54247
      theta2 = 96
      phi2 = -114.45753
      theta3 = 6
      phi3 = -114.45753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 462
      chmoth = 'DC17'
      x = -34.084635
      y = 15.502764
      z = 0
      irot = 1513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1514
      theta1 = 90
      phi1 = 158.00822
      theta2 = 96
      phi2 = -111.99178
      theta3 = 6
      phi3 = -111.99178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 463
      chmoth = 'DC17'
      x = -34.72004
      y = 14.022014
      z = 0
      irot = 1514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1515
      theta1 = 90
      phi1 = 160.47397
      theta2 = 96
      phi2 = -109.52603
      theta3 = 6
      phi3 = -109.52603
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 464
      chmoth = 'DC17'
      x = -35.291152
      y = 12.515297
      z = 0
      irot = 1515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1516
      theta1 = 90
      phi1 = 162.93973
      theta2 = 96
      phi2 = -107.06027
      theta3 = 6
      phi3 = -107.06027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 465
      chmoth = 'DC17'
      x = -35.796912
      y = 10.985405
      z = 0
      irot = 1516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1517
      theta1 = 90
      phi1 = 165.40548
      theta2 = 96
      phi2 = -104.59452
      theta3 = 6
      phi3 = -104.59452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 466
      chmoth = 'DC17'
      x = -36.236385
      y = 9.4351709
      z = 0
      irot = 1517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1518
      theta1 = 90
      phi1 = 167.87123
      theta2 = 96
      phi2 = -102.12877
      theta3 = 6
      phi3 = -102.12877
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 467
      chmoth = 'DC17'
      x = -36.608757
      y = 7.8674648
      z = 0
      irot = 1518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1519
      theta1 = 90
      phi1 = 170.33699
      theta2 = 96
      phi2 = -99.663014
      theta3 = 6
      phi3 = -99.663014
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 468
      chmoth = 'DC17'
      x = -36.913337
      y = 6.28519
      z = 0
      irot = 1519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1520
      theta1 = 90
      phi1 = 172.80274
      theta2 = 96
      phi2 = -97.19726
      theta3 = 6
      phi3 = -97.19726
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 469
      chmoth = 'DC17'
      x = -37.149563
      y = 4.6912764
      z = 0
      irot = 1520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1521
      theta1 = 90
      phi1 = 175.26849
      theta2 = 96
      phi2 = -94.731507
      theta3 = 6
      phi3 = -94.731507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 470
      chmoth = 'DC17'
      x = -37.316995
      y = 3.0886757
      z = 0
      irot = 1521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1522
      theta1 = 90
      phi1 = 177.73425
      theta2 = 96
      phi2 = -92.265753
      theta3 = 6
      phi3 = -92.265753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 471
      chmoth = 'DC17'
      x = -37.415326
      y = 1.4803555
      z = 0
      irot = 1522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1523
      theta1 = 90
      phi1 = -179.8
      theta2 = 96
      phi2 = -89.8
      theta3 = 6
      phi3 = -89.8
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 472
      chmoth = 'DC17'
      x = -37.444372
      y = -0.13070605
      z = 0
      irot = 1523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1524
      theta1 = 90
      phi1 = -177.33425
      theta2 = 96
      phi2 = -87.334247
      theta3 = 6
      phi3 = -87.334247
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 473
      chmoth = 'DC17'
      x = -37.404079
      y = -1.7415255
      z = 0
      irot = 1524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1525
      theta1 = 90
      phi1 = -174.86849
      theta2 = 96
      phi2 = -84.868493
      theta3 = 6
      phi3 = -84.868493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 474
      chmoth = 'DC17'
      x = -37.294523
      y = -3.3491201
      z = 0
      irot = 1525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1526
      theta1 = 90
      phi1 = -172.40274
      theta2 = 96
      phi2 = -82.40274
      theta3 = 6
      phi3 = -82.40274
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 475
      chmoth = 'DC17'
      x = -37.115906
      y = -4.9505129
      z = 0
      irot = 1526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1527
      theta1 = 90
      phi1 = -169.93699
      theta2 = 96
      phi2 = -79.936986
      theta3 = 6
      phi3 = -79.936986
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 476
      chmoth = 'DC17'
      x = -36.868559
      y = -6.5427384
      z = 0
      irot = 1527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1528
      theta1 = 90
      phi1 = -167.47123
      theta2 = 96
      phi2 = -77.471233
      theta3 = 6
      phi3 = -77.471233
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 477
      chmoth = 'DC17'
      x = -36.55294
      y = -8.1228483
      z = 0
      irot = 1528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1529
      theta1 = 90
      phi1 = -165.00548
      theta2 = 96
      phi2 = -75.005479
      theta3 = 6
      phi3 = -75.005479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 478
      chmoth = 'DC17'
      x = -36.169633
      y = -9.6879166
      z = 0
      irot = 1529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1530
      theta1 = 90
      phi1 = -162.53973
      theta2 = 96
      phi2 = -72.539726
      theta3 = 6
      phi3 = -72.539726
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 479
      chmoth = 'DC17'
      x = -35.719348
      y = -11.235045
      z = 0
      irot = 1530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1531
      theta1 = 90
      phi1 = -160.07397
      theta2 = 96
      phi2 = -70.073973
      theta3 = 6
      phi3 = -70.073973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 480
      chmoth = 'DC17'
      x = -35.202919
      y = -12.761369
      z = 0
      irot = 1531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1532
      theta1 = 90
      phi1 = -157.60822
      theta2 = 96
      phi2 = -67.608219
      theta3 = 6
      phi3 = -67.608219
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 481
      chmoth = 'DC17'
      x = -34.621303
      y = -14.264061
      z = 0
      irot = 1532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1533
      theta1 = 90
      phi1 = -155.14247
      theta2 = 96
      phi2 = -65.142466
      theta3 = 6
      phi3 = -65.142466
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 482
      chmoth = 'DC17'
      x = -33.975576
      y = -15.74034
      z = 0
      irot = 1533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1534
      theta1 = 90
      phi1 = -152.67671
      theta2 = 96
      phi2 = -62.676712
      theta3 = 6
      phi3 = -62.676712
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 483
      chmoth = 'DC17'
      x = -33.266934
      y = -17.187472
      z = 0
      irot = 1534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1535
      theta1 = 90
      phi1 = -150.21096
      theta2 = 96
      phi2 = -60.210959
      theta3 = 6
      phi3 = -60.210959
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 484
      chmoth = 'DC17'
      x = -32.496689
      y = -18.602776
      z = 0
      irot = 1535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1536
      theta1 = 90
      phi1 = -147.74521
      theta2 = 96
      phi2 = -57.745205
      theta3 = 6
      phi3 = -57.745205
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 485
      chmoth = 'DC17'
      x = -31.666268
      y = -19.983632
      z = 0
      irot = 1536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1537
      theta1 = 90
      phi1 = -145.27945
      theta2 = 96
      phi2 = -55.279452
      theta3 = 6
      phi3 = -55.279452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 486
      chmoth = 'DC17'
      x = -30.777208
      y = -21.327483
      z = 0
      irot = 1537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1538
      theta1 = 90
      phi1 = -142.8137
      theta2 = 96
      phi2 = -52.813699
      theta3 = 6
      phi3 = -52.813699
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 487
      chmoth = 'DC17'
      x = -29.831156
      y = -22.63184
      z = 0
      irot = 1538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1539
      theta1 = 90
      phi1 = -140.34795
      theta2 = 96
      phi2 = -50.347945
      theta3 = 6
      phi3 = -50.347945
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 488
      chmoth = 'DC17'
      x = -28.829863
      y = -23.894289
      z = 0
      irot = 1539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1540
      theta1 = 90
      phi1 = -137.88219
      theta2 = 96
      phi2 = -47.882192
      theta3 = 6
      phi3 = -47.882192
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 489
      chmoth = 'DC17'
      x = -27.775185
      y = -25.112491
      z = 0
      irot = 1540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1541
      theta1 = 90
      phi1 = -135.41644
      theta2 = 96
      phi2 = -45.416438
      theta3 = 6
      phi3 = -45.416438
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 490
      chmoth = 'DC17'
      x = -26.669073
      y = -26.28419
      z = 0
      irot = 1541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1542
      theta1 = 90
      phi1 = -132.95068
      theta2 = 96
      phi2 = -42.950685
      theta3 = 6
      phi3 = -42.950685
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 491
      chmoth = 'DC17'
      x = -25.513576
      y = -27.407217
      z = 0
      irot = 1542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1543
      theta1 = 90
      phi1 = -130.48493
      theta2 = 96
      phi2 = -40.484932
      theta3 = 6
      phi3 = -40.484932
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 492
      chmoth = 'DC17'
      x = -24.310833
      y = -28.479492
      z = 0
      irot = 1543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1544
      theta1 = 90
      phi1 = -128.01918
      theta2 = 96
      phi2 = -38.019178
      theta3 = 6
      phi3 = -38.019178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 493
      chmoth = 'DC17'
      x = -23.063073
      y = -29.499029
      z = 0
      irot = 1544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1545
      theta1 = 90
      phi1 = -125.55342
      theta2 = 96
      phi2 = -35.553425
      theta3 = 6
      phi3 = -35.553425
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 494
      chmoth = 'DC17'
      x = -21.772605
      y = -30.463942
      z = 0
      irot = 1545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1546
      theta1 = 90
      phi1 = -123.08767
      theta2 = 96
      phi2 = -33.087671
      theta3 = 6
      phi3 = -33.087671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 495
      chmoth = 'DC17'
      x = -20.441819
      y = -31.372442
      z = 0
      irot = 1546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1547
      theta1 = 90
      phi1 = -120.62192
      theta2 = 96
      phi2 = -30.621918
      theta3 = 6
      phi3 = -30.621918
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 496
      chmoth = 'DC17'
      x = -19.07318
      y = -32.222847
      z = 0
      irot = 1547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1548
      theta1 = 90
      phi1 = -118.15616
      theta2 = 96
      phi2 = -28.156164
      theta3 = 6
      phi3 = -28.156164
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 497
      chmoth = 'DC17'
      x = -17.669222
      y = -33.013583
      z = 0
      irot = 1548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1549
      theta1 = 90
      phi1 = -115.69041
      theta2 = 96
      phi2 = -25.690411
      theta3 = 6
      phi3 = -25.690411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 498
      chmoth = 'DC17'
      x = -16.232544
      y = -33.743186
      z = 0
      irot = 1549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1550
      theta1 = 90
      phi1 = -113.22466
      theta2 = 96
      phi2 = -23.224658
      theta3 = 6
      phi3 = -23.224658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 499
      chmoth = 'DC17'
      x = -14.765807
      y = -34.410304
      z = 0
      irot = 1550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1551
      theta1 = 90
      phi1 = -110.7589
      theta2 = 96
      phi2 = -20.758904
      theta3 = 6
      phi3 = -20.758904
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 500
      chmoth = 'DC17'
      x = -13.271728
      y = -35.013702
      z = 0
      irot = 1551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1552
      theta1 = 90
      phi1 = -108.29315
      theta2 = 96
      phi2 = -18.293151
      theta3 = 6
      phi3 = -18.293151
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 501
      chmoth = 'DC17'
      x = -11.753072
      y = -35.552262
      z = 0
      irot = 1552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1553
      theta1 = 90
      phi1 = -105.8274
      theta2 = 96
      phi2 = -15.827397
      theta3 = 6
      phi3 = -15.827397
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 502
      chmoth = 'DC17'
      x = -10.212652
      y = -36.024989
      z = 0
      irot = 1553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1554
      theta1 = 90
      phi1 = -103.36164
      theta2 = 96
      phi2 = -13.361644
      theta3 = 6
      phi3 = -13.361644
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 503
      chmoth = 'DC17'
      x = -8.6533211
      y = -36.431005
      z = 0
      irot = 1554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1555
      theta1 = 90
      phi1 = -100.89589
      theta2 = 96
      phi2 = -10.89589
      theta3 = 6
      phi3 = -10.89589
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 504
      chmoth = 'DC17'
      x = -7.0779659
      y = -36.769559
      z = 0
      irot = 1555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1556
      theta1 = 90
      phi1 = -98.430137
      theta2 = 96
      phi2 = -8.430137
      theta3 = 6
      phi3 = -8.430137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 505
      chmoth = 'DC17'
      x = -5.489504
      y = -37.040025
      z = 0
      irot = 1556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1557
      theta1 = 90
      phi1 = -95.964384
      theta2 = 96
      phi2 = -5.9643836
      theta3 = 6
      phi3 = -5.9643836
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 506
      chmoth = 'DC17'
      x = -3.8908768
      y = -37.2419
      z = 0
      irot = 1557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1558
      theta1 = 90
      phi1 = -93.49863
      theta2 = 96
      phi2 = -3.4986301
      theta3 = 6
      phi3 = -3.4986301
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 507
      chmoth = 'DC17'
      x = -2.2850446
      y = -37.374813
      z = 0
      irot = 1558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1559
      theta1 = 90
      phi1 = -91.032877
      theta2 = 96
      phi2 = -1.0328767
      theta3 = 6
      phi3 = -1.0328767
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 508
      chmoth = 'DC17'
      x = -0.67498097
      y = -37.438516
      z = 0
      irot = 1559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1560
      theta1 = 90
      phi1 = -88.567123
      theta2 = 96
      phi2 = 1.4328767
      theta3 = 6
      phi3 = 1.4328767
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 509
      chmoth = 'DC17'
      x = 0.93633254
      y = -37.432891
      z = 0
      irot = 1560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1561
      theta1 = 90
      phi1 = -86.10137
      theta2 = 96
      phi2 = 3.8986301
      theta3 = 6
      phi3 = 3.8986301
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 510
      chmoth = 'DC17'
      x = 2.5459122
      y = -37.35795
      z = 0
      irot = 1561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1562
      theta1 = 90
      phi1 = -83.635616
      theta2 = 96
      phi2 = 6.3643836
      theta3 = 6
      phi3 = 6.3643836
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 511
      chmoth = 'DC17'
      x = 4.1507774
      y = -37.21383
      z = 0
      irot = 1562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1563
      theta1 = 90
      phi1 = -81.169863
      theta2 = 96
      phi2 = 8.830137
      theta3 = 6
      phi3 = 8.830137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 512
      chmoth = 'DC17'
      x = 5.7479563
      y = -37.000798
      z = 0
      irot = 1563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1564
      theta1 = 90
      phi1 = -78.70411
      theta2 = 96
      phi2 = 11.29589
      theta3 = 6
      phi3 = 11.29589
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 513
      chmoth = 'DC17'
      x = 7.3344913
      y = -36.71925
      z = 0
      irot = 1564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1565
      theta1 = 90
      phi1 = -76.238356
      theta2 = 96
      phi2 = 13.761644
      theta3 = 6
      phi3 = 13.761644
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 514
      chmoth = 'DC17'
      x = 8.9074445
      y = -36.369706
      z = 0
      irot = 1565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1566
      theta1 = 90
      phi1 = -73.772603
      theta2 = 96
      phi2 = 16.227397
      theta3 = 6
      phi3 = 16.227397
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 515
      chmoth = 'DC17'
      x = 10.463903
      y = -35.952814
      z = 0
      irot = 1566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1567
      theta1 = 90
      phi1 = -71.306849
      theta2 = 96
      phi2 = 18.693151
      theta3 = 6
      phi3 = 18.693151
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 516
      chmoth = 'DC17'
      x = 12.000985
      y = -35.469345
      z = 0
      irot = 1567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1568
      theta1 = 90
      phi1 = -68.841096
      theta2 = 96
      phi2 = 21.158904
      theta3 = 6
      phi3 = 21.158904
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 517
      chmoth = 'DC17'
      x = 13.515844
      y = -34.920195
      z = 0
      irot = 1568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1569
      theta1 = 90
      phi1 = -66.375342
      theta2 = 96
      phi2 = 23.624658
      theta3 = 6
      phi3 = 23.624658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 518
      chmoth = 'DC17'
      x = 15.005675
      y = -34.306381
      z = 0
      irot = 1569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1570
      theta1 = 90
      phi1 = -63.909589
      theta2 = 96
      phi2 = 26.090411
      theta3 = 6
      phi3 = 26.090411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 519
      chmoth = 'DC17'
      x = 16.467718
      y = -33.62904
      z = 0
      irot = 1570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1571
      theta1 = 90
      phi1 = -61.443836
      theta2 = 96
      phi2 = 28.556164
      theta3 = 6
      phi3 = 28.556164
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 520
      chmoth = 'DC17'
      x = 17.899267
      y = -32.889425
      z = 0
      irot = 1571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1572
      theta1 = 90
      phi1 = -58.978082
      theta2 = 96
      phi2 = 31.021918
      theta3 = 6
      phi3 = 31.021918
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 521
      chmoth = 'DC17'
      x = 19.297671
      y = -32.088907
      z = 0
      irot = 1572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1573
      theta1 = 90
      phi1 = -56.512329
      theta2 = 96
      phi2 = 33.487671
      theta3 = 6
      phi3 = 33.487671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 522
      chmoth = 'DC17'
      x = 20.66034
      y = -31.228967
      z = 0
      irot = 1573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1574
      theta1 = 90
      phi1 = -54.046575
      theta2 = 96
      phi2 = 35.953425
      theta3 = 6
      phi3 = 35.953425
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 523
      chmoth = 'DC17'
      x = 21.984751
      y = -30.311199
      z = 0
      irot = 1574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1575
      theta1 = 90
      phi1 = -51.580822
      theta2 = 96
      phi2 = 38.419178
      theta3 = 6
      phi3 = 38.419178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 524
      chmoth = 'DC17'
      x = 23.268451
      y = -29.337301
      z = 0
      irot = 1575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1576
      theta1 = 90
      phi1 = -49.115068
      theta2 = 96
      phi2 = 40.884932
      theta3 = 6
      phi3 = 40.884932
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 525
      chmoth = 'DC17'
      x = 24.509064
      y = -28.309078
      z = 0
      irot = 1576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1577
      theta1 = 90
      phi1 = -46.649315
      theta2 = 96
      phi2 = 43.350685
      theta3 = 6
      phi3 = 43.350685
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 526
      chmoth = 'DC17'
      x = 25.704291
      y = -27.228432
      z = 0
      irot = 1577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1578
      theta1 = 90
      phi1 = -44.183562
      theta2 = 96
      phi2 = 45.816438
      theta3 = 6
      phi3 = 45.816438
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 527
      chmoth = 'DC17'
      x = 26.851919
      y = -26.097366
      z = 0
      irot = 1578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1579
      theta1 = 90
      phi1 = -41.717808
      theta2 = 96
      phi2 = 48.282192
      theta3 = 6
      phi3 = 48.282192
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 528
      chmoth = 'DC17'
      x = 27.949825
      y = -24.917973
      z = 0
      irot = 1579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1580
      theta1 = 90
      phi1 = -39.252055
      theta2 = 96
      phi2 = 50.747945
      theta3 = 6
      phi3 = 50.747945
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 529
      chmoth = 'DC17'
      x = 28.995973
      y = -23.692438
      z = 0
      irot = 1580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1581
      theta1 = 90
      phi1 = -36.786301
      theta2 = 96
      phi2 = 53.213699
      theta3 = 6
      phi3 = 53.213699
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 530
      chmoth = 'DC17'
      x = 29.988428
      y = -22.42303
      z = 0
      irot = 1581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1582
      theta1 = 90
      phi1 = -34.320548
      theta2 = 96
      phi2 = 55.679452
      theta3 = 6
      phi3 = 55.679452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 531
      chmoth = 'DC17'
      x = 30.925351
      y = -21.1121
      z = 0
      irot = 1582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1583
      theta1 = 90
      phi1 = -31.854795
      theta2 = 96
      phi2 = 58.145205
      theta3 = 6
      phi3 = 58.145205
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 532
      chmoth = 'DC17'
      x = 31.805007
      y = -19.762075
      z = 0
      irot = 1583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1584
      theta1 = 90
      phi1 = -29.389041
      theta2 = 96
      phi2 = 60.610959
      theta3 = 6
      phi3 = 60.610959
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 533
      chmoth = 'DC17'
      x = 32.625768
      y = -18.375455
      z = 0
      irot = 1584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1585
      theta1 = 90
      phi1 = -26.923288
      theta2 = 96
      phi2 = 63.076712
      theta3 = 6
      phi3 = 63.076712
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 534
      chmoth = 'DC17'
      x = 33.386113
      y = -16.954808
      z = 0
      irot = 1585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1586
      theta1 = 90
      phi1 = -24.457534
      theta2 = 96
      phi2 = 65.542466
      theta3 = 6
      phi3 = 65.542466
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 535
      chmoth = 'DC17'
      x = 34.084635
      y = -15.502764
      z = 0
      irot = 1586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1587
      theta1 = 90
      phi1 = -21.991781
      theta2 = 96
      phi2 = 68.008219
      theta3 = 6
      phi3 = 68.008219
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 536
      chmoth = 'DC17'
      x = 34.72004
      y = -14.022014
      z = 0
      irot = 1587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1588
      theta1 = 90
      phi1 = -19.526027
      theta2 = 96
      phi2 = 70.473973
      theta3 = 6
      phi3 = 70.473973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 537
      chmoth = 'DC17'
      x = 35.291152
      y = -12.515297
      z = 0
      irot = 1588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1589
      theta1 = 90
      phi1 = -17.060274
      theta2 = 96
      phi2 = 72.939726
      theta3 = 6
      phi3 = 72.939726
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 538
      chmoth = 'DC17'
      x = 35.796912
      y = -10.985405
      z = 0
      irot = 1589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1590
      theta1 = 90
      phi1 = -14.594521
      theta2 = 96
      phi2 = 75.405479
      theta3 = 6
      phi3 = 75.405479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 539
      chmoth = 'DC17'
      x = 36.236385
      y = -9.4351709
      z = 0
      irot = 1590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1591
      theta1 = 90
      phi1 = -12.128767
      theta2 = 96
      phi2 = 77.871233
      theta3 = 6
      phi3 = 77.871233
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 540
      chmoth = 'DC17'
      x = 36.608757
      y = -7.8674648
      z = 0
      irot = 1591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1592
      theta1 = 90
      phi1 = -9.6630137
      theta2 = 96
      phi2 = 80.336986
      theta3 = 6
      phi3 = 80.336986
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 541
      chmoth = 'DC17'
      x = 36.913337
      y = -6.28519
      z = 0
      irot = 1592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1593
      theta1 = 90
      phi1 = -7.1972603
      theta2 = 96
      phi2 = 82.80274
      theta3 = 6
      phi3 = 82.80274
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 542
      chmoth = 'DC17'
      x = 37.149563
      y = -4.6912764
      z = 0
      irot = 1593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1594
      theta1 = 90
      phi1 = -4.7315068
      theta2 = 96
      phi2 = 85.268493
      theta3 = 6
      phi3 = 85.268493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 543
      chmoth = 'DC17'
      x = 37.316995
      y = -3.0886757
      z = 0
      irot = 1594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1595
      theta1 = 90
      phi1 = -2.2657534
      theta2 = 96
      phi2 = 87.734247
      theta3 = 6
      phi3 = 87.734247
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 544
      chmoth = 'DC17'
      x = 37.415326
      y = -1.4803555
      z = 0
      irot = 1595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1596
      theta1 = 89.871753
      phi1 = 0.2
      theta2 = 96.219174
      phi2 = 90.186024
      theta3 = 6.220507
      phi3 = 91.376696
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 545
      chmoth = 'DC17'
      x = 38.826346
      y = 0.97118816
      z = 0
      irot = 1596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1597
      theta1 = 89.871753
      phi1 = 2.6657534
      theta2 = 96.219174
      phi2 = 92.651778
      theta3 = 6.220507
      phi3 = 93.842449
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 546
      chmoth = 'DC17'
      x = 38.748615
      y = 2.6406851
      z = 0
      irot = 1597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1598
      theta1 = 89.871753
      phi1 = 5.1315068
      theta2 = 96.219174
      phi2 = 95.117531
      theta3 = 6.220507
      phi3 = 96.308203
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 547
      chmoth = 'DC17'
      x = 38.59913
      y = 4.305292
      z = 0
      irot = 1598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1599
      theta1 = 89.871753
      phi1 = 7.5972603
      theta2 = 96.219174
      phi2 = 97.583285
      theta3 = 6.220507
      phi3 = 98.773956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 548
      chmoth = 'DC17'
      x = 38.378168
      y = 5.9619266
      z = 0
      irot = 1599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1600
      theta1 = 89.871753
      phi1 = 10.063014
      theta2 = 96.219174
      phi2 = 100.04904
      theta3 = 6.220507
      phi3 = 101.23971
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 549
      chmoth = 'DC17'
      x = 38.086139
      y = 7.6075211
      z = 0
      irot = 1600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1601
      theta1 = 89.871753
      phi1 = 12.528767
      theta2 = 96.219174
      phi2 = 102.51479
      theta3 = 6.220507
      phi3 = 103.70546
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 550
      chmoth = 'DC17'
      x = 37.723583
      y = 9.2390281
      z = 0
      irot = 1601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1602
      theta1 = 89.871753
      phi1 = 14.994521
      theta2 = 96.219174
      phi2 = 104.98055
      theta3 = 6.220507
      phi3 = 106.17122
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 551
      chmoth = 'DC17'
      x = 37.291172
      y = 10.853427
      z = 0
      irot = 1602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1603
      theta1 = 89.871753
      phi1 = 17.460274
      theta2 = 96.219174
      phi2 = 107.4463
      theta3 = 6.220507
      phi3 = 108.63697
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 552
      chmoth = 'DC17'
      x = 36.789706
      y = 12.447727
      z = 0
      irot = 1603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1604
      theta1 = 89.871753
      phi1 = 19.926027
      theta2 = 96.219174
      phi2 = 109.91205
      theta3 = 6.220507
      phi3 = 111.10272
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 553
      chmoth = 'DC17'
      x = 36.220114
      y = 14.018977
      z = 0
      irot = 1604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1605
      theta1 = 89.871753
      phi1 = 22.391781
      theta2 = 96.219174
      phi2 = 112.37781
      theta3 = 6.220507
      phi3 = 113.56848
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 554
      chmoth = 'DC17'
      x = 35.583451
      y = 15.564267
      z = 0
      irot = 1605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1606
      theta1 = 89.871753
      phi1 = 24.857534
      theta2 = 96.219174
      phi2 = 114.84356
      theta3 = 6.220507
      phi3 = 116.03423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 555
      chmoth = 'DC17'
      x = 34.880895
      y = 17.080736
      z = 0
      irot = 1606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1607
      theta1 = 89.871753
      phi1 = 27.323288
      theta2 = 96.219174
      phi2 = 117.30931
      theta3 = 6.220507
      phi3 = 118.49998
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 556
      chmoth = 'DC17'
      x = 34.113748
      y = 18.565575
      z = 0
      irot = 1607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1608
      theta1 = 89.871753
      phi1 = 29.789041
      theta2 = 96.219174
      phi2 = 119.77507
      theta3 = 6.220507
      phi3 = 120.96574
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 557
      chmoth = 'DC17'
      x = 33.28343
      y = 20.016036
      z = 0
      irot = 1608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1609
      theta1 = 89.871753
      phi1 = 32.254795
      theta2 = 96.219174
      phi2 = 122.24082
      theta3 = 6.220507
      phi3 = 123.43149
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 558
      chmoth = 'DC17'
      x = 32.391479
      y = 21.42943
      z = 0
      irot = 1609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1610
      theta1 = 89.871753
      phi1 = 34.720548
      theta2 = 96.219174
      phi2 = 124.70657
      theta3 = 6.220507
      phi3 = 125.89724
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 559
      chmoth = 'DC17'
      x = 31.439546
      y = 22.803143
      z = 0
      irot = 1610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1611
      theta1 = 89.871753
      phi1 = 37.186301
      theta2 = 96.219174
      phi2 = 127.17233
      theta3 = 6.220507
      phi3 = 128.363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 560
      chmoth = 'DC17'
      x = 30.429395
      y = 24.134629
      z = 0
      irot = 1611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1612
      theta1 = 89.871753
      phi1 = 39.652055
      theta2 = 96.219174
      phi2 = 129.63808
      theta3 = 6.220507
      phi3 = 130.82875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 561
      chmoth = 'DC17'
      x = 29.362895
      y = 25.421424
      z = 0
      irot = 1612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1613
      theta1 = 89.871753
      phi1 = 42.117808
      theta2 = 96.219174
      phi2 = 132.10383
      theta3 = 6.220507
      phi3 = 133.2945
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 562
      chmoth = 'DC17'
      x = 28.242022
      y = 26.661144
      z = 0
      irot = 1613
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1614
      theta1 = 89.871753
      phi1 = 44.583562
      theta2 = 96.219174
      phi2 = 134.56959
      theta3 = 6.220507
      phi3 = 135.76026
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 563
      chmoth = 'DC17'
      x = 27.068851
      y = 27.851494
      z = 0
      irot = 1614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1615
      theta1 = 89.871753
      phi1 = 47.049315
      theta2 = 96.219174
      phi2 = 137.03534
      theta3 = 6.220507
      phi3 = 138.22601
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 564
      chmoth = 'DC17'
      x = 25.845555
      y = 28.990269
      z = 0
      irot = 1615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1616
      theta1 = 89.871753
      phi1 = 49.515068
      theta2 = 96.219174
      phi2 = 139.50109
      theta3 = 6.220507
      phi3 = 140.69176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 565
      chmoth = 'DC17'
      x = 24.574399
      y = 30.075361
      z = 0
      irot = 1616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1617
      theta1 = 89.871753
      phi1 = 51.980822
      theta2 = 96.219174
      phi2 = 141.96685
      theta3 = 6.220507
      phi3 = 143.15752
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 566
      chmoth = 'DC17'
      x = 23.257736
      y = 31.10476
      z = 0
      irot = 1617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1618
      theta1 = 89.871753
      phi1 = 54.446575
      theta2 = 96.219174
      phi2 = 144.4326
      theta3 = 6.220507
      phi3 = 145.62327
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 567
      chmoth = 'DC17'
      x = 21.898006
      y = 32.07656
      z = 0
      irot = 1618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1619
      theta1 = 89.871753
      phi1 = 56.912329
      theta2 = 96.219174
      phi2 = 146.89835
      theta3 = 6.220507
      phi3 = 148.08902
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 568
      chmoth = 'DC17'
      x = 20.497726
      y = 32.988962
      z = 0
      irot = 1619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1620
      theta1 = 89.871753
      phi1 = 59.378082
      theta2 = 96.219174
      phi2 = 149.36411
      theta3 = 6.220507
      phi3 = 150.55478
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 569
      chmoth = 'DC17'
      x = 19.059489
      y = 33.840276
      z = 0
      irot = 1620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1621
      theta1 = 89.871753
      phi1 = 61.843836
      theta2 = 96.219174
      phi2 = 151.82986
      theta3 = 6.220507
      phi3 = 153.02053
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 570
      chmoth = 'DC17'
      x = 17.585957
      y = 34.628926
      z = 0
      irot = 1621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1622
      theta1 = 89.871753
      phi1 = 64.309589
      theta2 = 96.219174
      phi2 = 154.29561
      theta3 = 6.220507
      phi3 = 155.48628
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 571
      chmoth = 'DC17'
      x = 16.079861
      y = 35.35345
      z = 0
      irot = 1622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1623
      theta1 = 89.871753
      phi1 = 66.775342
      theta2 = 96.219174
      phi2 = 156.76137
      theta3 = 6.220507
      phi3 = 157.95204
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 572
      chmoth = 'DC17'
      x = 14.543989
      y = 36.012509
      z = 0
      irot = 1623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1624
      theta1 = 89.871753
      phi1 = 69.241096
      theta2 = 96.219174
      phi2 = 159.22712
      theta3 = 6.220507
      phi3 = 160.41779
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 573
      chmoth = 'DC17'
      x = 12.981184
      y = 36.60488
      z = 0
      irot = 1624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1625
      theta1 = 89.871753
      phi1 = 71.706849
      theta2 = 96.219174
      phi2 = 161.69287
      theta3 = 6.220507
      phi3 = 162.88355
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 574
      chmoth = 'DC17'
      x = 11.394341
      y = 37.129468
      z = 0
      irot = 1625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1626
      theta1 = 89.871753
      phi1 = 74.172603
      theta2 = 96.219174
      phi2 = 164.15863
      theta3 = 6.220507
      phi3 = 165.3493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 575
      chmoth = 'DC17'
      x = 9.7863989
      y = 37.5853
      z = 0
      irot = 1626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1627
      theta1 = 89.871753
      phi1 = 76.638356
      theta2 = 96.219174
      phi2 = 166.62438
      theta3 = 6.220507
      phi3 = 167.81505
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 576
      chmoth = 'DC17'
      x = 8.1603343
      y = 37.971533
      z = 0
      irot = 1627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1628
      theta1 = 89.871753
      phi1 = 79.10411
      theta2 = 96.219174
      phi2 = 169.09013
      theta3 = 6.220507
      phi3 = 170.28081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 577
      chmoth = 'DC17'
      x = 6.5191586
      y = 38.287452
      z = 0
      irot = 1628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1629
      theta1 = 89.871753
      phi1 = 81.569863
      theta2 = 96.219174
      phi2 = 171.55589
      theta3 = 6.220507
      phi3 = 172.74656
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 578
      chmoth = 'DC17'
      x = 4.8659109
      y = 38.532471
      z = 0
      irot = 1629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1630
      theta1 = 89.871753
      phi1 = 84.035616
      theta2 = 96.219174
      phi2 = 174.02164
      theta3 = 6.220507
      phi3 = 175.21231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 579
      chmoth = 'DC17'
      x = 3.2036527
      y = 38.706136
      z = 0
      irot = 1630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1631
      theta1 = 89.871753
      phi1 = 86.50137
      theta2 = 96.219174
      phi2 = 176.48739
      theta3 = 6.220507
      phi3 = 177.67807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 580
      chmoth = 'DC17'
      x = 1.5354621
      y = 38.808127
      z = 0
      irot = 1631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1632
      theta1 = 89.871753
      phi1 = 88.967123
      theta2 = 96.219174
      phi2 = 178.95315
      theta3 = 6.220507
      phi3 = -179.85618
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 581
      chmoth = 'DC17'
      x = -0.13557188
      y = 38.838254
      z = 0
      irot = 1632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1633
      theta1 = 89.871753
      phi1 = 91.432877
      theta2 = 96.219174
      phi2 = -178.5811
      theta3 = 6.220507
      phi3 = -177.39043
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 582
      chmoth = 'DC17'
      x = -1.8063548
      y = 38.796462
      z = 0
      irot = 1633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1634
      theta1 = 89.871753
      phi1 = 93.89863
      theta2 = 96.219174
      phi2 = -176.11535
      theta3 = 6.220507
      phi3 = -174.92467
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 583
      chmoth = 'DC17'
      x = -3.4737927
      y = 38.682828
      z = 0
      irot = 1634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1635
      theta1 = 89.871753
      phi1 = 96.364384
      theta2 = 96.219174
      phi2 = -173.64959
      theta3 = 6.220507
      phi3 = -172.45892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 584
      chmoth = 'DC17'
      x = -5.134798
      y = 38.497561
      z = 0
      irot = 1635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1636
      theta1 = 89.871753
      phi1 = 98.830137
      theta2 = 96.219174
      phi2 = -171.18384
      theta3 = 6.220507
      phi3 = -169.99317
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 585
      chmoth = 'DC17'
      x = -6.7862949
      y = 38.241007
      z = 0
      irot = 1636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1637
      theta1 = 89.871753
      phi1 = 101.29589
      theta2 = 96.219174
      phi2 = -168.71809
      theta3 = 6.220507
      phi3 = -167.52741
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 586
      chmoth = 'DC17'
      x = -8.425225
      y = 37.913638
      z = 0
      irot = 1637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1638
      theta1 = 89.871753
      phi1 = 103.76164
      theta2 = 96.219174
      phi2 = -166.25233
      theta3 = 6.220507
      phi3 = -165.06166
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 587
      chmoth = 'DC17'
      x = -10.048554
      y = 37.516063
      z = 0
      irot = 1638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1639
      theta1 = 89.871753
      phi1 = 106.2274
      theta2 = 96.219174
      phi2 = -163.78658
      theta3 = 6.220507
      phi3 = -162.59591
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 588
      chmoth = 'DC17'
      x = -11.653275
      y = 37.049016
      z = 0
      irot = 1639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1640
      theta1 = 89.871753
      phi1 = 108.69315
      theta2 = 96.219174
      phi2 = -161.32082
      theta3 = 6.220507
      phi3 = -160.13015
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 589
      chmoth = 'DC17'
      x = -13.236416
      y = 36.513363
      z = 0
      irot = 1640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1641
      theta1 = 89.871753
      phi1 = 111.1589
      theta2 = 96.219174
      phi2 = -158.85507
      theta3 = 6.220507
      phi3 = -157.6644
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 590
      chmoth = 'DC17'
      x = -14.795047
      y = 35.910095
      z = 0
      irot = 1641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1642
      theta1 = 89.871753
      phi1 = 113.62466
      theta2 = 96.219174
      phi2 = -156.38932
      theta3 = 6.220507
      phi3 = -155.19865
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 591
      chmoth = 'DC17'
      x = -16.326281
      y = 35.240331
      z = 0
      irot = 1642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1643
      theta1 = 89.871753
      phi1 = 116.09041
      theta2 = 96.219174
      phi2 = -153.92356
      theta3 = 6.220507
      phi3 = -152.73289
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 592
      chmoth = 'DC17'
      x = -17.827283
      y = 34.505309
      z = 0
      irot = 1643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1644
      theta1 = 89.871753
      phi1 = 118.55616
      theta2 = 96.219174
      phi2 = -151.45781
      theta3 = 6.220507
      phi3 = -150.26714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 593
      chmoth = 'DC17'
      x = -19.295272
      y = 33.706392
      z = 0
      irot = 1644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1645
      theta1 = 89.871753
      phi1 = 121.02192
      theta2 = 96.219174
      phi2 = -148.99206
      theta3 = 6.220507
      phi3 = -147.80139
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 594
      chmoth = 'DC17'
      x = -20.727531
      y = 32.845058
      z = 0
      irot = 1645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1646
      theta1 = 89.871753
      phi1 = 123.48767
      theta2 = 96.219174
      phi2 = -146.5263
      theta3 = 6.220507
      phi3 = -145.33563
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 595
      chmoth = 'DC17'
      x = -22.121408
      y = 31.922903
      z = 0
      irot = 1646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1647
      theta1 = 89.871753
      phi1 = 125.95342
      theta2 = 96.219174
      phi2 = -144.06055
      theta3 = 6.220507
      phi3 = -142.86988
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 596
      chmoth = 'DC17'
      x = -23.47432
      y = 30.941633
      z = 0
      irot = 1647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1648
      theta1 = 89.871753
      phi1 = 128.41918
      theta2 = 96.219174
      phi2 = -141.5948
      theta3 = 6.220507
      phi3 = -140.40413
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 597
      chmoth = 'DC17'
      x = -24.783764
      y = 29.903067
      z = 0
      irot = 1648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1649
      theta1 = 89.871753
      phi1 = 130.88493
      theta2 = 96.219174
      phi2 = -139.12904
      theta3 = 6.220507
      phi3 = -137.93837
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 598
      chmoth = 'DC17'
      x = -26.047314
      y = 28.809127
      z = 0
      irot = 1649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1650
      theta1 = 89.871753
      phi1 = 133.35068
      theta2 = 96.219174
      phi2 = -136.66329
      theta3 = 6.220507
      phi3 = -135.47262
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 599
      chmoth = 'DC17'
      x = -27.26263
      y = 27.66184
      z = 0
      irot = 1650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1651
      theta1 = 89.871753
      phi1 = 135.81644
      theta2 = 96.219174
      phi2 = -134.19754
      theta3 = 6.220507
      phi3 = -133.00687
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 600
      chmoth = 'DC17'
      x = -28.427462
      y = 26.463329
      z = 0
      irot = 1651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1652
      theta1 = 89.871753
      phi1 = 138.28219
      theta2 = 96.219174
      phi2 = -131.73178
      theta3 = 6.220507
      phi3 = -130.54111
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 601
      chmoth = 'DC17'
      x = -29.539653
      y = 25.215814
      z = 0
      irot = 1652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1653
      theta1 = 89.871753
      phi1 = 140.74795
      theta2 = 96.219174
      phi2 = -129.26603
      theta3 = 6.220507
      phi3 = -128.07536
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 602
      chmoth = 'DC17'
      x = -30.597143
      y = 23.921605
      z = 0
      irot = 1653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1654
      theta1 = 89.871753
      phi1 = 143.2137
      theta2 = 96.219174
      phi2 = -126.80028
      theta3 = 6.220507
      phi3 = -125.60961
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 603
      chmoth = 'DC17'
      x = -31.597975
      y = 22.583099
      z = 0
      irot = 1654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1655
      theta1 = 89.871753
      phi1 = 145.67945
      theta2 = 96.219174
      phi2 = -124.33452
      theta3 = 6.220507
      phi3 = -123.14385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 604
      chmoth = 'DC17'
      x = -32.540294
      y = 21.202774
      z = 0
      irot = 1655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1656
      theta1 = 89.871753
      phi1 = 148.14521
      theta2 = 96.219174
      phi2 = -121.86877
      theta3 = 6.220507
      phi3 = -120.6781
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 605
      chmoth = 'DC17'
      x = -33.422356
      y = 19.783187
      z = 0
      irot = 1656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1657
      theta1 = 89.871753
      phi1 = 150.61096
      theta2 = 96.219174
      phi2 = -119.40302
      theta3 = 6.220507
      phi3 = -118.21235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 606
      chmoth = 'DC17'
      x = -34.242528
      y = 18.326966
      z = 0
      irot = 1657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1658
      theta1 = 89.871753
      phi1 = 153.07671
      theta2 = 96.219174
      phi2 = -116.93726
      theta3 = 6.220507
      phi3 = -115.74659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 607
      chmoth = 'DC17'
      x = -34.99929
      y = 16.836807
      z = 0
      irot = 1658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1659
      theta1 = 89.871753
      phi1 = 155.54247
      theta2 = 96.219174
      phi2 = -114.47151
      theta3 = 6.220507
      phi3 = -113.28084
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 608
      chmoth = 'DC17'
      x = -35.691242
      y = 15.31547
      z = 0
      irot = 1659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1660
      theta1 = 89.871753
      phi1 = 158.00822
      theta2 = 96.219174
      phi2 = -112.00576
      theta3 = 6.220507
      phi3 = -110.81508
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 609
      chmoth = 'DC17'
      x = -36.317102
      y = 13.765773
      z = 0
      irot = 1660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1661
      theta1 = 89.871753
      phi1 = 160.47397
      theta2 = 96.219174
      phi2 = -109.54
      theta3 = 6.220507
      phi3 = -108.34933
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 610
      chmoth = 'DC17'
      x = -36.875711
      y = 12.190585
      z = 0
      irot = 1661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1662
      theta1 = 89.871753
      phi1 = 162.93973
      theta2 = 96.219174
      phi2 = -107.07425
      theta3 = 6.220507
      phi3 = -105.88358
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 611
      chmoth = 'DC17'
      x = -37.366034
      y = 10.592822
      z = 0
      irot = 1662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1663
      theta1 = 89.871753
      phi1 = 165.40548
      theta2 = 96.219174
      phi2 = -104.6085
      theta3 = 6.220507
      phi3 = -103.41782
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 612
      chmoth = 'DC17'
      x = -37.787164
      y = 8.9754444
      z = 0
      irot = 1663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1664
      theta1 = 89.871753
      phi1 = 167.87123
      theta2 = 96.219174
      phi2 = -102.14274
      theta3 = 6.220507
      phi3 = -100.95207
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 613
      chmoth = 'DC17'
      x = -38.138321
      y = 7.3414459
      z = 0
      irot = 1664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1665
      theta1 = 89.871753
      phi1 = 170.33699
      theta2 = 96.219174
      phi2 = -99.676989
      theta3 = 6.220507
      phi3 = -98.486318
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 614
      chmoth = 'DC17'
      x = -38.418855
      y = 5.6938529
      z = 0
      irot = 1665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1666
      theta1 = 89.871753
      phi1 = 172.80274
      theta2 = 96.219174
      phi2 = -97.211236
      theta3 = 6.220507
      phi3 = -96.020564
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 615
      chmoth = 'DC17'
      x = -38.628246
      y = 4.0357161
      z = 0
      irot = 1666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1667
      theta1 = 89.871753
      phi1 = 175.26849
      theta2 = 96.219174
      phi2 = -94.745482
      theta3 = 6.220507
      phi3 = -93.554811
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 616
      chmoth = 'DC17'
      x = -38.766106
      y = 2.3701061
      z = 0
      irot = 1667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1668
      theta1 = 89.871753
      phi1 = 177.73425
      theta2 = 96.219174
      phi2 = -92.279729
      theta3 = 6.220507
      phi3 = -91.089057
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 617
      chmoth = 'DC17'
      x = -38.83218
      y = 0.70010717
      z = 0
      irot = 1668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1669
      theta1 = 89.871753
      phi1 = -179.8
      theta2 = 96.219174
      phi2 = -89.813976
      theta3 = 6.220507
      phi3 = -88.623304
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 618
      chmoth = 'DC17'
      x = -38.826346
      y = -0.97118816
      z = 0
      irot = 1669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1670
      theta1 = 89.871753
      phi1 = -177.33425
      theta2 = 96.219174
      phi2 = -87.348222
      theta3 = 6.220507
      phi3 = -86.157551
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 619
      chmoth = 'DC17'
      x = -38.748615
      y = -2.6406851
      z = 0
      irot = 1670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1671
      theta1 = 89.871753
      phi1 = -174.86849
      theta2 = 96.219174
      phi2 = -84.882469
      theta3 = 6.220507
      phi3 = -83.691797
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 620
      chmoth = 'DC17'
      x = -38.59913
      y = -4.305292
      z = 0
      irot = 1671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1672
      theta1 = 89.871753
      phi1 = -172.40274
      theta2 = 96.219174
      phi2 = -82.416715
      theta3 = 6.220507
      phi3 = -81.226044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 621
      chmoth = 'DC17'
      x = -38.378168
      y = -5.9619266
      z = 0
      irot = 1672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1673
      theta1 = 89.871753
      phi1 = -169.93699
      theta2 = 96.219174
      phi2 = -79.950962
      theta3 = 6.220507
      phi3 = -78.76029
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 622
      chmoth = 'DC17'
      x = -38.086139
      y = -7.6075211
      z = 0
      irot = 1673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1674
      theta1 = 89.871753
      phi1 = -167.47123
      theta2 = 96.219174
      phi2 = -77.485208
      theta3 = 6.220507
      phi3 = -76.294537
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 623
      chmoth = 'DC17'
      x = -37.723583
      y = -9.2390281
      z = 0
      irot = 1674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1675
      theta1 = 89.871753
      phi1 = -165.00548
      theta2 = 96.219174
      phi2 = -75.019455
      theta3 = 6.220507
      phi3 = -73.828784
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 624
      chmoth = 'DC17'
      x = -37.291172
      y = -10.853427
      z = 0
      irot = 1675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1676
      theta1 = 89.871753
      phi1 = -162.53973
      theta2 = 96.219174
      phi2 = -72.553702
      theta3 = 6.220507
      phi3 = -71.36303
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 625
      chmoth = 'DC17'
      x = -36.789706
      y = -12.447727
      z = 0
      irot = 1676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1677
      theta1 = 89.871753
      phi1 = -160.07397
      theta2 = 96.219174
      phi2 = -70.087948
      theta3 = 6.220507
      phi3 = -68.897277
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 626
      chmoth = 'DC17'
      x = -36.220114
      y = -14.018977
      z = 0
      irot = 1677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1678
      theta1 = 89.871753
      phi1 = -157.60822
      theta2 = 96.219174
      phi2 = -67.622195
      theta3 = 6.220507
      phi3 = -66.431523
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 627
      chmoth = 'DC17'
      x = -35.583451
      y = -15.564267
      z = 0
      irot = 1678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1679
      theta1 = 89.871753
      phi1 = -155.14247
      theta2 = 96.219174
      phi2 = -65.156441
      theta3 = 6.220507
      phi3 = -63.96577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 628
      chmoth = 'DC17'
      x = -34.880895
      y = -17.080736
      z = 0
      irot = 1679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1680
      theta1 = 89.871753
      phi1 = -152.67671
      theta2 = 96.219174
      phi2 = -62.690688
      theta3 = 6.220507
      phi3 = -61.500016
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 629
      chmoth = 'DC17'
      x = -34.113748
      y = -18.565575
      z = 0
      irot = 1680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1681
      theta1 = 89.871753
      phi1 = -150.21096
      theta2 = 96.219174
      phi2 = -60.224934
      theta3 = 6.220507
      phi3 = -59.034263
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 630
      chmoth = 'DC17'
      x = -33.28343
      y = -20.016036
      z = 0
      irot = 1681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1682
      theta1 = 89.871753
      phi1 = -147.74521
      theta2 = 96.219174
      phi2 = -57.759181
      theta3 = 6.220507
      phi3 = -56.56851
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 631
      chmoth = 'DC17'
      x = -32.391479
      y = -21.42943
      z = 0
      irot = 1682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1683
      theta1 = 89.871753
      phi1 = -145.27945
      theta2 = 96.219174
      phi2 = -55.293428
      theta3 = 6.220507
      phi3 = -54.102756
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 632
      chmoth = 'DC17'
      x = -31.439546
      y = -22.803143
      z = 0
      irot = 1683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1684
      theta1 = 89.871753
      phi1 = -142.8137
      theta2 = 96.219174
      phi2 = -52.827674
      theta3 = 6.220507
      phi3 = -51.637003
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 633
      chmoth = 'DC17'
      x = -30.429395
      y = -24.134629
      z = 0
      irot = 1684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1685
      theta1 = 89.871753
      phi1 = -140.34795
      theta2 = 96.219174
      phi2 = -50.361921
      theta3 = 6.220507
      phi3 = -49.171249
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 634
      chmoth = 'DC17'
      x = -29.362895
      y = -25.421424
      z = 0
      irot = 1685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1686
      theta1 = 89.871753
      phi1 = -137.88219
      theta2 = 96.219174
      phi2 = -47.896167
      theta3 = 6.220507
      phi3 = -46.705496
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 635
      chmoth = 'DC17'
      x = -28.242022
      y = -26.661144
      z = 0
      irot = 1686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1687
      theta1 = 89.871753
      phi1 = -135.41644
      theta2 = 96.219174
      phi2 = -45.430414
      theta3 = 6.220507
      phi3 = -44.239742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 636
      chmoth = 'DC17'
      x = -27.068851
      y = -27.851494
      z = 0
      irot = 1687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1688
      theta1 = 89.871753
      phi1 = -132.95068
      theta2 = 96.219174
      phi2 = -42.96466
      theta3 = 6.220507
      phi3 = -41.773989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 637
      chmoth = 'DC17'
      x = -25.845555
      y = -28.990269
      z = 0
      irot = 1688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1689
      theta1 = 89.871753
      phi1 = -130.48493
      theta2 = 96.219174
      phi2 = -40.498907
      theta3 = 6.220507
      phi3 = -39.308236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 638
      chmoth = 'DC17'
      x = -24.574399
      y = -30.075361
      z = 0
      irot = 1689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1690
      theta1 = 89.871753
      phi1 = -128.01918
      theta2 = 96.219174
      phi2 = -38.033154
      theta3 = 6.220507
      phi3 = -36.842482
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 639
      chmoth = 'DC17'
      x = -23.257736
      y = -31.10476
      z = 0
      irot = 1690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1691
      theta1 = 89.871753
      phi1 = -125.55342
      theta2 = 96.219174
      phi2 = -35.5674
      theta3 = 6.220507
      phi3 = -34.376729
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 640
      chmoth = 'DC17'
      x = -21.898006
      y = -32.07656
      z = 0
      irot = 1691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1692
      theta1 = 89.871753
      phi1 = -123.08767
      theta2 = 96.219174
      phi2 = -33.101647
      theta3 = 6.220507
      phi3 = -31.910975
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 641
      chmoth = 'DC17'
      x = -20.497726
      y = -32.988962
      z = 0
      irot = 1692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1693
      theta1 = 89.871753
      phi1 = -120.62192
      theta2 = 96.219174
      phi2 = -30.635893
      theta3 = 6.220507
      phi3 = -29.445222
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 642
      chmoth = 'DC17'
      x = -19.059489
      y = -33.840276
      z = 0
      irot = 1693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1694
      theta1 = 89.871753
      phi1 = -118.15616
      theta2 = 96.219174
      phi2 = -28.17014
      theta3 = 6.220507
      phi3 = -26.979468
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 643
      chmoth = 'DC17'
      x = -17.585957
      y = -34.628926
      z = 0
      irot = 1694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1695
      theta1 = 89.871753
      phi1 = -115.69041
      theta2 = 96.219174
      phi2 = -25.704386
      theta3 = 6.220507
      phi3 = -24.513715
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 644
      chmoth = 'DC17'
      x = -16.079861
      y = -35.35345
      z = 0
      irot = 1695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1696
      theta1 = 89.871753
      phi1 = -113.22466
      theta2 = 96.219174
      phi2 = -23.238633
      theta3 = 6.220507
      phi3 = -22.047962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 645
      chmoth = 'DC17'
      x = -14.543989
      y = -36.012509
      z = 0
      irot = 1696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1697
      theta1 = 89.871753
      phi1 = -110.7589
      theta2 = 96.219174
      phi2 = -20.77288
      theta3 = 6.220507
      phi3 = -19.582208
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 646
      chmoth = 'DC17'
      x = -12.981184
      y = -36.60488
      z = 0
      irot = 1697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1698
      theta1 = 89.871753
      phi1 = -108.29315
      theta2 = 96.219174
      phi2 = -18.307126
      theta3 = 6.220507
      phi3 = -17.116455
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 647
      chmoth = 'DC17'
      x = -11.394341
      y = -37.129468
      z = 0
      irot = 1698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1699
      theta1 = 89.871753
      phi1 = -105.8274
      theta2 = 96.219174
      phi2 = -15.841373
      theta3 = 6.220507
      phi3 = -14.650701
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 648
      chmoth = 'DC17'
      x = -9.7863989
      y = -37.5853
      z = 0
      irot = 1699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1700
      theta1 = 89.871753
      phi1 = -103.36164
      theta2 = 96.219174
      phi2 = -13.375619
      theta3 = 6.220507
      phi3 = -12.184948
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 649
      chmoth = 'DC17'
      x = -8.1603343
      y = -37.971533
      z = 0
      irot = 1700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1701
      theta1 = 89.871753
      phi1 = -100.89589
      theta2 = 96.219174
      phi2 = -10.909866
      theta3 = 6.220507
      phi3 = -9.7191945
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 650
      chmoth = 'DC17'
      x = -6.5191586
      y = -38.287452
      z = 0
      irot = 1701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1702
      theta1 = 89.871753
      phi1 = -98.430137
      theta2 = 96.219174
      phi2 = -8.4441125
      theta3 = 6.220507
      phi3 = -7.253441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 651
      chmoth = 'DC17'
      x = -4.8659109
      y = -38.532471
      z = 0
      irot = 1702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1703
      theta1 = 89.871753
      phi1 = -95.964384
      theta2 = 96.219174
      phi2 = -5.9783591
      theta3 = 6.220507
      phi3 = -4.7876876
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 652
      chmoth = 'DC17'
      x = -3.2036527
      y = -38.706136
      z = 0
      irot = 1703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1704
      theta1 = 89.871753
      phi1 = -93.49863
      theta2 = 96.219174
      phi2 = -3.5126057
      theta3 = 6.220507
      phi3 = -2.3219342
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 653
      chmoth = 'DC17'
      x = -1.5354621
      y = -38.808127
      z = 0
      irot = 1704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1705
      theta1 = 89.871753
      phi1 = -91.032877
      theta2 = 96.219174
      phi2 = -1.0468522
      theta3 = 6.220507
      phi3 = 0.14381924
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 654
      chmoth = 'DC17'
      x = 0.13557188
      y = -38.838254
      z = 0
      irot = 1705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1706
      theta1 = 89.871753
      phi1 = -88.567123
      theta2 = 96.219174
      phi2 = 1.4189012
      theta3 = 6.220507
      phi3 = 2.6095727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 655
      chmoth = 'DC17'
      x = 1.8063548
      y = -38.796462
      z = 0
      irot = 1706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1707
      theta1 = 89.871753
      phi1 = -86.10137
      theta2 = 96.219174
      phi2 = 3.8846546
      theta3 = 6.220507
      phi3 = 5.0753261
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 656
      chmoth = 'DC17'
      x = 3.4737927
      y = -38.682828
      z = 0
      irot = 1707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1708
      theta1 = 89.871753
      phi1 = -83.635616
      theta2 = 96.219174
      phi2 = 6.350408
      theta3 = 6.220507
      phi3 = 7.5410795
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 657
      chmoth = 'DC17'
      x = 5.134798
      y = -38.497561
      z = 0
      irot = 1708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1709
      theta1 = 89.871753
      phi1 = -81.169863
      theta2 = 96.219174
      phi2 = 8.8161615
      theta3 = 6.220507
      phi3 = 10.006833
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 658
      chmoth = 'DC17'
      x = 6.7862949
      y = -38.241007
      z = 0
      irot = 1709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1710
      theta1 = 89.871753
      phi1 = -78.70411
      theta2 = 96.219174
      phi2 = 11.281915
      theta3 = 6.220507
      phi3 = 12.472586
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 659
      chmoth = 'DC17'
      x = 8.425225
      y = -37.913638
      z = 0
      irot = 1710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1711
      theta1 = 89.871753
      phi1 = -76.238356
      theta2 = 96.219174
      phi2 = 13.747668
      theta3 = 6.220507
      phi3 = 14.93834
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 660
      chmoth = 'DC17'
      x = 10.048554
      y = -37.516063
      z = 0
      irot = 1711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1712
      theta1 = 89.871753
      phi1 = -73.772603
      theta2 = 96.219174
      phi2 = 16.213422
      theta3 = 6.220507
      phi3 = 17.404093
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 661
      chmoth = 'DC17'
      x = 11.653275
      y = -37.049016
      z = 0
      irot = 1712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1713
      theta1 = 89.871753
      phi1 = -71.306849
      theta2 = 96.219174
      phi2 = 18.679175
      theta3 = 6.220507
      phi3 = 19.869847
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 662
      chmoth = 'DC17'
      x = 13.236416
      y = -36.513363
      z = 0
      irot = 1713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1714
      theta1 = 89.871753
      phi1 = -68.841096
      theta2 = 96.219174
      phi2 = 21.144929
      theta3 = 6.220507
      phi3 = 22.3356
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 663
      chmoth = 'DC17'
      x = 14.795047
      y = -35.910095
      z = 0
      irot = 1714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1715
      theta1 = 89.871753
      phi1 = -66.375342
      theta2 = 96.219174
      phi2 = 23.610682
      theta3 = 6.220507
      phi3 = 24.801353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 664
      chmoth = 'DC17'
      x = 16.326281
      y = -35.240331
      z = 0
      irot = 1715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1716
      theta1 = 89.871753
      phi1 = -63.909589
      theta2 = 96.219174
      phi2 = 26.076435
      theta3 = 6.220507
      phi3 = 27.267107
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 665
      chmoth = 'DC17'
      x = 17.827283
      y = -34.505309
      z = 0
      irot = 1716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1717
      theta1 = 89.871753
      phi1 = -61.443836
      theta2 = 96.219174
      phi2 = 28.542189
      theta3 = 6.220507
      phi3 = 29.73286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 666
      chmoth = 'DC17'
      x = 19.295272
      y = -33.706392
      z = 0
      irot = 1717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1718
      theta1 = 89.871753
      phi1 = -58.978082
      theta2 = 96.219174
      phi2 = 31.007942
      theta3 = 6.220507
      phi3 = 32.198614
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 667
      chmoth = 'DC17'
      x = 20.727531
      y = -32.845058
      z = 0
      irot = 1718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1719
      theta1 = 89.871753
      phi1 = -56.512329
      theta2 = 96.219174
      phi2 = 33.473696
      theta3 = 6.220507
      phi3 = 34.664367
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 668
      chmoth = 'DC17'
      x = 22.121408
      y = -31.922903
      z = 0
      irot = 1719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1720
      theta1 = 89.871753
      phi1 = -54.046575
      theta2 = 96.219174
      phi2 = 35.939449
      theta3 = 6.220507
      phi3 = 37.130121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 669
      chmoth = 'DC17'
      x = 23.47432
      y = -30.941633
      z = 0
      irot = 1720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1721
      theta1 = 89.871753
      phi1 = -51.580822
      theta2 = 96.219174
      phi2 = 38.405203
      theta3 = 6.220507
      phi3 = 39.595874
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 670
      chmoth = 'DC17'
      x = 24.783764
      y = -29.903067
      z = 0
      irot = 1721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1722
      theta1 = 89.871753
      phi1 = -49.115068
      theta2 = 96.219174
      phi2 = 40.870956
      theta3 = 6.220507
      phi3 = 42.061627
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 671
      chmoth = 'DC17'
      x = 26.047314
      y = -28.809127
      z = 0
      irot = 1722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1723
      theta1 = 89.871753
      phi1 = -46.649315
      theta2 = 96.219174
      phi2 = 43.336709
      theta3 = 6.220507
      phi3 = 44.527381
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 672
      chmoth = 'DC17'
      x = 27.26263
      y = -27.66184
      z = 0
      irot = 1723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1724
      theta1 = 89.871753
      phi1 = -44.183562
      theta2 = 96.219174
      phi2 = 45.802463
      theta3 = 6.220507
      phi3 = 46.993134
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 673
      chmoth = 'DC17'
      x = 28.427462
      y = -26.463329
      z = 0
      irot = 1724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1725
      theta1 = 89.871753
      phi1 = -41.717808
      theta2 = 96.219174
      phi2 = 48.268216
      theta3 = 6.220507
      phi3 = 49.458888
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 674
      chmoth = 'DC17'
      x = 29.539653
      y = -25.215814
      z = 0
      irot = 1725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1726
      theta1 = 89.871753
      phi1 = -39.252055
      theta2 = 96.219174
      phi2 = 50.73397
      theta3 = 6.220507
      phi3 = 51.924641
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 675
      chmoth = 'DC17'
      x = 30.597143
      y = -23.921605
      z = 0
      irot = 1726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1727
      theta1 = 89.871753
      phi1 = -36.786301
      theta2 = 96.219174
      phi2 = 53.199723
      theta3 = 6.220507
      phi3 = 54.390395
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 676
      chmoth = 'DC17'
      x = 31.597975
      y = -22.583099
      z = 0
      irot = 1727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1728
      theta1 = 89.871753
      phi1 = -34.320548
      theta2 = 96.219174
      phi2 = 55.665477
      theta3 = 6.220507
      phi3 = 56.856148
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 677
      chmoth = 'DC17'
      x = 32.540294
      y = -21.202774
      z = 0
      irot = 1728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1729
      theta1 = 89.871753
      phi1 = -31.854795
      theta2 = 96.219174
      phi2 = 58.13123
      theta3 = 6.220507
      phi3 = 59.321901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 678
      chmoth = 'DC17'
      x = 33.422356
      y = -19.783187
      z = 0
      irot = 1729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1730
      theta1 = 89.871753
      phi1 = -29.389041
      theta2 = 96.219174
      phi2 = 60.596983
      theta3 = 6.220507
      phi3 = 61.787655
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 679
      chmoth = 'DC17'
      x = 34.242528
      y = -18.326966
      z = 0
      irot = 1730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1731
      theta1 = 89.871753
      phi1 = -26.923288
      theta2 = 96.219174
      phi2 = 63.062737
      theta3 = 6.220507
      phi3 = 64.253408
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 680
      chmoth = 'DC17'
      x = 34.99929
      y = -16.836807
      z = 0
      irot = 1731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1732
      theta1 = 89.871753
      phi1 = -24.457534
      theta2 = 96.219174
      phi2 = 65.52849
      theta3 = 6.220507
      phi3 = 66.719162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 681
      chmoth = 'DC17'
      x = 35.691242
      y = -15.31547
      z = 0
      irot = 1732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1733
      theta1 = 89.871753
      phi1 = -21.991781
      theta2 = 96.219174
      phi2 = 67.994244
      theta3 = 6.220507
      phi3 = 69.184915
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 682
      chmoth = 'DC17'
      x = 36.317102
      y = -13.765773
      z = 0
      irot = 1733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1734
      theta1 = 89.871753
      phi1 = -19.526027
      theta2 = 96.219174
      phi2 = 70.459997
      theta3 = 6.220507
      phi3 = 71.650669
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 683
      chmoth = 'DC17'
      x = 36.875711
      y = -12.190585
      z = 0
      irot = 1734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1735
      theta1 = 89.871753
      phi1 = -17.060274
      theta2 = 96.219174
      phi2 = 72.92575
      theta3 = 6.220507
      phi3 = 74.116422
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 684
      chmoth = 'DC17'
      x = 37.366034
      y = -10.592822
      z = 0
      irot = 1735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1736
      theta1 = 89.871753
      phi1 = -14.594521
      theta2 = 96.219174
      phi2 = 75.391504
      theta3 = 6.220507
      phi3 = 76.582175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 685
      chmoth = 'DC17'
      x = 37.787164
      y = -8.9754444
      z = 0
      irot = 1736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1737
      theta1 = 89.871753
      phi1 = -12.128767
      theta2 = 96.219174
      phi2 = 77.857257
      theta3 = 6.220507
      phi3 = 79.047929
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 686
      chmoth = 'DC17'
      x = 38.138321
      y = -7.3414459
      z = 0
      irot = 1737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1738
      theta1 = 89.871753
      phi1 = -9.6630137
      theta2 = 96.219174
      phi2 = 80.323011
      theta3 = 6.220507
      phi3 = 81.513682
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 687
      chmoth = 'DC17'
      x = 38.418855
      y = -5.6938529
      z = 0
      irot = 1738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1739
      theta1 = 89.871753
      phi1 = -7.1972603
      theta2 = 96.219174
      phi2 = 82.788764
      theta3 = 6.220507
      phi3 = 83.979436
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 688
      chmoth = 'DC17'
      x = 38.628246
      y = -4.0357161
      z = 0
      irot = 1739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1740
      theta1 = 89.871753
      phi1 = -4.7315068
      theta2 = 96.219174
      phi2 = 85.254518
      theta3 = 6.220507
      phi3 = 86.445189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 689
      chmoth = 'DC17'
      x = 38.766106
      y = -2.3701061
      z = 0
      irot = 1740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1741
      theta1 = 89.871753
      phi1 = -2.2657534
      theta2 = 96.219174
      phi2 = 87.720271
      theta3 = 6.220507
      phi3 = 88.910943
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 690
      chmoth = 'DC17'
      x = 38.83218
      y = -0.70010717
      z = 0
      irot = 1741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1742
      theta1 = 90
      phi1 = 0.7
      theta2 = 96
      phi2 = 90.7
      theta3 = 6
      phi3 = 90.7
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 691
      chmoth = 'DC17'
      x = 40.533375
      y = 0.49523323
      z = 0
      irot = 1742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1743
      theta1 = 90
      phi1 = 2.978481
      theta2 = 96
      phi2 = 92.978481
      theta3 = 6
      phi3 = 92.978481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 692
      chmoth = 'DC17'
      x = 40.48164
      y = 2.1063074
      z = 0
      irot = 1743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1744
      theta1 = 90
      phi1 = 5.256962
      theta2 = 96
      phi2 = 95.256962
      theta3 = 6
      phi3 = 95.256962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 693
      chmoth = 'DC17'
      x = 40.365896
      y = 3.7140511
      z = 0
      irot = 1744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1745
      theta1 = 90
      phi1 = 7.535443
      theta2 = 96
      phi2 = 97.535443
      theta3 = 6
      phi3 = 97.535443
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 694
      chmoth = 'DC17'
      x = 40.186325
      y = 5.3159221
      z = 0
      irot = 1745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1746
      theta1 = 90
      phi1 = 9.8139241
      theta2 = 96
      phi2 = 99.813924
      theta3 = 6
      phi3 = 99.813924
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 695
      chmoth = 'DC17'
      x = 39.943211
      y = 6.9093876
      z = 0
      irot = 1746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1747
      theta1 = 90
      phi1 = 12.092405
      theta2 = 96
      phi2 = 102.09241
      theta3 = 6
      phi3 = 102.09241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 696
      chmoth = 'DC17'
      x = 39.636938
      y = 8.4919278
      z = 0
      irot = 1747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1748
      theta1 = 90
      phi1 = 14.370886
      theta2 = 96
      phi2 = 104.37089
      theta3 = 6
      phi3 = 104.37089
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 697
      chmoth = 'DC17'
      x = 39.267992
      y = 10.061041
      z = 0
      irot = 1748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1749
      theta1 = 90
      phi1 = 16.649367
      theta2 = 96
      phi2 = 106.64937
      theta3 = 6
      phi3 = 106.64937
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 698
      chmoth = 'DC17'
      x = 38.836955
      y = 11.614245
      z = 0
      irot = 1749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1750
      theta1 = 90
      phi1 = 18.927848
      theta2 = 96
      phi2 = 108.92785
      theta3 = 6
      phi3 = 108.92785
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 699
      chmoth = 'DC17'
      x = 38.344508
      y = 13.149085
      z = 0
      irot = 1750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1751
      theta1 = 90
      phi1 = 21.206329
      theta2 = 96
      phi2 = 111.20633
      theta3 = 6
      phi3 = 111.20633
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 700
      chmoth = 'DC17'
      x = 37.791431
      y = 14.663133
      z = 0
      irot = 1751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1752
      theta1 = 90
      phi1 = 23.48481
      theta2 = 96
      phi2 = 113.48481
      theta3 = 6
      phi3 = 113.48481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 701
      chmoth = 'DC17'
      x = 37.178598
      y = 16.153996
      z = 0
      irot = 1752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1753
      theta1 = 90
      phi1 = 25.763291
      theta2 = 96
      phi2 = 115.76329
      theta3 = 6
      phi3 = 115.76329
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 702
      chmoth = 'DC17'
      x = 36.506978
      y = 17.619316
      z = 0
      irot = 1753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1754
      theta1 = 90
      phi1 = 28.041772
      theta2 = 96
      phi2 = 118.04177
      theta3 = 6
      phi3 = 118.04177
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 703
      chmoth = 'DC17'
      x = 35.777633
      y = 19.056776
      z = 0
      irot = 1754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1755
      theta1 = 90
      phi1 = 30.320253
      theta2 = 96
      phi2 = 120.32025
      theta3 = 6
      phi3 = 120.32025
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 704
      chmoth = 'DC17'
      x = 34.991716
      y = 20.464104
      z = 0
      irot = 1755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1756
      theta1 = 90
      phi1 = 32.598734
      theta2 = 96
      phi2 = 122.59873
      theta3 = 6
      phi3 = 122.59873
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 705
      chmoth = 'DC17'
      x = 34.15047
      y = 21.839074
      z = 0
      irot = 1756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1757
      theta1 = 90
      phi1 = 34.877215
      theta2 = 96
      phi2 = 124.87722
      theta3 = 6
      phi3 = 124.87722
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 706
      chmoth = 'DC17'
      x = 33.255225
      y = 23.179511
      z = 0
      irot = 1757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1758
      theta1 = 90
      phi1 = 37.155696
      theta2 = 96
      phi2 = 127.1557
      theta3 = 6
      phi3 = 127.1557
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 707
      chmoth = 'DC17'
      x = 32.307397
      y = 24.483297
      z = 0
      irot = 1758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1759
      theta1 = 90
      phi1 = 39.434177
      theta2 = 96
      phi2 = 129.43418
      theta3 = 6
      phi3 = 129.43418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 708
      chmoth = 'DC17'
      x = 31.308484
      y = 25.74837
      z = 0
      irot = 1759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1760
      theta1 = 90
      phi1 = 41.712658
      theta2 = 96
      phi2 = 131.71266
      theta3 = 6
      phi3 = 131.71266
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 709
      chmoth = 'DC17'
      x = 30.260066
      y = 26.97273
      z = 0
      irot = 1760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1761
      theta1 = 90
      phi1 = 43.991139
      theta2 = 96
      phi2 = 133.99114
      theta3 = 6
      phi3 = 133.99114
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 710
      chmoth = 'DC17'
      x = 29.1638
      y = 28.15444
      z = 0
      irot = 1761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1762
      theta1 = 90
      phi1 = 46.26962
      theta2 = 96
      phi2 = 136.26962
      theta3 = 6
      phi3 = 136.26962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 711
      chmoth = 'DC17'
      x = 28.021421
      y = 29.291632
      z = 0
      irot = 1762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1763
      theta1 = 90
      phi1 = 48.548101
      theta2 = 96
      phi2 = 138.5481
      theta3 = 6
      phi3 = 138.5481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 712
      chmoth = 'DC17'
      x = 26.834734
      y = 30.382508
      z = 0
      irot = 1763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1764
      theta1 = 90
      phi1 = 50.826582
      theta2 = 96
      phi2 = 140.82658
      theta3 = 6
      phi3 = 140.82658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 713
      chmoth = 'DC17'
      x = 25.605616
      y = 31.425343
      z = 0
      irot = 1764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1765
      theta1 = 90
      phi1 = 53.105063
      theta2 = 96
      phi2 = 143.10506
      theta3 = 6
      phi3 = 143.10506
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 714
      chmoth = 'DC17'
      x = 24.33601
      y = 32.418488
      z = 0
      irot = 1765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1766
      theta1 = 90
      phi1 = 55.383544
      theta2 = 96
      phi2 = 145.38354
      theta3 = 6
      phi3 = 145.38354
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 715
      chmoth = 'DC17'
      x = 23.027923
      y = 33.360373
      z = 0
      irot = 1766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1767
      theta1 = 90
      phi1 = 57.662025
      theta2 = 96
      phi2 = 147.66203
      theta3 = 6
      phi3 = 147.66203
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 716
      chmoth = 'DC17'
      x = 21.683425
      y = 34.249508
      z = 0
      irot = 1767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1768
      theta1 = 90
      phi1 = 59.940506
      theta2 = 96
      phi2 = 149.94051
      theta3 = 6
      phi3 = 149.94051
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 717
      chmoth = 'DC17'
      x = 20.304641
      y = 35.084488
      z = 0
      irot = 1768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1769
      theta1 = 90
      phi1 = 62.218987
      theta2 = 96
      phi2 = 152.21899
      theta3 = 6
      phi3 = 152.21899
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 718
      chmoth = 'DC17'
      x = 18.893751
      y = 35.863991
      z = 0
      irot = 1769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1770
      theta1 = 90
      phi1 = 64.497468
      theta2 = 96
      phi2 = 154.49747
      theta3 = 6
      phi3 = 154.49747
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 719
      chmoth = 'DC17'
      x = 17.452987
      y = 36.586787
      z = 0
      irot = 1770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1771
      theta1 = 90
      phi1 = 66.775949
      theta2 = 96
      phi2 = 156.77595
      theta3 = 6
      phi3 = 156.77595
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 720
      chmoth = 'DC17'
      x = 15.984625
      y = 37.251731
      z = 0
      irot = 1771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1772
      theta1 = 90
      phi1 = 69.05443
      theta2 = 96
      phi2 = 159.05443
      theta3 = 6
      phi3 = 159.05443
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 721
      chmoth = 'DC17'
      x = 14.490989
      y = 37.857773
      z = 0
      irot = 1772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1773
      theta1 = 90
      phi1 = 71.332911
      theta2 = 96
      phi2 = 161.33291
      theta3 = 6
      phi3 = 161.33291
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 722
      chmoth = 'DC17'
      x = 12.974439
      y = 38.403954
      z = 0
      irot = 1773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1774
      theta1 = 90
      phi1 = 73.611392
      theta2 = 96
      phi2 = 163.61139
      theta3 = 6
      phi3 = 163.61139
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 723
      chmoth = 'DC17'
      x = 11.437374
      y = 38.88941
      z = 0
      irot = 1774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1775
      theta1 = 90
      phi1 = 75.889873
      theta2 = 96
      phi2 = 165.88987
      theta3 = 6
      phi3 = 165.88987
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 724
      chmoth = 'DC17'
      x = 9.8822241
      y = 39.313374
      z = 0
      irot = 1775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1776
      theta1 = 90
      phi1 = 78.168354
      theta2 = 96
      phi2 = 168.16835
      theta3 = 6
      phi3 = 168.16835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 725
      chmoth = 'DC17'
      x = 8.3114484
      y = 39.675175
      z = 0
      irot = 1776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1777
      theta1 = 90
      phi1 = 80.446835
      theta2 = 96
      phi2 = 170.44684
      theta3 = 6
      phi3 = 170.44684
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 726
      chmoth = 'DC17'
      x = 6.7275306
      y = 39.974242
      z = 0
      irot = 1777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1778
      theta1 = 90
      phi1 = 82.725316
      theta2 = 96
      phi2 = 172.72532
      theta3 = 6
      phi3 = 172.72532
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 727
      chmoth = 'DC17'
      x = 5.1329752
      y = 40.210102
      z = 0
      irot = 1778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1779
      theta1 = 90
      phi1 = 85.003797
      theta2 = 96
      phi2 = 175.0038
      theta3 = 6
      phi3 = 175.0038
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 728
      chmoth = 'DC17'
      x = 3.5303036
      y = 40.382381
      z = 0
      irot = 1779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1780
      theta1 = 90
      phi1 = 87.282278
      theta2 = 96
      phi2 = 177.28228
      theta3 = 6
      phi3 = 177.28228
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 729
      chmoth = 'DC17'
      x = 1.9220498
      y = 40.490807
      z = 0
      irot = 1780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1781
      theta1 = 90
      phi1 = 89.560759
      theta2 = 96
      phi2 = 179.56076
      theta3 = 6
      phi3 = 179.56076
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 730
      chmoth = 'DC17'
      x = 0.31075682
      y = 40.535209
      z = 0
      irot = 1781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1782
      theta1 = 90
      phi1 = 91.839241
      theta2 = 96
      phi2 = -178.16076
      theta3 = 6
      phi3 = -178.16076
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 731
      chmoth = 'DC17'
      x = -1.3010275
      y = 40.515516
      z = 0
      irot = 1782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1783
      theta1 = 90
      phi1 = 94.117722
      theta2 = 96
      phi2 = -175.88228
      theta3 = 6
      phi3 = -175.88228
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 732
      chmoth = 'DC17'
      x = -2.9107546
      y = 40.43176
      z = 0
      irot = 1783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1784
      theta1 = 90
      phi1 = 96.396203
      theta2 = 96
      phi2 = -173.6038
      theta3 = 6
      phi3 = -173.6038
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 733
      chmoth = 'DC17'
      x = -4.5158793
      y = 40.284073
      z = 0
      irot = 1784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1785
      theta1 = 90
      phi1 = 98.674684
      theta2 = 96
      phi2 = -171.32532
      theta3 = 6
      phi3 = -171.32532
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 734
      chmoth = 'DC17'
      x = -6.1138634
      y = 40.072689
      z = 0
      irot = 1785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1786
      theta1 = 90
      phi1 = 100.95316
      theta2 = 96
      phi2 = -169.04684
      theta3 = 6
      phi3 = -169.04684
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 735
      chmoth = 'DC17'
      x = -7.7021802
      y = 39.797941
      z = 0
      irot = 1786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1787
      theta1 = 90
      phi1 = 103.23165
      theta2 = 96
      phi2 = -166.76835
      theta3 = 6
      phi3 = -166.76835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 736
      chmoth = 'DC17'
      x = -9.2783183
      y = 39.460265
      z = 0
      irot = 1787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1788
      theta1 = 90
      phi1 = 105.51013
      theta2 = 96
      phi2 = -164.48987
      theta3 = 6
      phi3 = -164.48987
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 737
      chmoth = 'DC17'
      x = -10.839785
      y = 39.060194
      z = 0
      irot = 1788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1789
      theta1 = 90
      phi1 = 107.78861
      theta2 = 96
      phi2 = -162.21139
      theta3 = 6
      phi3 = -162.21139
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 738
      chmoth = 'DC17'
      x = -12.384113
      y = 38.598361
      z = 0
      irot = 1789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1790
      theta1 = 90
      phi1 = 110.06709
      theta2 = 96
      phi2 = -159.93291
      theta3 = 6
      phi3 = -159.93291
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 739
      chmoth = 'DC17'
      x = -13.908858
      y = 38.075496
      z = 0
      irot = 1790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1791
      theta1 = 90
      phi1 = 112.34557
      theta2 = 96
      phi2 = -157.65443
      theta3 = 6
      phi3 = -157.65443
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 740
      chmoth = 'DC17'
      x = -15.411611
      y = 37.492426
      z = 0
      irot = 1791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1792
      theta1 = 90
      phi1 = 114.62405
      theta2 = 96
      phi2 = -155.37595
      theta3 = 6
      phi3 = -155.37595
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 741
      chmoth = 'DC17'
      x = -16.889994
      y = 36.850072
      z = 0
      irot = 1792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1793
      theta1 = 90
      phi1 = 116.90253
      theta2 = 96
      phi2 = -153.09747
      theta3 = 6
      phi3 = -153.09747
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 742
      chmoth = 'DC17'
      x = -18.341672
      y = 36.149451
      z = 0
      irot = 1793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1794
      theta1 = 90
      phi1 = 119.18101
      theta2 = 96
      phi2 = -150.81899
      theta3 = 6
      phi3 = -150.81899
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 743
      chmoth = 'DC17'
      x = -19.764347
      y = 35.39167
      z = 0
      irot = 1794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1795
      theta1 = 90
      phi1 = 121.45949
      theta2 = 96
      phi2 = -148.54051
      theta3 = 6
      phi3 = -148.54051
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 744
      chmoth = 'DC17'
      x = -21.155771
      y = 34.577928
      z = 0
      irot = 1795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1796
      theta1 = 90
      phi1 = 123.73797
      theta2 = 96
      phi2 = -146.26203
      theta3 = 6
      phi3 = -146.26203
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 745
      chmoth = 'DC17'
      x = -22.513743
      y = 33.709511
      z = 0
      irot = 1796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1797
      theta1 = 90
      phi1 = 126.01646
      theta2 = 96
      phi2 = -143.98354
      theta3 = 6
      phi3 = -143.98354
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 746
      chmoth = 'DC17'
      x = -23.836116
      y = 32.787792
      z = 0
      irot = 1797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1798
      theta1 = 90
      phi1 = 128.29494
      theta2 = 96
      phi2 = -141.70506
      theta3 = 6
      phi3 = -141.70506
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 747
      chmoth = 'DC17'
      x = -25.120799
      y = 31.814229
      z = 0
      irot = 1798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1799
      theta1 = 90
      phi1 = 130.57342
      theta2 = 96
      phi2 = -139.42658
      theta3 = 6
      phi3 = -139.42658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 748
      chmoth = 'DC17'
      x = -26.365762
      y = 30.790361
      z = 0
      irot = 1799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1800
      theta1 = 90
      phi1 = 132.8519
      theta2 = 96
      phi2 = -137.1481
      theta3 = 6
      phi3 = -137.1481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 749
      chmoth = 'DC17'
      x = -27.569034
      y = 29.717807
      z = 0
      irot = 1800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1801
      theta1 = 90
      phi1 = 135.13038
      theta2 = 96
      phi2 = -134.86962
      theta3 = 6
      phi3 = -134.86962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 750
      chmoth = 'DC17'
      x = -28.728715
      y = 28.598264
      z = 0
      irot = 1801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1802
      theta1 = 90
      phi1 = 137.40886
      theta2 = 96
      phi2 = -132.59114
      theta3 = 6
      phi3 = -132.59114
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 751
      chmoth = 'DC17'
      x = -29.842969
      y = 27.4335
      z = 0
      irot = 1802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1803
      theta1 = 90
      phi1 = 139.68734
      theta2 = 96
      phi2 = -130.31266
      theta3 = 6
      phi3 = -130.31266
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 752
      chmoth = 'DC17'
      x = -30.910035
      y = 26.225359
      z = 0
      irot = 1803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1804
      theta1 = 90
      phi1 = 141.96582
      theta2 = 96
      phi2 = -128.03418
      theta3 = 6
      phi3 = -128.03418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 753
      chmoth = 'DC17'
      x = -31.928227
      y = 24.97575
      z = 0
      irot = 1804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1805
      theta1 = 90
      phi1 = 144.2443
      theta2 = 96
      phi2 = -125.7557
      theta3 = 6
      phi3 = -125.7557
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 754
      chmoth = 'DC17'
      x = -32.895933
      y = 23.686649
      z = 0
      irot = 1805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1806
      theta1 = 90
      phi1 = 146.52278
      theta2 = 96
      phi2 = -123.47722
      theta3 = 6
      phi3 = -123.47722
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 755
      chmoth = 'DC17'
      x = -33.811624
      y = 22.360094
      z = 0
      irot = 1806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1807
      theta1 = 90
      phi1 = 148.80127
      theta2 = 96
      phi2 = -121.19873
      theta3 = 6
      phi3 = -121.19873
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 756
      chmoth = 'DC17'
      x = -34.673852
      y = 20.998184
      z = 0
      irot = 1807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1808
      theta1 = 90
      phi1 = 151.07975
      theta2 = 96
      phi2 = -118.92025
      theta3 = 6
      phi3 = -118.92025
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 757
      chmoth = 'DC17'
      x = -35.481253
      y = 19.603071
      z = 0
      irot = 1808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1809
      theta1 = 90
      phi1 = 153.35823
      theta2 = 96
      phi2 = -116.64177
      theta3 = 6
      phi3 = -116.64177
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 758
      chmoth = 'DC17'
      x = -36.232551
      y = 18.176962
      z = 0
      irot = 1809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1810
      theta1 = 90
      phi1 = 155.63671
      theta2 = 96
      phi2 = -114.36329
      theta3 = 6
      phi3 = -114.36329
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 759
      chmoth = 'DC17'
      x = -36.926558
      y = 16.722111
      z = 0
      irot = 1810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1811
      theta1 = 90
      phi1 = 157.91519
      theta2 = 96
      phi2 = -112.08481
      theta3 = 6
      phi3 = -112.08481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 760
      chmoth = 'DC17'
      x = -37.562177
      y = 15.24082
      z = 0
      irot = 1811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1812
      theta1 = 90
      phi1 = 160.19367
      theta2 = 96
      phi2 = -109.80633
      theta3 = 6
      phi3 = -109.80633
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 761
      chmoth = 'DC17'
      x = -38.138402
      y = 13.735429
      z = 0
      irot = 1812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1813
      theta1 = 90
      phi1 = 162.47215
      theta2 = 96
      phi2 = -107.52785
      theta3 = 6
      phi3 = -107.52785
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 762
      chmoth = 'DC17'
      x = -38.654323
      y = 12.20832
      z = 0
      irot = 1813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1814
      theta1 = 90
      phi1 = 164.75063
      theta2 = 96
      phi2 = -105.24937
      theta3 = 6
      phi3 = -105.24937
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 763
      chmoth = 'DC17'
      x = -39.109123
      y = 10.661907
      z = 0
      irot = 1814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1815
      theta1 = 90
      phi1 = 167.02911
      theta2 = 96
      phi2 = -102.97089
      theta3 = 6
      phi3 = -102.97089
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 764
      chmoth = 'DC17'
      x = -39.502083
      y = 9.0986347
      z = 0
      irot = 1815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1816
      theta1 = 90
      phi1 = 169.30759
      theta2 = 96
      phi2 = -100.69241
      theta3 = 6
      phi3 = -100.69241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 765
      chmoth = 'DC17'
      x = -39.832583
      y = 7.5209762
      z = 0
      irot = 1816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1817
      theta1 = 90
      phi1 = 171.58608
      theta2 = 96
      phi2 = -98.413924
      theta3 = 6
      phi3 = -98.413924
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 766
      chmoth = 'DC17'
      x = -40.100099
      y = 5.9314254
      z = 0
      irot = 1817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1818
      theta1 = 90
      phi1 = 173.86456
      theta2 = 96
      phi2 = -96.135443
      theta3 = 6
      phi3 = -96.135443
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 767
      chmoth = 'DC17'
      x = -40.304208
      y = 4.3324958
      z = 0
      irot = 1818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1819
      theta1 = 90
      phi1 = 176.14304
      theta2 = 96
      phi2 = -93.856962
      theta3 = 6
      phi3 = -93.856962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 768
      chmoth = 'DC17'
      x = -40.444589
      y = 2.7267157
      z = 0
      irot = 1819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1820
      theta1 = 90
      phi1 = 178.42152
      theta2 = 96
      phi2 = -91.578481
      theta3 = 6
      phi3 = -91.578481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 769
      chmoth = 'DC17'
      x = -40.521018
      y = 1.116624
      z = 0
      irot = 1820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1821
      theta1 = 90
      phi1 = -179.3
      theta2 = 96
      phi2 = -89.3
      theta3 = 6
      phi3 = -89.3
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 770
      chmoth = 'DC17'
      x = -40.533375
      y = -0.49523323
      z = 0
      irot = 1821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1822
      theta1 = 90
      phi1 = -177.02152
      theta2 = 96
      phi2 = -87.021519
      theta3 = 6
      phi3 = -87.021519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 771
      chmoth = 'DC17'
      x = -40.48164
      y = -2.1063074
      z = 0
      irot = 1822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1823
      theta1 = 90
      phi1 = -174.74304
      theta2 = 96
      phi2 = -84.743038
      theta3 = 6
      phi3 = -84.743038
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 772
      chmoth = 'DC17'
      x = -40.365896
      y = -3.7140511
      z = 0
      irot = 1823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1824
      theta1 = 90
      phi1 = -172.46456
      theta2 = 96
      phi2 = -82.464557
      theta3 = 6
      phi3 = -82.464557
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 773
      chmoth = 'DC17'
      x = -40.186325
      y = -5.3159221
      z = 0
      irot = 1824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1825
      theta1 = 90
      phi1 = -170.18608
      theta2 = 96
      phi2 = -80.186076
      theta3 = 6
      phi3 = -80.186076
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 774
      chmoth = 'DC17'
      x = -39.943211
      y = -6.9093876
      z = 0
      irot = 1825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1826
      theta1 = 90
      phi1 = -167.90759
      theta2 = 96
      phi2 = -77.907595
      theta3 = 6
      phi3 = -77.907595
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 775
      chmoth = 'DC17'
      x = -39.636938
      y = -8.4919278
      z = 0
      irot = 1826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1827
      theta1 = 90
      phi1 = -165.62911
      theta2 = 96
      phi2 = -75.629114
      theta3 = 6
      phi3 = -75.629114
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 776
      chmoth = 'DC17'
      x = -39.267992
      y = -10.061041
      z = 0
      irot = 1827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1828
      theta1 = 90
      phi1 = -163.35063
      theta2 = 96
      phi2 = -73.350633
      theta3 = 6
      phi3 = -73.350633
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 777
      chmoth = 'DC17'
      x = -38.836955
      y = -11.614245
      z = 0
      irot = 1828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1829
      theta1 = 90
      phi1 = -161.07215
      theta2 = 96
      phi2 = -71.072152
      theta3 = 6
      phi3 = -71.072152
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 778
      chmoth = 'DC17'
      x = -38.344508
      y = -13.149085
      z = 0
      irot = 1829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1830
      theta1 = 90
      phi1 = -158.79367
      theta2 = 96
      phi2 = -68.793671
      theta3 = 6
      phi3 = -68.793671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 779
      chmoth = 'DC17'
      x = -37.791431
      y = -14.663133
      z = 0
      irot = 1830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1831
      theta1 = 90
      phi1 = -156.51519
      theta2 = 96
      phi2 = -66.51519
      theta3 = 6
      phi3 = -66.51519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 780
      chmoth = 'DC17'
      x = -37.178598
      y = -16.153996
      z = 0
      irot = 1831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1832
      theta1 = 90
      phi1 = -154.23671
      theta2 = 96
      phi2 = -64.236709
      theta3 = 6
      phi3 = -64.236709
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 781
      chmoth = 'DC17'
      x = -36.506978
      y = -17.619316
      z = 0
      irot = 1832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1833
      theta1 = 90
      phi1 = -151.95823
      theta2 = 96
      phi2 = -61.958228
      theta3 = 6
      phi3 = -61.958228
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 782
      chmoth = 'DC17'
      x = -35.777633
      y = -19.056776
      z = 0
      irot = 1833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1834
      theta1 = 90
      phi1 = -149.67975
      theta2 = 96
      phi2 = -59.679747
      theta3 = 6
      phi3 = -59.679747
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 783
      chmoth = 'DC17'
      x = -34.991716
      y = -20.464104
      z = 0
      irot = 1834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1835
      theta1 = 90
      phi1 = -147.40127
      theta2 = 96
      phi2 = -57.401266
      theta3 = 6
      phi3 = -57.401266
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 784
      chmoth = 'DC17'
      x = -34.15047
      y = -21.839074
      z = 0
      irot = 1835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1836
      theta1 = 90
      phi1 = -145.12278
      theta2 = 96
      phi2 = -55.122785
      theta3 = 6
      phi3 = -55.122785
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 785
      chmoth = 'DC17'
      x = -33.255225
      y = -23.179511
      z = 0
      irot = 1836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1837
      theta1 = 90
      phi1 = -142.8443
      theta2 = 96
      phi2 = -52.844304
      theta3 = 6
      phi3 = -52.844304
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 786
      chmoth = 'DC17'
      x = -32.307397
      y = -24.483297
      z = 0
      irot = 1837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1838
      theta1 = 90
      phi1 = -140.56582
      theta2 = 96
      phi2 = -50.565823
      theta3 = 6
      phi3 = -50.565823
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 787
      chmoth = 'DC17'
      x = -31.308484
      y = -25.74837
      z = 0
      irot = 1838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1839
      theta1 = 90
      phi1 = -138.28734
      theta2 = 96
      phi2 = -48.287342
      theta3 = 6
      phi3 = -48.287342
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 788
      chmoth = 'DC17'
      x = -30.260066
      y = -26.97273
      z = 0
      irot = 1839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1840
      theta1 = 90
      phi1 = -136.00886
      theta2 = 96
      phi2 = -46.008861
      theta3 = 6
      phi3 = -46.008861
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 789
      chmoth = 'DC17'
      x = -29.1638
      y = -28.15444
      z = 0
      irot = 1840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1841
      theta1 = 90
      phi1 = -133.73038
      theta2 = 96
      phi2 = -43.73038
      theta3 = 6
      phi3 = -43.73038
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 790
      chmoth = 'DC17'
      x = -28.021421
      y = -29.291632
      z = 0
      irot = 1841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1842
      theta1 = 90
      phi1 = -131.4519
      theta2 = 96
      phi2 = -41.451899
      theta3 = 6
      phi3 = -41.451899
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 791
      chmoth = 'DC17'
      x = -26.834734
      y = -30.382508
      z = 0
      irot = 1842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1843
      theta1 = 90
      phi1 = -129.17342
      theta2 = 96
      phi2 = -39.173418
      theta3 = 6
      phi3 = -39.173418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 792
      chmoth = 'DC17'
      x = -25.605616
      y = -31.425343
      z = 0
      irot = 1843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1844
      theta1 = 90
      phi1 = -126.89494
      theta2 = 96
      phi2 = -36.894937
      theta3 = 6
      phi3 = -36.894937
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 793
      chmoth = 'DC17'
      x = -24.33601
      y = -32.418488
      z = 0
      irot = 1844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1845
      theta1 = 90
      phi1 = -124.61646
      theta2 = 96
      phi2 = -34.616456
      theta3 = 6
      phi3 = -34.616456
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 794
      chmoth = 'DC17'
      x = -23.027923
      y = -33.360373
      z = 0
      irot = 1845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1846
      theta1 = 90
      phi1 = -122.33797
      theta2 = 96
      phi2 = -32.337975
      theta3 = 6
      phi3 = -32.337975
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 795
      chmoth = 'DC17'
      x = -21.683425
      y = -34.249508
      z = 0
      irot = 1846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1847
      theta1 = 90
      phi1 = -120.05949
      theta2 = 96
      phi2 = -30.059494
      theta3 = 6
      phi3 = -30.059494
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 796
      chmoth = 'DC17'
      x = -20.304641
      y = -35.084488
      z = 0
      irot = 1847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1848
      theta1 = 90
      phi1 = -117.78101
      theta2 = 96
      phi2 = -27.781013
      theta3 = 6
      phi3 = -27.781013
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 797
      chmoth = 'DC17'
      x = -18.893751
      y = -35.863991
      z = 0
      irot = 1848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1849
      theta1 = 90
      phi1 = -115.50253
      theta2 = 96
      phi2 = -25.502532
      theta3 = 6
      phi3 = -25.502532
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 798
      chmoth = 'DC17'
      x = -17.452987
      y = -36.586787
      z = 0
      irot = 1849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1850
      theta1 = 90
      phi1 = -113.22405
      theta2 = 96
      phi2 = -23.224051
      theta3 = 6
      phi3 = -23.224051
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 799
      chmoth = 'DC17'
      x = -15.984625
      y = -37.251731
      z = 0
      irot = 1850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1851
      theta1 = 90
      phi1 = -110.94557
      theta2 = 96
      phi2 = -20.94557
      theta3 = 6
      phi3 = -20.94557
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 800
      chmoth = 'DC17'
      x = -14.490989
      y = -37.857773
      z = 0
      irot = 1851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1852
      theta1 = 90
      phi1 = -108.66709
      theta2 = 96
      phi2 = -18.667089
      theta3 = 6
      phi3 = -18.667089
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 801
      chmoth = 'DC17'
      x = -12.974439
      y = -38.403954
      z = 0
      irot = 1852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1853
      theta1 = 90
      phi1 = -106.38861
      theta2 = 96
      phi2 = -16.388608
      theta3 = 6
      phi3 = -16.388608
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 802
      chmoth = 'DC17'
      x = -11.437374
      y = -38.88941
      z = 0
      irot = 1853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1854
      theta1 = 90
      phi1 = -104.11013
      theta2 = 96
      phi2 = -14.110127
      theta3 = 6
      phi3 = -14.110127
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 803
      chmoth = 'DC17'
      x = -9.8822241
      y = -39.313374
      z = 0
      irot = 1854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1855
      theta1 = 90
      phi1 = -101.83165
      theta2 = 96
      phi2 = -11.831646
      theta3 = 6
      phi3 = -11.831646
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 804
      chmoth = 'DC17'
      x = -8.3114484
      y = -39.675175
      z = 0
      irot = 1855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1856
      theta1 = 90
      phi1 = -99.553165
      theta2 = 96
      phi2 = -9.5531646
      theta3 = 6
      phi3 = -9.5531646
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 805
      chmoth = 'DC17'
      x = -6.7275306
      y = -39.974242
      z = 0
      irot = 1856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1857
      theta1 = 90
      phi1 = -97.274684
      theta2 = 96
      phi2 = -7.2746835
      theta3 = 6
      phi3 = -7.2746835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 806
      chmoth = 'DC17'
      x = -5.1329752
      y = -40.210102
      z = 0
      irot = 1857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1858
      theta1 = 90
      phi1 = -94.996203
      theta2 = 96
      phi2 = -4.9962025
      theta3 = 6
      phi3 = -4.9962025
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 807
      chmoth = 'DC17'
      x = -3.5303036
      y = -40.382381
      z = 0
      irot = 1858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1859
      theta1 = 90
      phi1 = -92.717722
      theta2 = 96
      phi2 = -2.7177215
      theta3 = 6
      phi3 = -2.7177215
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 808
      chmoth = 'DC17'
      x = -1.9220498
      y = -40.490807
      z = 0
      irot = 1859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1860
      theta1 = 90
      phi1 = -90.439241
      theta2 = 96
      phi2 = -0.43924051
      theta3 = 6
      phi3 = -0.43924051
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 809
      chmoth = 'DC17'
      x = -0.31075682
      y = -40.535209
      z = 0
      irot = 1860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1861
      theta1 = 90
      phi1 = -88.160759
      theta2 = 96
      phi2 = 1.8392405
      theta3 = 6
      phi3 = 1.8392405
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 810
      chmoth = 'DC17'
      x = 1.3010275
      y = -40.515516
      z = 0
      irot = 1861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1862
      theta1 = 90
      phi1 = -85.882278
      theta2 = 96
      phi2 = 4.1177215
      theta3 = 6
      phi3 = 4.1177215
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 811
      chmoth = 'DC17'
      x = 2.9107546
      y = -40.43176
      z = 0
      irot = 1862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1863
      theta1 = 90
      phi1 = -83.603797
      theta2 = 96
      phi2 = 6.3962025
      theta3 = 6
      phi3 = 6.3962025
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 812
      chmoth = 'DC17'
      x = 4.5158793
      y = -40.284073
      z = 0
      irot = 1863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1864
      theta1 = 90
      phi1 = -81.325316
      theta2 = 96
      phi2 = 8.6746835
      theta3 = 6
      phi3 = 8.6746835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 813
      chmoth = 'DC17'
      x = 6.1138634
      y = -40.072689
      z = 0
      irot = 1864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1865
      theta1 = 90
      phi1 = -79.046835
      theta2 = 96
      phi2 = 10.953165
      theta3 = 6
      phi3 = 10.953165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 814
      chmoth = 'DC17'
      x = 7.7021802
      y = -39.797941
      z = 0
      irot = 1865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1866
      theta1 = 90
      phi1 = -76.768354
      theta2 = 96
      phi2 = 13.231646
      theta3 = 6
      phi3 = 13.231646
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 815
      chmoth = 'DC17'
      x = 9.2783183
      y = -39.460265
      z = 0
      irot = 1866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1867
      theta1 = 90
      phi1 = -74.489873
      theta2 = 96
      phi2 = 15.510127
      theta3 = 6
      phi3 = 15.510127
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 816
      chmoth = 'DC17'
      x = 10.839785
      y = -39.060194
      z = 0
      irot = 1867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1868
      theta1 = 90
      phi1 = -72.211392
      theta2 = 96
      phi2 = 17.788608
      theta3 = 6
      phi3 = 17.788608
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 817
      chmoth = 'DC17'
      x = 12.384113
      y = -38.598361
      z = 0
      irot = 1868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1869
      theta1 = 90
      phi1 = -69.932911
      theta2 = 96
      phi2 = 20.067089
      theta3 = 6
      phi3 = 20.067089
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 818
      chmoth = 'DC17'
      x = 13.908858
      y = -38.075496
      z = 0
      irot = 1869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1870
      theta1 = 90
      phi1 = -67.65443
      theta2 = 96
      phi2 = 22.34557
      theta3 = 6
      phi3 = 22.34557
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 819
      chmoth = 'DC17'
      x = 15.411611
      y = -37.492426
      z = 0
      irot = 1870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1871
      theta1 = 90
      phi1 = -65.375949
      theta2 = 96
      phi2 = 24.624051
      theta3 = 6
      phi3 = 24.624051
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 820
      chmoth = 'DC17'
      x = 16.889994
      y = -36.850072
      z = 0
      irot = 1871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1872
      theta1 = 90
      phi1 = -63.097468
      theta2 = 96
      phi2 = 26.902532
      theta3 = 6
      phi3 = 26.902532
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 821
      chmoth = 'DC17'
      x = 18.341672
      y = -36.149451
      z = 0
      irot = 1872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1873
      theta1 = 90
      phi1 = -60.818987
      theta2 = 96
      phi2 = 29.181013
      theta3 = 6
      phi3 = 29.181013
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 822
      chmoth = 'DC17'
      x = 19.764347
      y = -35.39167
      z = 0
      irot = 1873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1874
      theta1 = 90
      phi1 = -58.540506
      theta2 = 96
      phi2 = 31.459494
      theta3 = 6
      phi3 = 31.459494
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 823
      chmoth = 'DC17'
      x = 21.155771
      y = -34.577928
      z = 0
      irot = 1874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1875
      theta1 = 90
      phi1 = -56.262025
      theta2 = 96
      phi2 = 33.737975
      theta3 = 6
      phi3 = 33.737975
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 824
      chmoth = 'DC17'
      x = 22.513743
      y = -33.709511
      z = 0
      irot = 1875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1876
      theta1 = 90
      phi1 = -53.983544
      theta2 = 96
      phi2 = 36.016456
      theta3 = 6
      phi3 = 36.016456
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 825
      chmoth = 'DC17'
      x = 23.836116
      y = -32.787792
      z = 0
      irot = 1876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1877
      theta1 = 90
      phi1 = -51.705063
      theta2 = 96
      phi2 = 38.294937
      theta3 = 6
      phi3 = 38.294937
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 826
      chmoth = 'DC17'
      x = 25.120799
      y = -31.814229
      z = 0
      irot = 1877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1878
      theta1 = 90
      phi1 = -49.426582
      theta2 = 96
      phi2 = 40.573418
      theta3 = 6
      phi3 = 40.573418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 827
      chmoth = 'DC17'
      x = 26.365762
      y = -30.790361
      z = 0
      irot = 1878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1879
      theta1 = 90
      phi1 = -47.148101
      theta2 = 96
      phi2 = 42.851899
      theta3 = 6
      phi3 = 42.851899
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 828
      chmoth = 'DC17'
      x = 27.569034
      y = -29.717807
      z = 0
      irot = 1879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1880
      theta1 = 90
      phi1 = -44.86962
      theta2 = 96
      phi2 = 45.13038
      theta3 = 6
      phi3 = 45.13038
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 829
      chmoth = 'DC17'
      x = 28.728715
      y = -28.598264
      z = 0
      irot = 1880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1881
      theta1 = 90
      phi1 = -42.591139
      theta2 = 96
      phi2 = 47.408861
      theta3 = 6
      phi3 = 47.408861
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 830
      chmoth = 'DC17'
      x = 29.842969
      y = -27.4335
      z = 0
      irot = 1881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1882
      theta1 = 90
      phi1 = -40.312658
      theta2 = 96
      phi2 = 49.687342
      theta3 = 6
      phi3 = 49.687342
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 831
      chmoth = 'DC17'
      x = 30.910035
      y = -26.225359
      z = 0
      irot = 1882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1883
      theta1 = 90
      phi1 = -38.034177
      theta2 = 96
      phi2 = 51.965823
      theta3 = 6
      phi3 = 51.965823
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 832
      chmoth = 'DC17'
      x = 31.928227
      y = -24.97575
      z = 0
      irot = 1883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1884
      theta1 = 90
      phi1 = -35.755696
      theta2 = 96
      phi2 = 54.244304
      theta3 = 6
      phi3 = 54.244304
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 833
      chmoth = 'DC17'
      x = 32.895933
      y = -23.686649
      z = 0
      irot = 1884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1885
      theta1 = 90
      phi1 = -33.477215
      theta2 = 96
      phi2 = 56.522785
      theta3 = 6
      phi3 = 56.522785
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 834
      chmoth = 'DC17'
      x = 33.811624
      y = -22.360094
      z = 0
      irot = 1885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1886
      theta1 = 90
      phi1 = -31.198734
      theta2 = 96
      phi2 = 58.801266
      theta3 = 6
      phi3 = 58.801266
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 835
      chmoth = 'DC17'
      x = 34.673852
      y = -20.998184
      z = 0
      irot = 1886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1887
      theta1 = 90
      phi1 = -28.920253
      theta2 = 96
      phi2 = 61.079747
      theta3 = 6
      phi3 = 61.079747
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 836
      chmoth = 'DC17'
      x = 35.481253
      y = -19.603071
      z = 0
      irot = 1887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1888
      theta1 = 90
      phi1 = -26.641772
      theta2 = 96
      phi2 = 63.358228
      theta3 = 6
      phi3 = 63.358228
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 837
      chmoth = 'DC17'
      x = 36.232551
      y = -18.176962
      z = 0
      irot = 1888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1889
      theta1 = 90
      phi1 = -24.363291
      theta2 = 96
      phi2 = 65.636709
      theta3 = 6
      phi3 = 65.636709
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 838
      chmoth = 'DC17'
      x = 36.926558
      y = -16.722111
      z = 0
      irot = 1889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1890
      theta1 = 90
      phi1 = -22.08481
      theta2 = 96
      phi2 = 67.91519
      theta3 = 6
      phi3 = 67.91519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 839
      chmoth = 'DC17'
      x = 37.562177
      y = -15.24082
      z = 0
      irot = 1890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1891
      theta1 = 90
      phi1 = -19.806329
      theta2 = 96
      phi2 = 70.193671
      theta3 = 6
      phi3 = 70.193671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 840
      chmoth = 'DC17'
      x = 38.138402
      y = -13.735429
      z = 0
      irot = 1891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1892
      theta1 = 90
      phi1 = -17.527848
      theta2 = 96
      phi2 = 72.472152
      theta3 = 6
      phi3 = 72.472152
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 841
      chmoth = 'DC17'
      x = 38.654323
      y = -12.20832
      z = 0
      irot = 1892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1893
      theta1 = 90
      phi1 = -15.249367
      theta2 = 96
      phi2 = 74.750633
      theta3 = 6
      phi3 = 74.750633
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 842
      chmoth = 'DC17'
      x = 39.109123
      y = -10.661907
      z = 0
      irot = 1893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1894
      theta1 = 90
      phi1 = -12.970886
      theta2 = 96
      phi2 = 77.029114
      theta3 = 6
      phi3 = 77.029114
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 843
      chmoth = 'DC17'
      x = 39.502083
      y = -9.0986347
      z = 0
      irot = 1894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1895
      theta1 = 90
      phi1 = -10.692405
      theta2 = 96
      phi2 = 79.307595
      theta3 = 6
      phi3 = 79.307595
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 844
      chmoth = 'DC17'
      x = 39.832583
      y = -7.5209762
      z = 0
      irot = 1895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1896
      theta1 = 90
      phi1 = -8.4139241
      theta2 = 96
      phi2 = 81.586076
      theta3 = 6
      phi3 = 81.586076
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 845
      chmoth = 'DC17'
      x = 40.100099
      y = -5.9314254
      z = 0
      irot = 1896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1897
      theta1 = 90
      phi1 = -6.135443
      theta2 = 96
      phi2 = 83.864557
      theta3 = 6
      phi3 = 83.864557
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 846
      chmoth = 'DC17'
      x = 40.304208
      y = -4.3324958
      z = 0
      irot = 1897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1898
      theta1 = 90
      phi1 = -3.856962
      theta2 = 96
      phi2 = 86.143038
      theta3 = 6
      phi3 = 86.143038
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 847
      chmoth = 'DC17'
      x = 40.444589
      y = -2.7267157
      z = 0
      irot = 1898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1899
      theta1 = 90
      phi1 = -1.578481
      theta2 = 96
      phi2 = 88.421519
      theta3 = 6
      phi3 = 88.421519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 848
      chmoth = 'DC17'
      x = 40.521018
      y = -1.116624
      z = 0
      irot = 1899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1900
      theta1 = 89.881729
      phi1 = 0.7
      theta2 = 96.202727
      phi2 = 90.687146
      theta3 = 6.2038631
      phi3 = 91.788087
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 849
      chmoth = 'DC17'
      x = 41.909186
      y = 1.345781
      z = 0
      irot = 1900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1901
      theta1 = 89.881729
      phi1 = 2.978481
      theta2 = 96.202727
      phi2 = 92.965627
      theta3 = 6.2038631
      phi3 = 94.066568
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 850
      chmoth = 'DC17'
      x = 41.822549
      y = 3.0108802
      z = 0
      irot = 1901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1902
      theta1 = 89.881729
      phi1 = 5.256962
      theta2 = 96.202727
      phi2 = 95.244108
      theta3 = 6.2038631
      phi3 = 96.345049
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 851
      chmoth = 'DC17'
      x = 41.669782
      y = 4.6712186
      z = 0
      irot = 1902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1903
      theta1 = 89.881729
      phi1 = 7.535443
      theta2 = 96.202727
      phi2 = 97.522589
      theta3 = 6.2038631
      phi3 = 98.62353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 852
      chmoth = 'DC17'
      x = 41.451126
      y = 6.3241709
      z = 0
      irot = 1903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1904
      theta1 = 89.881729
      phi1 = 9.8139241
      theta2 = 96.202727
      phi2 = 99.80107
      theta3 = 6.2038631
      phi3 = 100.90201
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 853
      chmoth = 'DC17'
      x = 41.166928
      y = 7.9671233
      z = 0
      irot = 1904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1905
      theta1 = 89.881729
      phi1 = 12.092405
      theta2 = 96.202727
      phi2 = 102.07955
      theta3 = 6.2038631
      phi3 = 103.18049
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 854
      chmoth = 'DC17'
      x = 40.817636
      y = 9.5974781
      z = 0
      irot = 1905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1906
      theta1 = 89.881729
      phi1 = 14.370886
      theta2 = 96.202727
      phi2 = 104.35803
      theta3 = 6.2038631
      phi3 = 105.45897
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 855
      chmoth = 'DC17'
      x = 40.403804
      y = 11.212657
      z = 0
      irot = 1906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1907
      theta1 = 89.881729
      phi1 = 16.649367
      theta2 = 96.202727
      phi2 = 106.63651
      theta3 = 6.2038631
      phi3 = 107.73745
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 856
      chmoth = 'DC17'
      x = 39.926084
      y = 12.810107
      z = 0
      irot = 1907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1908
      theta1 = 89.881729
      phi1 = 18.927848
      theta2 = 96.202727
      phi2 = 108.91499
      theta3 = 6.2038631
      phi3 = 110.01593
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 857
      chmoth = 'DC17'
      x = 39.385233
      y = 14.387301
      z = 0
      irot = 1908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1909
      theta1 = 89.881729
      phi1 = 21.206329
      theta2 = 96.202727
      phi2 = 111.19348
      theta3 = 6.2038631
      phi3 = 112.29442
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 858
      chmoth = 'DC17'
      x = 38.782106
      y = 15.941746
      z = 0
      irot = 1909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1910
      theta1 = 89.881729
      phi1 = 23.48481
      theta2 = 96.202727
      phi2 = 113.47196
      theta3 = 6.2038631
      phi3 = 114.5729
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 859
      chmoth = 'DC17'
      x = 38.117657
      y = 17.470984
      z = 0
      irot = 1910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1911
      theta1 = 89.881729
      phi1 = 25.763291
      theta2 = 96.202727
      phi2 = 115.75044
      theta3 = 6.2038631
      phi3 = 116.85138
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 860
      chmoth = 'DC17'
      x = 37.392935
      y = 18.972597
      z = 0
      irot = 1911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1912
      theta1 = 89.881729
      phi1 = 28.041772
      theta2 = 96.202727
      phi2 = 118.02892
      theta3 = 6.2038631
      phi3 = 119.12986
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 861
      chmoth = 'DC17'
      x = 36.609088
      y = 20.44421
      z = 0
      irot = 1912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1913
      theta1 = 89.881729
      phi1 = 30.320253
      theta2 = 96.202727
      phi2 = 120.3074
      theta3 = 6.2038631
      phi3 = 121.40834
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 862
      chmoth = 'DC17'
      x = 35.767354
      y = 21.883496
      z = 0
      irot = 1913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1914
      theta1 = 89.881729
      phi1 = 32.598734
      theta2 = 96.202727
      phi2 = 122.58588
      theta3 = 6.2038631
      phi3 = 123.68682
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 863
      chmoth = 'DC17'
      x = 34.869065
      y = 23.28818
      z = 0
      irot = 1914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1915
      theta1 = 89.881729
      phi1 = 34.877215
      theta2 = 96.202727
      phi2 = 124.86436
      theta3 = 6.2038631
      phi3 = 125.9653
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 864
      chmoth = 'DC17'
      x = 33.91564
      y = 24.656041
      z = 0
      irot = 1915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1916
      theta1 = 89.881729
      phi1 = 37.155696
      theta2 = 96.202727
      phi2 = 127.14284
      theta3 = 6.2038631
      phi3 = 128.24378
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 865
      chmoth = 'DC17'
      x = 32.908588
      y = 25.984916
      z = 0
      irot = 1916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1917
      theta1 = 89.881729
      phi1 = 39.434177
      theta2 = 96.202727
      phi2 = 129.42132
      theta3 = 6.2038631
      phi3 = 130.52226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 866
      chmoth = 'DC17'
      x = 31.849501
      y = 27.272703
      z = 0
      irot = 1917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1918
      theta1 = 89.881729
      phi1 = 41.712658
      theta2 = 96.202727
      phi2 = 131.6998
      theta3 = 6.2038631
      phi3 = 132.80074
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 867
      chmoth = 'DC17'
      x = 30.740053
      y = 28.517366
      z = 0
      irot = 1918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1919
      theta1 = 89.881729
      phi1 = 43.991139
      theta2 = 96.202727
      phi2 = 133.97829
      theta3 = 6.2038631
      phi3 = 135.07923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 868
      chmoth = 'DC17'
      x = 29.581999
      y = 29.716937
      z = 0
      irot = 1919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1920
      theta1 = 89.881729
      phi1 = 46.26962
      theta2 = 96.202727
      phi2 = 136.25677
      theta3 = 6.2038631
      phi3 = 137.35771
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 869
      chmoth = 'DC17'
      x = 28.377169
      y = 30.86952
      z = 0
      irot = 1920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1921
      theta1 = 89.881729
      phi1 = 48.548101
      theta2 = 96.202727
      phi2 = 138.53525
      theta3 = 6.2038631
      phi3 = 139.63619
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 870
      chmoth = 'DC17'
      x = 27.12747
      y = 31.973292
      z = 0
      irot = 1921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1922
      theta1 = 89.881729
      phi1 = 50.826582
      theta2 = 96.202727
      phi2 = 140.81373
      theta3 = 6.2038631
      phi3 = 141.91467
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 871
      chmoth = 'DC17'
      x = 25.834876
      y = 33.026508
      z = 0
      irot = 1922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1923
      theta1 = 89.881729
      phi1 = 53.105063
      theta2 = 96.202727
      phi2 = 143.09221
      theta3 = 6.2038631
      phi3 = 144.19315
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 872
      chmoth = 'DC17'
      x = 24.501432
      y = 34.027501
      z = 0
      irot = 1923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1924
      theta1 = 89.881729
      phi1 = 55.383544
      theta2 = 96.202727
      phi2 = 145.37069
      theta3 = 6.2038631
      phi3 = 146.47163
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 873
      chmoth = 'DC17'
      x = 23.129246
      y = 34.974691
      z = 0
      irot = 1924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1925
      theta1 = 89.881729
      phi1 = 57.662025
      theta2 = 96.202727
      phi2 = 147.64917
      theta3 = 6.2038631
      phi3 = 148.75011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 874
      chmoth = 'DC17'
      x = 21.720488
      y = 35.866578
      z = 0
      irot = 1925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1926
      theta1 = 89.881729
      phi1 = 59.940506
      theta2 = 96.202727
      phi2 = 149.92765
      theta3 = 6.2038631
      phi3 = 151.02859
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 875
      chmoth = 'DC17'
      x = 20.277386
      y = 36.701753
      z = 0
      irot = 1926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1927
      theta1 = 89.881729
      phi1 = 62.218987
      theta2 = 96.202727
      phi2 = 152.20613
      theta3 = 6.2038631
      phi3 = 153.30707
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 876
      chmoth = 'DC17'
      x = 18.802221
      y = 37.478894
      z = 0
      irot = 1927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1928
      theta1 = 89.881729
      phi1 = 64.497468
      theta2 = 96.202727
      phi2 = 154.48461
      theta3 = 6.2038631
      phi3 = 155.58556
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 877
      chmoth = 'DC17'
      x = 17.297326
      y = 38.196774
      z = 0
      irot = 1928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1929
      theta1 = 89.881729
      phi1 = 66.775949
      theta2 = 96.202727
      phi2 = 156.7631
      theta3 = 6.2038631
      phi3 = 157.86404
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 878
      chmoth = 'DC17'
      x = 15.76508
      y = 38.854257
      z = 0
      irot = 1929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1930
      theta1 = 89.881729
      phi1 = 69.05443
      theta2 = 96.202727
      phi2 = 159.04158
      theta3 = 6.2038631
      phi3 = 160.14252
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 879
      chmoth = 'DC17'
      x = 14.207906
      y = 39.450303
      z = 0
      irot = 1930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1931
      theta1 = 89.881729
      phi1 = 71.332911
      theta2 = 96.202727
      phi2 = 161.32006
      theta3 = 6.2038631
      phi3 = 162.421
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 880
      chmoth = 'DC17'
      x = 12.628266
      y = 39.983971
      z = 0
      irot = 1931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1932
      theta1 = 89.881729
      phi1 = 73.611392
      theta2 = 96.202727
      phi2 = 163.59854
      theta3 = 6.2038631
      phi3 = 164.69948
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 881
      chmoth = 'DC17'
      x = 11.028659
      y = 40.454415
      z = 0
      irot = 1932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1933
      theta1 = 89.881729
      phi1 = 75.889873
      theta2 = 96.202727
      phi2 = 165.87702
      theta3 = 6.2038631
      phi3 = 166.97796
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 882
      chmoth = 'DC17'
      x = 9.4116133
      y = 40.860893
      z = 0
      irot = 1933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1934
      theta1 = 89.881729
      phi1 = 78.168354
      theta2 = 96.202727
      phi2 = 168.1555
      theta3 = 6.2038631
      phi3 = 169.25644
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 883
      chmoth = 'DC17'
      x = 7.7796858
      y = 41.202761
      z = 0
      irot = 1934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1935
      theta1 = 89.881729
      phi1 = 80.446835
      theta2 = 96.202727
      phi2 = 170.43398
      theta3 = 6.2038631
      phi3 = 171.53492
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 884
      chmoth = 'DC17'
      x = 6.1354569
      y = 41.479479
      z = 0
      irot = 1935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1936
      theta1 = 89.881729
      phi1 = 82.725316
      theta2 = 96.202727
      phi2 = 172.71246
      theta3 = 6.2038631
      phi3 = 173.8134
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 885
      chmoth = 'DC17'
      x = 4.4815267
      y = 41.69061
      z = 0
      irot = 1936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1937
      theta1 = 89.881729
      phi1 = 85.003797
      theta2 = 96.202727
      phi2 = 174.99094
      theta3 = 6.2038631
      phi3 = 176.09188
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 886
      chmoth = 'DC17'
      x = 2.8205102
      y = 41.835819
      z = 0
      irot = 1937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1938
      theta1 = 89.881729
      phi1 = 87.282278
      theta2 = 96.202727
      phi2 = 177.26942
      theta3 = 6.2038631
      phi3 = 178.37037
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 887
      chmoth = 'DC17'
      x = 1.1550339
      y = 41.914877
      z = 0
      irot = 1938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1939
      theta1 = 89.881729
      phi1 = 89.560759
      theta2 = 96.202727
      phi2 = 179.54791
      theta3 = 6.2038631
      phi3 = -179.35115
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 888
      chmoth = 'DC17'
      x = -0.51226867
      y = 41.927659
      z = 0
      irot = 1939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1940
      theta1 = 89.881729
      phi1 = 91.839241
      theta2 = 96.202727
      phi2 = -178.17361
      theta3 = 6.2038631
      phi3 = -177.07267
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 889
      chmoth = 'DC17'
      x = -2.1787613
      y = 41.874145
      z = 0
      irot = 1940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1941
      theta1 = 89.881729
      phi1 = 94.117722
      theta2 = 96.202727
      phi2 = -175.89513
      theta3 = 6.2038631
      phi3 = -174.79419
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 890
      chmoth = 'DC17'
      x = -3.8418088
      y = 41.754419
      z = 0
      irot = 1941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1942
      theta1 = 89.881729
      phi1 = 96.396203
      theta2 = 96.202727
      phi2 = -173.61665
      theta3 = 6.2038631
      phi3 = -172.51571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 891
      chmoth = 'DC17'
      x = -5.4987817
      y = 41.568671
      z = 0
      irot = 1942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1943
      theta1 = 89.881729
      phi1 = 98.674684
      theta2 = 96.202727
      phi2 = -171.33817
      theta3 = 6.2038631
      phi3 = -170.23723
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 892
      chmoth = 'DC17'
      x = -7.1470598
      y = 41.317194
      z = 0
      irot = 1943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1944
      theta1 = 89.881729
      phi1 = 100.95316
      theta2 = 96.202727
      phi2 = -169.05969
      theta3 = 6.2038631
      phi3 = -167.95875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 893
      chmoth = 'DC17'
      x = -8.784037
      y = 41.000387
      z = 0
      irot = 1944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1945
      theta1 = 89.881729
      phi1 = 103.23165
      theta2 = 96.202727
      phi2 = -166.78121
      theta3 = 6.2038631
      phi3 = -165.68027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 894
      chmoth = 'DC17'
      x = -10.407125
      y = 40.618749
      z = 0
      irot = 1945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1946
      theta1 = 89.881729
      phi1 = 105.51013
      theta2 = 96.202727
      phi2 = -164.50273
      theta3 = 6.2038631
      phi3 = -163.40179
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 895
      chmoth = 'DC17'
      x = -12.013757
      y = 40.172885
      z = 0
      irot = 1946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1947
      theta1 = 89.881729
      phi1 = 107.78861
      theta2 = 96.202727
      phi2 = -162.22425
      theta3 = 6.2038631
      phi3 = -161.12331
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 896
      chmoth = 'DC17'
      x = -13.601393
      y = 39.663499
      z = 0
      irot = 1947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1948
      theta1 = 89.881729
      phi1 = 110.06709
      theta2 = 96.202727
      phi2 = -159.94577
      theta3 = 6.2038631
      phi3 = -158.84482
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 897
      chmoth = 'DC17'
      x = -15.167522
      y = 39.091397
      z = 0
      irot = 1948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1949
      theta1 = 89.881729
      phi1 = 112.34557
      theta2 = 96.202727
      phi2 = -157.66728
      theta3 = 6.2038631
      phi3 = -156.56634
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 898
      chmoth = 'DC17'
      x = -16.709668
      y = 38.457483
      z = 0
      irot = 1949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1950
      theta1 = 89.881729
      phi1 = 114.62405
      theta2 = 96.202727
      phi2 = -155.3888
      theta3 = 6.2038631
      phi3 = -154.28786
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 899
      chmoth = 'DC17'
      x = -18.225393
      y = 37.76276
      z = 0
      irot = 1950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1951
      theta1 = 89.881729
      phi1 = 116.90253
      theta2 = 96.202727
      phi2 = -153.11032
      theta3 = 6.2038631
      phi3 = -152.00938
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 900
      chmoth = 'DC17'
      x = -19.7123
      y = 37.008327
      z = 0
      irot = 1951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1952
      theta1 = 89.881729
      phi1 = 119.18101
      theta2 = 96.202727
      phi2 = -150.83184
      theta3 = 6.2038631
      phi3 = -149.7309
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 901
      chmoth = 'DC17'
      x = -21.168037
      y = 36.195376
      z = 0
      irot = 1952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1953
      theta1 = 89.881729
      phi1 = 121.45949
      theta2 = 96.202727
      phi2 = -148.55336
      theta3 = 6.2038631
      phi3 = -147.45242
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 902
      chmoth = 'DC17'
      x = -22.590304
      y = 35.325192
      z = 0
      irot = 1953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1954
      theta1 = 89.881729
      phi1 = 123.73797
      theta2 = 96.202727
      phi2 = -146.27488
      theta3 = 6.2038631
      phi3 = -145.17394
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 903
      chmoth = 'DC17'
      x = -23.97685
      y = 34.399152
      z = 0
      irot = 1954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1955
      theta1 = 89.881729
      phi1 = 126.01646
      theta2 = 96.202727
      phi2 = -143.9964
      theta3 = 6.2038631
      phi3 = -142.89546
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 904
      chmoth = 'DC17'
      x = -25.325484
      y = 33.41872
      z = 0
      irot = 1955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1956
      theta1 = 89.881729
      phi1 = 128.29494
      theta2 = 96.202727
      phi2 = -141.71792
      theta3 = 6.2038631
      phi3 = -140.61698
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 905
      chmoth = 'DC17'
      x = -26.634074
      y = 32.385446
      z = 0
      irot = 1956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1957
      theta1 = 89.881729
      phi1 = 130.57342
      theta2 = 96.202727
      phi2 = -139.43944
      theta3 = 6.2038631
      phi3 = -138.3385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 906
      chmoth = 'DC17'
      x = -27.900549
      y = 31.300964
      z = 0
      irot = 1957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1958
      theta1 = 89.881729
      phi1 = 132.8519
      theta2 = 96.202727
      phi2 = -137.16096
      theta3 = 6.2038631
      phi3 = -136.06001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 907
      chmoth = 'DC17'
      x = -29.122908
      y = 30.166989
      z = 0
      irot = 1958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1959
      theta1 = 89.881729
      phi1 = 135.13038
      theta2 = 96.202727
      phi2 = -134.88247
      theta3 = 6.2038631
      phi3 = -133.78153
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 908
      chmoth = 'DC17'
      x = -30.299218
      y = 28.985314
      z = 0
      irot = 1959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1960
      theta1 = 89.881729
      phi1 = 137.40886
      theta2 = 96.202727
      phi2 = -132.60399
      theta3 = 6.2038631
      phi3 = -131.50305
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 909
      chmoth = 'DC17'
      x = -31.427618
      y = 27.757806
      z = 0
      irot = 1960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1961
      theta1 = 89.881729
      phi1 = 139.68734
      theta2 = 96.202727
      phi2 = -130.32551
      theta3 = 6.2038631
      phi3 = -129.22457
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 910
      chmoth = 'DC17'
      x = -32.506325
      y = 26.486408
      z = 0
      irot = 1961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1962
      theta1 = 89.881729
      phi1 = 141.96582
      theta2 = 96.202727
      phi2 = -128.04703
      theta3 = 6.2038631
      phi3 = -126.94609
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 911
      chmoth = 'DC17'
      x = -33.533633
      y = 25.17313
      z = 0
      irot = 1962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1963
      theta1 = 89.881729
      phi1 = 144.2443
      theta2 = 96.202727
      phi2 = -125.76855
      theta3 = 6.2038631
      phi3 = -124.66761
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 912
      chmoth = 'DC17'
      x = -34.507917
      y = 23.820048
      z = 0
      irot = 1963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1964
      theta1 = 89.881729
      phi1 = 146.52278
      theta2 = 96.202727
      phi2 = -123.49007
      theta3 = 6.2038631
      phi3 = -122.38913
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 913
      chmoth = 'DC17'
      x = -35.427637
      y = 22.429301
      z = 0
      irot = 1964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1965
      theta1 = 89.881729
      phi1 = 148.80127
      theta2 = 96.202727
      phi2 = -121.21159
      theta3 = 6.2038631
      phi3 = -120.11065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 914
      chmoth = 'DC17'
      x = -36.291339
      y = 21.003089
      z = 0
      irot = 1965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1966
      theta1 = 89.881729
      phi1 = 151.07975
      theta2 = 96.202727
      phi2 = -118.93311
      theta3 = 6.2038631
      phi3 = -117.83217
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 915
      chmoth = 'DC17'
      x = -37.097656
      y = 19.543667
      z = 0
      irot = 1966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1967
      theta1 = 89.881729
      phi1 = 153.35823
      theta2 = 96.202727
      phi2 = -116.65463
      theta3 = 6.2038631
      phi3 = -115.55369
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 916
      chmoth = 'DC17'
      x = -37.845315
      y = 18.053342
      z = 0
      irot = 1967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1968
      theta1 = 89.881729
      phi1 = 155.63671
      theta2 = 96.202727
      phi2 = -114.37615
      theta3 = 6.2038631
      phi3 = -113.2752
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 917
      chmoth = 'DC17'
      x = -38.533132
      y = 16.534471
      z = 0
      irot = 1968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1969
      theta1 = 89.881729
      phi1 = 157.91519
      theta2 = 96.202727
      phi2 = -112.09766
      theta3 = 6.2038631
      phi3 = -110.99672
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 918
      chmoth = 'DC17'
      x = -39.160021
      y = 14.989456
      z = 0
      irot = 1969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1970
      theta1 = 89.881729
      phi1 = 160.19367
      theta2 = 96.202727
      phi2 = -109.81918
      theta3 = 6.2038631
      phi3 = -108.71824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 919
      chmoth = 'DC17'
      x = -39.724989
      y = 13.420739
      z = 0
      irot = 1970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1971
      theta1 = 89.881729
      phi1 = 162.47215
      theta2 = 96.202727
      phi2 = -107.5407
      theta3 = 6.2038631
      phi3 = -106.43976
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 920
      chmoth = 'DC17'
      x = -40.227145
      y = 11.830801
      z = 0
      irot = 1971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1972
      theta1 = 89.881729
      phi1 = 164.75063
      theta2 = 96.202727
      phi2 = -105.26222
      theta3 = 6.2038631
      phi3 = -104.16128
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 921
      chmoth = 'DC17'
      x = -40.665692
      y = 10.222157
      z = 0
      irot = 1972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1973
      theta1 = 89.881729
      phi1 = 167.02911
      theta2 = 96.202727
      phi2 = -102.98374
      theta3 = 6.2038631
      phi3 = -101.8828
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 922
      chmoth = 'DC17'
      x = -41.039939
      y = 8.597349
      z = 0
      irot = 1973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1974
      theta1 = 89.881729
      phi1 = 169.30759
      theta2 = 96.202727
      phi2 = -100.70526
      theta3 = 6.2038631
      phi3 = -99.604318
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 923
      chmoth = 'DC17'
      x = -41.349294
      y = 6.9589469
      z = 0
      irot = 1974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1975
      theta1 = 89.881729
      phi1 = 171.58608
      theta2 = 96.202727
      phi2 = -98.426778
      theta3 = 6.2038631
      phi3 = -97.325837
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 924
      chmoth = 'DC17'
      x = -41.593266
      y = 5.3095413
      z = 0
      irot = 1975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1976
      theta1 = 89.881729
      phi1 = 173.86456
      theta2 = 96.202727
      phi2 = -96.148297
      theta3 = 6.2038631
      phi3 = -95.047356
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 925
      chmoth = 'DC17'
      x = -41.771471
      y = 3.6517403
      z = 0
      irot = 1976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1977
      theta1 = 89.881729
      phi1 = 176.14304
      theta2 = 96.202727
      phi2 = -93.869816
      theta3 = 6.2038631
      phi3 = -92.768875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 926
      chmoth = 'DC17'
      x = -41.883627
      y = 1.9881651
      z = 0
      irot = 1977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1978
      theta1 = 89.881729
      phi1 = 178.42152
      theta2 = 96.202727
      phi2 = -91.591335
      theta3 = 6.2038631
      phi3 = -90.490394
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 927
      chmoth = 'DC17'
      x = -41.929556
      y = 0.32144618
      z = 0
      irot = 1978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1979
      theta1 = 89.881729
      phi1 = -179.3
      theta2 = 96.202727
      phi2 = -89.312854
      theta3 = 6.2038631
      phi3 = -88.211913
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 928
      chmoth = 'DC17'
      x = -41.909186
      y = -1.345781
      z = 0
      irot = 1979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1980
      theta1 = 89.881729
      phi1 = -177.02152
      theta2 = 96.202727
      phi2 = -87.034373
      theta3 = 6.2038631
      phi3 = -85.933432
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 929
      chmoth = 'DC17'
      x = -41.822549
      y = -3.0108802
      z = 0
      irot = 1980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1981
      theta1 = 89.881729
      phi1 = -174.74304
      theta2 = 96.202727
      phi2 = -84.755892
      theta3 = 6.2038631
      phi3 = -83.654951
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 930
      chmoth = 'DC17'
      x = -41.669782
      y = -4.6712186
      z = 0
      irot = 1981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1982
      theta1 = 89.881729
      phi1 = -172.46456
      theta2 = 96.202727
      phi2 = -82.477411
      theta3 = 6.2038631
      phi3 = -81.37647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 931
      chmoth = 'DC17'
      x = -41.451126
      y = -6.3241709
      z = 0
      irot = 1982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1983
      theta1 = 89.881729
      phi1 = -170.18608
      theta2 = 96.202727
      phi2 = -80.19893
      theta3 = 6.2038631
      phi3 = -79.097989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 932
      chmoth = 'DC17'
      x = -41.166928
      y = -7.9671233
      z = 0
      irot = 1983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1984
      theta1 = 89.881729
      phi1 = -167.90759
      theta2 = 96.202727
      phi2 = -77.920449
      theta3 = 6.2038631
      phi3 = -76.819508
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 933
      chmoth = 'DC17'
      x = -40.817636
      y = -9.5974781
      z = 0
      irot = 1984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1985
      theta1 = 89.881729
      phi1 = -165.62911
      theta2 = 96.202727
      phi2 = -75.641968
      theta3 = 6.2038631
      phi3 = -74.541027
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 934
      chmoth = 'DC17'
      x = -40.403804
      y = -11.212657
      z = 0
      irot = 1985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1986
      theta1 = 89.881729
      phi1 = -163.35063
      theta2 = 96.202727
      phi2 = -73.363487
      theta3 = 6.2038631
      phi3 = -72.262546
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 935
      chmoth = 'DC17'
      x = -39.926084
      y = -12.810107
      z = 0
      irot = 1986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1987
      theta1 = 89.881729
      phi1 = -161.07215
      theta2 = 96.202727
      phi2 = -71.085006
      theta3 = 6.2038631
      phi3 = -69.984065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 936
      chmoth = 'DC17'
      x = -39.385233
      y = -14.387301
      z = 0
      irot = 1987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1988
      theta1 = 89.881729
      phi1 = -158.79367
      theta2 = 96.202727
      phi2 = -68.806525
      theta3 = 6.2038631
      phi3 = -67.705584
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 937
      chmoth = 'DC17'
      x = -38.782106
      y = -15.941746
      z = 0
      irot = 1988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1989
      theta1 = 89.881729
      phi1 = -156.51519
      theta2 = 96.202727
      phi2 = -66.528044
      theta3 = 6.2038631
      phi3 = -65.427103
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 938
      chmoth = 'DC17'
      x = -38.117657
      y = -17.470984
      z = 0
      irot = 1989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1990
      theta1 = 89.881729
      phi1 = -154.23671
      theta2 = 96.202727
      phi2 = -64.249563
      theta3 = 6.2038631
      phi3 = -63.148622
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 939
      chmoth = 'DC17'
      x = -37.392935
      y = -18.972597
      z = 0
      irot = 1990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1991
      theta1 = 89.881729
      phi1 = -151.95823
      theta2 = 96.202727
      phi2 = -61.971082
      theta3 = 6.2038631
      phi3 = -60.870141
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 940
      chmoth = 'DC17'
      x = -36.609088
      y = -20.44421
      z = 0
      irot = 1991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1992
      theta1 = 89.881729
      phi1 = -149.67975
      theta2 = 96.202727
      phi2 = -59.692601
      theta3 = 6.2038631
      phi3 = -58.59166
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 941
      chmoth = 'DC17'
      x = -35.767354
      y = -21.883496
      z = 0
      irot = 1992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1993
      theta1 = 89.881729
      phi1 = -147.40127
      theta2 = 96.202727
      phi2 = -57.41412
      theta3 = 6.2038631
      phi3 = -56.313179
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 942
      chmoth = 'DC17'
      x = -34.869065
      y = -23.28818
      z = 0
      irot = 1993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1994
      theta1 = 89.881729
      phi1 = -145.12278
      theta2 = 96.202727
      phi2 = -55.135639
      theta3 = 6.2038631
      phi3 = -54.034698
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 943
      chmoth = 'DC17'
      x = -33.91564
      y = -24.656041
      z = 0
      irot = 1994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1995
      theta1 = 89.881729
      phi1 = -142.8443
      theta2 = 96.202727
      phi2 = -52.857158
      theta3 = 6.2038631
      phi3 = -51.756217
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 944
      chmoth = 'DC17'
      x = -32.908588
      y = -25.984916
      z = 0
      irot = 1995
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1996
      theta1 = 89.881729
      phi1 = -140.56582
      theta2 = 96.202727
      phi2 = -50.578677
      theta3 = 6.2038631
      phi3 = -49.477736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 945
      chmoth = 'DC17'
      x = -31.849501
      y = -27.272703
      z = 0
      irot = 1996
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1997
      theta1 = 89.881729
      phi1 = -138.28734
      theta2 = 96.202727
      phi2 = -48.300196
      theta3 = 6.2038631
      phi3 = -47.199255
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 946
      chmoth = 'DC17'
      x = -30.740053
      y = -28.517366
      z = 0
      irot = 1997
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1998
      theta1 = 89.881729
      phi1 = -136.00886
      theta2 = 96.202727
      phi2 = -46.021715
      theta3 = 6.2038631
      phi3 = -44.920774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 947
      chmoth = 'DC17'
      x = -29.581999
      y = -29.716937
      z = 0
      irot = 1998
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1999
      theta1 = 89.881729
      phi1 = -133.73038
      theta2 = 96.202727
      phi2 = -43.743234
      theta3 = 6.2038631
      phi3 = -42.642293
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 948
      chmoth = 'DC17'
      x = -28.377169
      y = -30.86952
      z = 0
      irot = 1999
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2000
      theta1 = 89.881729
      phi1 = -131.4519
      theta2 = 96.202727
      phi2 = -41.464753
      theta3 = 6.2038631
      phi3 = -40.363812
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 949
      chmoth = 'DC17'
      x = -27.12747
      y = -31.973292
      z = 0
      irot = 2000
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2001
      theta1 = 89.881729
      phi1 = -129.17342
      theta2 = 96.202727
      phi2 = -39.186272
      theta3 = 6.2038631
      phi3 = -38.085331
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 950
      chmoth = 'DC17'
      x = -25.834876
      y = -33.026508
      z = 0
      irot = 2001
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2002
      theta1 = 89.881729
      phi1 = -126.89494
      theta2 = 96.202727
      phi2 = -36.907791
      theta3 = 6.2038631
      phi3 = -35.80685
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 951
      chmoth = 'DC17'
      x = -24.501432
      y = -34.027501
      z = 0
      irot = 2002
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2003
      theta1 = 89.881729
      phi1 = -124.61646
      theta2 = 96.202727
      phi2 = -34.62931
      theta3 = 6.2038631
      phi3 = -33.528369
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 952
      chmoth = 'DC17'
      x = -23.129246
      y = -34.974691
      z = 0
      irot = 2003
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2004
      theta1 = 89.881729
      phi1 = -122.33797
      theta2 = 96.202727
      phi2 = -32.350829
      theta3 = 6.2038631
      phi3 = -31.249888
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 953
      chmoth = 'DC17'
      x = -21.720488
      y = -35.866578
      z = 0
      irot = 2004
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2005
      theta1 = 89.881729
      phi1 = -120.05949
      theta2 = 96.202727
      phi2 = -30.072348
      theta3 = 6.2038631
      phi3 = -28.971407
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 954
      chmoth = 'DC17'
      x = -20.277386
      y = -36.701753
      z = 0
      irot = 2005
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2006
      theta1 = 89.881729
      phi1 = -117.78101
      theta2 = 96.202727
      phi2 = -27.793867
      theta3 = 6.2038631
      phi3 = -26.692926
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 955
      chmoth = 'DC17'
      x = -18.802221
      y = -37.478894
      z = 0
      irot = 2006
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2007
      theta1 = 89.881729
      phi1 = -115.50253
      theta2 = 96.202727
      phi2 = -25.515386
      theta3 = 6.2038631
      phi3 = -24.414445
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 956
      chmoth = 'DC17'
      x = -17.297326
      y = -38.196774
      z = 0
      irot = 2007
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2008
      theta1 = 89.881729
      phi1 = -113.22405
      theta2 = 96.202727
      phi2 = -23.236905
      theta3 = 6.2038631
      phi3 = -22.135964
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 957
      chmoth = 'DC17'
      x = -15.76508
      y = -38.854257
      z = 0
      irot = 2008
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2009
      theta1 = 89.881729
      phi1 = -110.94557
      theta2 = 96.202727
      phi2 = -20.958424
      theta3 = 6.2038631
      phi3 = -19.857483
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 958
      chmoth = 'DC17'
      x = -14.207906
      y = -39.450303
      z = 0
      irot = 2009
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2010
      theta1 = 89.881729
      phi1 = -108.66709
      theta2 = 96.202727
      phi2 = -18.679943
      theta3 = 6.2038631
      phi3 = -17.579002
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 959
      chmoth = 'DC17'
      x = -12.628266
      y = -39.983971
      z = 0
      irot = 2010
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2011
      theta1 = 89.881729
      phi1 = -106.38861
      theta2 = 96.202727
      phi2 = -16.401462
      theta3 = 6.2038631
      phi3 = -15.300521
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 960
      chmoth = 'DC17'
      x = -11.028659
      y = -40.454415
      z = 0
      irot = 2011
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2012
      theta1 = 89.881729
      phi1 = -104.11013
      theta2 = 96.202727
      phi2 = -14.122981
      theta3 = 6.2038631
      phi3 = -13.02204
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 961
      chmoth = 'DC17'
      x = -9.4116133
      y = -40.860893
      z = 0
      irot = 2012
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2013
      theta1 = 89.881729
      phi1 = -101.83165
      theta2 = 96.202727
      phi2 = -11.8445
      theta3 = 6.2038631
      phi3 = -10.743559
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 962
      chmoth = 'DC17'
      x = -7.7796858
      y = -41.202761
      z = 0
      irot = 2013
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2014
      theta1 = 89.881729
      phi1 = -99.553165
      theta2 = 96.202727
      phi2 = -9.5660186
      theta3 = 6.2038631
      phi3 = -8.4650778
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 963
      chmoth = 'DC17'
      x = -6.1354569
      y = -41.479479
      z = 0
      irot = 2014
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2015
      theta1 = 89.881729
      phi1 = -97.274684
      theta2 = 96.202727
      phi2 = -7.2875376
      theta3 = 6.2038631
      phi3 = -6.1865968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 964
      chmoth = 'DC17'
      x = -4.4815267
      y = -41.69061
      z = 0
      irot = 2015
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2016
      theta1 = 89.881729
      phi1 = -94.996203
      theta2 = 96.202727
      phi2 = -5.0090566
      theta3 = 6.2038631
      phi3 = -3.9081158
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 965
      chmoth = 'DC17'
      x = -2.8205102
      y = -41.835819
      z = 0
      irot = 2016
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2017
      theta1 = 89.881729
      phi1 = -92.717722
      theta2 = 96.202727
      phi2 = -2.7305756
      theta3 = 6.2038631
      phi3 = -1.6296348
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 966
      chmoth = 'DC17'
      x = -1.1550339
      y = -41.914877
      z = 0
      irot = 2017
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2018
      theta1 = 89.881729
      phi1 = -90.439241
      theta2 = 96.202727
      phi2 = -0.45209456
      theta3 = 6.2038631
      phi3 = 0.64884625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 967
      chmoth = 'DC17'
      x = 0.51226867
      y = -41.927659
      z = 0
      irot = 2018
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2019
      theta1 = 89.881729
      phi1 = -88.160759
      theta2 = 96.202727
      phi2 = 1.8263865
      theta3 = 6.2038631
      phi3 = 2.9273273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 968
      chmoth = 'DC17'
      x = 2.1787613
      y = -41.874145
      z = 0
      irot = 2019
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2020
      theta1 = 89.881729
      phi1 = -85.882278
      theta2 = 96.202727
      phi2 = 4.1048675
      theta3 = 6.2038631
      phi3 = 5.2058083
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 969
      chmoth = 'DC17'
      x = 3.8418088
      y = -41.754419
      z = 0
      irot = 2020
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2021
      theta1 = 89.881729
      phi1 = -83.603797
      theta2 = 96.202727
      phi2 = 6.3833485
      theta3 = 6.2038631
      phi3 = 7.4842893
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 970
      chmoth = 'DC17'
      x = 5.4987817
      y = -41.568671
      z = 0
      irot = 2021
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2022
      theta1 = 89.881729
      phi1 = -81.325316
      theta2 = 96.202727
      phi2 = 8.6618295
      theta3 = 6.2038631
      phi3 = 9.7627703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 971
      chmoth = 'DC17'
      x = 7.1470598
      y = -41.317194
      z = 0
      irot = 2022
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2023
      theta1 = 89.881729
      phi1 = -79.046835
      theta2 = 96.202727
      phi2 = 10.940311
      theta3 = 6.2038631
      phi3 = 12.041251
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 972
      chmoth = 'DC17'
      x = 8.784037
      y = -41.000387
      z = 0
      irot = 2023
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2024
      theta1 = 89.881729
      phi1 = -76.768354
      theta2 = 96.202727
      phi2 = 13.218792
      theta3 = 6.2038631
      phi3 = 14.319732
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 973
      chmoth = 'DC17'
      x = 10.407125
      y = -40.618749
      z = 0
      irot = 2024
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2025
      theta1 = 89.881729
      phi1 = -74.489873
      theta2 = 96.202727
      phi2 = 15.497273
      theta3 = 6.2038631
      phi3 = 16.598213
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 974
      chmoth = 'DC17'
      x = 12.013757
      y = -40.172885
      z = 0
      irot = 2025
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2026
      theta1 = 89.881729
      phi1 = -72.211392
      theta2 = 96.202727
      phi2 = 17.775754
      theta3 = 6.2038631
      phi3 = 18.876694
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 975
      chmoth = 'DC17'
      x = 13.601393
      y = -39.663499
      z = 0
      irot = 2026
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2027
      theta1 = 89.881729
      phi1 = -69.932911
      theta2 = 96.202727
      phi2 = 20.054235
      theta3 = 6.2038631
      phi3 = 21.155175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 976
      chmoth = 'DC17'
      x = 15.167522
      y = -39.091397
      z = 0
      irot = 2027
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2028
      theta1 = 89.881729
      phi1 = -67.65443
      theta2 = 96.202727
      phi2 = 22.332716
      theta3 = 6.2038631
      phi3 = 23.433656
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 977
      chmoth = 'DC17'
      x = 16.709668
      y = -38.457483
      z = 0
      irot = 2028
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2029
      theta1 = 89.881729
      phi1 = -65.375949
      theta2 = 96.202727
      phi2 = 24.611197
      theta3 = 6.2038631
      phi3 = 25.712137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 978
      chmoth = 'DC17'
      x = 18.225393
      y = -37.76276
      z = 0
      irot = 2029
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2030
      theta1 = 89.881729
      phi1 = -63.097468
      theta2 = 96.202727
      phi2 = 26.889678
      theta3 = 6.2038631
      phi3 = 27.990618
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 979
      chmoth = 'DC17'
      x = 19.7123
      y = -37.008327
      z = 0
      irot = 2030
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2031
      theta1 = 89.881729
      phi1 = -60.818987
      theta2 = 96.202727
      phi2 = 29.168159
      theta3 = 6.2038631
      phi3 = 30.269099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 980
      chmoth = 'DC17'
      x = 21.168037
      y = -36.195376
      z = 0
      irot = 2031
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2032
      theta1 = 89.881729
      phi1 = -58.540506
      theta2 = 96.202727
      phi2 = 31.44664
      theta3 = 6.2038631
      phi3 = 32.54758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 981
      chmoth = 'DC17'
      x = 22.590304
      y = -35.325192
      z = 0
      irot = 2032
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2033
      theta1 = 89.881729
      phi1 = -56.262025
      theta2 = 96.202727
      phi2 = 33.725121
      theta3 = 6.2038631
      phi3 = 34.826061
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 982
      chmoth = 'DC17'
      x = 23.97685
      y = -34.399152
      z = 0
      irot = 2033
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2034
      theta1 = 89.881729
      phi1 = -53.983544
      theta2 = 96.202727
      phi2 = 36.003602
      theta3 = 6.2038631
      phi3 = 37.104542
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 983
      chmoth = 'DC17'
      x = 25.325484
      y = -33.41872
      z = 0
      irot = 2034
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2035
      theta1 = 89.881729
      phi1 = -51.705063
      theta2 = 96.202727
      phi2 = 38.282083
      theta3 = 6.2038631
      phi3 = 39.383023
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 984
      chmoth = 'DC17'
      x = 26.634074
      y = -32.385446
      z = 0
      irot = 2035
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2036
      theta1 = 89.881729
      phi1 = -49.426582
      theta2 = 96.202727
      phi2 = 40.560564
      theta3 = 6.2038631
      phi3 = 41.661504
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 985
      chmoth = 'DC17'
      x = 27.900549
      y = -31.300964
      z = 0
      irot = 2036
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2037
      theta1 = 89.881729
      phi1 = -47.148101
      theta2 = 96.202727
      phi2 = 42.839045
      theta3 = 6.2038631
      phi3 = 43.939985
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 986
      chmoth = 'DC17'
      x = 29.122908
      y = -30.166989
      z = 0
      irot = 2037
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2038
      theta1 = 89.881729
      phi1 = -44.86962
      theta2 = 96.202727
      phi2 = 45.117526
      theta3 = 6.2038631
      phi3 = 46.218467
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 987
      chmoth = 'DC17'
      x = 30.299218
      y = -28.985314
      z = 0
      irot = 2038
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2039
      theta1 = 89.881729
      phi1 = -42.591139
      theta2 = 96.202727
      phi2 = 47.396007
      theta3 = 6.2038631
      phi3 = 48.496948
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 988
      chmoth = 'DC17'
      x = 31.427618
      y = -27.757806
      z = 0
      irot = 2039
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2040
      theta1 = 89.881729
      phi1 = -40.312658
      theta2 = 96.202727
      phi2 = 49.674488
      theta3 = 6.2038631
      phi3 = 50.775429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 989
      chmoth = 'DC17'
      x = 32.506325
      y = -26.486408
      z = 0
      irot = 2040
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2041
      theta1 = 89.881729
      phi1 = -38.034177
      theta2 = 96.202727
      phi2 = 51.952969
      theta3 = 6.2038631
      phi3 = 53.05391
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 990
      chmoth = 'DC17'
      x = 33.533633
      y = -25.17313
      z = 0
      irot = 2041
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2042
      theta1 = 89.881729
      phi1 = -35.755696
      theta2 = 96.202727
      phi2 = 54.23145
      theta3 = 6.2038631
      phi3 = 55.332391
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 991
      chmoth = 'DC17'
      x = 34.507917
      y = -23.820048
      z = 0
      irot = 2042
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2043
      theta1 = 89.881729
      phi1 = -33.477215
      theta2 = 96.202727
      phi2 = 56.509931
      theta3 = 6.2038631
      phi3 = 57.610872
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 992
      chmoth = 'DC17'
      x = 35.427637
      y = -22.429301
      z = 0
      irot = 2043
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2044
      theta1 = 89.881729
      phi1 = -31.198734
      theta2 = 96.202727
      phi2 = 58.788412
      theta3 = 6.2038631
      phi3 = 59.889353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 993
      chmoth = 'DC17'
      x = 36.291339
      y = -21.003089
      z = 0
      irot = 2044
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2045
      theta1 = 89.881729
      phi1 = -28.920253
      theta2 = 96.202727
      phi2 = 61.066893
      theta3 = 6.2038631
      phi3 = 62.167834
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 994
      chmoth = 'DC17'
      x = 37.097656
      y = -19.543667
      z = 0
      irot = 2045
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2046
      theta1 = 89.881729
      phi1 = -26.641772
      theta2 = 96.202727
      phi2 = 63.345374
      theta3 = 6.2038631
      phi3 = 64.446315
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 995
      chmoth = 'DC17'
      x = 37.845315
      y = -18.053342
      z = 0
      irot = 2046
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2047
      theta1 = 89.881729
      phi1 = -24.363291
      theta2 = 96.202727
      phi2 = 65.623855
      theta3 = 6.2038631
      phi3 = 66.724796
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 996
      chmoth = 'DC17'
      x = 38.533132
      y = -16.534471
      z = 0
      irot = 2047
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2048
      theta1 = 89.881729
      phi1 = -22.08481
      theta2 = 96.202727
      phi2 = 67.902336
      theta3 = 6.2038631
      phi3 = 69.003277
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 997
      chmoth = 'DC17'
      x = 39.160021
      y = -14.989456
      z = 0
      irot = 2048
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2049
      theta1 = 89.881729
      phi1 = -19.806329
      theta2 = 96.202727
      phi2 = 70.180817
      theta3 = 6.2038631
      phi3 = 71.281758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 998
      chmoth = 'DC17'
      x = 39.724989
      y = -13.420739
      z = 0
      irot = 2049
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2050
      theta1 = 89.881729
      phi1 = -17.527848
      theta2 = 96.202727
      phi2 = 72.459298
      theta3 = 6.2038631
      phi3 = 73.560239
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 999
      chmoth = 'DC17'
      x = 40.227145
      y = -11.830801
      z = 0
      irot = 2050
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2051
      theta1 = 89.881729
      phi1 = -15.249367
      theta2 = 96.202727
      phi2 = 74.737779
      theta3 = 6.2038631
      phi3 = 75.83872
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 1000
      chmoth = 'DC17'
      x = 40.665692
      y = -10.222157
      z = 0
      irot = 2051
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2052
      theta1 = 89.881729
      phi1 = -12.970886
      theta2 = 96.202727
      phi2 = 77.01626
      theta3 = 6.2038631
      phi3 = 78.117201
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 1001
      chmoth = 'DC17'
      x = 41.039939
      y = -8.597349
      z = 0
      irot = 2052
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2053
      theta1 = 89.881729
      phi1 = -10.692405
      theta2 = 96.202727
      phi2 = 79.294741
      theta3 = 6.2038631
      phi3 = 80.395682
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 1002
      chmoth = 'DC17'
      x = 41.349294
      y = -6.9589469
      z = 0
      irot = 2053
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2054
      theta1 = 89.881729
      phi1 = -8.4139241
      theta2 = 96.202727
      phi2 = 81.573222
      theta3 = 6.2038631
      phi3 = 82.674163
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 1003
      chmoth = 'DC17'
      x = 41.593266
      y = -5.3095413
      z = 0
      irot = 2054
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2055
      theta1 = 89.881729
      phi1 = -6.135443
      theta2 = 96.202727
      phi2 = 83.851703
      theta3 = 6.2038631
      phi3 = 84.952644
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 1004
      chmoth = 'DC17'
      x = 41.771471
      y = -3.6517403
      z = 0
      irot = 2055
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2056
      theta1 = 89.881729
      phi1 = -3.856962
      theta2 = 96.202727
      phi2 = 86.130184
      theta3 = 6.2038631
      phi3 = 87.231125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 1005
      chmoth = 'DC17'
      x = 41.883627
      y = -1.9881651
      z = 0
      irot = 2056
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2057
      theta1 = 89.881729
      phi1 = -1.578481
      theta2 = 96.202727
      phi2 = 88.408665
      theta3 = 6.2038631
      phi3 = 89.509606
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLB'
      nr = 1006
      chmoth = 'DC17'
      x = 41.929556
      y = -0.32144618
      z = 0
      irot = 2057
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2058
      theta1 = 90
      phi1 = 1.1
      theta2 = 84
      phi2 = 91.1
      theta3 = 6
      phi3 = -88.9
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 293
      chmoth = 'DC17'
      x = 43.607162
      y = 0.83730029
      z = 0
      irot = 2058
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2059
      theta1 = 90
      phi1 = 3.2176471
      theta2 = 84
      phi2 = 93.217647
      theta3 = 6
      phi3 = -86.782353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 294
      chmoth = 'DC17'
      x = 43.546442
      y = 2.4480785
      z = 0
      irot = 2059
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2060
      theta1 = 90
      phi1 = 5.3352941
      theta2 = 84
      phi2 = 95.335294
      theta3 = 6
      phi3 = -84.664706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 295
      chmoth = 'DC17'
      x = 43.426242
      y = 4.0555129
      z = 0
      irot = 2060
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2061
      theta1 = 90
      phi1 = 7.4529412
      theta2 = 84
      phi2 = 97.452941
      theta3 = 6
      phi3 = -82.547059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 296
      chmoth = 'DC17'
      x = 43.246727
      y = 5.657408
      z = 0
      irot = 2061
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2062
      theta1 = 90
      phi1 = 9.5705882
      theta2 = 84
      phi2 = 99.570588
      theta3 = 6
      phi3 = -80.429412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 297
      chmoth = 'DC17'
      x = 43.008142
      y = 7.2515757
      z = 0
      irot = 2062
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2063
      theta1 = 90
      phi1 = 11.688235
      theta2 = 84
      phi2 = 101.68824
      theta3 = 6
      phi3 = -78.311765
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 298
      chmoth = 'DC17'
      x = 42.710814
      y = 8.8358387
      z = 0
      irot = 2063
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2064
      theta1 = 90
      phi1 = 13.805882
      theta2 = 84
      phi2 = 103.80588
      theta3 = 6
      phi3 = -76.194118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 299
      chmoth = 'DC17'
      x = 42.355148
      y = 10.408033
      z = 0
      irot = 2064
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2065
      theta1 = 90
      phi1 = 15.923529
      theta2 = 84
      phi2 = 105.92353
      theta3 = 6
      phi3 = -74.076471
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 300
      chmoth = 'DC17'
      x = 41.941629
      y = 11.966011
      z = 0
      irot = 2065
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2066
      theta1 = 90
      phi1 = 18.041176
      theta2 = 84
      phi2 = 108.04118
      theta3 = 6
      phi3 = -71.958824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 301
      chmoth = 'DC17'
      x = 41.470823
      y = 13.507645
      z = 0
      irot = 2066
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2067
      theta1 = 90
      phi1 = 20.158824
      theta2 = 84
      phi2 = 110.15882
      theta3 = 6
      phi3 = -69.841176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 302
      chmoth = 'DC17'
      x = 40.943374
      y = 15.030829
      z = 0
      irot = 2067
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2068
      theta1 = 90
      phi1 = 22.276471
      theta2 = 84
      phi2 = 112.27647
      theta3 = 6
      phi3 = -67.723529
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 303
      chmoth = 'DC17'
      x = 40.36
      y = 16.533483
      z = 0
      irot = 2068
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2069
      theta1 = 90
      phi1 = 24.394118
      theta2 = 84
      phi2 = 114.39412
      theta3 = 6
      phi3 = -65.605882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 304
      chmoth = 'DC17'
      x = 39.7215
      y = 18.013554
      z = 0
      irot = 2069
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2070
      theta1 = 90
      phi1 = 26.511765
      theta2 = 84
      phi2 = 116.51176
      theta3 = 6
      phi3 = -63.488235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 305
      chmoth = 'DC17'
      x = 39.028744
      y = 19.469021
      z = 0
      irot = 2070
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2071
      theta1 = 90
      phi1 = 28.629412
      theta2 = 84
      phi2 = 118.62941
      theta3 = 6
      phi3 = -61.370588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 306
      chmoth = 'DC17'
      x = 38.282681
      y = 20.897896
      z = 0
      irot = 2071
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2072
      theta1 = 90
      phi1 = 30.747059
      theta2 = 84
      phi2 = 120.74706
      theta3 = 6
      phi3 = -59.252941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 307
      chmoth = 'DC17'
      x = 37.484327
      y = 22.298226
      z = 0
      irot = 2072
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2073
      theta1 = 90
      phi1 = 32.864706
      theta2 = 84
      phi2 = 122.86471
      theta3 = 6
      phi3 = -57.135294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 308
      chmoth = 'DC17'
      x = 36.634775
      y = 23.6681
      z = 0
      irot = 2073
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2074
      theta1 = 90
      phi1 = 34.982353
      theta2 = 84
      phi2 = 124.98235
      theta3 = 6
      phi3 = -55.017647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 309
      chmoth = 'DC17'
      x = 35.735184
      y = 25.005646
      z = 0
      irot = 2074
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2075
      theta1 = 90
      phi1 = 37.1
      theta2 = 84
      phi2 = 127.1
      theta3 = 6
      phi3 = -52.9
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 310
      chmoth = 'DC17'
      x = 34.786783
      y = 26.309037
      z = 0
      irot = 2075
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2076
      theta1 = 90
      phi1 = 39.217647
      theta2 = 84
      phi2 = 129.21765
      theta3 = 6
      phi3 = -50.782353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 311
      chmoth = 'DC17'
      x = 33.790867
      y = 27.576493
      z = 0
      irot = 2076
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2077
      theta1 = 90
      phi1 = 41.335294
      theta2 = 84
      phi2 = 131.33529
      theta3 = 6
      phi3 = -48.664706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 312
      chmoth = 'DC17'
      x = 32.748797
      y = 28.806283
      z = 0
      irot = 2077
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2078
      theta1 = 90
      phi1 = 43.452941
      theta2 = 84
      phi2 = 133.45294
      theta3 = 6
      phi3 = -46.547059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 313
      chmoth = 'DC17'
      x = 31.661996
      y = 29.996728
      z = 0
      irot = 2078
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2079
      theta1 = 90
      phi1 = 45.570588
      theta2 = 84
      phi2 = 135.57059
      theta3 = 6
      phi3 = -44.429412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 314
      chmoth = 'DC17'
      x = 30.531949
      y = 31.1462
      z = 0
      irot = 2079
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2080
      theta1 = 90
      phi1 = 47.688235
      theta2 = 84
      phi2 = 137.68824
      theta3 = 6
      phi3 = -42.311765
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 315
      chmoth = 'DC17'
      x = 29.360199
      y = 32.25313
      z = 0
      irot = 2080
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2081
      theta1 = 90
      phi1 = 49.805882
      theta2 = 84
      phi2 = 139.80588
      theta3 = 6
      phi3 = -40.194118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 316
      chmoth = 'DC17'
      x = 28.148346
      y = 33.316007
      z = 0
      irot = 2081
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2082
      theta1 = 90
      phi1 = 51.923529
      theta2 = 84
      phi2 = 141.92353
      theta3 = 6
      phi3 = -38.076471
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 317
      chmoth = 'DC17'
      x = 26.898046
      y = 34.333377
      z = 0
      irot = 2082
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2083
      theta1 = 90
      phi1 = 54.041176
      theta2 = 84
      phi2 = 144.04118
      theta3 = 6
      phi3 = -35.958824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 318
      chmoth = 'DC17'
      x = 25.611006
      y = 35.303853
      z = 0
      irot = 2083
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2084
      theta1 = 90
      phi1 = 56.158824
      theta2 = 84
      phi2 = 146.15882
      theta3 = 6
      phi3 = -33.841176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 319
      chmoth = 'DC17'
      x = 24.288985
      y = 36.226108
      z = 0
      irot = 2084
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2085
      theta1 = 90
      phi1 = 58.276471
      theta2 = 84
      phi2 = 148.27647
      theta3 = 6
      phi3 = -31.723529
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 320
      chmoth = 'DC17'
      x = 22.933788
      y = 37.098882
      z = 0
      irot = 2085
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2086
      theta1 = 90
      phi1 = 60.394118
      theta2 = 84
      phi2 = 150.39412
      theta3 = 6
      phi3 = -29.605882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 321
      chmoth = 'DC17'
      x = 21.547267
      y = 37.920983
      z = 0
      irot = 2086
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2087
      theta1 = 90
      phi1 = 62.511765
      theta2 = 84
      phi2 = 152.51176
      theta3 = 6
      phi3 = -27.488235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 322
      chmoth = 'DC17'
      x = 20.131314
      y = 38.691289
      z = 0
      irot = 2087
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2088
      theta1 = 90
      phi1 = 64.629412
      theta2 = 84
      phi2 = 154.62941
      theta3 = 6
      phi3 = -25.370588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 323
      chmoth = 'DC17'
      x = 18.687864
      y = 39.408748
      z = 0
      irot = 2088
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2089
      theta1 = 90
      phi1 = 66.747059
      theta2 = 84
      phi2 = 156.74706
      theta3 = 6
      phi3 = -23.252941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 324
      chmoth = 'DC17'
      x = 17.218889
      y = 40.072379
      z = 0
      irot = 2089
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2090
      theta1 = 90
      phi1 = 68.864706
      theta2 = 84
      phi2 = 158.86471
      theta3 = 6
      phi3 = -21.135294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 325
      chmoth = 'DC17'
      x = 15.726395
      y = 40.681275
      z = 0
      irot = 2090
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2091
      theta1 = 90
      phi1 = 70.982353
      theta2 = 84
      phi2 = 160.98235
      theta3 = 6
      phi3 = -19.017647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 326
      chmoth = 'DC17'
      x = 14.212421
      y = 41.234606
      z = 0
      irot = 2091
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2092
      theta1 = 90
      phi1 = 73.1
      theta2 = 84
      phi2 = 163.1
      theta3 = 6
      phi3 = -16.9
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 327
      chmoth = 'DC17'
      x = 12.679034
      y = 41.731616
      z = 0
      irot = 2092
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2093
      theta1 = 90
      phi1 = 75.217647
      theta2 = 84
      phi2 = 165.21765
      theta3 = 6
      phi3 = -14.782353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 328
      chmoth = 'DC17'
      x = 11.12833
      y = 42.171625
      z = 0
      irot = 2093
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2094
      theta1 = 90
      phi1 = 77.335294
      theta2 = 84
      phi2 = 167.33529
      theta3 = 6
      phi3 = -12.664706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 329
      chmoth = 'DC17'
      x = 9.5624248
      y = 42.554033
      z = 0
      irot = 2094
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2095
      theta1 = 90
      phi1 = 79.452941
      theta2 = 84
      phi2 = 169.45294
      theta3 = 6
      phi3 = -10.547059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 330
      chmoth = 'DC17'
      x = 7.9834589
      y = 42.878317
      z = 0
      irot = 2095
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2096
      theta1 = 90
      phi1 = 81.570588
      theta2 = 84
      phi2 = 171.57059
      theta3 = 6
      phi3 = -8.4294118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 331
      chmoth = 'DC17'
      x = 6.3935886
      y = 43.144034
      z = 0
      irot = 2096
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2097
      theta1 = 90
      phi1 = 83.688235
      theta2 = 84
      phi2 = 173.68824
      theta3 = 6
      phi3 = -6.3117647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 332
      chmoth = 'DC17'
      x = 4.7949854
      y = 43.350822
      z = 0
      irot = 2097
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2098
      theta1 = 90
      phi1 = 85.805882
      theta2 = 84
      phi2 = 175.80588
      theta3 = 6
      phi3 = -4.1941176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 333
      chmoth = 'DC17'
      x = 3.1898328
      y = 43.498398
      z = 0
      irot = 2098
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2099
      theta1 = 90
      phi1 = 87.923529
      theta2 = 84
      phi2 = 177.92353
      theta3 = 6
      phi3 = -2.0764706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 334
      chmoth = 'DC17'
      x = 1.5803233
      y = 43.58656
      z = 0
      irot = 2099
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2100
      theta1 = 90
      phi1 = 90.041176
      theta2 = 84
      phi2 = -179.95882
      theta3 = 6
      phi3 = 0.041176471
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 335
      chmoth = 'DC17'
      x = -0.031344714
      y = 43.615189
      z = 0
      irot = 2100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2101
      theta1 = 90
      phi1 = 92.158824
      theta2 = 84
      phi2 = -177.84118
      theta3 = 6
      phi3 = 2.1588235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 336
      chmoth = 'DC17'
      x = -1.6429699
      y = 43.584244
      z = 0
      irot = 2101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2102
      theta1 = 90
      phi1 = 94.276471
      theta2 = 84
      phi2 = -175.72353
      theta3 = 6
      phi3 = 4.2764706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 337
      chmoth = 'DC17'
      x = -3.252351
      y = 43.493768
      z = 0
      irot = 2102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2103
      theta1 = 90
      phi1 = 96.394118
      theta2 = 84
      phi2 = -173.60588
      theta3 = 6
      phi3 = 6.3941176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 338
      chmoth = 'DC17'
      x = -4.8572898
      y = 43.343885
      z = 0
      irot = 2103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2104
      theta1 = 90
      phi1 = 98.511765
      theta2 = 84
      phi2 = -171.48824
      theta3 = 6
      phi3 = 8.5117647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 339
      chmoth = 'DC17'
      x = -6.4555942
      y = 43.1348
      z = 0
      irot = 2104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2105
      theta1 = 90
      phi1 = 100.62941
      theta2 = 84
      phi2 = -169.37059
      theta3 = 6
      phi3 = 10.629412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 340
      chmoth = 'DC17'
      x = -8.0450809
      y = 42.866798
      z = 0
      irot = 2105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2106
      theta1 = 90
      phi1 = 102.74706
      theta2 = 84
      phi2 = -167.25294
      theta3 = 6
      phi3 = 12.747059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 341
      chmoth = 'DC17'
      x = -9.6235791
      y = 42.540244
      z = 0
      irot = 2106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2107
      theta1 = 90
      phi1 = 104.86471
      theta2 = 84
      phi2 = -165.13529
      theta3 = 6
      phi3 = 14.864706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 342
      chmoth = 'DC17'
      x = -11.188933
      y = 42.155586
      z = 0
      irot = 2107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2108
      theta1 = 90
      phi1 = 106.98235
      theta2 = 84
      phi2 = -163.01765
      theta3 = 6
      phi3 = 16.982353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 343
      chmoth = 'DC17'
      x = -12.739003
      y = 41.713349
      z = 0
      irot = 2108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2109
      theta1 = 90
      phi1 = 109.1
      theta2 = 84
      phi2 = -160.9
      theta3 = 6
      phi3 = 19.1
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 344
      chmoth = 'DC17'
      x = -14.271674
      y = 41.214136
      z = 0
      irot = 2109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2110
      theta1 = 90
      phi1 = 111.21765
      theta2 = 84
      phi2 = -158.78235
      theta3 = 6
      phi3 = 21.217647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 345
      chmoth = 'DC17'
      x = -15.784852
      y = 40.658629
      z = 0
      irot = 2110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2111
      theta1 = 90
      phi1 = 113.33529
      theta2 = 84
      phi2 = -156.66471
      theta3 = 6
      phi3 = 23.335294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 346
      chmoth = 'DC17'
      x = -17.276469
      y = 40.047588
      z = 0
      irot = 2111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2112
      theta1 = 90
      phi1 = 115.45294
      theta2 = 84
      phi2 = -154.54706
      theta3 = 6
      phi3 = 25.452941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 347
      chmoth = 'DC17'
      x = -18.744488
      y = 39.381846
      z = 0
      irot = 2112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2113
      theta1 = 90
      phi1 = 117.57059
      theta2 = 84
      phi2 = -152.42941
      theta3 = 6
      phi3 = 27.570588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 348
      chmoth = 'DC17'
      x = -20.186905
      y = 38.662314
      z = 0
      irot = 2113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2114
      theta1 = 90
      phi1 = 119.68824
      theta2 = 84
      phi2 = -150.31176
      theta3 = 6
      phi3 = 29.688235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 349
      chmoth = 'DC17'
      x = -21.601749
      y = 37.889974
      z = 0
      irot = 2114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2115
      theta1 = 90
      phi1 = 121.80588
      theta2 = 84
      phi2 = -148.19412
      theta3 = 6
      phi3 = 31.805882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 350
      chmoth = 'DC17'
      x = -22.987088
      y = 37.06588
      z = 0
      irot = 2115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2116
      theta1 = 90
      phi1 = 123.92353
      theta2 = 84
      phi2 = -146.07647
      theta3 = 6
      phi3 = 33.923529
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 351
      chmoth = 'DC17'
      x = -24.341029
      y = 36.191159
      z = 0
      irot = 2116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2117
      theta1 = 90
      phi1 = 126.04118
      theta2 = 84
      phi2 = -143.95882
      theta3 = 6
      phi3 = 36.041176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 352
      chmoth = 'DC17'
      x = -25.661723
      y = 35.267005
      z = 0
      irot = 2117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2118
      theta1 = 90
      phi1 = 128.15882
      theta2 = 84
      phi2 = -141.84118
      theta3 = 6
      phi3 = 38.158824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 353
      chmoth = 'DC17'
      x = -26.947366
      y = 34.294681
      z = 0
      irot = 2118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2119
      theta1 = 90
      phi1 = 130.27647
      theta2 = 84
      phi2 = -139.72353
      theta3 = 6
      phi3 = 40.276471
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 354
      chmoth = 'DC17'
      x = -28.196203
      y = 33.275514
      z = 0
      irot = 2119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2120
      theta1 = 90
      phi1 = 132.39412
      theta2 = 84
      phi2 = -137.60588
      theta3 = 6
      phi3 = 42.394118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 355
      chmoth = 'DC17'
      x = -29.406527
      y = 32.210897
      z = 0
      irot = 2120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2121
      theta1 = 90
      phi1 = 134.51176
      theta2 = 84
      phi2 = -135.48824
      theta3 = 6
      phi3 = 44.511765
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 356
      chmoth = 'DC17'
      x = -30.576685
      y = 31.102283
      z = 0
      irot = 2121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2122
      theta1 = 90
      phi1 = 136.62941
      theta2 = 84
      phi2 = -133.37059
      theta3 = 6
      phi3 = 46.629412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 357
      chmoth = 'DC17'
      x = -31.705079
      y = 29.951188
      z = 0
      irot = 2122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2123
      theta1 = 90
      phi1 = 138.74706
      theta2 = 84
      phi2 = -131.25294
      theta3 = 6
      phi3 = 48.747059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 358
      chmoth = 'DC17'
      x = -32.790167
      y = 28.759183
      z = 0
      irot = 2123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2124
      theta1 = 90
      phi1 = 140.86471
      theta2 = 84
      phi2 = -129.13529
      theta3 = 6
      phi3 = 50.864706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 359
      chmoth = 'DC17'
      x = -33.830469
      y = 27.527896
      z = 0
      irot = 2124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2125
      theta1 = 90
      phi1 = 142.98235
      theta2 = 84
      phi2 = -127.01765
      theta3 = 6
      phi3 = 52.982353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 360
      chmoth = 'DC17'
      x = -34.824561
      y = 26.25901
      z = 0
      irot = 2125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2126
      theta1 = 90
      phi1 = 145.1
      theta2 = 84
      phi2 = -124.9
      theta3 = 6
      phi3 = 55.1
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 361
      chmoth = 'DC17'
      x = -35.771088
      y = 24.954257
      z = 0
      irot = 2126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2127
      theta1 = 90
      phi1 = 147.21765
      theta2 = 84
      phi2 = -122.78235
      theta3 = 6
      phi3 = 57.217647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 362
      chmoth = 'DC17'
      x = -36.668756
      y = 23.615419
      z = 0
      irot = 2127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2128
      theta1 = 90
      phi1 = 149.33529
      theta2 = 84
      phi2 = -120.66471
      theta3 = 6
      phi3 = 59.335294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 363
      chmoth = 'DC17'
      x = -37.516338
      y = 22.244326
      z = 0
      irot = 2128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2129
      theta1 = 90
      phi1 = 151.45294
      theta2 = 84
      phi2 = -118.54706
      theta3 = 6
      phi3 = 61.452941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 364
      chmoth = 'DC17'
      x = -38.312678
      y = 20.842849
      z = 0
      irot = 2129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2130
      theta1 = 90
      phi1 = 153.57059
      theta2 = 84
      phi2 = -116.42941
      theta3 = 6
      phi3 = 63.570588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 365
      chmoth = 'DC17'
      x = -39.056687
      y = 19.412904
      z = 0
      irot = 2130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2131
      theta1 = 90
      phi1 = 155.68824
      theta2 = 84
      phi2 = -114.31176
      theta3 = 6
      phi3 = 65.688235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 366
      chmoth = 'DC17'
      x = -39.74735
      y = 17.956443
      z = 0
      irot = 2131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2132
      theta1 = 90
      phi1 = 157.80588
      theta2 = 84
      phi2 = -112.19412
      theta3 = 6
      phi3 = 67.805882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 367
      chmoth = 'DC17'
      x = -40.383722
      y = 16.475456
      z = 0
      irot = 2132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2133
      theta1 = 90
      phi1 = 159.92353
      theta2 = 84
      phi2 = -110.07647
      theta3 = 6
      phi3 = 69.923529
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 368
      chmoth = 'DC17'
      x = -40.964936
      y = 14.971965
      z = 0
      irot = 2133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2134
      theta1 = 90
      phi1 = 162.04118
      theta2 = 84
      phi2 = -107.95882
      theta3 = 6
      phi3 = 72.041176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 369
      chmoth = 'DC17'
      x = -41.490196
      y = 13.448024
      z = 0
      irot = 2134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2135
      theta1 = 90
      phi1 = 164.15882
      theta2 = 84
      phi2 = -105.84118
      theta3 = 6
      phi3 = 74.158824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 370
      chmoth = 'DC17'
      x = -41.958785
      y = 11.905715
      z = 0
      irot = 2135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2136
      theta1 = 90
      phi1 = 166.27647
      theta2 = 84
      phi2 = -103.72353
      theta3 = 6
      phi3 = 76.276471
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 371
      chmoth = 'DC17'
      x = -42.370064
      y = 10.347144
      z = 0
      irot = 2136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2137
      theta1 = 90
      phi1 = 168.39412
      theta2 = 84
      phi2 = -101.60588
      theta3 = 6
      phi3 = 78.394118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 372
      chmoth = 'DC17'
      x = -42.72347
      y = 8.7744401
      z = 0
      irot = 2137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2138
      theta1 = 90
      phi1 = 170.51176
      theta2 = 84
      phi2 = -99.488235
      theta3 = 6
      phi3 = 80.511765
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 373
      chmoth = 'DC17'
      x = -43.018521
      y = 7.1897514
      z = 0
      irot = 2138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2139
      theta1 = 90
      phi1 = 172.62941
      theta2 = 84
      phi2 = -97.370588
      theta3 = 6
      phi3 = 82.629412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 374
      chmoth = 'DC17'
      x = -43.254814
      y = 5.5952424
      z = 0
      irot = 2139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2140
      theta1 = 90
      phi1 = 174.74706
      theta2 = 84
      phi2 = -95.252941
      theta3 = 6
      phi3 = 84.747059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 375
      chmoth = 'DC17'
      x = -43.432026
      y = 3.9930909
      z = 0
      irot = 2140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2141
      theta1 = 90
      phi1 = 176.86471
      theta2 = 84
      phi2 = -93.135294
      theta3 = 6
      phi3 = 86.864706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 376
      chmoth = 'DC17'
      x = -43.549915
      y = 2.3854854
      z = 0
      irot = 2141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2142
      theta1 = 90
      phi1 = 178.98235
      theta2 = 84
      phi2 = -91.017647
      theta3 = 6
      phi3 = 88.982353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 377
      chmoth = 'DC17'
      x = -43.608321
      y = 0.77462157
      z = 0
      irot = 2142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2143
      theta1 = 90
      phi1 = -178.9
      theta2 = 84
      phi2 = -88.9
      theta3 = 6
      phi3 = 91.1
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 378
      chmoth = 'DC17'
      x = -43.607162
      y = -0.83730029
      z = 0
      irot = 2143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2144
      theta1 = 90
      phi1 = -176.78235
      theta2 = 84
      phi2 = -86.782353
      theta3 = 6
      phi3 = 93.217647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 379
      chmoth = 'DC17'
      x = -43.546442
      y = -2.4480785
      z = 0
      irot = 2144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2145
      theta1 = 90
      phi1 = -174.66471
      theta2 = 84
      phi2 = -84.664706
      theta3 = 6
      phi3 = 95.335294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 380
      chmoth = 'DC17'
      x = -43.426242
      y = -4.0555129
      z = 0
      irot = 2145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2146
      theta1 = 90
      phi1 = -172.54706
      theta2 = 84
      phi2 = -82.547059
      theta3 = 6
      phi3 = 97.452941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 381
      chmoth = 'DC17'
      x = -43.246727
      y = -5.657408
      z = 0
      irot = 2146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2147
      theta1 = 90
      phi1 = -170.42941
      theta2 = 84
      phi2 = -80.429412
      theta3 = 6
      phi3 = 99.570588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 382
      chmoth = 'DC17'
      x = -43.008142
      y = -7.2515757
      z = 0
      irot = 2147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2148
      theta1 = 90
      phi1 = -168.31176
      theta2 = 84
      phi2 = -78.311765
      theta3 = 6
      phi3 = 101.68824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 383
      chmoth = 'DC17'
      x = -42.710814
      y = -8.8358387
      z = 0
      irot = 2148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2149
      theta1 = 90
      phi1 = -166.19412
      theta2 = 84
      phi2 = -76.194118
      theta3 = 6
      phi3 = 103.80588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 384
      chmoth = 'DC17'
      x = -42.355148
      y = -10.408033
      z = 0
      irot = 2149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2150
      theta1 = 90
      phi1 = -164.07647
      theta2 = 84
      phi2 = -74.076471
      theta3 = 6
      phi3 = 105.92353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 385
      chmoth = 'DC17'
      x = -41.941629
      y = -11.966011
      z = 0
      irot = 2150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2151
      theta1 = 90
      phi1 = -161.95882
      theta2 = 84
      phi2 = -71.958824
      theta3 = 6
      phi3 = 108.04118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 386
      chmoth = 'DC17'
      x = -41.470823
      y = -13.507645
      z = 0
      irot = 2151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2152
      theta1 = 90
      phi1 = -159.84118
      theta2 = 84
      phi2 = -69.841176
      theta3 = 6
      phi3 = 110.15882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 387
      chmoth = 'DC17'
      x = -40.943374
      y = -15.030829
      z = 0
      irot = 2152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2153
      theta1 = 90
      phi1 = -157.72353
      theta2 = 84
      phi2 = -67.723529
      theta3 = 6
      phi3 = 112.27647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 388
      chmoth = 'DC17'
      x = -40.36
      y = -16.533483
      z = 0
      irot = 2153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2154
      theta1 = 90
      phi1 = -155.60588
      theta2 = 84
      phi2 = -65.605882
      theta3 = 6
      phi3 = 114.39412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 389
      chmoth = 'DC17'
      x = -39.7215
      y = -18.013554
      z = 0
      irot = 2154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2155
      theta1 = 90
      phi1 = -153.48824
      theta2 = 84
      phi2 = -63.488235
      theta3 = 6
      phi3 = 116.51176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 390
      chmoth = 'DC17'
      x = -39.028744
      y = -19.469021
      z = 0
      irot = 2155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2156
      theta1 = 90
      phi1 = -151.37059
      theta2 = 84
      phi2 = -61.370588
      theta3 = 6
      phi3 = 118.62941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 391
      chmoth = 'DC17'
      x = -38.282681
      y = -20.897896
      z = 0
      irot = 2156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2157
      theta1 = 90
      phi1 = -149.25294
      theta2 = 84
      phi2 = -59.252941
      theta3 = 6
      phi3 = 120.74706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 392
      chmoth = 'DC17'
      x = -37.484327
      y = -22.298226
      z = 0
      irot = 2157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2158
      theta1 = 90
      phi1 = -147.13529
      theta2 = 84
      phi2 = -57.135294
      theta3 = 6
      phi3 = 122.86471
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 393
      chmoth = 'DC17'
      x = -36.634775
      y = -23.6681
      z = 0
      irot = 2158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2159
      theta1 = 90
      phi1 = -145.01765
      theta2 = 84
      phi2 = -55.017647
      theta3 = 6
      phi3 = 124.98235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 394
      chmoth = 'DC17'
      x = -35.735184
      y = -25.005646
      z = 0
      irot = 2159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2160
      theta1 = 90
      phi1 = -142.9
      theta2 = 84
      phi2 = -52.9
      theta3 = 6
      phi3 = 127.1
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 395
      chmoth = 'DC17'
      x = -34.786783
      y = -26.309037
      z = 0
      irot = 2160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2161
      theta1 = 90
      phi1 = -140.78235
      theta2 = 84
      phi2 = -50.782353
      theta3 = 6
      phi3 = 129.21765
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 396
      chmoth = 'DC17'
      x = -33.790867
      y = -27.576493
      z = 0
      irot = 2161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2162
      theta1 = 90
      phi1 = -138.66471
      theta2 = 84
      phi2 = -48.664706
      theta3 = 6
      phi3 = 131.33529
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 397
      chmoth = 'DC17'
      x = -32.748797
      y = -28.806283
      z = 0
      irot = 2162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2163
      theta1 = 90
      phi1 = -136.54706
      theta2 = 84
      phi2 = -46.547059
      theta3 = 6
      phi3 = 133.45294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 398
      chmoth = 'DC17'
      x = -31.661996
      y = -29.996728
      z = 0
      irot = 2163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2164
      theta1 = 90
      phi1 = -134.42941
      theta2 = 84
      phi2 = -44.429412
      theta3 = 6
      phi3 = 135.57059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 399
      chmoth = 'DC17'
      x = -30.531949
      y = -31.1462
      z = 0
      irot = 2164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2165
      theta1 = 90
      phi1 = -132.31176
      theta2 = 84
      phi2 = -42.311765
      theta3 = 6
      phi3 = 137.68824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 400
      chmoth = 'DC17'
      x = -29.360199
      y = -32.25313
      z = 0
      irot = 2165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2166
      theta1 = 90
      phi1 = -130.19412
      theta2 = 84
      phi2 = -40.194118
      theta3 = 6
      phi3 = 139.80588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 401
      chmoth = 'DC17'
      x = -28.148346
      y = -33.316007
      z = 0
      irot = 2166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2167
      theta1 = 90
      phi1 = -128.07647
      theta2 = 84
      phi2 = -38.076471
      theta3 = 6
      phi3 = 141.92353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 402
      chmoth = 'DC17'
      x = -26.898046
      y = -34.333377
      z = 0
      irot = 2167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2168
      theta1 = 90
      phi1 = -125.95882
      theta2 = 84
      phi2 = -35.958824
      theta3 = 6
      phi3 = 144.04118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 403
      chmoth = 'DC17'
      x = -25.611006
      y = -35.303853
      z = 0
      irot = 2168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2169
      theta1 = 90
      phi1 = -123.84118
      theta2 = 84
      phi2 = -33.841176
      theta3 = 6
      phi3 = 146.15882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 404
      chmoth = 'DC17'
      x = -24.288985
      y = -36.226108
      z = 0
      irot = 2169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2170
      theta1 = 90
      phi1 = -121.72353
      theta2 = 84
      phi2 = -31.723529
      theta3 = 6
      phi3 = 148.27647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 405
      chmoth = 'DC17'
      x = -22.933788
      y = -37.098882
      z = 0
      irot = 2170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2171
      theta1 = 90
      phi1 = -119.60588
      theta2 = 84
      phi2 = -29.605882
      theta3 = 6
      phi3 = 150.39412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 406
      chmoth = 'DC17'
      x = -21.547267
      y = -37.920983
      z = 0
      irot = 2171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2172
      theta1 = 90
      phi1 = -117.48824
      theta2 = 84
      phi2 = -27.488235
      theta3 = 6
      phi3 = 152.51176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 407
      chmoth = 'DC17'
      x = -20.131314
      y = -38.691289
      z = 0
      irot = 2172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2173
      theta1 = 90
      phi1 = -115.37059
      theta2 = 84
      phi2 = -25.370588
      theta3 = 6
      phi3 = 154.62941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 408
      chmoth = 'DC17'
      x = -18.687864
      y = -39.408748
      z = 0
      irot = 2173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2174
      theta1 = 90
      phi1 = -113.25294
      theta2 = 84
      phi2 = -23.252941
      theta3 = 6
      phi3 = 156.74706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 409
      chmoth = 'DC17'
      x = -17.218889
      y = -40.072379
      z = 0
      irot = 2174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2175
      theta1 = 90
      phi1 = -111.13529
      theta2 = 84
      phi2 = -21.135294
      theta3 = 6
      phi3 = 158.86471
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 410
      chmoth = 'DC17'
      x = -15.726395
      y = -40.681275
      z = 0
      irot = 2175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2176
      theta1 = 90
      phi1 = -109.01765
      theta2 = 84
      phi2 = -19.017647
      theta3 = 6
      phi3 = 160.98235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 411
      chmoth = 'DC17'
      x = -14.212421
      y = -41.234606
      z = 0
      irot = 2176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2177
      theta1 = 90
      phi1 = -106.9
      theta2 = 84
      phi2 = -16.9
      theta3 = 6
      phi3 = 163.1
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 412
      chmoth = 'DC17'
      x = -12.679034
      y = -41.731616
      z = 0
      irot = 2177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2178
      theta1 = 90
      phi1 = -104.78235
      theta2 = 84
      phi2 = -14.782353
      theta3 = 6
      phi3 = 165.21765
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 413
      chmoth = 'DC17'
      x = -11.12833
      y = -42.171625
      z = 0
      irot = 2178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2179
      theta1 = 90
      phi1 = -102.66471
      theta2 = 84
      phi2 = -12.664706
      theta3 = 6
      phi3 = 167.33529
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 414
      chmoth = 'DC17'
      x = -9.5624248
      y = -42.554033
      z = 0
      irot = 2179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2180
      theta1 = 90
      phi1 = -100.54706
      theta2 = 84
      phi2 = -10.547059
      theta3 = 6
      phi3 = 169.45294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 415
      chmoth = 'DC17'
      x = -7.9834589
      y = -42.878317
      z = 0
      irot = 2180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2181
      theta1 = 90
      phi1 = -98.429412
      theta2 = 84
      phi2 = -8.4294118
      theta3 = 6
      phi3 = 171.57059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 416
      chmoth = 'DC17'
      x = -6.3935886
      y = -43.144034
      z = 0
      irot = 2181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2182
      theta1 = 90
      phi1 = -96.311765
      theta2 = 84
      phi2 = -6.3117647
      theta3 = 6
      phi3 = 173.68824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 417
      chmoth = 'DC17'
      x = -4.7949854
      y = -43.350822
      z = 0
      irot = 2182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2183
      theta1 = 90
      phi1 = -94.194118
      theta2 = 84
      phi2 = -4.1941176
      theta3 = 6
      phi3 = 175.80588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 418
      chmoth = 'DC17'
      x = -3.1898328
      y = -43.498398
      z = 0
      irot = 2183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2184
      theta1 = 90
      phi1 = -92.076471
      theta2 = 84
      phi2 = -2.0764706
      theta3 = 6
      phi3 = 177.92353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 419
      chmoth = 'DC17'
      x = -1.5803233
      y = -43.58656
      z = 0
      irot = 2184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2185
      theta1 = 90
      phi1 = -89.958824
      theta2 = 84
      phi2 = 0.041176471
      theta3 = 6
      phi3 = -179.95882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 420
      chmoth = 'DC17'
      x = 0.031344714
      y = -43.615189
      z = 0
      irot = 2185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2186
      theta1 = 90
      phi1 = -87.841176
      theta2 = 84
      phi2 = 2.1588235
      theta3 = 6
      phi3 = -177.84118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 421
      chmoth = 'DC17'
      x = 1.6429699
      y = -43.584244
      z = 0
      irot = 2186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2187
      theta1 = 90
      phi1 = -85.723529
      theta2 = 84
      phi2 = 4.2764706
      theta3 = 6
      phi3 = -175.72353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 422
      chmoth = 'DC17'
      x = 3.252351
      y = -43.493768
      z = 0
      irot = 2187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2188
      theta1 = 90
      phi1 = -83.605882
      theta2 = 84
      phi2 = 6.3941176
      theta3 = 6
      phi3 = -173.60588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 423
      chmoth = 'DC17'
      x = 4.8572898
      y = -43.343885
      z = 0
      irot = 2188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2189
      theta1 = 90
      phi1 = -81.488235
      theta2 = 84
      phi2 = 8.5117647
      theta3 = 6
      phi3 = -171.48824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 424
      chmoth = 'DC17'
      x = 6.4555942
      y = -43.1348
      z = 0
      irot = 2189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2190
      theta1 = 90
      phi1 = -79.370588
      theta2 = 84
      phi2 = 10.629412
      theta3 = 6
      phi3 = -169.37059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 425
      chmoth = 'DC17'
      x = 8.0450809
      y = -42.866798
      z = 0
      irot = 2190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2191
      theta1 = 90
      phi1 = -77.252941
      theta2 = 84
      phi2 = 12.747059
      theta3 = 6
      phi3 = -167.25294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 426
      chmoth = 'DC17'
      x = 9.6235791
      y = -42.540244
      z = 0
      irot = 2191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2192
      theta1 = 90
      phi1 = -75.135294
      theta2 = 84
      phi2 = 14.864706
      theta3 = 6
      phi3 = -165.13529
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 427
      chmoth = 'DC17'
      x = 11.188933
      y = -42.155586
      z = 0
      irot = 2192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2193
      theta1 = 90
      phi1 = -73.017647
      theta2 = 84
      phi2 = 16.982353
      theta3 = 6
      phi3 = -163.01765
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 428
      chmoth = 'DC17'
      x = 12.739003
      y = -41.713349
      z = 0
      irot = 2193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2194
      theta1 = 90
      phi1 = -70.9
      theta2 = 84
      phi2 = 19.1
      theta3 = 6
      phi3 = -160.9
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 429
      chmoth = 'DC17'
      x = 14.271674
      y = -41.214136
      z = 0
      irot = 2194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2195
      theta1 = 90
      phi1 = -68.782353
      theta2 = 84
      phi2 = 21.217647
      theta3 = 6
      phi3 = -158.78235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 430
      chmoth = 'DC17'
      x = 15.784852
      y = -40.658629
      z = 0
      irot = 2195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2196
      theta1 = 90
      phi1 = -66.664706
      theta2 = 84
      phi2 = 23.335294
      theta3 = 6
      phi3 = -156.66471
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 431
      chmoth = 'DC17'
      x = 17.276469
      y = -40.047588
      z = 0
      irot = 2196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2197
      theta1 = 90
      phi1 = -64.547059
      theta2 = 84
      phi2 = 25.452941
      theta3 = 6
      phi3 = -154.54706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 432
      chmoth = 'DC17'
      x = 18.744488
      y = -39.381846
      z = 0
      irot = 2197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2198
      theta1 = 90
      phi1 = -62.429412
      theta2 = 84
      phi2 = 27.570588
      theta3 = 6
      phi3 = -152.42941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 433
      chmoth = 'DC17'
      x = 20.186905
      y = -38.662314
      z = 0
      irot = 2198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2199
      theta1 = 90
      phi1 = -60.311765
      theta2 = 84
      phi2 = 29.688235
      theta3 = 6
      phi3 = -150.31176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 434
      chmoth = 'DC17'
      x = 21.601749
      y = -37.889974
      z = 0
      irot = 2199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2200
      theta1 = 90
      phi1 = -58.194118
      theta2 = 84
      phi2 = 31.805882
      theta3 = 6
      phi3 = -148.19412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 435
      chmoth = 'DC17'
      x = 22.987088
      y = -37.06588
      z = 0
      irot = 2200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2201
      theta1 = 90
      phi1 = -56.076471
      theta2 = 84
      phi2 = 33.923529
      theta3 = 6
      phi3 = -146.07647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 436
      chmoth = 'DC17'
      x = 24.341029
      y = -36.191159
      z = 0
      irot = 2201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2202
      theta1 = 90
      phi1 = -53.958824
      theta2 = 84
      phi2 = 36.041176
      theta3 = 6
      phi3 = -143.95882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 437
      chmoth = 'DC17'
      x = 25.661723
      y = -35.267005
      z = 0
      irot = 2202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2203
      theta1 = 90
      phi1 = -51.841176
      theta2 = 84
      phi2 = 38.158824
      theta3 = 6
      phi3 = -141.84118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 438
      chmoth = 'DC17'
      x = 26.947366
      y = -34.294681
      z = 0
      irot = 2203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2204
      theta1 = 90
      phi1 = -49.723529
      theta2 = 84
      phi2 = 40.276471
      theta3 = 6
      phi3 = -139.72353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 439
      chmoth = 'DC17'
      x = 28.196203
      y = -33.275514
      z = 0
      irot = 2204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2205
      theta1 = 90
      phi1 = -47.605882
      theta2 = 84
      phi2 = 42.394118
      theta3 = 6
      phi3 = -137.60588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 440
      chmoth = 'DC17'
      x = 29.406527
      y = -32.210897
      z = 0
      irot = 2205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2206
      theta1 = 90
      phi1 = -45.488235
      theta2 = 84
      phi2 = 44.511765
      theta3 = 6
      phi3 = -135.48824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 441
      chmoth = 'DC17'
      x = 30.576685
      y = -31.102283
      z = 0
      irot = 2206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2207
      theta1 = 90
      phi1 = -43.370588
      theta2 = 84
      phi2 = 46.629412
      theta3 = 6
      phi3 = -133.37059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 442
      chmoth = 'DC17'
      x = 31.705079
      y = -29.951188
      z = 0
      irot = 2207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2208
      theta1 = 90
      phi1 = -41.252941
      theta2 = 84
      phi2 = 48.747059
      theta3 = 6
      phi3 = -131.25294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 443
      chmoth = 'DC17'
      x = 32.790167
      y = -28.759183
      z = 0
      irot = 2208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2209
      theta1 = 90
      phi1 = -39.135294
      theta2 = 84
      phi2 = 50.864706
      theta3 = 6
      phi3 = -129.13529
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 444
      chmoth = 'DC17'
      x = 33.830469
      y = -27.527896
      z = 0
      irot = 2209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2210
      theta1 = 90
      phi1 = -37.017647
      theta2 = 84
      phi2 = 52.982353
      theta3 = 6
      phi3 = -127.01765
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 445
      chmoth = 'DC17'
      x = 34.824561
      y = -26.25901
      z = 0
      irot = 2210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2211
      theta1 = 90
      phi1 = -34.9
      theta2 = 84
      phi2 = 55.1
      theta3 = 6
      phi3 = -124.9
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 446
      chmoth = 'DC17'
      x = 35.771088
      y = -24.954257
      z = 0
      irot = 2211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2212
      theta1 = 90
      phi1 = -32.782353
      theta2 = 84
      phi2 = 57.217647
      theta3 = 6
      phi3 = -122.78235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 447
      chmoth = 'DC17'
      x = 36.668756
      y = -23.615419
      z = 0
      irot = 2212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2213
      theta1 = 90
      phi1 = -30.664706
      theta2 = 84
      phi2 = 59.335294
      theta3 = 6
      phi3 = -120.66471
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 448
      chmoth = 'DC17'
      x = 37.516338
      y = -22.244326
      z = 0
      irot = 2213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2214
      theta1 = 90
      phi1 = -28.547059
      theta2 = 84
      phi2 = 61.452941
      theta3 = 6
      phi3 = -118.54706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 449
      chmoth = 'DC17'
      x = 38.312678
      y = -20.842849
      z = 0
      irot = 2214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2215
      theta1 = 90
      phi1 = -26.429412
      theta2 = 84
      phi2 = 63.570588
      theta3 = 6
      phi3 = -116.42941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 450
      chmoth = 'DC17'
      x = 39.056687
      y = -19.412904
      z = 0
      irot = 2215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2216
      theta1 = 90
      phi1 = -24.311765
      theta2 = 84
      phi2 = 65.688235
      theta3 = 6
      phi3 = -114.31176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 451
      chmoth = 'DC17'
      x = 39.74735
      y = -17.956443
      z = 0
      irot = 2216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2217
      theta1 = 90
      phi1 = -22.194118
      theta2 = 84
      phi2 = 67.805882
      theta3 = 6
      phi3 = -112.19412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 452
      chmoth = 'DC17'
      x = 40.383722
      y = -16.475456
      z = 0
      irot = 2217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2218
      theta1 = 90
      phi1 = -20.076471
      theta2 = 84
      phi2 = 69.923529
      theta3 = 6
      phi3 = -110.07647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 453
      chmoth = 'DC17'
      x = 40.964936
      y = -14.971965
      z = 0
      irot = 2218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2219
      theta1 = 90
      phi1 = -17.958824
      theta2 = 84
      phi2 = 72.041176
      theta3 = 6
      phi3 = -107.95882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 454
      chmoth = 'DC17'
      x = 41.490196
      y = -13.448024
      z = 0
      irot = 2219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2220
      theta1 = 90
      phi1 = -15.841176
      theta2 = 84
      phi2 = 74.158824
      theta3 = 6
      phi3 = -105.84118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 455
      chmoth = 'DC17'
      x = 41.958785
      y = -11.905715
      z = 0
      irot = 2220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2221
      theta1 = 90
      phi1 = -13.723529
      theta2 = 84
      phi2 = 76.276471
      theta3 = 6
      phi3 = -103.72353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 456
      chmoth = 'DC17'
      x = 42.370064
      y = -10.347144
      z = 0
      irot = 2221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2222
      theta1 = 90
      phi1 = -11.605882
      theta2 = 84
      phi2 = 78.394118
      theta3 = 6
      phi3 = -101.60588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 457
      chmoth = 'DC17'
      x = 42.72347
      y = -8.7744401
      z = 0
      irot = 2222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2223
      theta1 = 90
      phi1 = -9.4882353
      theta2 = 84
      phi2 = 80.511765
      theta3 = 6
      phi3 = -99.488235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 458
      chmoth = 'DC17'
      x = 43.018521
      y = -7.1897514
      z = 0
      irot = 2223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2224
      theta1 = 90
      phi1 = -7.3705882
      theta2 = 84
      phi2 = 82.629412
      theta3 = 6
      phi3 = -97.370588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 459
      chmoth = 'DC17'
      x = 43.254814
      y = -5.5952424
      z = 0
      irot = 2224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2225
      theta1 = 90
      phi1 = -5.2529412
      theta2 = 84
      phi2 = 84.747059
      theta3 = 6
      phi3 = -95.252941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 460
      chmoth = 'DC17'
      x = 43.432026
      y = -3.9930909
      z = 0
      irot = 2225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2226
      theta1 = 90
      phi1 = -3.1352941
      theta2 = 84
      phi2 = 86.864706
      theta3 = 6
      phi3 = -93.135294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 461
      chmoth = 'DC17'
      x = 43.549915
      y = -2.3854854
      z = 0
      irot = 2226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2227
      theta1 = 90
      phi1 = -1.0176471
      theta2 = 84
      phi2 = 88.982353
      theta3 = 6
      phi3 = -91.017647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 462
      chmoth = 'DC17'
      x = 43.608321
      y = -0.77462157
      z = 0
      irot = 2227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2228
      theta1 = 90.109325
      phi1 = 1.1
      theta2 = 83.811421
      phi2 = 91.088146
      theta3 = 6.1895518
      phi3 = -87.891881
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 463
      chmoth = 'DC17'
      x = 44.978239
      y = 1.6955176
      z = 0
      irot = 2228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2229
      theta1 = 90.109325
      phi1 = 3.2176471
      theta2 = 83.811421
      phi2 = 93.205793
      theta3 = 6.1895518
      phi3 = -85.774234
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 464
      chmoth = 'DC17'
      x = 44.88487
      y = 3.3563731
      z = 0
      irot = 2229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2230
      theta1 = 90.109325
      phi1 = 5.3352941
      theta2 = 83.811421
      phi2 = 95.32344
      theta3 = 6.1895518
      phi3 = -83.656587
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 465
      chmoth = 'DC17'
      x = 44.730193
      y = 5.0126441
      z = 0
      irot = 2230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2231
      theta1 = 90.109325
      phi1 = 7.4529412
      theta2 = 83.811421
      phi2 = 97.441087
      theta3 = 6.1895518
      phi3 = -81.53894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 466
      chmoth = 'DC17'
      x = 44.514421
      y = 6.6620685
      z = 0
      irot = 2231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2232
      theta1 = 90.109325
      phi1 = 9.5705882
      theta2 = 83.811421
      phi2 = 99.558734
      theta3 = 6.1895518
      phi3 = -79.421293
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 467
      chmoth = 'DC17'
      x = 44.237846
      y = 8.3023933
      z = 0
      irot = 2232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2233
      theta1 = 90.109325
      phi1 = 11.688235
      theta2 = 83.811421
      phi2 = 101.67638
      theta3 = 6.1895518
      phi3 = -77.303646
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 468
      chmoth = 'DC17'
      x = 43.900849
      y = 9.931378
      z = 0
      irot = 2233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2234
      theta1 = 90.109325
      phi1 = 13.805882
      theta2 = 83.811421
      phi2 = 103.79403
      theta3 = 6.1895518
      phi3 = -75.185999
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 469
      chmoth = 'DC17'
      x = 43.503888
      y = 11.546798
      z = 0
      irot = 2234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2235
      theta1 = 90.109325
      phi1 = 15.923529
      theta2 = 83.811421
      phi2 = 105.91167
      theta3 = 6.1895518
      phi3 = -73.068352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 470
      chmoth = 'DC17'
      x = 43.047506
      y = 13.146446
      z = 0
      irot = 2235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2236
      theta1 = 90.109325
      phi1 = 18.041176
      theta2 = 83.811421
      phi2 = 108.02932
      theta3 = 6.1895518
      phi3 = -70.950704
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 471
      chmoth = 'DC17'
      x = 42.532326
      y = 14.728137
      z = 0
      irot = 2236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2237
      theta1 = 90.109325
      phi1 = 20.158824
      theta2 = 83.811421
      phi2 = 110.14697
      theta3 = 6.1895518
      phi3 = -68.833057
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 472
      chmoth = 'DC17'
      x = 41.959052
      y = 16.289712
      z = 0
      irot = 2237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2238
      theta1 = 90.109325
      phi1 = 22.276471
      theta2 = 83.811421
      phi2 = 112.26462
      theta3 = 6.1895518
      phi3 = -66.71541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 473
      chmoth = 'DC17'
      x = 41.328468
      y = 17.829037
      z = 0
      irot = 2238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2239
      theta1 = 90.109325
      phi1 = 24.394118
      theta2 = 83.811421
      phi2 = 114.38226
      theta3 = 6.1895518
      phi3 = -64.597763
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 474
      chmoth = 'DC17'
      x = 40.641433
      y = 19.34401
      z = 0
      irot = 2239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2240
      theta1 = 90.109325
      phi1 = 26.511765
      theta2 = 83.811421
      phi2 = 116.49991
      theta3 = 6.1895518
      phi3 = -62.480116
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 475
      chmoth = 'DC17'
      x = 39.898887
      y = 20.832561
      z = 0
      irot = 2240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2241
      theta1 = 90.109325
      phi1 = 28.629412
      theta2 = 83.811421
      phi2 = 118.61756
      theta3 = 6.1895518
      phi3 = -60.362469
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 476
      chmoth = 'DC17'
      x = 39.101844
      y = 22.292657
      z = 0
      irot = 2241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2242
      theta1 = 90.109325
      phi1 = 30.747059
      theta2 = 83.811421
      phi2 = 120.7352
      theta3 = 6.1895518
      phi3 = -58.244822
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 477
      chmoth = 'DC17'
      x = 38.251393
      y = 23.722305
      z = 0
      irot = 2242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2243
      theta1 = 90.109325
      phi1 = 32.864706
      theta2 = 83.811421
      phi2 = 122.85285
      theta3 = 6.1895518
      phi3 = -56.127175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 478
      chmoth = 'DC17'
      x = 37.348695
      y = 25.11955
      z = 0
      irot = 2243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2244
      theta1 = 90.109325
      phi1 = 34.982353
      theta2 = 83.811421
      phi2 = 124.9705
      theta3 = 6.1895518
      phi3 = -54.009528
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 479
      chmoth = 'DC17'
      x = 36.394983
      y = 26.482485
      z = 0
      irot = 2244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2245
      theta1 = 90.109325
      phi1 = 37.1
      theta2 = 83.811421
      phi2 = 127.08815
      theta3 = 6.1895518
      phi3 = -51.891881
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 480
      chmoth = 'DC17'
      x = 35.39156
      y = 27.809248
      z = 0
      irot = 2245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2246
      theta1 = 90.109325
      phi1 = 39.217647
      theta2 = 83.811421
      phi2 = 129.20579
      theta3 = 6.1895518
      phi3 = -49.774234
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 481
      chmoth = 'DC17'
      x = 34.339796
      y = 29.098027
      z = 0
      irot = 2246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2247
      theta1 = 90.109325
      phi1 = 41.335294
      theta2 = 83.811421
      phi2 = 131.32344
      theta3 = 6.1895518
      phi3 = -47.656587
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 482
      chmoth = 'DC17'
      x = 33.241128
      y = 30.347062
      z = 0
      irot = 2247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2248
      theta1 = 90.109325
      phi1 = 43.452941
      theta2 = 83.811421
      phi2 = 133.44109
      theta3 = 6.1895518
      phi3 = -45.53894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 483
      chmoth = 'DC17'
      x = 32.097057
      y = 31.554647
      z = 0
      irot = 2248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2249
      theta1 = 90.109325
      phi1 = 45.570588
      theta2 = 83.811421
      phi2 = 135.55873
      theta3 = 6.1895518
      phi3 = -43.421293
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 484
      chmoth = 'DC17'
      x = 30.909145
      y = 32.719131
      z = 0
      irot = 2249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2250
      theta1 = 90.109325
      phi1 = 47.688235
      theta2 = 83.811421
      phi2 = 137.67638
      theta3 = 6.1895518
      phi3 = -41.303646
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 485
      chmoth = 'DC17'
      x = 29.679015
      y = 33.838925
      z = 0
      irot = 2250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2251
      theta1 = 90.109325
      phi1 = 49.805882
      theta2 = 83.811421
      phi2 = 139.79403
      theta3 = 6.1895518
      phi3 = -39.185999
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 486
      chmoth = 'DC17'
      x = 28.408347
      y = 34.912499
      z = 0
      irot = 2251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2252
      theta1 = 90.109325
      phi1 = 51.923529
      theta2 = 83.811421
      phi2 = 141.91167
      theta3 = 6.1895518
      phi3 = -37.068352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 487
      chmoth = 'DC17'
      x = 27.098877
      y = 35.938387
      z = 0
      irot = 2252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2253
      theta1 = 90.109325
      phi1 = 54.041176
      theta2 = 83.811421
      phi2 = 144.02932
      theta3 = 6.1895518
      phi3 = -34.950704
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 488
      chmoth = 'DC17'
      x = 25.752393
      y = 36.915187
      z = 0
      irot = 2253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2254
      theta1 = 90.109325
      phi1 = 56.158824
      theta2 = 83.811421
      phi2 = 146.14697
      theta3 = 6.1895518
      phi3 = -32.833057
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 489
      chmoth = 'DC17'
      x = 24.370734
      y = 37.841566
      z = 0
      irot = 2254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2255
      theta1 = 90.109325
      phi1 = 58.276471
      theta2 = 83.811421
      phi2 = 148.26462
      theta3 = 6.1895518
      phi3 = -30.71541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 490
      chmoth = 'DC17'
      x = 22.955787
      y = 38.716258
      z = 0
      irot = 2255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2256
      theta1 = 90.109325
      phi1 = 60.394118
      theta2 = 83.811421
      phi2 = 150.38226
      theta3 = 6.1895518
      phi3 = -28.597763
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 491
      chmoth = 'DC17'
      x = 21.509486
      y = 39.538068
      z = 0
      irot = 2256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2257
      theta1 = 90.109325
      phi1 = 62.511765
      theta2 = 83.811421
      phi2 = 152.49991
      theta3 = 6.1895518
      phi3 = -26.480116
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 492
      chmoth = 'DC17'
      x = 20.033806
      y = 40.305873
      z = 0
      irot = 2257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2258
      theta1 = 90.109325
      phi1 = 64.629412
      theta2 = 83.811421
      phi2 = 154.61756
      theta3 = 6.1895518
      phi3 = -24.362469
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 493
      chmoth = 'DC17'
      x = 18.530761
      y = 41.018626
      z = 0
      irot = 2258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2259
      theta1 = 90.109325
      phi1 = 66.747059
      theta2 = 83.811421
      phi2 = 156.7352
      theta3 = 6.1895518
      phi3 = -22.244822
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 494
      chmoth = 'DC17'
      x = 17.002406
      y = 41.675352
      z = 0
      irot = 2259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2260
      theta1 = 90.109325
      phi1 = 68.864706
      theta2 = 83.811421
      phi2 = 158.85285
      theta3 = 6.1895518
      phi3 = -20.127175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 495
      chmoth = 'DC17'
      x = 15.450828
      y = 42.275155
      z = 0
      irot = 2260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2261
      theta1 = 90.109325
      phi1 = 70.982353
      theta2 = 83.811421
      phi2 = 160.9705
      theta3 = 6.1895518
      phi3 = -18.009528
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 496
      chmoth = 'DC17'
      x = 13.878145
      y = 42.817215
      z = 0
      irot = 2261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2262
      theta1 = 90.109325
      phi1 = 73.1
      theta2 = 83.811421
      phi2 = 163.08815
      theta3 = 6.1895518
      phi3 = -15.891881
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 497
      chmoth = 'DC17'
      x = 12.286507
      y = 43.300791
      z = 0
      irot = 2262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2263
      theta1 = 90.109325
      phi1 = 75.217647
      theta2 = 83.811421
      phi2 = 165.20579
      theta3 = 6.1895518
      phi3 = -13.774234
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 498
      chmoth = 'DC17'
      x = 10.678087
      y = 43.725224
      z = 0
      irot = 2263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2264
      theta1 = 90.109325
      phi1 = 77.335294
      theta2 = 83.811421
      phi2 = 167.32344
      theta3 = 6.1895518
      phi3 = -11.656587
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 499
      chmoth = 'DC17'
      x = 9.055082
      y = 44.089934
      z = 0
      irot = 2264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2265
      theta1 = 90.109325
      phi1 = 79.452941
      theta2 = 83.811421
      phi2 = 169.44109
      theta3 = 6.1895518
      phi3 = -9.5389398
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 500
      chmoth = 'DC17'
      x = 7.4197088
      y = 44.394422
      z = 0
      irot = 2265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2266
      theta1 = 90.109325
      phi1 = 81.570588
      theta2 = 83.811421
      phi2 = 171.55873
      theta3 = 6.1895518
      phi3 = -7.4212927
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 501
      chmoth = 'DC17'
      x = 5.7742011
      y = 44.638273
      z = 0
      irot = 2266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2267
      theta1 = 90.109325
      phi1 = 83.688235
      theta2 = 83.811421
      phi2 = 173.67638
      theta3 = 6.1895518
      phi3 = -5.3036457
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 502
      chmoth = 'DC17'
      x = 4.1208066
      y = 44.821153
      z = 0
      irot = 2267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2268
      theta1 = 90.109325
      phi1 = 85.805882
      theta2 = 83.811421
      phi2 = 175.79403
      theta3 = 6.1895518
      phi3 = -3.1859986
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 503
      chmoth = 'DC17'
      x = 2.4617835
      y = 44.942813
      z = 0
      irot = 2268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2269
      theta1 = 90.109325
      phi1 = 87.923529
      theta2 = 83.811421
      phi2 = 177.91167
      theta3 = 6.1895518
      phi3 = -1.0683515
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 504
      chmoth = 'DC17'
      x = 0.79939795
      y = 45.003086
      z = 0
      irot = 2269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2270
      theta1 = 90.109325
      phi1 = 90.041176
      theta2 = 83.811421
      phi2 = -179.97068
      theta3 = 6.1895518
      phi3 = 1.0492955
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 505
      chmoth = 'DC17'
      x = -0.8640795
      y = 45.001891
      z = 0
      irot = 2270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2271
      theta1 = 90.109325
      phi1 = 92.158824
      theta2 = 83.811421
      phi2 = -177.85303
      theta3 = 6.1895518
      phi3 = 3.1669426
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 506
      chmoth = 'DC17'
      x = -2.5263767
      y = 44.939228
      z = 0
      irot = 2271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2272
      theta1 = 90.109325
      phi1 = 94.276471
      theta2 = 83.811421
      phi2 = -175.73538
      theta3 = 6.1895518
      phi3 = 5.2845896
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 507
      chmoth = 'DC17'
      x = -4.1852232
      y = 44.815184
      z = 0
      irot = 2272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2273
      theta1 = 90.109325
      phi1 = 96.394118
      theta2 = 83.811421
      phi2 = -173.61774
      theta3 = 6.1895518
      phi3 = 7.4022367
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 508
      chmoth = 'DC17'
      x = -5.8383532
      y = 44.629927
      z = 0
      irot = 2273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2274
      theta1 = 90.109325
      phi1 = 98.511765
      theta2 = 83.811421
      phi2 = -171.50009
      theta3 = 6.1895518
      phi3 = 9.5198838
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 509
      chmoth = 'DC17'
      x = -7.4835087
      y = 44.383712
      z = 0
      irot = 2274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2275
      theta1 = 90.109325
      phi1 = 100.62941
      theta2 = 83.811421
      phi2 = -169.38244
      theta3 = 6.1895518
      phi3 = 11.637531
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 510
      chmoth = 'DC17'
      x = -9.1184426
      y = 44.076874
      z = 0
      irot = 2275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2276
      theta1 = 90.109325
      phi1 = 102.74706
      theta2 = 83.811421
      phi2 = -167.2648
      theta3 = 6.1895518
      phi3 = 13.755178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 511
      chmoth = 'DC17'
      x = -10.740922
      y = 43.709832
      z = 0
      irot = 2276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2277
      theta1 = 90.109325
      phi1 = 104.86471
      theta2 = 83.811421
      phi2 = -165.14715
      theta3 = 6.1895518
      phi3 = 15.872825
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 512
      chmoth = 'DC17'
      x = -12.34873
      y = 43.283087
      z = 0
      irot = 2277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2278
      theta1 = 90.109325
      phi1 = 106.98235
      theta2 = 83.811421
      phi2 = -163.0295
      theta3 = 6.1895518
      phi3 = 17.990472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 513
      chmoth = 'DC17'
      x = -13.939672
      y = 42.797224
      z = 0
      irot = 2278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2279
      theta1 = 90.109325
      phi1 = 109.1
      theta2 = 83.811421
      phi2 = -160.91185
      theta3 = 6.1895518
      phi3 = 20.108119
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 514
      chmoth = 'DC17'
      x = -15.511573
      y = 42.252904
      z = 0
      irot = 2279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2280
      theta1 = 90.109325
      phi1 = 111.21765
      theta2 = 83.811421
      phi2 = -158.79421
      theta3 = 6.1895518
      phi3 = 22.225766
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 515
      chmoth = 'DC17'
      x = -17.062288
      y = 41.650872
      z = 0
      irot = 2280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2281
      theta1 = 90.109325
      phi1 = 113.33529
      theta2 = 83.811421
      phi2 = -156.67656
      theta3 = 6.1895518
      phi3 = 24.343413
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 516
      chmoth = 'DC17'
      x = -18.589698
      y = 40.99195
      z = 0
      irot = 2281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2282
      theta1 = 90.109325
      phi1 = 115.45294
      theta2 = 83.811421
      phi2 = -154.55891
      theta3 = 6.1895518
      phi3 = 26.46106
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 517
      chmoth = 'DC17'
      x = -20.091716
      y = 40.277037
      z = 0
      irot = 2282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2283
      theta1 = 90.109325
      phi1 = 117.57059
      theta2 = 83.811421
      phi2 = -152.44127
      theta3 = 6.1895518
      phi3 = 28.578707
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 518
      chmoth = 'DC17'
      x = -21.566292
      y = 39.507112
      z = 0
      irot = 2283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2284
      theta1 = 90.109325
      phi1 = 119.68824
      theta2 = 83.811421
      phi2 = -150.32362
      theta3 = 6.1895518
      phi3 = 30.696354
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 519
      chmoth = 'DC17'
      x = -23.01141
      y = 38.683224
      z = 0
      irot = 2284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2285
      theta1 = 90.109325
      phi1 = 121.80588
      theta2 = 83.811421
      phi2 = -148.20597
      theta3 = 6.1895518
      phi3 = 32.814001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 520
      chmoth = 'DC17'
      x = -24.425098
      y = 37.806499
      z = 0
      irot = 2285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2286
      theta1 = 90.109325
      phi1 = 123.92353
      theta2 = 83.811421
      phi2 = -146.08833
      theta3 = 6.1895518
      phi3 = 34.931648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 521
      chmoth = 'DC17'
      x = -25.805424
      y = 36.878136
      z = 0
      irot = 2286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2287
      theta1 = 90.109325
      phi1 = 126.04118
      theta2 = 83.811421
      phi2 = -143.97068
      theta3 = 6.1895518
      phi3 = 37.049296
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 522
      chmoth = 'DC17'
      x = -27.150503
      y = 35.899401
      z = 0
      irot = 2287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2288
      theta1 = 90.109325
      phi1 = 128.15882
      theta2 = 83.811421
      phi2 = -141.85303
      theta3 = 6.1895518
      phi3 = 39.166943
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 523
      chmoth = 'DC17'
      x = -28.458497
      y = 34.871632
      z = 0
      irot = 2288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2289
      theta1 = 90.109325
      phi1 = 130.27647
      theta2 = 83.811421
      phi2 = -139.73538
      theta3 = 6.1895518
      phi3 = 41.28459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 524
      chmoth = 'DC17'
      x = -29.727621
      y = 33.796233
      z = 0
      irot = 2289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2290
      theta1 = 90.109325
      phi1 = 132.39412
      theta2 = 83.811421
      phi2 = -137.61774
      theta3 = 6.1895518
      phi3 = 43.402237
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 525
      chmoth = 'DC17'
      x = -30.95614
      y = 32.674672
      z = 0
      irot = 2290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2291
      theta1 = 90.109325
      phi1 = 134.51176
      theta2 = 83.811421
      phi2 = -135.50009
      theta3 = 6.1895518
      phi3 = 45.519884
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 526
      chmoth = 'DC17'
      x = -32.142377
      y = 31.508481
      z = 0
      irot = 2291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2292
      theta1 = 90.109325
      phi1 = 136.62941
      theta2 = 83.811421
      phi2 = -133.38244
      theta3 = 6.1895518
      phi3 = 47.637531
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 527
      chmoth = 'DC17'
      x = -33.284711
      y = 30.299254
      z = 0
      irot = 2292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2293
      theta1 = 90.109325
      phi1 = 138.74706
      theta2 = 83.811421
      phi2 = -131.2648
      theta3 = 6.1895518
      phi3 = 49.755178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 528
      chmoth = 'DC17'
      x = -34.381583
      y = 29.048641
      z = 0
      irot = 2293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2294
      theta1 = 90.109325
      phi1 = 140.86471
      theta2 = 83.811421
      phi2 = -129.14715
      theta3 = 6.1895518
      phi3 = 51.872825
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 529
      chmoth = 'DC17'
      x = -35.431493
      y = 27.758352
      z = 0
      irot = 2294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2295
      theta1 = 90.109325
      phi1 = 142.98235
      theta2 = 83.811421
      phi2 = -127.0295
      theta3 = 6.1895518
      phi3 = 53.990472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 530
      chmoth = 'DC17'
      x = -36.433008
      y = 26.430148
      z = 0
      irot = 2295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2296
      theta1 = 90.109325
      phi1 = 145.1
      theta2 = 83.811421
      phi2 = -124.91185
      theta3 = 6.1895518
      phi3 = 56.108119
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 531
      chmoth = 'DC17'
      x = -37.38476
      y = 25.065843
      z = 0
      irot = 2296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2297
      theta1 = 90.109325
      phi1 = 147.21765
      theta2 = 83.811421
      phi2 = -122.79421
      theta3 = 6.1895518
      phi3 = 58.225766
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 532
      chmoth = 'DC17'
      x = -38.285449
      y = 23.667302
      z = 0
      irot = 2297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2298
      theta1 = 90.109325
      phi1 = 149.33529
      theta2 = 83.811421
      phi2 = -120.67656
      theta3 = 6.1895518
      phi3 = 60.343413
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 533
      chmoth = 'DC17'
      x = -39.133845
      y = 22.236434
      z = 0
      irot = 2298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2299
      theta1 = 90.109325
      phi1 = 151.45294
      theta2 = 83.811421
      phi2 = -118.55891
      theta3 = 6.1895518
      phi3 = 62.46106
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 534
      chmoth = 'DC17'
      x = -39.928788
      y = 20.775193
      z = 0
      irot = 2299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2300
      theta1 = 90.109325
      phi1 = 153.57059
      theta2 = 83.811421
      phi2 = -116.44127
      theta3 = 6.1895518
      phi3 = 64.578707
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 535
      chmoth = 'DC17'
      x = -40.669194
      y = 19.285576
      z = 0
      irot = 2300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2301
      theta1 = 90.109325
      phi1 = 155.68824
      theta2 = 83.811421
      phi2 = -114.32362
      theta3 = 6.1895518
      phi3 = 66.696354
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 536
      chmoth = 'DC17'
      x = -41.35405
      y = 17.769618
      z = 0
      irot = 2301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2302
      theta1 = 90.109325
      phi1 = 157.80588
      theta2 = 83.811421
      phi2 = -112.20597
      theta3 = 6.1895518
      phi3 = 68.814001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 537
      chmoth = 'DC17'
      x = -41.982422
      y = 16.229388
      z = 0
      irot = 2302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2303
      theta1 = 90.109325
      phi1 = 159.92353
      theta2 = 83.811421
      phi2 = -110.08833
      theta3 = 6.1895518
      phi3 = 70.931648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 538
      chmoth = 'DC17'
      x = -42.553451
      y = 14.666991
      z = 0
      irot = 2303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2304
      theta1 = 90.109325
      phi1 = 162.04118
      theta2 = 83.811421
      phi2 = -107.97068
      theta3 = 6.1895518
      phi3 = 73.049296
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 539
      chmoth = 'DC17'
      x = -43.066357
      y = 13.084561
      z = 0
      irot = 2304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2305
      theta1 = 90.109325
      phi1 = 164.15882
      theta2 = 83.811421
      phi2 = -105.85303
      theta3 = 6.1895518
      phi3 = 75.166943
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 540
      chmoth = 'DC17'
      x = -43.520439
      y = 11.484258
      z = 0
      irot = 2305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2306
      theta1 = 90.109325
      phi1 = 166.27647
      theta2 = 83.811421
      phi2 = -103.73538
      theta3 = 6.1895518
      phi3 = 77.28459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 541
      chmoth = 'DC17'
      x = -43.915078
      y = 9.8682696
      z = 0
      irot = 2306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2307
      theta1 = 90.109325
      phi1 = 168.39412
      theta2 = 83.811421
      phi2 = -101.61774
      theta3 = 6.1895518
      phi3 = 79.402237
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 542
      chmoth = 'DC17'
      x = -44.249734
      y = 8.2388022
      z = 0
      irot = 2307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2308
      theta1 = 90.109325
      phi1 = 170.51176
      theta2 = 83.811421
      phi2 = -99.50009
      theta3 = 6.1895518
      phi3 = 81.519884
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 543
      chmoth = 'DC17'
      x = -44.52395
      y = 6.5980816
      z = 0
      irot = 2308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2309
      theta1 = 90.109325
      phi1 = 172.62941
      theta2 = 83.811421
      phi2 = -97.382443
      theta3 = 6.1895518
      phi3 = 83.637531
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 544
      chmoth = 'DC17'
      x = -44.737352
      y = 4.9483488
      z = 0
      irot = 2309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2310
      theta1 = 90.109325
      phi1 = 174.74706
      theta2 = 83.811421
      phi2 = -95.264796
      theta3 = 6.1895518
      phi3 = 85.755178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 545
      chmoth = 'DC17'
      x = -44.889648
      y = 3.2918571
      z = 0
      irot = 2310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2311
      theta1 = 90.109325
      phi1 = 176.86471
      theta2 = 83.811421
      phi2 = -93.147149
      theta3 = 6.1895518
      phi3 = 87.872825
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 546
      chmoth = 'DC17'
      x = -44.98063
      y = 1.6308692
      z = 0
      irot = 2311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2312
      theta1 = 90.109325
      phi1 = 178.98235
      theta2 = 83.811421
      phi2 = -91.029502
      theta3 = 6.1895518
      phi3 = 89.990472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 547
      chmoth = 'DC17'
      x = -45.010174
      y = -0.032346302
      z = 0
      irot = 2312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2313
      theta1 = 90.109325
      phi1 = -178.9
      theta2 = 83.811421
      phi2 = -88.911854
      theta3 = 6.1895518
      phi3 = 92.108119
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 548
      chmoth = 'DC17'
      x = -44.978239
      y = -1.6955176
      z = 0
      irot = 2313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2314
      theta1 = 90.109325
      phi1 = -176.78235
      theta2 = 83.811421
      phi2 = -86.794207
      theta3 = 6.1895518
      phi3 = 94.225766
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 549
      chmoth = 'DC17'
      x = -44.88487
      y = -3.3563731
      z = 0
      irot = 2314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2315
      theta1 = 90.109325
      phi1 = -174.66471
      theta2 = 83.811421
      phi2 = -84.67656
      theta3 = 6.1895518
      phi3 = 96.343413
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 550
      chmoth = 'DC17'
      x = -44.730193
      y = -5.0126441
      z = 0
      irot = 2315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2316
      theta1 = 90.109325
      phi1 = -172.54706
      theta2 = 83.811421
      phi2 = -82.558913
      theta3 = 6.1895518
      phi3 = 98.46106
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 551
      chmoth = 'DC17'
      x = -44.514421
      y = -6.6620685
      z = 0
      irot = 2316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2317
      theta1 = 90.109325
      phi1 = -170.42941
      theta2 = 83.811421
      phi2 = -80.441266
      theta3 = 6.1895518
      phi3 = 100.57871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 552
      chmoth = 'DC17'
      x = -44.237846
      y = -8.3023933
      z = 0
      irot = 2317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2318
      theta1 = 90.109325
      phi1 = -168.31176
      theta2 = 83.811421
      phi2 = -78.323619
      theta3 = 6.1895518
      phi3 = 102.69635
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 553
      chmoth = 'DC17'
      x = -43.900849
      y = -9.931378
      z = 0
      irot = 2318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2319
      theta1 = 90.109325
      phi1 = -166.19412
      theta2 = 83.811421
      phi2 = -76.205972
      theta3 = 6.1895518
      phi3 = 104.814
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 554
      chmoth = 'DC17'
      x = -43.503888
      y = -11.546798
      z = 0
      irot = 2319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2320
      theta1 = 90.109325
      phi1 = -164.07647
      theta2 = 83.811421
      phi2 = -74.088325
      theta3 = 6.1895518
      phi3 = 106.93165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 555
      chmoth = 'DC17'
      x = -43.047506
      y = -13.146446
      z = 0
      irot = 2320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2321
      theta1 = 90.109325
      phi1 = -161.95882
      theta2 = 83.811421
      phi2 = -71.970678
      theta3 = 6.1895518
      phi3 = 109.0493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 556
      chmoth = 'DC17'
      x = -42.532326
      y = -14.728137
      z = 0
      irot = 2321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2322
      theta1 = 90.109325
      phi1 = -159.84118
      theta2 = 83.811421
      phi2 = -69.853031
      theta3 = 6.1895518
      phi3 = 111.16694
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 557
      chmoth = 'DC17'
      x = -41.959052
      y = -16.289712
      z = 0
      irot = 2322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2323
      theta1 = 90.109325
      phi1 = -157.72353
      theta2 = 83.811421
      phi2 = -67.735384
      theta3 = 6.1895518
      phi3 = 113.28459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 558
      chmoth = 'DC17'
      x = -41.328468
      y = -17.829037
      z = 0
      irot = 2323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2324
      theta1 = 90.109325
      phi1 = -155.60588
      theta2 = 83.811421
      phi2 = -65.617737
      theta3 = 6.1895518
      phi3 = 115.40224
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 559
      chmoth = 'DC17'
      x = -40.641433
      y = -19.34401
      z = 0
      irot = 2324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2325
      theta1 = 90.109325
      phi1 = -153.48824
      theta2 = 83.811421
      phi2 = -63.50009
      theta3 = 6.1895518
      phi3 = 117.51988
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 560
      chmoth = 'DC17'
      x = -39.898887
      y = -20.832561
      z = 0
      irot = 2325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2326
      theta1 = 90.109325
      phi1 = -151.37059
      theta2 = 83.811421
      phi2 = -61.382443
      theta3 = 6.1895518
      phi3 = 119.63753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 561
      chmoth = 'DC17'
      x = -39.101844
      y = -22.292657
      z = 0
      irot = 2326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2327
      theta1 = 90.109325
      phi1 = -149.25294
      theta2 = 83.811421
      phi2 = -59.264796
      theta3 = 6.1895518
      phi3 = 121.75518
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 562
      chmoth = 'DC17'
      x = -38.251393
      y = -23.722305
      z = 0
      irot = 2327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2328
      theta1 = 90.109325
      phi1 = -147.13529
      theta2 = 83.811421
      phi2 = -57.147149
      theta3 = 6.1895518
      phi3 = 123.87282
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 563
      chmoth = 'DC17'
      x = -37.348695
      y = -25.11955
      z = 0
      irot = 2328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2329
      theta1 = 90.109325
      phi1 = -145.01765
      theta2 = 83.811421
      phi2 = -55.029502
      theta3 = 6.1895518
      phi3 = 125.99047
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 564
      chmoth = 'DC17'
      x = -36.394983
      y = -26.482485
      z = 0
      irot = 2329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2330
      theta1 = 90.109325
      phi1 = -142.9
      theta2 = 83.811421
      phi2 = -52.911854
      theta3 = 6.1895518
      phi3 = 128.10812
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 565
      chmoth = 'DC17'
      x = -35.39156
      y = -27.809248
      z = 0
      irot = 2330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2331
      theta1 = 90.109325
      phi1 = -140.78235
      theta2 = 83.811421
      phi2 = -50.794207
      theta3 = 6.1895518
      phi3 = 130.22577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 566
      chmoth = 'DC17'
      x = -34.339796
      y = -29.098027
      z = 0
      irot = 2331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2332
      theta1 = 90.109325
      phi1 = -138.66471
      theta2 = 83.811421
      phi2 = -48.67656
      theta3 = 6.1895518
      phi3 = 132.34341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 567
      chmoth = 'DC17'
      x = -33.241128
      y = -30.347062
      z = 0
      irot = 2332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2333
      theta1 = 90.109325
      phi1 = -136.54706
      theta2 = 83.811421
      phi2 = -46.558913
      theta3 = 6.1895518
      phi3 = 134.46106
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 568
      chmoth = 'DC17'
      x = -32.097057
      y = -31.554647
      z = 0
      irot = 2333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2334
      theta1 = 90.109325
      phi1 = -134.42941
      theta2 = 83.811421
      phi2 = -44.441266
      theta3 = 6.1895518
      phi3 = 136.57871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 569
      chmoth = 'DC17'
      x = -30.909145
      y = -32.719131
      z = 0
      irot = 2334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2335
      theta1 = 90.109325
      phi1 = -132.31176
      theta2 = 83.811421
      phi2 = -42.323619
      theta3 = 6.1895518
      phi3 = 138.69635
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 570
      chmoth = 'DC17'
      x = -29.679015
      y = -33.838925
      z = 0
      irot = 2335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2336
      theta1 = 90.109325
      phi1 = -130.19412
      theta2 = 83.811421
      phi2 = -40.205972
      theta3 = 6.1895518
      phi3 = 140.814
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 571
      chmoth = 'DC17'
      x = -28.408347
      y = -34.912499
      z = 0
      irot = 2336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2337
      theta1 = 90.109325
      phi1 = -128.07647
      theta2 = 83.811421
      phi2 = -38.088325
      theta3 = 6.1895518
      phi3 = 142.93165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 572
      chmoth = 'DC17'
      x = -27.098877
      y = -35.938387
      z = 0
      irot = 2337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2338
      theta1 = 90.109325
      phi1 = -125.95882
      theta2 = 83.811421
      phi2 = -35.970678
      theta3 = 6.1895518
      phi3 = 145.0493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 573
      chmoth = 'DC17'
      x = -25.752393
      y = -36.915187
      z = 0
      irot = 2338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2339
      theta1 = 90.109325
      phi1 = -123.84118
      theta2 = 83.811421
      phi2 = -33.853031
      theta3 = 6.1895518
      phi3 = 147.16694
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 574
      chmoth = 'DC17'
      x = -24.370734
      y = -37.841566
      z = 0
      irot = 2339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2340
      theta1 = 90.109325
      phi1 = -121.72353
      theta2 = 83.811421
      phi2 = -31.735384
      theta3 = 6.1895518
      phi3 = 149.28459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 575
      chmoth = 'DC17'
      x = -22.955787
      y = -38.716258
      z = 0
      irot = 2340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2341
      theta1 = 90.109325
      phi1 = -119.60588
      theta2 = 83.811421
      phi2 = -29.617737
      theta3 = 6.1895518
      phi3 = 151.40224
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 576
      chmoth = 'DC17'
      x = -21.509486
      y = -39.538068
      z = 0
      irot = 2341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2342
      theta1 = 90.109325
      phi1 = -117.48824
      theta2 = 83.811421
      phi2 = -27.50009
      theta3 = 6.1895518
      phi3 = 153.51988
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 577
      chmoth = 'DC17'
      x = -20.033806
      y = -40.305873
      z = 0
      irot = 2342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2343
      theta1 = 90.109325
      phi1 = -115.37059
      theta2 = 83.811421
      phi2 = -25.382443
      theta3 = 6.1895518
      phi3 = 155.63753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 578
      chmoth = 'DC17'
      x = -18.530761
      y = -41.018626
      z = 0
      irot = 2343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2344
      theta1 = 90.109325
      phi1 = -113.25294
      theta2 = 83.811421
      phi2 = -23.264796
      theta3 = 6.1895518
      phi3 = 157.75518
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 579
      chmoth = 'DC17'
      x = -17.002406
      y = -41.675352
      z = 0
      irot = 2344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2345
      theta1 = 90.109325
      phi1 = -111.13529
      theta2 = 83.811421
      phi2 = -21.147149
      theta3 = 6.1895518
      phi3 = 159.87282
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 580
      chmoth = 'DC17'
      x = -15.450828
      y = -42.275155
      z = 0
      irot = 2345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2346
      theta1 = 90.109325
      phi1 = -109.01765
      theta2 = 83.811421
      phi2 = -19.029502
      theta3 = 6.1895518
      phi3 = 161.99047
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 581
      chmoth = 'DC17'
      x = -13.878145
      y = -42.817215
      z = 0
      irot = 2346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2347
      theta1 = 90.109325
      phi1 = -106.9
      theta2 = 83.811421
      phi2 = -16.911854
      theta3 = 6.1895518
      phi3 = 164.10812
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 582
      chmoth = 'DC17'
      x = -12.286507
      y = -43.300791
      z = 0
      irot = 2347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2348
      theta1 = 90.109325
      phi1 = -104.78235
      theta2 = 83.811421
      phi2 = -14.794207
      theta3 = 6.1895518
      phi3 = 166.22577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 583
      chmoth = 'DC17'
      x = -10.678087
      y = -43.725224
      z = 0
      irot = 2348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2349
      theta1 = 90.109325
      phi1 = -102.66471
      theta2 = 83.811421
      phi2 = -12.67656
      theta3 = 6.1895518
      phi3 = 168.34341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 584
      chmoth = 'DC17'
      x = -9.055082
      y = -44.089934
      z = 0
      irot = 2349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2350
      theta1 = 90.109325
      phi1 = -100.54706
      theta2 = 83.811421
      phi2 = -10.558913
      theta3 = 6.1895518
      phi3 = 170.46106
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 585
      chmoth = 'DC17'
      x = -7.4197088
      y = -44.394422
      z = 0
      irot = 2350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2351
      theta1 = 90.109325
      phi1 = -98.429412
      theta2 = 83.811421
      phi2 = -8.4412662
      theta3 = 6.1895518
      phi3 = 172.57871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 586
      chmoth = 'DC17'
      x = -5.7742011
      y = -44.638273
      z = 0
      irot = 2351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2352
      theta1 = 90.109325
      phi1 = -96.311765
      theta2 = 83.811421
      phi2 = -6.3236192
      theta3 = 6.1895518
      phi3 = 174.69635
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 587
      chmoth = 'DC17'
      x = -4.1208066
      y = -44.821153
      z = 0
      irot = 2352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2353
      theta1 = 90.109325
      phi1 = -94.194118
      theta2 = 83.811421
      phi2 = -4.2059721
      theta3 = 6.1895518
      phi3 = 176.814
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 588
      chmoth = 'DC17'
      x = -2.4617835
      y = -44.942813
      z = 0
      irot = 2353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2354
      theta1 = 90.109325
      phi1 = -92.076471
      theta2 = 83.811421
      phi2 = -2.088325
      theta3 = 6.1895518
      phi3 = 178.93165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 589
      chmoth = 'DC17'
      x = -0.79939795
      y = -45.003086
      z = 0
      irot = 2354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2355
      theta1 = 90.109325
      phi1 = -89.958824
      theta2 = 83.811421
      phi2 = 0.02932201
      theta3 = 6.1895518
      phi3 = -178.9507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 590
      chmoth = 'DC17'
      x = 0.8640795
      y = -45.001891
      z = 0
      irot = 2355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2356
      theta1 = 90.109325
      phi1 = -87.841176
      theta2 = 83.811421
      phi2 = 2.1469691
      theta3 = 6.1895518
      phi3 = -176.83306
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 591
      chmoth = 'DC17'
      x = 2.5263767
      y = -44.939228
      z = 0
      irot = 2356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2357
      theta1 = 90.109325
      phi1 = -85.723529
      theta2 = 83.811421
      phi2 = 4.2646161
      theta3 = 6.1895518
      phi3 = -174.71541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 592
      chmoth = 'DC17'
      x = 4.1852232
      y = -44.815184
      z = 0
      irot = 2357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2358
      theta1 = 90.109325
      phi1 = -83.605882
      theta2 = 83.811421
      phi2 = 6.3822632
      theta3 = 6.1895518
      phi3 = -172.59776
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 593
      chmoth = 'DC17'
      x = 5.8383532
      y = -44.629927
      z = 0
      irot = 2358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2359
      theta1 = 90.109325
      phi1 = -81.488235
      theta2 = 83.811421
      phi2 = 8.4999102
      theta3 = 6.1895518
      phi3 = -170.48012
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 594
      chmoth = 'DC17'
      x = 7.4835087
      y = -44.383712
      z = 0
      irot = 2359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2360
      theta1 = 90.109325
      phi1 = -79.370588
      theta2 = 83.811421
      phi2 = 10.617557
      theta3 = 6.1895518
      phi3 = -168.36247
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 595
      chmoth = 'DC17'
      x = 9.1184426
      y = -44.076874
      z = 0
      irot = 2360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2361
      theta1 = 90.109325
      phi1 = -77.252941
      theta2 = 83.811421
      phi2 = 12.735204
      theta3 = 6.1895518
      phi3 = -166.24482
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 596
      chmoth = 'DC17'
      x = 10.740922
      y = -43.709832
      z = 0
      irot = 2361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2362
      theta1 = 90.109325
      phi1 = -75.135294
      theta2 = 83.811421
      phi2 = 14.852851
      theta3 = 6.1895518
      phi3 = -164.12718
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 597
      chmoth = 'DC17'
      x = 12.34873
      y = -43.283087
      z = 0
      irot = 2362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2363
      theta1 = 90.109325
      phi1 = -73.017647
      theta2 = 83.811421
      phi2 = 16.970498
      theta3 = 6.1895518
      phi3 = -162.00953
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 598
      chmoth = 'DC17'
      x = 13.939672
      y = -42.797224
      z = 0
      irot = 2363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2364
      theta1 = 90.109325
      phi1 = -70.9
      theta2 = 83.811421
      phi2 = 19.088146
      theta3 = 6.1895518
      phi3 = -159.89188
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 599
      chmoth = 'DC17'
      x = 15.511573
      y = -42.252904
      z = 0
      irot = 2364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2365
      theta1 = 90.109325
      phi1 = -68.782353
      theta2 = 83.811421
      phi2 = 21.205793
      theta3 = 6.1895518
      phi3 = -157.77423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 600
      chmoth = 'DC17'
      x = 17.062288
      y = -41.650872
      z = 0
      irot = 2365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2366
      theta1 = 90.109325
      phi1 = -66.664706
      theta2 = 83.811421
      phi2 = 23.32344
      theta3 = 6.1895518
      phi3 = -155.65659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 601
      chmoth = 'DC17'
      x = 18.589698
      y = -40.99195
      z = 0
      irot = 2366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2367
      theta1 = 90.109325
      phi1 = -64.547059
      theta2 = 83.811421
      phi2 = 25.441087
      theta3 = 6.1895518
      phi3 = -153.53894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 602
      chmoth = 'DC17'
      x = 20.091716
      y = -40.277037
      z = 0
      irot = 2367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2368
      theta1 = 90.109325
      phi1 = -62.429412
      theta2 = 83.811421
      phi2 = 27.558734
      theta3 = 6.1895518
      phi3 = -151.42129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 603
      chmoth = 'DC17'
      x = 21.566292
      y = -39.507112
      z = 0
      irot = 2368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2369
      theta1 = 90.109325
      phi1 = -60.311765
      theta2 = 83.811421
      phi2 = 29.676381
      theta3 = 6.1895518
      phi3 = -149.30365
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 604
      chmoth = 'DC17'
      x = 23.01141
      y = -38.683224
      z = 0
      irot = 2369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2370
      theta1 = 90.109325
      phi1 = -58.194118
      theta2 = 83.811421
      phi2 = 31.794028
      theta3 = 6.1895518
      phi3 = -147.186
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 605
      chmoth = 'DC17'
      x = 24.425098
      y = -37.806499
      z = 0
      irot = 2370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2371
      theta1 = 90.109325
      phi1 = -56.076471
      theta2 = 83.811421
      phi2 = 33.911675
      theta3 = 6.1895518
      phi3 = -145.06835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 606
      chmoth = 'DC17'
      x = 25.805424
      y = -36.878136
      z = 0
      irot = 2371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2372
      theta1 = 90.109325
      phi1 = -53.958824
      theta2 = 83.811421
      phi2 = 36.029322
      theta3 = 6.1895518
      phi3 = -142.9507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 607
      chmoth = 'DC17'
      x = 27.150503
      y = -35.899401
      z = 0
      irot = 2372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2373
      theta1 = 90.109325
      phi1 = -51.841176
      theta2 = 83.811421
      phi2 = 38.146969
      theta3 = 6.1895518
      phi3 = -140.83306
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 608
      chmoth = 'DC17'
      x = 28.458497
      y = -34.871632
      z = 0
      irot = 2373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2374
      theta1 = 90.109325
      phi1 = -49.723529
      theta2 = 83.811421
      phi2 = 40.264616
      theta3 = 6.1895518
      phi3 = -138.71541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 609
      chmoth = 'DC17'
      x = 29.727621
      y = -33.796233
      z = 0
      irot = 2374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2375
      theta1 = 90.109325
      phi1 = -47.605882
      theta2 = 83.811421
      phi2 = 42.382263
      theta3 = 6.1895518
      phi3 = -136.59776
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 610
      chmoth = 'DC17'
      x = 30.95614
      y = -32.674672
      z = 0
      irot = 2375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2376
      theta1 = 90.109325
      phi1 = -45.488235
      theta2 = 83.811421
      phi2 = 44.49991
      theta3 = 6.1895518
      phi3 = -134.48012
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 611
      chmoth = 'DC17'
      x = 32.142377
      y = -31.508481
      z = 0
      irot = 2376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2377
      theta1 = 90.109325
      phi1 = -43.370588
      theta2 = 83.811421
      phi2 = 46.617557
      theta3 = 6.1895518
      phi3 = -132.36247
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 612
      chmoth = 'DC17'
      x = 33.284711
      y = -30.299254
      z = 0
      irot = 2377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2378
      theta1 = 90.109325
      phi1 = -41.252941
      theta2 = 83.811421
      phi2 = 48.735204
      theta3 = 6.1895518
      phi3 = -130.24482
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 613
      chmoth = 'DC17'
      x = 34.381583
      y = -29.048641
      z = 0
      irot = 2378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2379
      theta1 = 90.109325
      phi1 = -39.135294
      theta2 = 83.811421
      phi2 = 50.852851
      theta3 = 6.1895518
      phi3 = -128.12718
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 614
      chmoth = 'DC17'
      x = 35.431493
      y = -27.758352
      z = 0
      irot = 2379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2380
      theta1 = 90.109325
      phi1 = -37.017647
      theta2 = 83.811421
      phi2 = 52.970498
      theta3 = 6.1895518
      phi3 = -126.00953
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 615
      chmoth = 'DC17'
      x = 36.433008
      y = -26.430148
      z = 0
      irot = 2380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2381
      theta1 = 90.109325
      phi1 = -34.9
      theta2 = 83.811421
      phi2 = 55.088146
      theta3 = 6.1895518
      phi3 = -123.89188
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 616
      chmoth = 'DC17'
      x = 37.38476
      y = -25.065843
      z = 0
      irot = 2381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2382
      theta1 = 90.109325
      phi1 = -32.782353
      theta2 = 83.811421
      phi2 = 57.205793
      theta3 = 6.1895518
      phi3 = -121.77423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 617
      chmoth = 'DC17'
      x = 38.285449
      y = -23.667302
      z = 0
      irot = 2382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2383
      theta1 = 90.109325
      phi1 = -30.664706
      theta2 = 83.811421
      phi2 = 59.32344
      theta3 = 6.1895518
      phi3 = -119.65659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 618
      chmoth = 'DC17'
      x = 39.133845
      y = -22.236434
      z = 0
      irot = 2383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2384
      theta1 = 90.109325
      phi1 = -28.547059
      theta2 = 83.811421
      phi2 = 61.441087
      theta3 = 6.1895518
      phi3 = -117.53894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 619
      chmoth = 'DC17'
      x = 39.928788
      y = -20.775193
      z = 0
      irot = 2384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2385
      theta1 = 90.109325
      phi1 = -26.429412
      theta2 = 83.811421
      phi2 = 63.558734
      theta3 = 6.1895518
      phi3 = -115.42129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 620
      chmoth = 'DC17'
      x = 40.669194
      y = -19.285576
      z = 0
      irot = 2385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2386
      theta1 = 90.109325
      phi1 = -24.311765
      theta2 = 83.811421
      phi2 = 65.676381
      theta3 = 6.1895518
      phi3 = -113.30365
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 621
      chmoth = 'DC17'
      x = 41.35405
      y = -17.769618
      z = 0
      irot = 2386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2387
      theta1 = 90.109325
      phi1 = -22.194118
      theta2 = 83.811421
      phi2 = 67.794028
      theta3 = 6.1895518
      phi3 = -111.186
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 622
      chmoth = 'DC17'
      x = 41.982422
      y = -16.229388
      z = 0
      irot = 2387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2388
      theta1 = 90.109325
      phi1 = -20.076471
      theta2 = 83.811421
      phi2 = 69.911675
      theta3 = 6.1895518
      phi3 = -109.06835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 623
      chmoth = 'DC17'
      x = 42.553451
      y = -14.666991
      z = 0
      irot = 2388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2389
      theta1 = 90.109325
      phi1 = -17.958824
      theta2 = 83.811421
      phi2 = 72.029322
      theta3 = 6.1895518
      phi3 = -106.9507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 624
      chmoth = 'DC17'
      x = 43.066357
      y = -13.084561
      z = 0
      irot = 2389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2390
      theta1 = 90.109325
      phi1 = -15.841176
      theta2 = 83.811421
      phi2 = 74.146969
      theta3 = 6.1895518
      phi3 = -104.83306
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 625
      chmoth = 'DC17'
      x = 43.520439
      y = -11.484258
      z = 0
      irot = 2390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2391
      theta1 = 90.109325
      phi1 = -13.723529
      theta2 = 83.811421
      phi2 = 76.264616
      theta3 = 6.1895518
      phi3 = -102.71541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 626
      chmoth = 'DC17'
      x = 43.915078
      y = -9.8682696
      z = 0
      irot = 2391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2392
      theta1 = 90.109325
      phi1 = -11.605882
      theta2 = 83.811421
      phi2 = 78.382263
      theta3 = 6.1895518
      phi3 = -100.59776
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 627
      chmoth = 'DC17'
      x = 44.249734
      y = -8.2388022
      z = 0
      irot = 2392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2393
      theta1 = 90.109325
      phi1 = -9.4882353
      theta2 = 83.811421
      phi2 = 80.49991
      theta3 = 6.1895518
      phi3 = -98.480116
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 628
      chmoth = 'DC17'
      x = 44.52395
      y = -6.5980816
      z = 0
      irot = 2393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2394
      theta1 = 90.109325
      phi1 = -7.3705882
      theta2 = 83.811421
      phi2 = 82.617557
      theta3 = 6.1895518
      phi3 = -96.362469
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 629
      chmoth = 'DC17'
      x = 44.737352
      y = -4.9483488
      z = 0
      irot = 2394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2395
      theta1 = 90.109325
      phi1 = -5.2529412
      theta2 = 83.811421
      phi2 = 84.735204
      theta3 = 6.1895518
      phi3 = -94.244822
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 630
      chmoth = 'DC17'
      x = 44.889648
      y = -3.2918571
      z = 0
      irot = 2395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2396
      theta1 = 90.109325
      phi1 = -3.1352941
      theta2 = 83.811421
      phi2 = 86.852851
      theta3 = 6.1895518
      phi3 = -92.127175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 631
      chmoth = 'DC17'
      x = 44.98063
      y = -1.6308692
      z = 0
      irot = 2396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2397
      theta1 = 90.109325
      phi1 = -1.0176471
      theta2 = 83.811421
      phi2 = 88.970498
      theta3 = 6.1895518
      phi3 = -90.009528
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 632
      chmoth = 'DC17'
      x = 45.010174
      y = 0.032346302
      z = 0
      irot = 2397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2398
      theta1 = 90
      phi1 = 1.4
      theta2 = 84
      phi2 = 91.4
      theta3 = 6
      phi3 = -88.6
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 633
      chmoth = 'DC17'
      x = 46.670964
      y = 1.1406138
      z = 0
      irot = 2398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2399
      theta1 = 90
      phi1 = 3.378022
      theta2 = 84
      phi2 = 93.378022
      theta3 = 6
      phi3 = -86.621978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 634
      chmoth = 'DC17'
      x = 46.603785
      y = 2.7508356
      z = 0
      irot = 2399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2400
      theta1 = 90
      phi1 = 5.356044
      theta2 = 84
      phi2 = 95.356044
      theta3 = 6
      phi3 = -84.643956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 635
      chmoth = 'DC17'
      x = 46.481068
      y = 4.3577792
      z = 0
      irot = 2400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2401
      theta1 = 90
      phi1 = 7.3340659
      theta2 = 84
      phi2 = 97.334066
      theta3 = 6
      phi3 = -82.665934
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 636
      chmoth = 'DC17'
      x = 46.302958
      y = 5.9595296
      z = 0
      irot = 2401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2402
      theta1 = 90
      phi1 = 9.3120879
      theta2 = 84
      phi2 = 99.312088
      theta3 = 6
      phi3 = -80.687912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 637
      chmoth = 'DC17'
      x = 46.069668
      y = 7.5541779
      z = 0
      irot = 2402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2403
      theta1 = 90
      phi1 = 11.29011
      theta2 = 84
      phi2 = 101.29011
      theta3 = 6
      phi3 = -78.70989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 638
      chmoth = 'DC17'
      x = 45.781476
      y = 9.1398237
      z = 0
      irot = 2403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2404
      theta1 = 90
      phi1 = 13.268132
      theta2 = 84
      phi2 = 103.26813
      theta3 = 6
      phi3 = -76.731868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 639
      chmoth = 'DC17'
      x = 45.438725
      y = 10.714577
      z = 0
      irot = 2404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2405
      theta1 = 90
      phi1 = 15.246154
      theta2 = 84
      phi2 = 105.24615
      theta3 = 6
      phi3 = -74.753846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 640
      chmoth = 'DC17'
      x = 45.041824
      y = 12.276562
      z = 0
      irot = 2405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2406
      theta1 = 90
      phi1 = 17.224176
      theta2 = 84
      phi2 = 107.22418
      theta3 = 6
      phi3 = -72.775824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 641
      chmoth = 'DC17'
      x = 44.591246
      y = 13.823917
      z = 0
      irot = 2406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2407
      theta1 = 90
      phi1 = 19.202198
      theta2 = 84
      phi2 = 109.2022
      theta3 = 6
      phi3 = -70.797802
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 642
      chmoth = 'DC17'
      x = 44.087527
      y = 15.354798
      z = 0
      irot = 2407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2408
      theta1 = 90
      phi1 = 21.18022
      theta2 = 84
      phi2 = 111.18022
      theta3 = 6
      phi3 = -68.81978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 643
      chmoth = 'DC17'
      x = 43.531269
      y = 16.86738
      z = 0
      irot = 2408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2409
      theta1 = 90
      phi1 = 23.158242
      theta2 = 84
      phi2 = 113.15824
      theta3 = 6
      phi3 = -66.841758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 644
      chmoth = 'DC17'
      x = 42.923134
      y = 18.35986
      z = 0
      irot = 2409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2410
      theta1 = 90
      phi1 = 25.136264
      theta2 = 84
      phi2 = 115.13626
      theta3 = 6
      phi3 = -64.863736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 645
      chmoth = 'DC17'
      x = 42.263846
      y = 19.830461
      z = 0
      irot = 2410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2411
      theta1 = 90
      phi1 = 27.114286
      theta2 = 84
      phi2 = 117.11429
      theta3 = 6
      phi3 = -62.885714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 646
      chmoth = 'DC17'
      x = 41.554192
      y = 21.27743
      z = 0
      irot = 2411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2412
      theta1 = 90
      phi1 = 29.092308
      theta2 = 84
      phi2 = 119.09231
      theta3 = 6
      phi3 = -60.907692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 647
      chmoth = 'DC17'
      x = 40.795017
      y = 22.699042
      z = 0
      irot = 2412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2413
      theta1 = 90
      phi1 = 31.07033
      theta2 = 84
      phi2 = 121.07033
      theta3 = 6
      phi3 = -58.92967
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 648
      chmoth = 'DC17'
      x = 39.987225
      y = 24.093603
      z = 0
      irot = 2413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2414
      theta1 = 90
      phi1 = 33.048352
      theta2 = 84
      phi2 = 123.04835
      theta3 = 6
      phi3 = -56.951648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 649
      chmoth = 'DC17'
      x = 39.13178
      y = 25.459451
      z = 0
      irot = 2414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2415
      theta1 = 90
      phi1 = 35.026374
      theta2 = 84
      phi2 = 125.02637
      theta3 = 6
      phi3 = -54.973626
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 650
      chmoth = 'DC17'
      x = 38.229701
      y = 26.794959
      z = 0
      irot = 2415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2416
      theta1 = 90
      phi1 = 37.004396
      theta2 = 84
      phi2 = 127.0044
      theta3 = 6
      phi3 = -52.995604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 651
      chmoth = 'DC17'
      x = 37.282063
      y = 28.098534
      z = 0
      irot = 2416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2417
      theta1 = 90
      phi1 = 38.982418
      theta2 = 84
      phi2 = 128.98242
      theta3 = 6
      phi3 = -51.017582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 652
      chmoth = 'DC17'
      x = 36.289996
      y = 29.368625
      z = 0
      irot = 2417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2418
      theta1 = 90
      phi1 = 40.96044
      theta2 = 84
      phi2 = 130.96044
      theta3 = 6
      phi3 = -49.03956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 653
      chmoth = 'DC17'
      x = 35.25468
      y = 30.603716
      z = 0
      irot = 2418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2419
      theta1 = 90
      phi1 = 42.938462
      theta2 = 84
      phi2 = 132.93846
      theta3 = 6
      phi3 = -47.061538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 654
      chmoth = 'DC17'
      x = 34.177351
      y = 31.802335
      z = 0
      irot = 2419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2420
      theta1 = 90
      phi1 = 44.916484
      theta2 = 84
      phi2 = 134.91648
      theta3 = 6
      phi3 = -45.083516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 655
      chmoth = 'DC17'
      x = 33.059293
      y = 32.963056
      z = 0
      irot = 2420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2421
      theta1 = 90
      phi1 = 46.894505
      theta2 = 84
      phi2 = 136.89451
      theta3 = 6
      phi3 = -43.105495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 656
      chmoth = 'DC17'
      x = 31.901837
      y = 34.084494
      z = 0
      irot = 2421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2422
      theta1 = 90
      phi1 = 48.872527
      theta2 = 84
      phi2 = 138.87253
      theta3 = 6
      phi3 = -41.127473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 657
      chmoth = 'DC17'
      x = 30.706362
      y = 35.165312
      z = 0
      irot = 2422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2423
      theta1 = 90
      phi1 = 50.850549
      theta2 = 84
      phi2 = 140.85055
      theta3 = 6
      phi3 = -39.149451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 658
      chmoth = 'DC17'
      x = 29.474295
      y = 36.204224
      z = 0
      irot = 2423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2424
      theta1 = 90
      phi1 = 52.828571
      theta2 = 84
      phi2 = 142.82857
      theta3 = 6
      phi3 = -37.171429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 659
      chmoth = 'DC17'
      x = 28.207102
      y = 37.19999
      z = 0
      irot = 2424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2425
      theta1 = 90
      phi1 = 54.806593
      theta2 = 84
      phi2 = 144.80659
      theta3 = 6
      phi3 = -35.193407
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 660
      chmoth = 'DC17'
      x = 26.906295
      y = 38.151424
      z = 0
      irot = 2425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2426
      theta1 = 90
      phi1 = 56.784615
      theta2 = 84
      phi2 = 146.78462
      theta3 = 6
      phi3 = -33.215385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 661
      chmoth = 'DC17'
      x = 25.573423
      y = 39.057393
      z = 0
      irot = 2426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2427
      theta1 = 90
      phi1 = 58.762637
      theta2 = 84
      phi2 = 148.76264
      theta3 = 6
      phi3 = -31.237363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 662
      chmoth = 'DC17'
      x = 24.210074
      y = 39.916816
      z = 0
      irot = 2427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2428
      theta1 = 90
      phi1 = 60.740659
      theta2 = 84
      phi2 = 150.74066
      theta3 = 6
      phi3 = -29.259341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 663
      chmoth = 'DC17'
      x = 22.817874
      y = 40.728669
      z = 0
      irot = 2428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2429
      theta1 = 90
      phi1 = 62.718681
      theta2 = 84
      phi2 = 152.71868
      theta3 = 6
      phi3 = -27.281319
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 664
      chmoth = 'DC17'
      x = 21.398481
      y = 41.491986
      z = 0
      irot = 2429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2430
      theta1 = 90
      phi1 = 64.696703
      theta2 = 84
      phi2 = 154.6967
      theta3 = 6
      phi3 = -25.303297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 665
      chmoth = 'DC17'
      x = 19.953588
      y = 42.205855
      z = 0
      irot = 2430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2431
      theta1 = 90
      phi1 = 66.674725
      theta2 = 84
      phi2 = 156.67473
      theta3 = 6
      phi3 = -23.325275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 666
      chmoth = 'DC17'
      x = 18.484915
      y = 42.869427
      z = 0
      irot = 2431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2432
      theta1 = 90
      phi1 = 68.652747
      theta2 = 84
      phi2 = 158.65275
      theta3 = 6
      phi3 = -21.347253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 667
      chmoth = 'DC17'
      x = 16.994213
      y = 43.481911
      z = 0
      irot = 2432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2433
      theta1 = 90
      phi1 = 70.630769
      theta2 = 84
      phi2 = 160.63077
      theta3 = 6
      phi3 = -19.369231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 668
      chmoth = 'DC17'
      x = 15.48326
      y = 44.042577
      z = 0
      irot = 2433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2434
      theta1 = 90
      phi1 = 72.608791
      theta2 = 84
      phi2 = 162.60879
      theta3 = 6
      phi3 = -17.391209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 669
      chmoth = 'DC17'
      x = 13.953854
      y = 44.550756
      z = 0
      irot = 2434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2435
      theta1 = 90
      phi1 = 74.586813
      theta2 = 84
      phi2 = 164.58681
      theta3 = 6
      phi3 = -15.413187
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 670
      chmoth = 'DC17'
      x = 12.407819
      y = 45.005843
      z = 0
      irot = 2435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2436
      theta1 = 90
      phi1 = 76.564835
      theta2 = 84
      phi2 = 166.56484
      theta3 = 6
      phi3 = -13.435165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 671
      chmoth = 'DC17'
      x = 10.846998
      y = 45.407296
      z = 0
      irot = 2436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2437
      theta1 = 90
      phi1 = 78.542857
      theta2 = 84
      phi2 = 168.54286
      theta3 = 6
      phi3 = -11.457143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 672
      chmoth = 'DC17'
      x = 9.2732503
      y = 45.754636
      z = 0
      irot = 2437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2438
      theta1 = 90
      phi1 = 80.520879
      theta2 = 84
      phi2 = 170.52088
      theta3 = 6
      phi3 = -9.4791209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 673
      chmoth = 'DC17'
      x = 7.6884514
      y = 46.047449
      z = 0
      irot = 2438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2439
      theta1 = 90
      phi1 = 82.498901
      theta2 = 84
      phi2 = 172.4989
      theta3 = 6
      phi3 = -7.5010989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 674
      chmoth = 'DC17'
      x = 6.09449
      y = 46.285387
      z = 0
      irot = 2439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2440
      theta1 = 90
      phi1 = 84.476923
      theta2 = 84
      phi2 = 174.47692
      theta3 = 6
      phi3 = -5.5230769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 675
      chmoth = 'DC17'
      x = 4.4932656
      y = 46.468166
      z = 0
      irot = 2440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2441
      theta1 = 90
      phi1 = 86.454945
      theta2 = 84
      phi2 = 176.45495
      theta3 = 6
      phi3 = -3.5450549
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 676
      chmoth = 'DC17'
      x = 2.8866866
      y = 46.595568
      z = 0
      irot = 2441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2442
      theta1 = 90
      phi1 = 88.432967
      theta2 = 84
      phi2 = 178.43297
      theta3 = 6
      phi3 = -1.567033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 677
      chmoth = 'DC17'
      x = 1.2766675
      y = 46.667441
      z = 0
      irot = 2442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2443
      theta1 = 90
      phi1 = 90.410989
      theta2 = 84
      phi2 = -179.58901
      theta3 = 6
      phi3 = 0.41098901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 678
      chmoth = 'DC17'
      x = -0.33487312
      y = 46.683699
      z = 0
      irot = 2443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2444
      theta1 = 90
      phi1 = 92.389011
      theta2 = 84
      phi2 = -177.61099
      theta3 = 6
      phi3 = 2.389011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 679
      chmoth = 'DC17'
      x = -1.9460146
      y = 46.644324
      z = 0
      irot = 2444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2445
      theta1 = 90
      phi1 = 94.367033
      theta2 = 84
      phi2 = -175.63297
      theta3 = 6
      phi3 = 4.367033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 680
      chmoth = 'DC17'
      x = -3.554837
      y = 46.549361
      z = 0
      irot = 2445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2446
      theta1 = 90
      phi1 = 96.345055
      theta2 = 84
      phi2 = -173.65495
      theta3 = 6
      phi3 = 6.3450549
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 681
      chmoth = 'DC17'
      x = -5.1594231
      y = 46.398925
      z = 0
      irot = 2446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2447
      theta1 = 90
      phi1 = 98.323077
      theta2 = 84
      phi2 = -171.67692
      theta3 = 6
      phi3 = 8.3230769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 682
      chmoth = 'DC17'
      x = -6.7578605
      y = 46.193194
      z = 0
      irot = 2447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2448
      theta1 = 90
      phi1 = 100.3011
      theta2 = 84
      phi2 = -169.6989
      theta3 = 6
      phi3 = 10.301099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 683
      chmoth = 'DC17'
      x = -8.3482445
      y = 45.932415
      z = 0
      irot = 2448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2449
      theta1 = 90
      phi1 = 102.27912
      theta2 = 84
      phi2 = -167.72088
      theta3 = 6
      phi3 = 12.279121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 684
      chmoth = 'DC17'
      x = -9.9286797
      y = 45.616896
      z = 0
      irot = 2449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2450
      theta1 = 90
      phi1 = 104.25714
      theta2 = 84
      phi2 = -165.74286
      theta3 = 6
      phi3 = 14.257143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 685
      chmoth = 'DC17'
      x = -11.497283
      y = 45.247015
      z = 0
      irot = 2450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2451
      theta1 = 90
      phi1 = 106.23516
      theta2 = 84
      phi2 = -163.76484
      theta3 = 6
      phi3 = 16.235165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 686
      chmoth = 'DC17'
      x = -13.052184
      y = 44.823212
      z = 0
      irot = 2451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2452
      theta1 = 90
      phi1 = 108.21319
      theta2 = 84
      phi2 = -161.78681
      theta3 = 6
      phi3 = 18.213187
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 687
      chmoth = 'DC17'
      x = -14.591531
      y = 44.345993
      z = 0
      irot = 2452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2453
      theta1 = 90
      phi1 = 110.19121
      theta2 = 84
      phi2 = -159.80879
      theta3 = 6
      phi3 = 20.191209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 688
      chmoth = 'DC17'
      x = -16.113489
      y = 43.815926
      z = 0
      irot = 2453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2454
      theta1 = 90
      phi1 = 112.16923
      theta2 = 84
      phi2 = -157.83077
      theta3 = 6
      phi3 = 22.169231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 689
      chmoth = 'DC17'
      x = -17.616244
      y = 43.233642
      z = 0
      irot = 2454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2455
      theta1 = 90
      phi1 = 114.14725
      theta2 = 84
      phi2 = -155.85275
      theta3 = 6
      phi3 = 24.147253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 690
      chmoth = 'DC17'
      x = -19.098006
      y = 42.599836
      z = 0
      irot = 2455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2456
      theta1 = 90
      phi1 = 116.12527
      theta2 = 84
      phi2 = -153.87473
      theta3 = 6
      phi3 = 26.125275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 691
      chmoth = 'DC17'
      x = -20.557008
      y = 41.915263
      z = 0
      irot = 2456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2457
      theta1 = 90
      phi1 = 118.1033
      theta2 = 84
      phi2 = -151.8967
      theta3 = 6
      phi3 = 28.103297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 692
      chmoth = 'DC17'
      x = -21.991512
      y = 41.180739
      z = 0
      irot = 2457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2458
      theta1 = 90
      phi1 = 120.08132
      theta2 = 84
      phi2 = -149.91868
      theta3 = 6
      phi3 = 30.081319
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 693
      chmoth = 'DC17'
      x = -23.399808
      y = 40.397139
      z = 0
      irot = 2458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2459
      theta1 = 90
      phi1 = 122.05934
      theta2 = 84
      phi2 = -147.94066
      theta3 = 6
      phi3 = 32.059341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 694
      chmoth = 'DC17'
      x = -24.780219
      y = 39.565397
      z = 0
      irot = 2459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2460
      theta1 = 90
      phi1 = 124.03736
      theta2 = 84
      phi2 = -145.96264
      theta3 = 6
      phi3 = 34.037363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 695
      chmoth = 'DC17'
      x = -26.131098
      y = 38.686504
      z = 0
      irot = 2460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2461
      theta1 = 90
      phi1 = 126.01538
      theta2 = 84
      phi2 = -143.98462
      theta3 = 6
      phi3 = 36.015385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 696
      chmoth = 'DC17'
      x = -27.450836
      y = 37.761508
      z = 0
      irot = 2461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2462
      theta1 = 90
      phi1 = 127.99341
      theta2 = 84
      phi2 = -142.00659
      theta3 = 6
      phi3 = 37.993407
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 697
      chmoth = 'DC17'
      x = -28.737861
      y = 36.791511
      z = 0
      irot = 2462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2463
      theta1 = 90
      phi1 = 129.97143
      theta2 = 84
      phi2 = -140.02857
      theta3 = 6
      phi3 = 39.971429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 698
      chmoth = 'DC17'
      x = -29.990638
      y = 35.777668
      z = 0
      irot = 2463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2464
      theta1 = 90
      phi1 = 131.94945
      theta2 = 84
      phi2 = -138.05055
      theta3 = 6
      phi3 = 41.949451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 699
      chmoth = 'DC17'
      x = -31.207675
      y = 34.721188
      z = 0
      irot = 2464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2465
      theta1 = 90
      phi1 = 133.92747
      theta2 = 84
      phi2 = -136.07253
      theta3 = 6
      phi3 = 43.927473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 700
      chmoth = 'DC17'
      x = -32.387521
      y = 33.623331
      z = 0
      irot = 2465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2466
      theta1 = 90
      phi1 = 135.90549
      theta2 = 84
      phi2 = -134.09451
      theta3 = 6
      phi3 = 45.905495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 701
      chmoth = 'DC17'
      x = -33.52877
      y = 32.485404
      z = 0
      irot = 2466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2467
      theta1 = 90
      phi1 = 137.88352
      theta2 = 84
      phi2 = -132.11648
      theta3 = 6
      phi3 = 47.883516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 702
      chmoth = 'DC17'
      x = -34.630062
      y = 31.308764
      z = 0
      irot = 2467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2468
      theta1 = 90
      phi1 = 139.86154
      theta2 = 84
      phi2 = -130.13846
      theta3 = 6
      phi3 = 49.861538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 703
      chmoth = 'DC17'
      x = -35.690085
      y = 30.094812
      z = 0
      irot = 2468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2469
      theta1 = 90
      phi1 = 141.83956
      theta2 = 84
      phi2 = -128.16044
      theta3 = 6
      phi3 = 51.83956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 704
      chmoth = 'DC17'
      x = -36.707576
      y = 28.844996
      z = 0
      irot = 2469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2470
      theta1 = 90
      phi1 = 143.81758
      theta2 = 84
      phi2 = -126.18242
      theta3 = 6
      phi3 = 53.817582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 705
      chmoth = 'DC17'
      x = -37.681321
      y = 27.560805
      z = 0
      irot = 2470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2471
      theta1 = 90
      phi1 = 145.7956
      theta2 = 84
      phi2 = -124.2044
      theta3 = 6
      phi3 = 55.795604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 706
      chmoth = 'DC17'
      x = -38.610161
      y = 26.243768
      z = 0
      irot = 2471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2472
      theta1 = 90
      phi1 = 147.77363
      theta2 = 84
      phi2 = -122.22637
      theta3 = 6
      phi3 = 57.773626
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 707
      chmoth = 'DC17'
      x = -39.492988
      y = 24.895457
      z = 0
      irot = 2472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2473
      theta1 = 90
      phi1 = 149.75165
      theta2 = 84
      phi2 = -120.24835
      theta3 = 6
      phi3 = 59.751648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 708
      chmoth = 'DC17'
      x = -40.328751
      y = 23.517478
      z = 0
      irot = 2473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2474
      theta1 = 90
      phi1 = 151.72967
      theta2 = 84
      phi2 = -118.27033
      theta3 = 6
      phi3 = 61.72967
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 709
      chmoth = 'DC17'
      x = -41.116453
      y = 22.111472
      z = 0
      irot = 2474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2475
      theta1 = 90
      phi1 = 153.70769
      theta2 = 84
      phi2 = -116.29231
      theta3 = 6
      phi3 = 63.707692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 710
      chmoth = 'DC17'
      x = -41.855156
      y = 20.679115
      z = 0
      irot = 2475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2476
      theta1 = 90
      phi1 = 155.68571
      theta2 = 84
      phi2 = -114.31429
      theta3 = 6
      phi3 = 65.685714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 711
      chmoth = 'DC17'
      x = -42.543979
      y = 19.222115
      z = 0
      irot = 2476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2477
      theta1 = 90
      phi1 = 157.66374
      theta2 = 84
      phi2 = -112.33626
      theta3 = 6
      phi3 = 67.663736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 712
      chmoth = 'DC17'
      x = -43.182102
      y = 17.742207
      z = 0
      irot = 2477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2478
      theta1 = 90
      phi1 = 159.64176
      theta2 = 84
      phi2 = -110.35824
      theta3 = 6
      phi3 = 69.641758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 713
      chmoth = 'DC17'
      x = -43.768764
      y = 16.241156
      z = 0
      irot = 2478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2479
      theta1 = 90
      phi1 = 161.61978
      theta2 = 84
      phi2 = -108.38022
      theta3 = 6
      phi3 = 71.61978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 714
      chmoth = 'DC17'
      x = -44.303266
      y = 14.72075
      z = 0
      irot = 2479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2480
      theta1 = 90
      phi1 = 163.5978
      theta2 = 84
      phi2 = -106.4022
      theta3 = 6
      phi3 = 73.597802
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 715
      chmoth = 'DC17'
      x = -44.784971
      y = 13.182801
      z = 0
      irot = 2480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2481
      theta1 = 90
      phi1 = 165.57582
      theta2 = 84
      phi2 = -104.42418
      theta3 = 6
      phi3 = 75.575824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 716
      chmoth = 'DC17'
      x = -45.213305
      y = 11.629141
      z = 0
      irot = 2481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2482
      theta1 = 90
      phi1 = 167.55385
      theta2 = 84
      phi2 = -102.44615
      theta3 = 6
      phi3 = 77.553846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 717
      chmoth = 'DC17'
      x = -45.587757
      y = 10.061623
      z = 0
      irot = 2482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2483
      theta1 = 90
      phi1 = 169.53187
      theta2 = 84
      phi2 = -100.46813
      theta3 = 6
      phi3 = 79.531868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 718
      chmoth = 'DC17'
      x = -45.907882
      y = 8.4821145
      z = 0
      irot = 2483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2484
      theta1 = 90
      phi1 = 171.50989
      theta2 = 84
      phi2 = -98.49011
      theta3 = 6
      phi3 = 81.50989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 719
      chmoth = 'DC17'
      x = -46.173297
      y = 6.8924975
      z = 0
      irot = 2484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2485
      theta1 = 90
      phi1 = 173.48791
      theta2 = 84
      phi2 = -96.512088
      theta3 = 6
      phi3 = 83.487912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 720
      chmoth = 'DC17'
      x = -46.383687
      y = 5.2946666
      z = 0
      irot = 2485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2486
      theta1 = 90
      phi1 = 175.46593
      theta2 = 84
      phi2 = -94.534066
      theta3 = 6
      phi3 = 85.465934
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 721
      chmoth = 'DC17'
      x = -46.5388
      y = 3.6905259
      z = 0
      irot = 2486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2487
      theta1 = 90
      phi1 = 177.44396
      theta2 = 84
      phi2 = -92.556044
      theta3 = 6
      phi3 = 87.443956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 722
      chmoth = 'DC17'
      x = -46.638452
      y = 2.0819872
      z = 0
      irot = 2487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2488
      theta1 = 90
      phi1 = 179.42198
      theta2 = 84
      phi2 = -90.578022
      theta3 = 6
      phi3 = 89.421978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 723
      chmoth = 'DC17'
      x = -46.682524
      y = 0.47096733
      z = 0
      irot = 2488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2489
      theta1 = 90
      phi1 = -178.6
      theta2 = 84
      phi2 = -88.6
      theta3 = 6
      phi3 = 91.4
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 724
      chmoth = 'DC17'
      x = -46.670964
      y = -1.1406138
      z = 0
      irot = 2489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2490
      theta1 = 90
      phi1 = -176.62198
      theta2 = 84
      phi2 = -86.621978
      theta3 = 6
      phi3 = 93.378022
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 725
      chmoth = 'DC17'
      x = -46.603785
      y = -2.7508356
      z = 0
      irot = 2490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2491
      theta1 = 90
      phi1 = -174.64396
      theta2 = 84
      phi2 = -84.643956
      theta3 = 6
      phi3 = 95.356044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 726
      chmoth = 'DC17'
      x = -46.481068
      y = -4.3577792
      z = 0
      irot = 2491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2492
      theta1 = 90
      phi1 = -172.66593
      theta2 = 84
      phi2 = -82.665934
      theta3 = 6
      phi3 = 97.334066
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 727
      chmoth = 'DC17'
      x = -46.302958
      y = -5.9595296
      z = 0
      irot = 2492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2493
      theta1 = 90
      phi1 = -170.68791
      theta2 = 84
      phi2 = -80.687912
      theta3 = 6
      phi3 = 99.312088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 728
      chmoth = 'DC17'
      x = -46.069668
      y = -7.5541779
      z = 0
      irot = 2493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2494
      theta1 = 90
      phi1 = -168.70989
      theta2 = 84
      phi2 = -78.70989
      theta3 = 6
      phi3 = 101.29011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 729
      chmoth = 'DC17'
      x = -45.781476
      y = -9.1398237
      z = 0
      irot = 2494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2495
      theta1 = 90
      phi1 = -166.73187
      theta2 = 84
      phi2 = -76.731868
      theta3 = 6
      phi3 = 103.26813
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 730
      chmoth = 'DC17'
      x = -45.438725
      y = -10.714577
      z = 0
      irot = 2495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2496
      theta1 = 90
      phi1 = -164.75385
      theta2 = 84
      phi2 = -74.753846
      theta3 = 6
      phi3 = 105.24615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 731
      chmoth = 'DC17'
      x = -45.041824
      y = -12.276562
      z = 0
      irot = 2496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2497
      theta1 = 90
      phi1 = -162.77582
      theta2 = 84
      phi2 = -72.775824
      theta3 = 6
      phi3 = 107.22418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 732
      chmoth = 'DC17'
      x = -44.591246
      y = -13.823917
      z = 0
      irot = 2497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2498
      theta1 = 90
      phi1 = -160.7978
      theta2 = 84
      phi2 = -70.797802
      theta3 = 6
      phi3 = 109.2022
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 733
      chmoth = 'DC17'
      x = -44.087527
      y = -15.354798
      z = 0
      irot = 2498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2499
      theta1 = 90
      phi1 = -158.81978
      theta2 = 84
      phi2 = -68.81978
      theta3 = 6
      phi3 = 111.18022
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 734
      chmoth = 'DC17'
      x = -43.531269
      y = -16.86738
      z = 0
      irot = 2499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2500
      theta1 = 90
      phi1 = -156.84176
      theta2 = 84
      phi2 = -66.841758
      theta3 = 6
      phi3 = 113.15824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 735
      chmoth = 'DC17'
      x = -42.923134
      y = -18.35986
      z = 0
      irot = 2500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2501
      theta1 = 90
      phi1 = -154.86374
      theta2 = 84
      phi2 = -64.863736
      theta3 = 6
      phi3 = 115.13626
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 736
      chmoth = 'DC17'
      x = -42.263846
      y = -19.830461
      z = 0
      irot = 2501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2502
      theta1 = 90
      phi1 = -152.88571
      theta2 = 84
      phi2 = -62.885714
      theta3 = 6
      phi3 = 117.11429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 737
      chmoth = 'DC17'
      x = -41.554192
      y = -21.27743
      z = 0
      irot = 2502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2503
      theta1 = 90
      phi1 = -150.90769
      theta2 = 84
      phi2 = -60.907692
      theta3 = 6
      phi3 = 119.09231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 738
      chmoth = 'DC17'
      x = -40.795017
      y = -22.699042
      z = 0
      irot = 2503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2504
      theta1 = 90
      phi1 = -148.92967
      theta2 = 84
      phi2 = -58.92967
      theta3 = 6
      phi3 = 121.07033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 739
      chmoth = 'DC17'
      x = -39.987225
      y = -24.093603
      z = 0
      irot = 2504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2505
      theta1 = 90
      phi1 = -146.95165
      theta2 = 84
      phi2 = -56.951648
      theta3 = 6
      phi3 = 123.04835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 740
      chmoth = 'DC17'
      x = -39.13178
      y = -25.459451
      z = 0
      irot = 2505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2506
      theta1 = 90
      phi1 = -144.97363
      theta2 = 84
      phi2 = -54.973626
      theta3 = 6
      phi3 = 125.02637
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 741
      chmoth = 'DC17'
      x = -38.229701
      y = -26.794959
      z = 0
      irot = 2506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2507
      theta1 = 90
      phi1 = -142.9956
      theta2 = 84
      phi2 = -52.995604
      theta3 = 6
      phi3 = 127.0044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 742
      chmoth = 'DC17'
      x = -37.282063
      y = -28.098534
      z = 0
      irot = 2507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2508
      theta1 = 90
      phi1 = -141.01758
      theta2 = 84
      phi2 = -51.017582
      theta3 = 6
      phi3 = 128.98242
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 743
      chmoth = 'DC17'
      x = -36.289996
      y = -29.368625
      z = 0
      irot = 2508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2509
      theta1 = 90
      phi1 = -139.03956
      theta2 = 84
      phi2 = -49.03956
      theta3 = 6
      phi3 = 130.96044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 744
      chmoth = 'DC17'
      x = -35.25468
      y = -30.603716
      z = 0
      irot = 2509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2510
      theta1 = 90
      phi1 = -137.06154
      theta2 = 84
      phi2 = -47.061538
      theta3 = 6
      phi3 = 132.93846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 745
      chmoth = 'DC17'
      x = -34.177351
      y = -31.802335
      z = 0
      irot = 2510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2511
      theta1 = 90
      phi1 = -135.08352
      theta2 = 84
      phi2 = -45.083516
      theta3 = 6
      phi3 = 134.91648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 746
      chmoth = 'DC17'
      x = -33.059293
      y = -32.963056
      z = 0
      irot = 2511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2512
      theta1 = 90
      phi1 = -133.10549
      theta2 = 84
      phi2 = -43.105495
      theta3 = 6
      phi3 = 136.89451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 747
      chmoth = 'DC17'
      x = -31.901837
      y = -34.084494
      z = 0
      irot = 2512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2513
      theta1 = 90
      phi1 = -131.12747
      theta2 = 84
      phi2 = -41.127473
      theta3 = 6
      phi3 = 138.87253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 748
      chmoth = 'DC17'
      x = -30.706362
      y = -35.165312
      z = 0
      irot = 2513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2514
      theta1 = 90
      phi1 = -129.14945
      theta2 = 84
      phi2 = -39.149451
      theta3 = 6
      phi3 = 140.85055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 749
      chmoth = 'DC17'
      x = -29.474295
      y = -36.204224
      z = 0
      irot = 2514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2515
      theta1 = 90
      phi1 = -127.17143
      theta2 = 84
      phi2 = -37.171429
      theta3 = 6
      phi3 = 142.82857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 750
      chmoth = 'DC17'
      x = -28.207102
      y = -37.19999
      z = 0
      irot = 2515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2516
      theta1 = 90
      phi1 = -125.19341
      theta2 = 84
      phi2 = -35.193407
      theta3 = 6
      phi3 = 144.80659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 751
      chmoth = 'DC17'
      x = -26.906295
      y = -38.151424
      z = 0
      irot = 2516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2517
      theta1 = 90
      phi1 = -123.21538
      theta2 = 84
      phi2 = -33.215385
      theta3 = 6
      phi3 = 146.78462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 752
      chmoth = 'DC17'
      x = -25.573423
      y = -39.057393
      z = 0
      irot = 2517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2518
      theta1 = 90
      phi1 = -121.23736
      theta2 = 84
      phi2 = -31.237363
      theta3 = 6
      phi3 = 148.76264
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 753
      chmoth = 'DC17'
      x = -24.210074
      y = -39.916816
      z = 0
      irot = 2518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2519
      theta1 = 90
      phi1 = -119.25934
      theta2 = 84
      phi2 = -29.259341
      theta3 = 6
      phi3 = 150.74066
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 754
      chmoth = 'DC17'
      x = -22.817874
      y = -40.728669
      z = 0
      irot = 2519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2520
      theta1 = 90
      phi1 = -117.28132
      theta2 = 84
      phi2 = -27.281319
      theta3 = 6
      phi3 = 152.71868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 755
      chmoth = 'DC17'
      x = -21.398481
      y = -41.491986
      z = 0
      irot = 2520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2521
      theta1 = 90
      phi1 = -115.3033
      theta2 = 84
      phi2 = -25.303297
      theta3 = 6
      phi3 = 154.6967
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 756
      chmoth = 'DC17'
      x = -19.953588
      y = -42.205855
      z = 0
      irot = 2521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2522
      theta1 = 90
      phi1 = -113.32527
      theta2 = 84
      phi2 = -23.325275
      theta3 = 6
      phi3 = 156.67473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 757
      chmoth = 'DC17'
      x = -18.484915
      y = -42.869427
      z = 0
      irot = 2522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2523
      theta1 = 90
      phi1 = -111.34725
      theta2 = 84
      phi2 = -21.347253
      theta3 = 6
      phi3 = 158.65275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 758
      chmoth = 'DC17'
      x = -16.994213
      y = -43.481911
      z = 0
      irot = 2523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2524
      theta1 = 90
      phi1 = -109.36923
      theta2 = 84
      phi2 = -19.369231
      theta3 = 6
      phi3 = 160.63077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 759
      chmoth = 'DC17'
      x = -15.48326
      y = -44.042577
      z = 0
      irot = 2524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2525
      theta1 = 90
      phi1 = -107.39121
      theta2 = 84
      phi2 = -17.391209
      theta3 = 6
      phi3 = 162.60879
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 760
      chmoth = 'DC17'
      x = -13.953854
      y = -44.550756
      z = 0
      irot = 2525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2526
      theta1 = 90
      phi1 = -105.41319
      theta2 = 84
      phi2 = -15.413187
      theta3 = 6
      phi3 = 164.58681
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 761
      chmoth = 'DC17'
      x = -12.407819
      y = -45.005843
      z = 0
      irot = 2526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2527
      theta1 = 90
      phi1 = -103.43516
      theta2 = 84
      phi2 = -13.435165
      theta3 = 6
      phi3 = 166.56484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 762
      chmoth = 'DC17'
      x = -10.846998
      y = -45.407296
      z = 0
      irot = 2527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2528
      theta1 = 90
      phi1 = -101.45714
      theta2 = 84
      phi2 = -11.457143
      theta3 = 6
      phi3 = 168.54286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 763
      chmoth = 'DC17'
      x = -9.2732503
      y = -45.754636
      z = 0
      irot = 2528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2529
      theta1 = 90
      phi1 = -99.479121
      theta2 = 84
      phi2 = -9.4791209
      theta3 = 6
      phi3 = 170.52088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 764
      chmoth = 'DC17'
      x = -7.6884514
      y = -46.047449
      z = 0
      irot = 2529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2530
      theta1 = 90
      phi1 = -97.501099
      theta2 = 84
      phi2 = -7.5010989
      theta3 = 6
      phi3 = 172.4989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 765
      chmoth = 'DC17'
      x = -6.09449
      y = -46.285387
      z = 0
      irot = 2530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2531
      theta1 = 90
      phi1 = -95.523077
      theta2 = 84
      phi2 = -5.5230769
      theta3 = 6
      phi3 = 174.47692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 766
      chmoth = 'DC17'
      x = -4.4932656
      y = -46.468166
      z = 0
      irot = 2531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2532
      theta1 = 90
      phi1 = -93.545055
      theta2 = 84
      phi2 = -3.5450549
      theta3 = 6
      phi3 = 176.45495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 767
      chmoth = 'DC17'
      x = -2.8866866
      y = -46.595568
      z = 0
      irot = 2532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2533
      theta1 = 90
      phi1 = -91.567033
      theta2 = 84
      phi2 = -1.567033
      theta3 = 6
      phi3 = 178.43297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 768
      chmoth = 'DC17'
      x = -1.2766675
      y = -46.667441
      z = 0
      irot = 2533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2534
      theta1 = 90
      phi1 = -89.589011
      theta2 = 84
      phi2 = 0.41098901
      theta3 = 6
      phi3 = -179.58901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 769
      chmoth = 'DC17'
      x = 0.33487312
      y = -46.683699
      z = 0
      irot = 2534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2535
      theta1 = 90
      phi1 = -87.610989
      theta2 = 84
      phi2 = 2.389011
      theta3 = 6
      phi3 = -177.61099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 770
      chmoth = 'DC17'
      x = 1.9460146
      y = -46.644324
      z = 0
      irot = 2535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2536
      theta1 = 90
      phi1 = -85.632967
      theta2 = 84
      phi2 = 4.367033
      theta3 = 6
      phi3 = -175.63297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 771
      chmoth = 'DC17'
      x = 3.554837
      y = -46.549361
      z = 0
      irot = 2536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2537
      theta1 = 90
      phi1 = -83.654945
      theta2 = 84
      phi2 = 6.3450549
      theta3 = 6
      phi3 = -173.65495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 772
      chmoth = 'DC17'
      x = 5.1594231
      y = -46.398925
      z = 0
      irot = 2537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2538
      theta1 = 90
      phi1 = -81.676923
      theta2 = 84
      phi2 = 8.3230769
      theta3 = 6
      phi3 = -171.67692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 773
      chmoth = 'DC17'
      x = 6.7578605
      y = -46.193194
      z = 0
      irot = 2538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2539
      theta1 = 90
      phi1 = -79.698901
      theta2 = 84
      phi2 = 10.301099
      theta3 = 6
      phi3 = -169.6989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 774
      chmoth = 'DC17'
      x = 8.3482445
      y = -45.932415
      z = 0
      irot = 2539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2540
      theta1 = 90
      phi1 = -77.720879
      theta2 = 84
      phi2 = 12.279121
      theta3 = 6
      phi3 = -167.72088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 775
      chmoth = 'DC17'
      x = 9.9286797
      y = -45.616896
      z = 0
      irot = 2540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2541
      theta1 = 90
      phi1 = -75.742857
      theta2 = 84
      phi2 = 14.257143
      theta3 = 6
      phi3 = -165.74286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 776
      chmoth = 'DC17'
      x = 11.497283
      y = -45.247015
      z = 0
      irot = 2541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2542
      theta1 = 90
      phi1 = -73.764835
      theta2 = 84
      phi2 = 16.235165
      theta3 = 6
      phi3 = -163.76484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 777
      chmoth = 'DC17'
      x = 13.052184
      y = -44.823212
      z = 0
      irot = 2542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2543
      theta1 = 90
      phi1 = -71.786813
      theta2 = 84
      phi2 = 18.213187
      theta3 = 6
      phi3 = -161.78681
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 778
      chmoth = 'DC17'
      x = 14.591531
      y = -44.345993
      z = 0
      irot = 2543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2544
      theta1 = 90
      phi1 = -69.808791
      theta2 = 84
      phi2 = 20.191209
      theta3 = 6
      phi3 = -159.80879
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 779
      chmoth = 'DC17'
      x = 16.113489
      y = -43.815926
      z = 0
      irot = 2544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2545
      theta1 = 90
      phi1 = -67.830769
      theta2 = 84
      phi2 = 22.169231
      theta3 = 6
      phi3 = -157.83077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 780
      chmoth = 'DC17'
      x = 17.616244
      y = -43.233642
      z = 0
      irot = 2545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2546
      theta1 = 90
      phi1 = -65.852747
      theta2 = 84
      phi2 = 24.147253
      theta3 = 6
      phi3 = -155.85275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 781
      chmoth = 'DC17'
      x = 19.098006
      y = -42.599836
      z = 0
      irot = 2546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2547
      theta1 = 90
      phi1 = -63.874725
      theta2 = 84
      phi2 = 26.125275
      theta3 = 6
      phi3 = -153.87473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 782
      chmoth = 'DC17'
      x = 20.557008
      y = -41.915263
      z = 0
      irot = 2547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2548
      theta1 = 90
      phi1 = -61.896703
      theta2 = 84
      phi2 = 28.103297
      theta3 = 6
      phi3 = -151.8967
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 783
      chmoth = 'DC17'
      x = 21.991512
      y = -41.180739
      z = 0
      irot = 2548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2549
      theta1 = 90
      phi1 = -59.918681
      theta2 = 84
      phi2 = 30.081319
      theta3 = 6
      phi3 = -149.91868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 784
      chmoth = 'DC17'
      x = 23.399808
      y = -40.397139
      z = 0
      irot = 2549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2550
      theta1 = 90
      phi1 = -57.940659
      theta2 = 84
      phi2 = 32.059341
      theta3 = 6
      phi3 = -147.94066
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 785
      chmoth = 'DC17'
      x = 24.780219
      y = -39.565397
      z = 0
      irot = 2550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2551
      theta1 = 90
      phi1 = -55.962637
      theta2 = 84
      phi2 = 34.037363
      theta3 = 6
      phi3 = -145.96264
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 786
      chmoth = 'DC17'
      x = 26.131098
      y = -38.686504
      z = 0
      irot = 2551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2552
      theta1 = 90
      phi1 = -53.984615
      theta2 = 84
      phi2 = 36.015385
      theta3 = 6
      phi3 = -143.98462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 787
      chmoth = 'DC17'
      x = 27.450836
      y = -37.761508
      z = 0
      irot = 2552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2553
      theta1 = 90
      phi1 = -52.006593
      theta2 = 84
      phi2 = 37.993407
      theta3 = 6
      phi3 = -142.00659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 788
      chmoth = 'DC17'
      x = 28.737861
      y = -36.791511
      z = 0
      irot = 2553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2554
      theta1 = 90
      phi1 = -50.028571
      theta2 = 84
      phi2 = 39.971429
      theta3 = 6
      phi3 = -140.02857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 789
      chmoth = 'DC17'
      x = 29.990638
      y = -35.777668
      z = 0
      irot = 2554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2555
      theta1 = 90
      phi1 = -48.050549
      theta2 = 84
      phi2 = 41.949451
      theta3 = 6
      phi3 = -138.05055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 790
      chmoth = 'DC17'
      x = 31.207675
      y = -34.721188
      z = 0
      irot = 2555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2556
      theta1 = 90
      phi1 = -46.072527
      theta2 = 84
      phi2 = 43.927473
      theta3 = 6
      phi3 = -136.07253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 791
      chmoth = 'DC17'
      x = 32.387521
      y = -33.623331
      z = 0
      irot = 2556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2557
      theta1 = 90
      phi1 = -44.094505
      theta2 = 84
      phi2 = 45.905495
      theta3 = 6
      phi3 = -134.09451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 792
      chmoth = 'DC17'
      x = 33.52877
      y = -32.485404
      z = 0
      irot = 2557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2558
      theta1 = 90
      phi1 = -42.116484
      theta2 = 84
      phi2 = 47.883516
      theta3 = 6
      phi3 = -132.11648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 793
      chmoth = 'DC17'
      x = 34.630062
      y = -31.308764
      z = 0
      irot = 2558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2559
      theta1 = 90
      phi1 = -40.138462
      theta2 = 84
      phi2 = 49.861538
      theta3 = 6
      phi3 = -130.13846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 794
      chmoth = 'DC17'
      x = 35.690085
      y = -30.094812
      z = 0
      irot = 2559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2560
      theta1 = 90
      phi1 = -38.16044
      theta2 = 84
      phi2 = 51.83956
      theta3 = 6
      phi3 = -128.16044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 795
      chmoth = 'DC17'
      x = 36.707576
      y = -28.844996
      z = 0
      irot = 2560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2561
      theta1 = 90
      phi1 = -36.182418
      theta2 = 84
      phi2 = 53.817582
      theta3 = 6
      phi3 = -126.18242
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 796
      chmoth = 'DC17'
      x = 37.681321
      y = -27.560805
      z = 0
      irot = 2561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2562
      theta1 = 90
      phi1 = -34.204396
      theta2 = 84
      phi2 = 55.795604
      theta3 = 6
      phi3 = -124.2044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 797
      chmoth = 'DC17'
      x = 38.610161
      y = -26.243768
      z = 0
      irot = 2562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2563
      theta1 = 90
      phi1 = -32.226374
      theta2 = 84
      phi2 = 57.773626
      theta3 = 6
      phi3 = -122.22637
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 798
      chmoth = 'DC17'
      x = 39.492988
      y = -24.895457
      z = 0
      irot = 2563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2564
      theta1 = 90
      phi1 = -30.248352
      theta2 = 84
      phi2 = 59.751648
      theta3 = 6
      phi3 = -120.24835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 799
      chmoth = 'DC17'
      x = 40.328751
      y = -23.517478
      z = 0
      irot = 2564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2565
      theta1 = 90
      phi1 = -28.27033
      theta2 = 84
      phi2 = 61.72967
      theta3 = 6
      phi3 = -118.27033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 800
      chmoth = 'DC17'
      x = 41.116453
      y = -22.111472
      z = 0
      irot = 2565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2566
      theta1 = 90
      phi1 = -26.292308
      theta2 = 84
      phi2 = 63.707692
      theta3 = 6
      phi3 = -116.29231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 801
      chmoth = 'DC17'
      x = 41.855156
      y = -20.679115
      z = 0
      irot = 2566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2567
      theta1 = 90
      phi1 = -24.314286
      theta2 = 84
      phi2 = 65.685714
      theta3 = 6
      phi3 = -114.31429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 802
      chmoth = 'DC17'
      x = 42.543979
      y = -19.222115
      z = 0
      irot = 2567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2568
      theta1 = 90
      phi1 = -22.336264
      theta2 = 84
      phi2 = 67.663736
      theta3 = 6
      phi3 = -112.33626
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 803
      chmoth = 'DC17'
      x = 43.182102
      y = -17.742207
      z = 0
      irot = 2568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2569
      theta1 = 90
      phi1 = -20.358242
      theta2 = 84
      phi2 = 69.641758
      theta3 = 6
      phi3 = -110.35824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 804
      chmoth = 'DC17'
      x = 43.768764
      y = -16.241156
      z = 0
      irot = 2569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2570
      theta1 = 90
      phi1 = -18.38022
      theta2 = 84
      phi2 = 71.61978
      theta3 = 6
      phi3 = -108.38022
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 805
      chmoth = 'DC17'
      x = 44.303266
      y = -14.72075
      z = 0
      irot = 2570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2571
      theta1 = 90
      phi1 = -16.402198
      theta2 = 84
      phi2 = 73.597802
      theta3 = 6
      phi3 = -106.4022
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 806
      chmoth = 'DC17'
      x = 44.784971
      y = -13.182801
      z = 0
      irot = 2571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2572
      theta1 = 90
      phi1 = -14.424176
      theta2 = 84
      phi2 = 75.575824
      theta3 = 6
      phi3 = -104.42418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 807
      chmoth = 'DC17'
      x = 45.213305
      y = -11.629141
      z = 0
      irot = 2572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2573
      theta1 = 90
      phi1 = -12.446154
      theta2 = 84
      phi2 = 77.553846
      theta3 = 6
      phi3 = -102.44615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 808
      chmoth = 'DC17'
      x = 45.587757
      y = -10.061623
      z = 0
      irot = 2573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2574
      theta1 = 90
      phi1 = -10.468132
      theta2 = 84
      phi2 = 79.531868
      theta3 = 6
      phi3 = -100.46813
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 809
      chmoth = 'DC17'
      x = 45.907882
      y = -8.4821145
      z = 0
      irot = 2574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2575
      theta1 = 90
      phi1 = -8.4901099
      theta2 = 84
      phi2 = 81.50989
      theta3 = 6
      phi3 = -98.49011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 810
      chmoth = 'DC17'
      x = 46.173297
      y = -6.8924975
      z = 0
      irot = 2575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2576
      theta1 = 90
      phi1 = -6.5120879
      theta2 = 84
      phi2 = 83.487912
      theta3 = 6
      phi3 = -96.512088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 811
      chmoth = 'DC17'
      x = 46.383687
      y = -5.2946666
      z = 0
      irot = 2576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2577
      theta1 = 90
      phi1 = -4.5340659
      theta2 = 84
      phi2 = 85.465934
      theta3 = 6
      phi3 = -94.534066
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 812
      chmoth = 'DC17'
      x = 46.5388
      y = -3.6905259
      z = 0
      irot = 2577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2578
      theta1 = 90
      phi1 = -2.556044
      theta2 = 84
      phi2 = 87.443956
      theta3 = 6
      phi3 = -92.556044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 813
      chmoth = 'DC17'
      x = 46.638452
      y = -2.0819872
      z = 0
      irot = 2578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2579
      theta1 = 90
      phi1 = -0.57802198
      theta2 = 84
      phi2 = 89.421978
      theta3 = 6
      phi3 = -90.578022
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 814
      chmoth = 'DC17'
      x = 46.682524
      y = -0.47096733
      z = 0
      irot = 2579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2580
      theta1 = 90.101315
      phi1 = 1.4
      theta2 = 83.82371
      phi2 = 91.389036
      theta3 = 6.1771277
      phi3 = -87.663857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 815
      chmoth = 'DC17'
      x = 48.038673
      y = 2.0041867
      z = 0
      irot = 2580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2581
      theta1 = 90.101315
      phi1 = 3.378022
      theta2 = 83.82371
      phi2 = 93.367058
      theta3 = 6.1771277
      phi3 = -85.685835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 816
      chmoth = 'DC17'
      x = 47.940872
      y = 3.661102
      z = 0
      irot = 2581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2582
      theta1 = 90.101315
      phi1 = 5.356044
      theta2 = 83.82371
      phi2 = 95.34508
      theta3 = 6.1771277
      phi3 = -83.707813
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 817
      chmoth = 'DC17'
      x = 47.785939
      y = 5.3136543
      z = 0
      irot = 2582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2583
      theta1 = 90.101315
      phi1 = 7.3340659
      theta2 = 83.82371
      phi2 = 97.323102
      theta3 = 6.1771277
      phi3 = -81.729791
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 818
      chmoth = 'DC17'
      x = 47.574059
      y = 6.9598742
      z = 0
      irot = 2583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2584
      theta1 = 90.101315
      phi1 = 9.3120879
      theta2 = 83.82371
      phi2 = 99.301124
      theta3 = 6.1771277
      phi3 = -79.751769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 819
      chmoth = 'DC17'
      x = 47.305483
      y = 8.5978
      z = 0
      irot = 2584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2585
      theta1 = 90.101315
      phi1 = 11.29011
      theta2 = 83.82371
      phi2 = 101.27915
      theta3 = 6.1771277
      phi3 = -77.773747
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 820
      chmoth = 'DC17'
      x = 46.980533
      y = 10.22548
      z = 0
      irot = 2585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2586
      theta1 = 90.101315
      phi1 = 13.268132
      theta2 = 83.82371
      phi2 = 103.25717
      theta3 = 6.1771277
      phi3 = -75.795725
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 821
      chmoth = 'DC17'
      x = 46.599595
      y = 11.840973
      z = 0
      irot = 2586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2587
      theta1 = 90.101315
      phi1 = 15.246154
      theta2 = 83.82371
      phi2 = 105.23519
      theta3 = 6.1771277
      phi3 = -73.817703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 822
      chmoth = 'DC17'
      x = 46.163124
      y = 13.442356
      z = 0
      irot = 2587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2588
      theta1 = 90.101315
      phi1 = 17.224176
      theta2 = 83.82371
      phi2 = 107.21321
      theta3 = 6.1771277
      phi3 = -71.839681
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 823
      chmoth = 'DC17'
      x = 45.671639
      y = 15.027719
      z = 0
      irot = 2588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2589
      theta1 = 90.101315
      phi1 = 19.202198
      theta2 = 83.82371
      phi2 = 109.19123
      theta3 = 6.1771277
      phi3 = -69.861659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 824
      chmoth = 'DC17'
      x = 45.125726
      y = 16.595173
      z = 0
      irot = 2589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2590
      theta1 = 90.101315
      phi1 = 21.18022
      theta2 = 83.82371
      phi2 = 111.16926
      theta3 = 6.1771277
      phi3 = -67.883637
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 825
      chmoth = 'DC17'
      x = 44.526036
      y = 18.14285
      z = 0
      irot = 2590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2591
      theta1 = 90.101315
      phi1 = 23.158242
      theta2 = 83.82371
      phi2 = 113.14728
      theta3 = 6.1771277
      phi3 = -65.905615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 826
      chmoth = 'DC17'
      x = 43.873284
      y = 19.668907
      z = 0
      irot = 2591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2592
      theta1 = 90.101315
      phi1 = 25.136264
      theta2 = 83.82371
      phi2 = 115.1253
      theta3 = 6.1771277
      phi3 = -63.927593
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 827
      chmoth = 'DC17'
      x = 43.168247
      y = 21.171523
      z = 0
      irot = 2592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2593
      theta1 = 90.101315
      phi1 = 27.114286
      theta2 = 83.82371
      phi2 = 117.10332
      theta3 = 6.1771277
      phi3 = -61.949571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 828
      chmoth = 'DC17'
      x = 42.411765
      y = 22.648909
      z = 0
      irot = 2593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2594
      theta1 = 90.101315
      phi1 = 29.092308
      theta2 = 83.82371
      phi2 = 119.08134
      theta3 = 6.1771277
      phi3 = -59.971549
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 829
      chmoth = 'DC17'
      x = 41.604741
      y = 24.099304
      z = 0
      irot = 2594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2595
      theta1 = 90.101315
      phi1 = 31.07033
      theta2 = 83.82371
      phi2 = 121.05937
      theta3 = 6.1771277
      phi3 = -57.993527
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 830
      chmoth = 'DC17'
      x = 40.748135
      y = 25.520979
      z = 0
      irot = 2595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2596
      theta1 = 90.101315
      phi1 = 33.048352
      theta2 = 83.82371
      phi2 = 123.03739
      theta3 = 6.1771277
      phi3 = -56.015505
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 831
      chmoth = 'DC17'
      x = 39.842969
      y = 26.91224
      z = 0
      irot = 2596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2597
      theta1 = 90.101315
      phi1 = 35.026374
      theta2 = 83.82371
      phi2 = 125.01541
      theta3 = 6.1771277
      phi3 = -54.037483
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 832
      chmoth = 'DC17'
      x = 38.890322
      y = 28.27143
      z = 0
      irot = 2597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2598
      theta1 = 90.101315
      phi1 = 37.004396
      theta2 = 83.82371
      phi2 = 126.99343
      theta3 = 6.1771277
      phi3 = -52.059461
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 833
      chmoth = 'DC17'
      x = 37.891328
      y = 29.596928
      z = 0
      irot = 2598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2599
      theta1 = 90.101315
      phi1 = 38.982418
      theta2 = 83.82371
      phi2 = 128.97145
      theta3 = 6.1771277
      phi3 = -50.081439
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 834
      chmoth = 'DC17'
      x = 36.847179
      y = 30.887155
      z = 0
      irot = 2599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2600
      theta1 = 90.101315
      phi1 = 40.96044
      theta2 = 83.82371
      phi2 = 130.94948
      theta3 = 6.1771277
      phi3 = -48.103417
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 835
      chmoth = 'DC17'
      x = 35.759118
      y = 32.140573
      z = 0
      irot = 2600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2601
      theta1 = 90.101315
      phi1 = 42.938462
      theta2 = 83.82371
      phi2 = 132.9275
      theta3 = 6.1771277
      phi3 = -46.125395
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 836
      chmoth = 'DC17'
      x = 34.628442
      y = 33.355688
      z = 0
      irot = 2601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2602
      theta1 = 90.101315
      phi1 = 44.916484
      theta2 = 83.82371
      phi2 = 134.90552
      theta3 = 6.1771277
      phi3 = -44.147373
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 837
      chmoth = 'DC17'
      x = 33.456498
      y = 34.531053
      z = 0
      irot = 2602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2603
      theta1 = 90.101315
      phi1 = 46.894505
      theta2 = 83.82371
      phi2 = 136.88354
      theta3 = 6.1771277
      phi3 = -42.169351
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 838
      chmoth = 'DC17'
      x = 32.244685
      y = 35.665266
      z = 0
      irot = 2603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2604
      theta1 = 90.101315
      phi1 = 48.872527
      theta2 = 83.82371
      phi2 = 138.86156
      theta3 = 6.1771277
      phi3 = -40.191329
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 839
      chmoth = 'DC17'
      x = 30.994444
      y = 36.756977
      z = 0
      irot = 2604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2605
      theta1 = 90.101315
      phi1 = 50.850549
      theta2 = 83.82371
      phi2 = 140.83959
      theta3 = 6.1771277
      phi3 = -38.213307
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 840
      chmoth = 'DC17'
      x = 29.707267
      y = 37.804883
      z = 0
      irot = 2605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2606
      theta1 = 90.101315
      phi1 = 52.828571
      theta2 = 83.82371
      phi2 = 142.81761
      theta3 = 6.1771277
      phi3 = -36.235285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 841
      chmoth = 'DC17'
      x = 28.384687
      y = 38.807737
      z = 0
      irot = 2606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2607
      theta1 = 90.101315
      phi1 = 54.806593
      theta2 = 83.82371
      phi2 = 144.79563
      theta3 = 6.1771277
      phi3 = -34.257263
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 842
      chmoth = 'DC17'
      x = 27.02828
      y = 39.764343
      z = 0
      irot = 2607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2608
      theta1 = 90.101315
      phi1 = 56.784615
      theta2 = 83.82371
      phi2 = 146.77365
      theta3 = 6.1771277
      phi3 = -32.279241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 843
      chmoth = 'DC17'
      x = 25.639664
      y = 40.673561
      z = 0
      irot = 2608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2609
      theta1 = 90.101315
      phi1 = 58.762637
      theta2 = 83.82371
      phi2 = 148.75167
      theta3 = 6.1771277
      phi3 = -30.301219
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 844
      chmoth = 'DC17'
      x = 24.220492
      y = 41.534307
      z = 0
      irot = 2609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2610
      theta1 = 90.101315
      phi1 = 60.740659
      theta2 = 83.82371
      phi2 = 150.7297
      theta3 = 6.1771277
      phi3 = -28.323197
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 845
      chmoth = 'DC17'
      x = 22.772456
      y = 42.345557
      z = 0
      irot = 2610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2611
      theta1 = 90.101315
      phi1 = 62.718681
      theta2 = 83.82371
      phi2 = 152.70772
      theta3 = 6.1771277
      phi3 = -26.345175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 846
      chmoth = 'DC17'
      x = 21.297281
      y = 43.106342
      z = 0
      irot = 2611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2612
      theta1 = 90.101315
      phi1 = 64.696703
      theta2 = 83.82371
      phi2 = 154.68574
      theta3 = 6.1771277
      phi3 = -24.367153
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 847
      chmoth = 'DC17'
      x = 19.796727
      y = 43.815757
      z = 0
      irot = 2612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2613
      theta1 = 90.101315
      phi1 = 66.674725
      theta2 = 83.82371
      phi2 = 156.66376
      theta3 = 6.1771277
      phi3 = -22.389131
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 848
      chmoth = 'DC17'
      x = 18.27258
      y = 44.472955
      z = 0
      irot = 2613
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2614
      theta1 = 90.101315
      phi1 = 68.652747
      theta2 = 83.82371
      phi2 = 158.64178
      theta3 = 6.1771277
      phi3 = -20.411109
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 849
      chmoth = 'DC17'
      x = 16.726657
      y = 45.077154
      z = 0
      irot = 2614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2615
      theta1 = 90.101315
      phi1 = 70.630769
      theta2 = 83.82371
      phi2 = 160.61981
      theta3 = 6.1771277
      phi3 = -18.433087
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 850
      chmoth = 'DC17'
      x = 15.160801
      y = 45.627634
      z = 0
      irot = 2615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2616
      theta1 = 90.101315
      phi1 = 72.608791
      theta2 = 83.82371
      phi2 = 162.59783
      theta3 = 6.1771277
      phi3 = -16.455065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 851
      chmoth = 'DC17'
      x = 13.576878
      y = 46.123739
      z = 0
      irot = 2616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2617
      theta1 = 90.101315
      phi1 = 74.586813
      theta2 = 83.82371
      phi2 = 164.57585
      theta3 = 6.1771277
      phi3 = -14.477043
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 852
      chmoth = 'DC17'
      x = 11.976774
      y = 46.564877
      z = 0
      irot = 2617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2618
      theta1 = 90.101315
      phi1 = 76.564835
      theta2 = 83.82371
      phi2 = 166.55387
      theta3 = 6.1771277
      phi3 = -12.499021
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 853
      chmoth = 'DC17'
      x = 10.362398
      y = 46.950523
      z = 0
      irot = 2618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2619
      theta1 = 90.101315
      phi1 = 78.542857
      theta2 = 83.82371
      phi2 = 168.53189
      theta3 = 6.1771277
      phi3 = -10.521
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 854
      chmoth = 'DC17'
      x = 8.7356729
      y = 47.280217
      z = 0
      irot = 2619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2620
      theta1 = 90.101315
      phi1 = 80.520879
      theta2 = 83.82371
      phi2 = 170.50992
      theta3 = 6.1771277
      phi3 = -8.5429775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 855
      chmoth = 'DC17'
      x = 7.0985371
      y = 47.553566
      z = 0
      irot = 2620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2621
      theta1 = 90.101315
      phi1 = 82.498901
      theta2 = 83.82371
      phi2 = 172.48794
      theta3 = 6.1771277
      phi3 = -6.5649555
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 856
      chmoth = 'DC17'
      x = 5.4529419
      y = 47.770245
      z = 0
      irot = 2621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2622
      theta1 = 90.101315
      phi1 = 84.476923
      theta2 = 83.82371
      phi2 = 174.46596
      theta3 = 6.1771277
      phi3 = -4.5869336
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 857
      chmoth = 'DC17'
      x = 3.8008483
      y = 47.929995
      z = 0
      irot = 2622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2623
      theta1 = 90.101315
      phi1 = 86.454945
      theta2 = 83.82371
      phi2 = 176.44398
      theta3 = 6.1771277
      phi3 = -2.6089116
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 858
      chmoth = 'DC17'
      x = 2.1442251
      y = 48.032626
      z = 0
      irot = 2623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2624
      theta1 = 90.101315
      phi1 = 88.432967
      theta2 = 83.82371
      phi2 = 178.422
      theta3 = 6.1771277
      phi3 = -0.63088961
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 859
      chmoth = 'DC17'
      x = 0.48504668
      y = 48.078016
      z = 0
      irot = 2624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2625
      theta1 = 90.101315
      phi1 = 90.410989
      theta2 = 83.82371
      phi2 = -179.59997
      theta3 = 6.1771277
      phi3 = 1.3471324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 860
      chmoth = 'DC17'
      x = -1.1747098
      y = 48.06611
      z = 0
      irot = 2625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2626
      theta1 = 90.101315
      phi1 = 92.389011
      theta2 = 83.82371
      phi2 = -177.62195
      theta3 = 6.1771277
      phi3 = 3.3251543
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 861
      chmoth = 'DC17'
      x = -2.8330664
      y = 47.996923
      z = 0
      irot = 2626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2627
      theta1 = 90.101315
      phi1 = 94.367033
      theta2 = 83.82371
      phi2 = -175.64393
      theta3 = 6.1771277
      phi3 = 5.3031763
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 862
      chmoth = 'DC17'
      x = -4.4880468
      y = 47.870537
      z = 0
      irot = 2627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2628
      theta1 = 90.101315
      phi1 = 96.345055
      theta2 = 83.82371
      phi2 = -173.66591
      theta3 = 6.1771277
      phi3 = 7.2811983
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 863
      chmoth = 'DC17'
      x = -6.1376786
      y = 47.687103
      z = 0
      irot = 2628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2629
      theta1 = 90.101315
      phi1 = 98.323077
      theta2 = 83.82371
      phi2 = -171.68789
      theta3 = 6.1771277
      phi3 = 9.2592203
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 864
      chmoth = 'DC17'
      x = -7.7799961
      y = 47.446839
      z = 0
      irot = 2629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2630
      theta1 = 90.101315
      phi1 = 100.3011
      theta2 = 83.82371
      phi2 = -169.70987
      theta3 = 6.1771277
      phi3 = 11.237242
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 865
      chmoth = 'DC17'
      x = -9.4130421
      y = 47.150032
      z = 0
      irot = 2630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2631
      theta1 = 90.101315
      phi1 = 102.27912
      theta2 = 83.82371
      phi2 = -167.73184
      theta3 = 6.1771277
      phi3 = 13.215264
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 866
      chmoth = 'DC17'
      x = -11.03487
      y = 46.797036
      z = 0
      irot = 2631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2632
      theta1 = 90.101315
      phi1 = 104.25714
      theta2 = 83.82371
      phi2 = -165.75382
      theta3 = 6.1771277
      phi3 = 15.193286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 867
      chmoth = 'DC17'
      x = -12.643548
      y = 46.38827
      z = 0
      irot = 2632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2633
      theta1 = 90.101315
      phi1 = 106.23516
      theta2 = 83.82371
      phi2 = -163.7758
      theta3 = 6.1771277
      phi3 = 17.171308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 868
      chmoth = 'DC17'
      x = -14.237158
      y = 45.924223
      z = 0
      irot = 2633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2634
      theta1 = 90.101315
      phi1 = 108.21319
      theta2 = 83.82371
      phi2 = -161.79778
      theta3 = 6.1771277
      phi3 = 19.14933
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 869
      chmoth = 'DC17'
      x = -15.813802
      y = 45.405447
      z = 0
      irot = 2634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2635
      theta1 = 90.101315
      phi1 = 110.19121
      theta2 = 83.82371
      phi2 = -159.81976
      theta3 = 6.1771277
      phi3 = 21.127352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 870
      chmoth = 'DC17'
      x = -17.3716
      y = 44.83256
      z = 0
      irot = 2635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2636
      theta1 = 90.101315
      phi1 = 112.16923
      theta2 = 83.82371
      phi2 = -157.84173
      theta3 = 6.1771277
      phi3 = 23.105374
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 871
      chmoth = 'DC17'
      x = -18.908695
      y = 44.206245
      z = 0
      irot = 2636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2637
      theta1 = 90.101315
      phi1 = 114.14725
      theta2 = 83.82371
      phi2 = -155.86371
      theta3 = 6.1771277
      phi3 = 25.083396
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 872
      chmoth = 'DC17'
      x = -20.423257
      y = 43.52725
      z = 0
      irot = 2637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2638
      theta1 = 90.101315
      phi1 = 116.12527
      theta2 = 83.82371
      phi2 = -153.88569
      theta3 = 6.1771277
      phi3 = 27.061418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 873
      chmoth = 'DC17'
      x = -21.913481
      y = 42.796382
      z = 0
      irot = 2638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2639
      theta1 = 90.101315
      phi1 = 118.1033
      theta2 = 83.82371
      phi2 = -151.90767
      theta3 = 6.1771277
      phi3 = 29.03944
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 874
      chmoth = 'DC17'
      x = -23.377589
      y = 42.014512
      z = 0
      irot = 2639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2640
      theta1 = 90.101315
      phi1 = 120.08132
      theta2 = 83.82371
      phi2 = -149.92965
      theta3 = 6.1771277
      phi3 = 31.017462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 875
      chmoth = 'DC17'
      x = -24.813838
      y = 41.182573
      z = 0
      irot = 2640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2641
      theta1 = 90.101315
      phi1 = 122.05934
      theta2 = 83.82371
      phi2 = -147.95162
      theta3 = 6.1771277
      phi3 = 32.995484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 876
      chmoth = 'DC17'
      x = -26.220516
      y = 40.301556
      z = 0
      irot = 2641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2642
      theta1 = 90.101315
      phi1 = 124.03736
      theta2 = 83.82371
      phi2 = -145.9736
      theta3 = 6.1771277
      phi3 = 34.973506
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 877
      chmoth = 'DC17'
      x = -27.595946
      y = 39.372511
      z = 0
      irot = 2642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2643
      theta1 = 90.101315
      phi1 = 126.01538
      theta2 = 83.82371
      phi2 = -143.99558
      theta3 = 6.1771277
      phi3 = 36.951528
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 878
      chmoth = 'DC17'
      x = -28.93849
      y = 38.396545
      z = 0
      irot = 2643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2644
      theta1 = 90.101315
      phi1 = 127.99341
      theta2 = 83.82371
      phi2 = -142.01756
      theta3 = 6.1771277
      phi3 = 38.92955
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 879
      chmoth = 'DC17'
      x = -30.246547
      y = 37.374821
      z = 0
      irot = 2644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2645
      theta1 = 90.101315
      phi1 = 129.97143
      theta2 = 83.82371
      phi2 = -140.03954
      theta3 = 6.1771277
      phi3 = 40.907572
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 880
      chmoth = 'DC17'
      x = -31.518559
      y = 36.308557
      z = 0
      irot = 2645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2646
      theta1 = 90.101315
      phi1 = 131.94945
      theta2 = 83.82371
      phi2 = -138.06151
      theta3 = 6.1771277
      phi3 = 42.885594
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 881
      chmoth = 'DC17'
      x = -32.75301
      y = 35.199023
      z = 0
      irot = 2646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2647
      theta1 = 90.101315
      phi1 = 133.92747
      theta2 = 83.82371
      phi2 = -136.08349
      theta3 = 6.1771277
      phi3 = 44.863616
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 882
      chmoth = 'DC17'
      x = -33.948428
      y = 34.047542
      z = 0
      irot = 2647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2648
      theta1 = 90.101315
      phi1 = 135.90549
      theta2 = 83.82371
      phi2 = -134.10547
      theta3 = 6.1771277
      phi3 = 46.841638
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 883
      chmoth = 'DC17'
      x = -35.103389
      y = 32.855486
      z = 0
      irot = 2648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2649
      theta1 = 90.101315
      phi1 = 137.88352
      theta2 = 83.82371
      phi2 = -132.12745
      theta3 = 6.1771277
      phi3 = 48.81966
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 884
      chmoth = 'DC17'
      x = -36.216517
      y = 31.624275
      z = 0
      irot = 2649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2650
      theta1 = 90.101315
      phi1 = 139.86154
      theta2 = 83.82371
      phi2 = -130.14943
      theta3 = 6.1771277
      phi3 = 50.797682
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 885
      chmoth = 'DC17'
      x = -37.286485
      y = 30.355378
      z = 0
      irot = 2650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2651
      theta1 = 90.101315
      phi1 = 141.83956
      theta2 = 83.82371
      phi2 = -128.1714
      theta3 = 6.1771277
      phi3 = 52.775704
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 886
      chmoth = 'DC17'
      x = -38.312018
      y = 29.050304
      z = 0
      irot = 2651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2652
      theta1 = 90.101315
      phi1 = 143.81758
      theta2 = 83.82371
      phi2 = -126.19338
      theta3 = 6.1771277
      phi3 = 54.753726
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 887
      chmoth = 'DC17'
      x = -39.291894
      y = 27.710612
      z = 0
      irot = 2652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2653
      theta1 = 90.101315
      phi1 = 145.7956
      theta2 = 83.82371
      phi2 = -124.21536
      theta3 = 6.1771277
      phi3 = 56.731748
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 888
      chmoth = 'DC17'
      x = -40.224945
      y = 26.337896
      z = 0
      irot = 2653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2654
      theta1 = 90.101315
      phi1 = 147.77363
      theta2 = 83.82371
      phi2 = -122.23734
      theta3 = 6.1771277
      phi3 = 58.70977
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 889
      chmoth = 'DC17'
      x = -41.110059
      y = 24.933792
      z = 0
      irot = 2654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2655
      theta1 = 90.101315
      phi1 = 149.75165
      theta2 = 83.82371
      phi2 = -120.25932
      theta3 = 6.1771277
      phi3 = 60.687792
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 890
      chmoth = 'DC17'
      x = -41.946181
      y = 23.499975
      z = 0
      irot = 2655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2656
      theta1 = 90.101315
      phi1 = 151.72967
      theta2 = 83.82371
      phi2 = -118.28129
      theta3 = 6.1771277
      phi3 = 62.665814
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 891
      chmoth = 'DC17'
      x = -42.732315
      y = 22.038152
      z = 0
      irot = 2656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2657
      theta1 = 90.101315
      phi1 = 153.70769
      theta2 = 83.82371
      phi2 = -116.30327
      theta3 = 6.1771277
      phi3 = 64.643836
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 892
      chmoth = 'DC17'
      x = -43.467525
      y = 20.550065
      z = 0
      irot = 2657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2658
      theta1 = 90.101315
      phi1 = 155.68571
      theta2 = 83.82371
      phi2 = -114.32525
      theta3 = 6.1771277
      phi3 = 66.621858
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 893
      chmoth = 'DC17'
      x = -44.150933
      y = 19.037489
      z = 0
      irot = 2658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2659
      theta1 = 90.101315
      phi1 = 157.66374
      theta2 = 83.82371
      phi2 = -112.34723
      theta3 = 6.1771277
      phi3 = 68.59988
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 894
      chmoth = 'DC17'
      x = -44.781726
      y = 17.502226
      z = 0
      irot = 2659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2660
      theta1 = 90.101315
      phi1 = 159.64176
      theta2 = 83.82371
      phi2 = -110.36921
      theta3 = 6.1771277
      phi3 = 70.577902
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 895
      chmoth = 'DC17'
      x = -45.359152
      y = 15.946105
      z = 0
      irot = 2660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2661
      theta1 = 90.101315
      phi1 = 161.61978
      theta2 = 83.82371
      phi2 = -108.39118
      theta3 = 6.1771277
      phi3 = 72.555924
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 896
      chmoth = 'DC17'
      x = -45.882522
      y = 14.37098
      z = 0
      irot = 2661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2662
      theta1 = 90.101315
      phi1 = 163.5978
      theta2 = 83.82371
      phi2 = -106.41316
      theta3 = 6.1771277
      phi3 = 74.533946
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 897
      chmoth = 'DC17'
      x = -46.351213
      y = 12.77873
      z = 0
      irot = 2662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2663
      theta1 = 90.101315
      phi1 = 165.57582
      theta2 = 83.82371
      phi2 = -104.43514
      theta3 = 6.1771277
      phi3 = 76.511968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 898
      chmoth = 'DC17'
      x = -46.764667
      y = 11.171251
      z = 0
      irot = 2663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2664
      theta1 = 90.101315
      phi1 = 167.55385
      theta2 = 83.82371
      phi2 = -102.45712
      theta3 = 6.1771277
      phi3 = 78.48999
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 899
      chmoth = 'DC17'
      x = -47.12239
      y = 9.5504584
      z = 0
      irot = 2664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2665
      theta1 = 90.101315
      phi1 = 169.53187
      theta2 = 83.82371
      phi2 = -100.4791
      theta3 = 6.1771277
      phi3 = 80.468011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 900
      chmoth = 'DC17'
      x = -47.423957
      y = 7.9182847
      z = 0
      irot = 2665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2666
      theta1 = 90.101315
      phi1 = 171.50989
      theta2 = 83.82371
      phi2 = -98.501074
      theta3 = 6.1771277
      phi3 = 82.446033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 901
      chmoth = 'DC17'
      x = -47.669007
      y = 6.2766746
      z = 0
      irot = 2666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2667
      theta1 = 90.101315
      phi1 = 173.48791
      theta2 = 83.82371
      phi2 = -96.523052
      theta3 = 6.1771277
      phi3 = 84.424055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 902
      chmoth = 'DC17'
      x = -47.85725
      y = 4.6275845
      z = 0
      irot = 2667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2668
      theta1 = 90.101315
      phi1 = 175.46593
      theta2 = 83.82371
      phi2 = -94.54503
      theta3 = 6.1771277
      phi3 = 86.402077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 903
      chmoth = 'DC17'
      x = -47.98846
      y = 2.9729796
      z = 0
      irot = 2668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2669
      theta1 = 90.101315
      phi1 = 177.44396
      theta2 = 83.82371
      phi2 = -92.567008
      theta3 = 6.1771277
      phi3 = 88.380099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 904
      chmoth = 'DC17'
      x = -48.062481
      y = 1.3148318
      z = 0
      irot = 2669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2670
      theta1 = 90.101315
      phi1 = 179.42198
      theta2 = 83.82371
      phi2 = -90.588986
      theta3 = 6.1771277
      phi3 = 90.358121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 905
      chmoth = 'DC17'
      x = -48.079226
      y = -0.34488296
      z = 0
      irot = 2670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2671
      theta1 = 90.101315
      phi1 = -178.6
      theta2 = 83.82371
      phi2 = -88.610964
      theta3 = 6.1771277
      phi3 = 92.336143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 906
      chmoth = 'DC17'
      x = -48.038673
      y = -2.0041867
      z = 0
      irot = 2671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2672
      theta1 = 90.101315
      phi1 = -176.62198
      theta2 = 83.82371
      phi2 = -86.632942
      theta3 = 6.1771277
      phi3 = 94.314165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 907
      chmoth = 'DC17'
      x = -47.940872
      y = -3.661102
      z = 0
      irot = 2672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2673
      theta1 = 90.101315
      phi1 = -174.64396
      theta2 = 83.82371
      phi2 = -84.65492
      theta3 = 6.1771277
      phi3 = 96.292187
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 908
      chmoth = 'DC17'
      x = -47.785939
      y = -5.3136543
      z = 0
      irot = 2673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2674
      theta1 = 90.101315
      phi1 = -172.66593
      theta2 = 83.82371
      phi2 = -82.676898
      theta3 = 6.1771277
      phi3 = 98.270209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 909
      chmoth = 'DC17'
      x = -47.574059
      y = -6.9598742
      z = 0
      irot = 2674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2675
      theta1 = 90.101315
      phi1 = -170.68791
      theta2 = 83.82371
      phi2 = -80.698876
      theta3 = 6.1771277
      phi3 = 100.24823
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 910
      chmoth = 'DC17'
      x = -47.305483
      y = -8.5978
      z = 0
      irot = 2675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2676
      theta1 = 90.101315
      phi1 = -168.70989
      theta2 = 83.82371
      phi2 = -78.720854
      theta3 = 6.1771277
      phi3 = 102.22625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 911
      chmoth = 'DC17'
      x = -46.980533
      y = -10.22548
      z = 0
      irot = 2676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2677
      theta1 = 90.101315
      phi1 = -166.73187
      theta2 = 83.82371
      phi2 = -76.742832
      theta3 = 6.1771277
      phi3 = 104.20428
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 912
      chmoth = 'DC17'
      x = -46.599595
      y = -11.840973
      z = 0
      irot = 2677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2678
      theta1 = 90.101315
      phi1 = -164.75385
      theta2 = 83.82371
      phi2 = -74.76481
      theta3 = 6.1771277
      phi3 = 106.1823
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 913
      chmoth = 'DC17'
      x = -46.163124
      y = -13.442356
      z = 0
      irot = 2678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2679
      theta1 = 90.101315
      phi1 = -162.77582
      theta2 = 83.82371
      phi2 = -72.786788
      theta3 = 6.1771277
      phi3 = 108.16032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 914
      chmoth = 'DC17'
      x = -45.671639
      y = -15.027719
      z = 0
      irot = 2679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2680
      theta1 = 90.101315
      phi1 = -160.7978
      theta2 = 83.82371
      phi2 = -70.808766
      theta3 = 6.1771277
      phi3 = 110.13834
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 915
      chmoth = 'DC17'
      x = -45.125726
      y = -16.595173
      z = 0
      irot = 2680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2681
      theta1 = 90.101315
      phi1 = -158.81978
      theta2 = 83.82371
      phi2 = -68.830744
      theta3 = 6.1771277
      phi3 = 112.11636
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 916
      chmoth = 'DC17'
      x = -44.526036
      y = -18.14285
      z = 0
      irot = 2681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2682
      theta1 = 90.101315
      phi1 = -156.84176
      theta2 = 83.82371
      phi2 = -66.852722
      theta3 = 6.1771277
      phi3 = 114.09439
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 917
      chmoth = 'DC17'
      x = -43.873284
      y = -19.668907
      z = 0
      irot = 2682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2683
      theta1 = 90.101315
      phi1 = -154.86374
      theta2 = 83.82371
      phi2 = -64.8747
      theta3 = 6.1771277
      phi3 = 116.07241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 918
      chmoth = 'DC17'
      x = -43.168247
      y = -21.171523
      z = 0
      irot = 2683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2684
      theta1 = 90.101315
      phi1 = -152.88571
      theta2 = 83.82371
      phi2 = -62.896678
      theta3 = 6.1771277
      phi3 = 118.05043
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 919
      chmoth = 'DC17'
      x = -42.411765
      y = -22.648909
      z = 0
      irot = 2684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2685
      theta1 = 90.101315
      phi1 = -150.90769
      theta2 = 83.82371
      phi2 = -60.918656
      theta3 = 6.1771277
      phi3 = 120.02845
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 920
      chmoth = 'DC17'
      x = -41.604741
      y = -24.099304
      z = 0
      irot = 2685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2686
      theta1 = 90.101315
      phi1 = -148.92967
      theta2 = 83.82371
      phi2 = -58.940634
      theta3 = 6.1771277
      phi3 = 122.00647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 921
      chmoth = 'DC17'
      x = -40.748135
      y = -25.520979
      z = 0
      irot = 2686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2687
      theta1 = 90.101315
      phi1 = -146.95165
      theta2 = 83.82371
      phi2 = -56.962612
      theta3 = 6.1771277
      phi3 = 123.9845
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 922
      chmoth = 'DC17'
      x = -39.842969
      y = -26.91224
      z = 0
      irot = 2687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2688
      theta1 = 90.101315
      phi1 = -144.97363
      theta2 = 83.82371
      phi2 = -54.98459
      theta3 = 6.1771277
      phi3 = 125.96252
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 923
      chmoth = 'DC17'
      x = -38.890322
      y = -28.27143
      z = 0
      irot = 2688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2689
      theta1 = 90.101315
      phi1 = -142.9956
      theta2 = 83.82371
      phi2 = -53.006568
      theta3 = 6.1771277
      phi3 = 127.94054
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 924
      chmoth = 'DC17'
      x = -37.891328
      y = -29.596928
      z = 0
      irot = 2689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2690
      theta1 = 90.101315
      phi1 = -141.01758
      theta2 = 83.82371
      phi2 = -51.028546
      theta3 = 6.1771277
      phi3 = 129.91856
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 925
      chmoth = 'DC17'
      x = -36.847179
      y = -30.887155
      z = 0
      irot = 2690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2691
      theta1 = 90.101315
      phi1 = -139.03956
      theta2 = 83.82371
      phi2 = -49.050524
      theta3 = 6.1771277
      phi3 = 131.89658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 926
      chmoth = 'DC17'
      x = -35.759118
      y = -32.140573
      z = 0
      irot = 2691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2692
      theta1 = 90.101315
      phi1 = -137.06154
      theta2 = 83.82371
      phi2 = -47.072502
      theta3 = 6.1771277
      phi3 = 133.8746
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 927
      chmoth = 'DC17'
      x = -34.628442
      y = -33.355688
      z = 0
      irot = 2692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2693
      theta1 = 90.101315
      phi1 = -135.08352
      theta2 = 83.82371
      phi2 = -45.09448
      theta3 = 6.1771277
      phi3 = 135.85263
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 928
      chmoth = 'DC17'
      x = -33.456498
      y = -34.531053
      z = 0
      irot = 2693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2694
      theta1 = 90.101315
      phi1 = -133.10549
      theta2 = 83.82371
      phi2 = -43.116458
      theta3 = 6.1771277
      phi3 = 137.83065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 929
      chmoth = 'DC17'
      x = -32.244685
      y = -35.665266
      z = 0
      irot = 2694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2695
      theta1 = 90.101315
      phi1 = -131.12747
      theta2 = 83.82371
      phi2 = -41.138436
      theta3 = 6.1771277
      phi3 = 139.80867
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 930
      chmoth = 'DC17'
      x = -30.994444
      y = -36.756977
      z = 0
      irot = 2695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2696
      theta1 = 90.101315
      phi1 = -129.14945
      theta2 = 83.82371
      phi2 = -39.160414
      theta3 = 6.1771277
      phi3 = 141.78669
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 931
      chmoth = 'DC17'
      x = -29.707267
      y = -37.804883
      z = 0
      irot = 2696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2697
      theta1 = 90.101315
      phi1 = -127.17143
      theta2 = 83.82371
      phi2 = -37.182392
      theta3 = 6.1771277
      phi3 = 143.76471
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 932
      chmoth = 'DC17'
      x = -28.384687
      y = -38.807737
      z = 0
      irot = 2697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2698
      theta1 = 90.101315
      phi1 = -125.19341
      theta2 = 83.82371
      phi2 = -35.204371
      theta3 = 6.1771277
      phi3 = 145.74274
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 933
      chmoth = 'DC17'
      x = -27.02828
      y = -39.764343
      z = 0
      irot = 2698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2699
      theta1 = 90.101315
      phi1 = -123.21538
      theta2 = 83.82371
      phi2 = -33.226349
      theta3 = 6.1771277
      phi3 = 147.72076
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 934
      chmoth = 'DC17'
      x = -25.639664
      y = -40.673561
      z = 0
      irot = 2699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2700
      theta1 = 90.101315
      phi1 = -121.23736
      theta2 = 83.82371
      phi2 = -31.248327
      theta3 = 6.1771277
      phi3 = 149.69878
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 935
      chmoth = 'DC17'
      x = -24.220492
      y = -41.534307
      z = 0
      irot = 2700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2701
      theta1 = 90.101315
      phi1 = -119.25934
      theta2 = 83.82371
      phi2 = -29.270305
      theta3 = 6.1771277
      phi3 = 151.6768
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 936
      chmoth = 'DC17'
      x = -22.772456
      y = -42.345557
      z = 0
      irot = 2701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2702
      theta1 = 90.101315
      phi1 = -117.28132
      theta2 = 83.82371
      phi2 = -27.292283
      theta3 = 6.1771277
      phi3 = 153.65482
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 937
      chmoth = 'DC17'
      x = -21.297281
      y = -43.106342
      z = 0
      irot = 2702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2703
      theta1 = 90.101315
      phi1 = -115.3033
      theta2 = 83.82371
      phi2 = -25.314261
      theta3 = 6.1771277
      phi3 = 155.63285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 938
      chmoth = 'DC17'
      x = -19.796727
      y = -43.815757
      z = 0
      irot = 2703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2704
      theta1 = 90.101315
      phi1 = -113.32527
      theta2 = 83.82371
      phi2 = -23.336239
      theta3 = 6.1771277
      phi3 = 157.61087
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 939
      chmoth = 'DC17'
      x = -18.27258
      y = -44.472955
      z = 0
      irot = 2704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2705
      theta1 = 90.101315
      phi1 = -111.34725
      theta2 = 83.82371
      phi2 = -21.358217
      theta3 = 6.1771277
      phi3 = 159.58889
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 940
      chmoth = 'DC17'
      x = -16.726657
      y = -45.077154
      z = 0
      irot = 2705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2706
      theta1 = 90.101315
      phi1 = -109.36923
      theta2 = 83.82371
      phi2 = -19.380195
      theta3 = 6.1771277
      phi3 = 161.56691
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 941
      chmoth = 'DC17'
      x = -15.160801
      y = -45.627634
      z = 0
      irot = 2706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2707
      theta1 = 90.101315
      phi1 = -107.39121
      theta2 = 83.82371
      phi2 = -17.402173
      theta3 = 6.1771277
      phi3 = 163.54493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 942
      chmoth = 'DC17'
      x = -13.576878
      y = -46.123739
      z = 0
      irot = 2707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2708
      theta1 = 90.101315
      phi1 = -105.41319
      theta2 = 83.82371
      phi2 = -15.424151
      theta3 = 6.1771277
      phi3 = 165.52296
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 943
      chmoth = 'DC17'
      x = -11.976774
      y = -46.564877
      z = 0
      irot = 2708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2709
      theta1 = 90.101315
      phi1 = -103.43516
      theta2 = 83.82371
      phi2 = -13.446129
      theta3 = 6.1771277
      phi3 = 167.50098
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 944
      chmoth = 'DC17'
      x = -10.362398
      y = -46.950523
      z = 0
      irot = 2709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2710
      theta1 = 90.101315
      phi1 = -101.45714
      theta2 = 83.82371
      phi2 = -11.468107
      theta3 = 6.1771277
      phi3 = 169.479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 945
      chmoth = 'DC17'
      x = -8.7356729
      y = -47.280217
      z = 0
      irot = 2710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2711
      theta1 = 90.101315
      phi1 = -99.479121
      theta2 = 83.82371
      phi2 = -9.4900848
      theta3 = 6.1771277
      phi3 = 171.45702
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 946
      chmoth = 'DC17'
      x = -7.0985371
      y = -47.553566
      z = 0
      irot = 2711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2712
      theta1 = 90.101315
      phi1 = -97.501099
      theta2 = 83.82371
      phi2 = -7.5120628
      theta3 = 6.1771277
      phi3 = 173.43504
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 947
      chmoth = 'DC17'
      x = -5.4529419
      y = -47.770245
      z = 0
      irot = 2712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2713
      theta1 = 90.101315
      phi1 = -95.523077
      theta2 = 83.82371
      phi2 = -5.5340408
      theta3 = 6.1771277
      phi3 = 175.41307
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 948
      chmoth = 'DC17'
      x = -3.8008483
      y = -47.929995
      z = 0
      irot = 2713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2714
      theta1 = 90.101315
      phi1 = -93.545055
      theta2 = 83.82371
      phi2 = -3.5560189
      theta3 = 6.1771277
      phi3 = 177.39109
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 949
      chmoth = 'DC17'
      x = -2.1442251
      y = -48.032626
      z = 0
      irot = 2714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2715
      theta1 = 90.101315
      phi1 = -91.567033
      theta2 = 83.82371
      phi2 = -1.5779969
      theta3 = 6.1771277
      phi3 = 179.36911
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 950
      chmoth = 'DC17'
      x = -0.48504668
      y = -48.078016
      z = 0
      irot = 2715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2716
      theta1 = 90.101315
      phi1 = -89.589011
      theta2 = 83.82371
      phi2 = 0.40002509
      theta3 = 6.1771277
      phi3 = -178.65287
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 951
      chmoth = 'DC17'
      x = 1.1747098
      y = -48.06611
      z = 0
      irot = 2716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2717
      theta1 = 90.101315
      phi1 = -87.610989
      theta2 = 83.82371
      phi2 = 2.3780471
      theta3 = 6.1771277
      phi3 = -176.67485
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 952
      chmoth = 'DC17'
      x = 2.8330664
      y = -47.996923
      z = 0
      irot = 2717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2718
      theta1 = 90.101315
      phi1 = -85.632967
      theta2 = 83.82371
      phi2 = 4.356069
      theta3 = 6.1771277
      phi3 = -174.69682
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 953
      chmoth = 'DC17'
      x = 4.4880468
      y = -47.870537
      z = 0
      irot = 2718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2719
      theta1 = 90.101315
      phi1 = -83.654945
      theta2 = 83.82371
      phi2 = 6.334091
      theta3 = 6.1771277
      phi3 = -172.7188
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 954
      chmoth = 'DC17'
      x = 6.1376786
      y = -47.687103
      z = 0
      irot = 2719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2720
      theta1 = 90.101315
      phi1 = -81.676923
      theta2 = 83.82371
      phi2 = 8.312113
      theta3 = 6.1771277
      phi3 = -170.74078
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 955
      chmoth = 'DC17'
      x = 7.7799961
      y = -47.446839
      z = 0
      irot = 2720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2721
      theta1 = 90.101315
      phi1 = -79.698901
      theta2 = 83.82371
      phi2 = 10.290135
      theta3 = 6.1771277
      phi3 = -168.76276
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 956
      chmoth = 'DC17'
      x = 9.4130421
      y = -47.150032
      z = 0
      irot = 2721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2722
      theta1 = 90.101315
      phi1 = -77.720879
      theta2 = 83.82371
      phi2 = 12.268157
      theta3 = 6.1771277
      phi3 = -166.78474
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 957
      chmoth = 'DC17'
      x = 11.03487
      y = -46.797036
      z = 0
      irot = 2722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2723
      theta1 = 90.101315
      phi1 = -75.742857
      theta2 = 83.82371
      phi2 = 14.246179
      theta3 = 6.1771277
      phi3 = -164.80671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 958
      chmoth = 'DC17'
      x = 12.643548
      y = -46.38827
      z = 0
      irot = 2723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2724
      theta1 = 90.101315
      phi1 = -73.764835
      theta2 = 83.82371
      phi2 = 16.224201
      theta3 = 6.1771277
      phi3 = -162.82869
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 959
      chmoth = 'DC17'
      x = 14.237158
      y = -45.924223
      z = 0
      irot = 2724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2725
      theta1 = 90.101315
      phi1 = -71.786813
      theta2 = 83.82371
      phi2 = 18.202223
      theta3 = 6.1771277
      phi3 = -160.85067
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 960
      chmoth = 'DC17'
      x = 15.813802
      y = -45.405447
      z = 0
      irot = 2725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2726
      theta1 = 90.101315
      phi1 = -69.808791
      theta2 = 83.82371
      phi2 = 20.180245
      theta3 = 6.1771277
      phi3 = -158.87265
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 961
      chmoth = 'DC17'
      x = 17.3716
      y = -44.83256
      z = 0
      irot = 2726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2727
      theta1 = 90.101315
      phi1 = -67.830769
      theta2 = 83.82371
      phi2 = 22.158267
      theta3 = 6.1771277
      phi3 = -156.89463
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 962
      chmoth = 'DC17'
      x = 18.908695
      y = -44.206245
      z = 0
      irot = 2727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2728
      theta1 = 90.101315
      phi1 = -65.852747
      theta2 = 83.82371
      phi2 = 24.136289
      theta3 = 6.1771277
      phi3 = -154.9166
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 963
      chmoth = 'DC17'
      x = 20.423257
      y = -43.52725
      z = 0
      irot = 2728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2729
      theta1 = 90.101315
      phi1 = -63.874725
      theta2 = 83.82371
      phi2 = 26.114311
      theta3 = 6.1771277
      phi3 = -152.93858
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 964
      chmoth = 'DC17'
      x = 21.913481
      y = -42.796382
      z = 0
      irot = 2729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2730
      theta1 = 90.101315
      phi1 = -61.896703
      theta2 = 83.82371
      phi2 = 28.092333
      theta3 = 6.1771277
      phi3 = -150.96056
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 965
      chmoth = 'DC17'
      x = 23.377589
      y = -42.014512
      z = 0
      irot = 2730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2731
      theta1 = 90.101315
      phi1 = -59.918681
      theta2 = 83.82371
      phi2 = 30.070355
      theta3 = 6.1771277
      phi3 = -148.98254
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 966
      chmoth = 'DC17'
      x = 24.813838
      y = -41.182573
      z = 0
      irot = 2731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2732
      theta1 = 90.101315
      phi1 = -57.940659
      theta2 = 83.82371
      phi2 = 32.048377
      theta3 = 6.1771277
      phi3 = -147.00452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 967
      chmoth = 'DC17'
      x = 26.220516
      y = -40.301556
      z = 0
      irot = 2732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2733
      theta1 = 90.101315
      phi1 = -55.962637
      theta2 = 83.82371
      phi2 = 34.026399
      theta3 = 6.1771277
      phi3 = -145.02649
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 968
      chmoth = 'DC17'
      x = 27.595946
      y = -39.372511
      z = 0
      irot = 2733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2734
      theta1 = 90.101315
      phi1 = -53.984615
      theta2 = 83.82371
      phi2 = 36.004421
      theta3 = 6.1771277
      phi3 = -143.04847
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 969
      chmoth = 'DC17'
      x = 28.93849
      y = -38.396545
      z = 0
      irot = 2734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2735
      theta1 = 90.101315
      phi1 = -52.006593
      theta2 = 83.82371
      phi2 = 37.982443
      theta3 = 6.1771277
      phi3 = -141.07045
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 970
      chmoth = 'DC17'
      x = 30.246547
      y = -37.374821
      z = 0
      irot = 2735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2736
      theta1 = 90.101315
      phi1 = -50.028571
      theta2 = 83.82371
      phi2 = 39.960465
      theta3 = 6.1771277
      phi3 = -139.09243
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 971
      chmoth = 'DC17'
      x = 31.518559
      y = -36.308557
      z = 0
      irot = 2736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2737
      theta1 = 90.101315
      phi1 = -48.050549
      theta2 = 83.82371
      phi2 = 41.938487
      theta3 = 6.1771277
      phi3 = -137.11441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 972
      chmoth = 'DC17'
      x = 32.75301
      y = -35.199023
      z = 0
      irot = 2737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2738
      theta1 = 90.101315
      phi1 = -46.072527
      theta2 = 83.82371
      phi2 = 43.916509
      theta3 = 6.1771277
      phi3 = -135.13638
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 973
      chmoth = 'DC17'
      x = 33.948428
      y = -34.047542
      z = 0
      irot = 2738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2739
      theta1 = 90.101315
      phi1 = -44.094505
      theta2 = 83.82371
      phi2 = 45.894531
      theta3 = 6.1771277
      phi3 = -133.15836
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 974
      chmoth = 'DC17'
      x = 35.103389
      y = -32.855486
      z = 0
      irot = 2739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2740
      theta1 = 90.101315
      phi1 = -42.116484
      theta2 = 83.82371
      phi2 = 47.872553
      theta3 = 6.1771277
      phi3 = -131.18034
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 975
      chmoth = 'DC17'
      x = 36.216517
      y = -31.624275
      z = 0
      irot = 2740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2741
      theta1 = 90.101315
      phi1 = -40.138462
      theta2 = 83.82371
      phi2 = 49.850575
      theta3 = 6.1771277
      phi3 = -129.20232
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 976
      chmoth = 'DC17'
      x = 37.286485
      y = -30.355378
      z = 0
      irot = 2741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2742
      theta1 = 90.101315
      phi1 = -38.16044
      theta2 = 83.82371
      phi2 = 51.828597
      theta3 = 6.1771277
      phi3 = -127.2243
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 977
      chmoth = 'DC17'
      x = 38.312018
      y = -29.050304
      z = 0
      irot = 2742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2743
      theta1 = 90.101315
      phi1 = -36.182418
      theta2 = 83.82371
      phi2 = 53.806618
      theta3 = 6.1771277
      phi3 = -125.24627
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 978
      chmoth = 'DC17'
      x = 39.291894
      y = -27.710612
      z = 0
      irot = 2743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2744
      theta1 = 90.101315
      phi1 = -34.204396
      theta2 = 83.82371
      phi2 = 55.78464
      theta3 = 6.1771277
      phi3 = -123.26825
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 979
      chmoth = 'DC17'
      x = 40.224945
      y = -26.337896
      z = 0
      irot = 2744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2745
      theta1 = 90.101315
      phi1 = -32.226374
      theta2 = 83.82371
      phi2 = 57.762662
      theta3 = 6.1771277
      phi3 = -121.29023
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 980
      chmoth = 'DC17'
      x = 41.110059
      y = -24.933792
      z = 0
      irot = 2745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2746
      theta1 = 90.101315
      phi1 = -30.248352
      theta2 = 83.82371
      phi2 = 59.740684
      theta3 = 6.1771277
      phi3 = -119.31221
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 981
      chmoth = 'DC17'
      x = 41.946181
      y = -23.499975
      z = 0
      irot = 2746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2747
      theta1 = 90.101315
      phi1 = -28.27033
      theta2 = 83.82371
      phi2 = 61.718706
      theta3 = 6.1771277
      phi3 = -117.33419
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 982
      chmoth = 'DC17'
      x = 42.732315
      y = -22.038152
      z = 0
      irot = 2747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2748
      theta1 = 90.101315
      phi1 = -26.292308
      theta2 = 83.82371
      phi2 = 63.696728
      theta3 = 6.1771277
      phi3 = -115.35616
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 983
      chmoth = 'DC17'
      x = 43.467525
      y = -20.550065
      z = 0
      irot = 2748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2749
      theta1 = 90.101315
      phi1 = -24.314286
      theta2 = 83.82371
      phi2 = 65.67475
      theta3 = 6.1771277
      phi3 = -113.37814
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 984
      chmoth = 'DC17'
      x = 44.150933
      y = -19.037489
      z = 0
      irot = 2749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2750
      theta1 = 90.101315
      phi1 = -22.336264
      theta2 = 83.82371
      phi2 = 67.652772
      theta3 = 6.1771277
      phi3 = -111.40012
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 985
      chmoth = 'DC17'
      x = 44.781726
      y = -17.502226
      z = 0
      irot = 2750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2751
      theta1 = 90.101315
      phi1 = -20.358242
      theta2 = 83.82371
      phi2 = 69.630794
      theta3 = 6.1771277
      phi3 = -109.4221
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 986
      chmoth = 'DC17'
      x = 45.359152
      y = -15.946105
      z = 0
      irot = 2751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2752
      theta1 = 90.101315
      phi1 = -18.38022
      theta2 = 83.82371
      phi2 = 71.608816
      theta3 = 6.1771277
      phi3 = -107.44408
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 987
      chmoth = 'DC17'
      x = 45.882522
      y = -14.37098
      z = 0
      irot = 2752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2753
      theta1 = 90.101315
      phi1 = -16.402198
      theta2 = 83.82371
      phi2 = 73.586838
      theta3 = 6.1771277
      phi3 = -105.46605
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 988
      chmoth = 'DC17'
      x = 46.351213
      y = -12.77873
      z = 0
      irot = 2753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2754
      theta1 = 90.101315
      phi1 = -14.424176
      theta2 = 83.82371
      phi2 = 75.56486
      theta3 = 6.1771277
      phi3 = -103.48803
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 989
      chmoth = 'DC17'
      x = 46.764667
      y = -11.171251
      z = 0
      irot = 2754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2755
      theta1 = 90.101315
      phi1 = -12.446154
      theta2 = 83.82371
      phi2 = 77.542882
      theta3 = 6.1771277
      phi3 = -101.51001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 990
      chmoth = 'DC17'
      x = 47.12239
      y = -9.5504584
      z = 0
      irot = 2755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2756
      theta1 = 90.101315
      phi1 = -10.468132
      theta2 = 83.82371
      phi2 = 79.520904
      theta3 = 6.1771277
      phi3 = -99.531989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 991
      chmoth = 'DC17'
      x = 47.423957
      y = -7.9182847
      z = 0
      irot = 2756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2757
      theta1 = 90.101315
      phi1 = -8.4901099
      theta2 = 83.82371
      phi2 = 81.498926
      theta3 = 6.1771277
      phi3 = -97.553967
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 992
      chmoth = 'DC17'
      x = 47.669007
      y = -6.2766746
      z = 0
      irot = 2757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2758
      theta1 = 90.101315
      phi1 = -6.5120879
      theta2 = 83.82371
      phi2 = 83.476948
      theta3 = 6.1771277
      phi3 = -95.575945
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 993
      chmoth = 'DC17'
      x = 47.85725
      y = -4.6275845
      z = 0
      irot = 2758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2759
      theta1 = 90.101315
      phi1 = -4.5340659
      theta2 = 83.82371
      phi2 = 85.45497
      theta3 = 6.1771277
      phi3 = -93.597923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 994
      chmoth = 'DC17'
      x = 47.98846
      y = -2.9729796
      z = 0
      irot = 2759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2760
      theta1 = 90.101315
      phi1 = -2.556044
      theta2 = 83.82371
      phi2 = 87.432992
      theta3 = 6.1771277
      phi3 = -91.619901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 995
      chmoth = 'DC17'
      x = 48.062481
      y = -1.3148318
      z = 0
      irot = 2760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2761
      theta1 = 90.101315
      phi1 = -0.57802198
      theta2 = 83.82371
      phi2 = 89.411014
      theta3 = 6.1771277
      phi3 = -89.641879
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 996
      chmoth = 'DC17'
      x = 48.079226
      y = 0.34488296
      z = 0
      irot = 2761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 6
      chmoth = 'DC17'
      x = 0
      y = 0
      z = -75.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 6
      chmoth = 'DC17'
      x = 0
      y = 0
      z = 75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 206
      natmed = 'DC25 CDchamberGas'
      nmat = 41
      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 = 206
      npar = 3
      par(1) = 49.573
      par(2) = 52.56
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.223) stop 'consistency check #1 failed'

      chname = 'DC25'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 3.29
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2762
      theta1 = 90
      phi1 = 0.2
      theta2 = 90
      phi2 = 90.2
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 709
      chmoth = 'DC25'
      x = 50.374393
      y = 0.17584052
      z = 0
      irot = 2762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2763
      theta1 = 90
      phi1 = 2.0274112
      theta2 = 90
      phi2 = 92.027411
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 710
      chmoth = 'DC25'
      x = 50.343166
      y = 1.7821368
      z = 0
      irot = 2763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2764
      theta1 = 90
      phi1 = 3.8548223
      theta2 = 90
      phi2 = 93.854822
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 711
      chmoth = 'DC25'
      x = 50.260732
      y = 3.3866204
      z = 0
      irot = 2764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2765
      theta1 = 90
      phi1 = 5.6822335
      theta2 = 90
      phi2 = 95.682234
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 712
      chmoth = 'DC25'
      x = 50.127175
      y = 4.9876592
      z = 0
      irot = 2765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2766
      theta1 = 90
      phi1 = 7.5096447
      theta2 = 90
      phi2 = 97.509645
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 713
      chmoth = 'DC25'
      x = 49.94263
      y = 6.5836248
      z = 0
      irot = 2766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2767
      theta1 = 90
      phi1 = 9.3370558
      theta2 = 90
      phi2 = 99.337056
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 714
      chmoth = 'DC25'
      x = 49.707285
      y = 8.1728937
      z = 0
      irot = 2767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2768
      theta1 = 90
      phi1 = 11.164467
      theta2 = 90
      phi2 = 101.16447
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 715
      chmoth = 'DC25'
      x = 49.42138
      y = 9.7538495
      z = 0
      irot = 2768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2769
      theta1 = 90
      phi1 = 12.991878
      theta2 = 90
      phi2 = 102.99188
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 716
      chmoth = 'DC25'
      x = 49.085206
      y = 11.324884
      z = 0
      irot = 2769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2770
      theta1 = 90
      phi1 = 14.819289
      theta2 = 90
      phi2 = 104.81929
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 717
      chmoth = 'DC25'
      x = 48.699103
      y = 12.884399
      z = 0
      irot = 2770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2771
      theta1 = 90
      phi1 = 16.646701
      theta2 = 90
      phi2 = 106.6467
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 718
      chmoth = 'DC25'
      x = 48.263466
      y = 14.430809
      z = 0
      irot = 2771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2772
      theta1 = 90
      phi1 = 18.474112
      theta2 = 90
      phi2 = 108.47411
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 719
      chmoth = 'DC25'
      x = 47.778737
      y = 15.96254
      z = 0
      irot = 2772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2773
      theta1 = 90
      phi1 = 20.301523
      theta2 = 90
      phi2 = 110.30152
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 720
      chmoth = 'DC25'
      x = 47.245409
      y = 17.478035
      z = 0
      irot = 2773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2774
      theta1 = 90
      phi1 = 22.128934
      theta2 = 90
      phi2 = 112.12893
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 721
      chmoth = 'DC25'
      x = 46.664025
      y = 18.975752
      z = 0
      irot = 2774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2775
      theta1 = 90
      phi1 = 23.956345
      theta2 = 90
      phi2 = 113.95635
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 722
      chmoth = 'DC25'
      x = 46.035176
      y = 20.454167
      z = 0
      irot = 2775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2776
      theta1 = 90
      phi1 = 25.783756
      theta2 = 90
      phi2 = 115.78376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 723
      chmoth = 'DC25'
      x = 45.359502
      y = 21.911777
      z = 0
      irot = 2776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2777
      theta1 = 90
      phi1 = 27.611168
      theta2 = 90
      phi2 = 117.61117
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 724
      chmoth = 'DC25'
      x = 44.63769
      y = 23.3471
      z = 0
      irot = 2777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2778
      theta1 = 90
      phi1 = 29.438579
      theta2 = 90
      phi2 = 119.43858
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 725
      chmoth = 'DC25'
      x = 43.870474
      y = 24.758674
      z = 0
      irot = 2778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2779
      theta1 = 90
      phi1 = 31.26599
      theta2 = 90
      phi2 = 121.26599
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 726
      chmoth = 'DC25'
      x = 43.058634
      y = 26.145065
      z = 0
      irot = 2779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2780
      theta1 = 90
      phi1 = 33.093401
      theta2 = 90
      phi2 = 123.0934
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 727
      chmoth = 'DC25'
      x = 42.202997
      y = 27.504862
      z = 0
      irot = 2780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2781
      theta1 = 90
      phi1 = 34.920812
      theta2 = 90
      phi2 = 124.92081
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 728
      chmoth = 'DC25'
      x = 41.304433
      y = 28.836682
      z = 0
      irot = 2781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2782
      theta1 = 90
      phi1 = 36.748223
      theta2 = 90
      phi2 = 126.74822
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 729
      chmoth = 'DC25'
      x = 40.363855
      y = 30.139171
      z = 0
      irot = 2782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2783
      theta1 = 90
      phi1 = 38.575635
      theta2 = 90
      phi2 = 128.57563
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 730
      chmoth = 'DC25'
      x = 39.382221
      y = 31.411003
      z = 0
      irot = 2783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2784
      theta1 = 90
      phi1 = 40.403046
      theta2 = 90
      phi2 = 130.40305
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 731
      chmoth = 'DC25'
      x = 38.360528
      y = 32.650885
      z = 0
      irot = 2784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2785
      theta1 = 90
      phi1 = 42.230457
      theta2 = 90
      phi2 = 132.23046
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 732
      chmoth = 'DC25'
      x = 37.299817
      y = 33.857556
      z = 0
      irot = 2785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2786
      theta1 = 90
      phi1 = 44.057868
      theta2 = 90
      phi2 = 134.05787
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 733
      chmoth = 'DC25'
      x = 36.201165
      y = 35.029788
      z = 0
      irot = 2786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2787
      theta1 = 90
      phi1 = 45.885279
      theta2 = 90
      phi2 = 135.88528
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 734
      chmoth = 'DC25'
      x = 35.065692
      y = 36.166389
      z = 0
      irot = 2787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2788
      theta1 = 90
      phi1 = 47.71269
      theta2 = 90
      phi2 = 137.71269
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 735
      chmoth = 'DC25'
      x = 33.89455
      y = 37.266203
      z = 0
      irot = 2788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2789
      theta1 = 90
      phi1 = 49.540102
      theta2 = 90
      phi2 = 139.5401
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 736
      chmoth = 'DC25'
      x = 32.688933
      y = 38.328111
      z = 0
      irot = 2789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2790
      theta1 = 90
      phi1 = 51.367513
      theta2 = 90
      phi2 = 141.36751
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 737
      chmoth = 'DC25'
      x = 31.450065
      y = 39.351033
      z = 0
      irot = 2790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2791
      theta1 = 90
      phi1 = 53.194924
      theta2 = 90
      phi2 = 143.19492
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 738
      chmoth = 'DC25'
      x = 30.179208
      y = 40.333929
      z = 0
      irot = 2791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2792
      theta1 = 90
      phi1 = 55.022335
      theta2 = 90
      phi2 = 145.02234
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 739
      chmoth = 'DC25'
      x = 28.877653
      y = 41.275799
      z = 0
      irot = 2792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2793
      theta1 = 90
      phi1 = 56.849746
      theta2 = 90
      phi2 = 146.84975
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 740
      chmoth = 'DC25'
      x = 27.546725
      y = 42.175684
      z = 0
      irot = 2793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2794
      theta1 = 90
      phi1 = 58.677157
      theta2 = 90
      phi2 = 148.67716
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 741
      chmoth = 'DC25'
      x = 26.187778
      y = 43.03267
      z = 0
      irot = 2794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2795
      theta1 = 90
      phi1 = 60.504569
      theta2 = 90
      phi2 = 150.50457
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 742
      chmoth = 'DC25'
      x = 24.802193
      y = 43.845885
      z = 0
      irot = 2795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2796
      theta1 = 90
      phi1 = 62.33198
      theta2 = 90
      phi2 = 152.33198
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 743
      chmoth = 'DC25'
      x = 23.391381
      y = 44.614501
      z = 0
      irot = 2796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2797
      theta1 = 90
      phi1 = 64.159391
      theta2 = 90
      phi2 = 154.15939
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 744
      chmoth = 'DC25'
      x = 21.956775
      y = 45.337737
      z = 0
      irot = 2797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2798
      theta1 = 90
      phi1 = 65.986802
      theta2 = 90
      phi2 = 155.9868
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 745
      chmoth = 'DC25'
      x = 20.499836
      y = 46.014857
      z = 0
      irot = 2798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2799
      theta1 = 90
      phi1 = 67.814213
      theta2 = 90
      phi2 = 157.81421
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 746
      chmoth = 'DC25'
      x = 19.022046
      y = 46.645173
      z = 0
      irot = 2799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2800
      theta1 = 90
      phi1 = 69.641624
      theta2 = 90
      phi2 = 159.64162
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 747
      chmoth = 'DC25'
      x = 17.524907
      y = 47.228043
      z = 0
      irot = 2800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2801
      theta1 = 90
      phi1 = 71.469036
      theta2 = 90
      phi2 = 161.46904
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 748
      chmoth = 'DC25'
      x = 16.009942
      y = 47.762874
      z = 0
      irot = 2801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2802
      theta1 = 90
      phi1 = 73.296447
      theta2 = 90
      phi2 = 163.29645
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 749
      chmoth = 'DC25'
      x = 14.478692
      y = 48.249123
      z = 0
      irot = 2802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2803
      theta1 = 90
      phi1 = 75.123858
      theta2 = 90
      phi2 = 165.12386
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 750
      chmoth = 'DC25'
      x = 12.932716
      y = 48.686294
      z = 0
      irot = 2803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2804
      theta1 = 90
      phi1 = 76.951269
      theta2 = 90
      phi2 = 166.95127
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 751
      chmoth = 'DC25'
      x = 11.373584
      y = 49.073944
      z = 0
      irot = 2804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2805
      theta1 = 90
      phi1 = 78.77868
      theta2 = 90
      phi2 = 168.77868
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 752
      chmoth = 'DC25'
      x = 9.8028839
      y = 49.411677
      z = 0
      irot = 2805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2806
      theta1 = 90
      phi1 = 80.606091
      theta2 = 90
      phi2 = 170.60609
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 753
      chmoth = 'DC25'
      x = 8.2222126
      y = 49.699151
      z = 0
      irot = 2806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2807
      theta1 = 90
      phi1 = 82.433503
      theta2 = 90
      phi2 = 172.4335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 754
      chmoth = 'DC25'
      x = 6.633178
      y = 49.936073
      z = 0
      irot = 2807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2808
      theta1 = 90
      phi1 = 84.260914
      theta2 = 90
      phi2 = 174.26091
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 755
      chmoth = 'DC25'
      x = 5.0373963
      y = 50.122201
      z = 0
      irot = 2808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2809
      theta1 = 90
      phi1 = 86.088325
      theta2 = 90
      phi2 = 176.08832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 756
      chmoth = 'DC25'
      x = 3.4364908
      y = 50.257347
      z = 0
      irot = 2809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2810
      theta1 = 90
      phi1 = 87.915736
      theta2 = 90
      phi2 = 177.91574
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 757
      chmoth = 'DC25'
      x = 1.8320898
      y = 50.341373
      z = 0
      irot = 2810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2811
      theta1 = 90
      phi1 = 89.743147
      theta2 = 90
      phi2 = 179.74315
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 758
      chmoth = 'DC25'
      x = 0.22582532
      y = 50.374194
      z = 0
      irot = 2811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2812
      theta1 = 90
      phi1 = 91.570558
      theta2 = 90
      phi2 = -178.42944
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 759
      chmoth = 'DC25'
      x = -1.3806689
      y = 50.355776
      z = 0
      irot = 2812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2813
      theta1 = 90
      phi1 = 93.39797
      theta2 = 90
      phi2 = -176.60203
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 760
      chmoth = 'DC25'
      x = -2.9857588
      y = 50.286138
      z = 0
      irot = 2813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2814
      theta1 = 90
      phi1 = 95.225381
      theta2 = 90
      phi2 = -174.77462
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 761
      chmoth = 'DC25'
      x = -4.5878116
      y = 50.16535
      z = 0
      irot = 2814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2815
      theta1 = 90
      phi1 = 97.052792
      theta2 = 90
      phi2 = -172.94721
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 762
      chmoth = 'DC25'
      x = -6.1851979
      y = 49.993537
      z = 0
      irot = 2815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2816
      theta1 = 90
      phi1 = 98.880203
      theta2 = 90
      phi2 = -171.1198
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 763
      chmoth = 'DC25'
      x = -7.7762929
      y = 49.770872
      z = 0
      irot = 2816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2817
      theta1 = 90
      phi1 = 100.70761
      theta2 = 90
      phi2 = -169.29239
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 764
      chmoth = 'DC25'
      x = -9.359478
      y = 49.497581
      z = 0
      irot = 2817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2818
      theta1 = 90
      phi1 = 102.53503
      theta2 = 90
      phi2 = -167.46497
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 765
      chmoth = 'DC25'
      x = -10.933143
      y = 49.173944
      z = 0
      irot = 2818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2819
      theta1 = 90
      phi1 = 104.36244
      theta2 = 90
      phi2 = -165.63756
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 766
      chmoth = 'DC25'
      x = -12.495687
      y = 48.800289
      z = 0
      irot = 2819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2820
      theta1 = 90
      phi1 = 106.18985
      theta2 = 90
      phi2 = -163.81015
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 767
      chmoth = 'DC25'
      x = -14.045522
      y = 48.376996
      z = 0
      irot = 2820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2821
      theta1 = 90
      phi1 = 108.01726
      theta2 = 90
      phi2 = -161.98274
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 768
      chmoth = 'DC25'
      x = -15.581069
      y = 47.904495
      z = 0
      irot = 2821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2822
      theta1 = 90
      phi1 = 109.84467
      theta2 = 90
      phi2 = -160.15533
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 769
      chmoth = 'DC25'
      x = -17.100768
      y = 47.383268
      z = 0
      irot = 2822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2823
      theta1 = 90
      phi1 = 111.67208
      theta2 = 90
      phi2 = -158.32792
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 770
      chmoth = 'DC25'
      x = -18.603073
      y = 46.813845
      z = 0
      irot = 2823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2824
      theta1 = 90
      phi1 = 113.49949
      theta2 = 90
      phi2 = -156.50051
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 771
      chmoth = 'DC25'
      x = -20.086455
      y = 46.196804
      z = 0
      irot = 2824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2825
      theta1 = 90
      phi1 = 115.3269
      theta2 = 90
      phi2 = -154.6731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 772
      chmoth = 'DC25'
      x = -21.549407
      y = 45.532774
      z = 0
      irot = 2825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2826
      theta1 = 90
      phi1 = 117.15431
      theta2 = 90
      phi2 = -152.84569
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 773
      chmoth = 'DC25'
      x = -22.990439
      y = 44.822429
      z = 0
      irot = 2826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2827
      theta1 = 90
      phi1 = 118.98173
      theta2 = 90
      phi2 = -151.01827
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 774
      chmoth = 'DC25'
      x = -24.408086
      y = 44.066492
      z = 0
      irot = 2827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2828
      theta1 = 90
      phi1 = 120.80914
      theta2 = 90
      phi2 = -149.19086
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 775
      chmoth = 'DC25'
      x = -25.800906
      y = 43.265733
      z = 0
      irot = 2828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2829
      theta1 = 90
      phi1 = 122.63655
      theta2 = 90
      phi2 = -147.36345
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 776
      chmoth = 'DC25'
      x = -27.167482
      y = 42.420966
      z = 0
      irot = 2829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2830
      theta1 = 90
      phi1 = 124.46396
      theta2 = 90
      phi2 = -145.53604
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 777
      chmoth = 'DC25'
      x = -28.506425
      y = 41.533049
      z = 0
      irot = 2830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2831
      theta1 = 90
      phi1 = 126.29137
      theta2 = 90
      phi2 = -143.70863
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 778
      chmoth = 'DC25'
      x = -29.816371
      y = 40.602887
      z = 0
      irot = 2831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2832
      theta1 = 90
      phi1 = 128.11878
      theta2 = 90
      phi2 = -141.88122
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 779
      chmoth = 'DC25'
      x = -31.09599
      y = 39.631424
      z = 0
      irot = 2832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2833
      theta1 = 90
      phi1 = 129.94619
      theta2 = 90
      phi2 = -140.05381
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 780
      chmoth = 'DC25'
      x = -32.343979
      y = 38.619651
      z = 0
      irot = 2833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2834
      theta1 = 90
      phi1 = 131.7736
      theta2 = 90
      phi2 = -138.2264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 781
      chmoth = 'DC25'
      x = -33.559069
      y = 37.568594
      z = 0
      irot = 2834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2835
      theta1 = 90
      phi1 = 133.60102
      theta2 = 90
      phi2 = -136.39898
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 782
      chmoth = 'DC25'
      x = -34.740024
      y = 36.479325
      z = 0
      irot = 2835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2836
      theta1 = 90
      phi1 = 135.42843
      theta2 = 90
      phi2 = -134.57157
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 783
      chmoth = 'DC25'
      x = -35.885643
      y = 35.35295
      z = 0
      irot = 2836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2837
      theta1 = 90
      phi1 = 137.25584
      theta2 = 90
      phi2 = -132.74416
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 784
      chmoth = 'DC25'
      x = -36.99476
      y = 34.190615
      z = 0
      irot = 2837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2838
      theta1 = 90
      phi1 = 139.08325
      theta2 = 90
      phi2 = -130.91675
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 785
      chmoth = 'DC25'
      x = -38.066247
      y = 32.993503
      z = 0
      irot = 2838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2839
      theta1 = 90
      phi1 = 140.91066
      theta2 = 90
      phi2 = -129.08934
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 786
      chmoth = 'DC25'
      x = -39.099015
      y = 31.762831
      z = 0
      irot = 2839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2840
      theta1 = 90
      phi1 = 142.73807
      theta2 = 90
      phi2 = -127.26193
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 787
      chmoth = 'DC25'
      x = -40.092013
      y = 30.499851
      z = 0
      irot = 2840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2841
      theta1 = 90
      phi1 = 144.56548
      theta2 = 90
      phi2 = -125.43452
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 788
      chmoth = 'DC25'
      x = -41.044231
      y = 29.205848
      z = 0
      irot = 2841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2842
      theta1 = 90
      phi1 = 146.39289
      theta2 = 90
      phi2 = -123.60711
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 789
      chmoth = 'DC25'
      x = -41.9547
      y = 27.882137
      z = 0
      irot = 2842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2843
      theta1 = 90
      phi1 = 148.2203
      theta2 = 90
      phi2 = -121.7797
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 790
      chmoth = 'DC25'
      x = -42.822494
      y = 26.530066
      z = 0
      irot = 2843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2844
      theta1 = 90
      phi1 = 150.04772
      theta2 = 90
      phi2 = -119.95228
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 791
      chmoth = 'DC25'
      x = -43.646731
      y = 25.15101
      z = 0
      irot = 2844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2845
      theta1 = 90
      phi1 = 151.87513
      theta2 = 90
      phi2 = -118.12487
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 792
      chmoth = 'DC25'
      x = -44.426572
      y = 23.746371
      z = 0
      irot = 2845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2846
      theta1 = 90
      phi1 = 153.70254
      theta2 = 90
      phi2 = -116.29746
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 793
      chmoth = 'DC25'
      x = -45.161224
      y = 22.317578
      z = 0
      irot = 2846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2847
      theta1 = 90
      phi1 = 155.52995
      theta2 = 90
      phi2 = -114.47005
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 794
      chmoth = 'DC25'
      x = -45.849939
      y = 20.866084
      z = 0
      irot = 2847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2848
      theta1 = 90
      phi1 = 157.35736
      theta2 = 90
      phi2 = -112.64264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 795
      chmoth = 'DC25'
      x = -46.492018
      y = 19.393366
      z = 0
      irot = 2848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2849
      theta1 = 90
      phi1 = 159.18477
      theta2 = 90
      phi2 = -110.81523
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 796
      chmoth = 'DC25'
      x = -47.086807
      y = 17.900922
      z = 0
      irot = 2849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2850
      theta1 = 90
      phi1 = 161.01218
      theta2 = 90
      phi2 = -108.98782
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 797
      chmoth = 'DC25'
      x = -47.633701
      y = 16.39027
      z = 0
      irot = 2850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2851
      theta1 = 90
      phi1 = 162.83959
      theta2 = 90
      phi2 = -107.16041
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 798
      chmoth = 'DC25'
      x = -48.132143
      y = 14.862946
      z = 0
      irot = 2851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2852
      theta1 = 90
      phi1 = 164.66701
      theta2 = 90
      phi2 = -105.33299
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 799
      chmoth = 'DC25'
      x = -48.581628
      y = 13.320505
      z = 0
      irot = 2852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2853
      theta1 = 90
      phi1 = 166.49442
      theta2 = 90
      phi2 = -103.50558
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 800
      chmoth = 'DC25'
      x = -48.981697
      y = 11.764514
      z = 0
      irot = 2853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2854
      theta1 = 90
      phi1 = 168.32183
      theta2 = 90
      phi2 = -101.67817
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 801
      chmoth = 'DC25'
      x = -49.331943
      y = 10.196556
      z = 0
      irot = 2854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2855
      theta1 = 90
      phi1 = 170.14924
      theta2 = 90
      phi2 = -99.850761
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 802
      chmoth = 'DC25'
      x = -49.632011
      y = 8.6182275
      z = 0
      irot = 2855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2856
      theta1 = 90
      phi1 = 171.97665
      theta2 = 90
      phi2 = -98.02335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 803
      chmoth = 'DC25'
      x = -49.881596
      y = 7.0311324
      z = 0
      irot = 2856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2857
      theta1 = 90
      phi1 = 173.80406
      theta2 = 90
      phi2 = -96.195939
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 804
      chmoth = 'DC25'
      x = -50.080442
      y = 5.4368856
      z = 0
      irot = 2857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2858
      theta1 = 90
      phi1 = 175.63147
      theta2 = 90
      phi2 = -94.368528
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 805
      chmoth = 'DC25'
      x = -50.228349
      y = 3.8371086
      z = 0
      irot = 2858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2859
      theta1 = 90
      phi1 = 177.45888
      theta2 = 90
      phi2 = -92.541117
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 806
      chmoth = 'DC25'
      x = -50.325165
      y = 2.2334286
      z = 0
      irot = 2859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2860
      theta1 = 90
      phi1 = 179.28629
      theta2 = 90
      phi2 = -90.713706
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 807
      chmoth = 'DC25'
      x = -50.370792
      y = 0.6274768
      z = 0
      irot = 2860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2861
      theta1 = 90
      phi1 = -178.88629
      theta2 = 90
      phi2 = -88.886294
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 808
      chmoth = 'DC25'
      x = -50.365184
      y = -0.9791132
      z = 0
      irot = 2861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2862
      theta1 = 90
      phi1 = -177.05888
      theta2 = 90
      phi2 = -87.058883
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 809
      chmoth = 'DC25'
      x = -50.308346
      y = -2.5847073
      z = 0
      irot = 2862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2863
      theta1 = 90
      phi1 = -175.23147
      theta2 = 90
      phi2 = -85.231472
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 810
      chmoth = 'DC25'
      x = -50.200337
      y = -4.1876723
      z = 0
      irot = 2863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2864
      theta1 = 90
      phi1 = -173.40406
      theta2 = 90
      phi2 = -83.404061
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 811
      chmoth = 'DC25'
      x = -50.041265
      y = -5.7863778
      z = 0
      irot = 2864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2865
      theta1 = 90
      phi1 = -171.57665
      theta2 = 90
      phi2 = -81.57665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 812
      chmoth = 'DC25'
      x = -49.831294
      y = -7.3791976
      z = 0
      irot = 2865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2866
      theta1 = 90
      phi1 = -169.74924
      theta2 = 90
      phi2 = -79.749239
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 813
      chmoth = 'DC25'
      x = -49.570636
      y = -8.9645115
      z = 0
      irot = 2866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2867
      theta1 = 90
      phi1 = -167.92183
      theta2 = 90
      phi2 = -77.921827
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 814
      chmoth = 'DC25'
      x = -49.259556
      y = -10.540707
      z = 0
      irot = 2867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2868
      theta1 = 90
      phi1 = -166.09442
      theta2 = 90
      phi2 = -76.094416
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 815
      chmoth = 'DC25'
      x = -48.898372
      y = -12.106181
      z = 0
      irot = 2868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2869
      theta1 = 90
      phi1 = -164.26701
      theta2 = 90
      phi2 = -74.267005
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 816
      chmoth = 'DC25'
      x = -48.48745
      y = -13.659341
      z = 0
      irot = 2869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2870
      theta1 = 90
      phi1 = -162.43959
      theta2 = 90
      phi2 = -72.439594
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 817
      chmoth = 'DC25'
      x = -48.027208
      y = -15.198607
      z = 0
      irot = 2870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2871
      theta1 = 90
      phi1 = -160.61218
      theta2 = 90
      phi2 = -70.612183
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 818
      chmoth = 'DC25'
      x = -47.518115
      y = -16.722414
      z = 0
      irot = 2871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2872
      theta1 = 90
      phi1 = -158.78477
      theta2 = 90
      phi2 = -68.784772
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 819
      chmoth = 'DC25'
      x = -46.960688
      y = -18.229211
      z = 0
      irot = 2872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2873
      theta1 = 90
      phi1 = -156.95736
      theta2 = 90
      phi2 = -66.95736
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 820
      chmoth = 'DC25'
      x = -46.355495
      y = -19.717467
      z = 0
      irot = 2873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2874
      theta1 = 90
      phi1 = -155.12995
      theta2 = 90
      phi2 = -65.129949
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 821
      chmoth = 'DC25'
      x = -45.70315
      y = -21.185666
      z = 0
      irot = 2874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2875
      theta1 = 90
      phi1 = -153.30254
      theta2 = 90
      phi2 = -63.302538
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 822
      chmoth = 'DC25'
      x = -45.004318
      y = -22.632316
      z = 0
      irot = 2875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2876
      theta1 = 90
      phi1 = -151.47513
      theta2 = 90
      phi2 = -61.475127
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 823
      chmoth = 'DC25'
      x = -44.259709
      y = -24.055946
      z = 0
      irot = 2876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2877
      theta1 = 90
      phi1 = -149.64772
      theta2 = 90
      phi2 = -59.647716
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 824
      chmoth = 'DC25'
      x = -43.470081
      y = -25.455106
      z = 0
      irot = 2877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2878
      theta1 = 90
      phi1 = -147.8203
      theta2 = 90
      phi2 = -57.820305
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 825
      chmoth = 'DC25'
      x = -42.636237
      y = -26.828375
      z = 0
      irot = 2878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2879
      theta1 = 90
      phi1 = -145.99289
      theta2 = 90
      phi2 = -55.992893
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 826
      chmoth = 'DC25'
      x = -41.759025
      y = -28.174355
      z = 0
      irot = 2879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2880
      theta1 = 90
      phi1 = -144.16548
      theta2 = 90
      phi2 = -54.165482
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 827
      chmoth = 'DC25'
      x = -40.839337
      y = -29.491676
      z = 0
      irot = 2880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2881
      theta1 = 90
      phi1 = -142.33807
      theta2 = 90
      phi2 = -52.338071
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 828
      chmoth = 'DC25'
      x = -39.878108
      y = -30.779
      z = 0
      irot = 2881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2882
      theta1 = 90
      phi1 = -140.51066
      theta2 = 90
      phi2 = -50.51066
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 829
      chmoth = 'DC25'
      x = -38.876318
      y = -32.035017
      z = 0
      irot = 2882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2883
      theta1 = 90
      phi1 = -138.68325
      theta2 = 90
      phi2 = -48.683249
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 830
      chmoth = 'DC25'
      x = -37.834983
      y = -33.258449
      z = 0
      irot = 2883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2884
      theta1 = 90
      phi1 = -136.85584
      theta2 = 90
      phi2 = -46.855838
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 831
      chmoth = 'DC25'
      x = -36.755165
      y = -34.448052
      z = 0
      irot = 2884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2885
      theta1 = 90
      phi1 = -135.02843
      theta2 = 90
      phi2 = -45.028426
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 832
      chmoth = 'DC25'
      x = -35.63796
      y = -35.602615
      z = 0
      irot = 2885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2886
      theta1 = 90
      phi1 = -133.20102
      theta2 = 90
      phi2 = -43.201015
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 833
      chmoth = 'DC25'
      x = -34.484506
      y = -36.720965
      z = 0
      irot = 2886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2887
      theta1 = 90
      phi1 = -131.3736
      theta2 = 90
      phi2 = -41.373604
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 834
      chmoth = 'DC25'
      x = -33.295975
      y = -37.801963
      z = 0
      irot = 2887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2888
      theta1 = 90
      phi1 = -129.54619
      theta2 = 90
      phi2 = -39.546193
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 835
      chmoth = 'DC25'
      x = -32.073577
      y = -38.844511
      z = 0
      irot = 2888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2889
      theta1 = 90
      phi1 = -127.71878
      theta2 = 90
      phi2 = -37.718782
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 836
      chmoth = 'DC25'
      x = -30.818555
      y = -39.847548
      z = 0
      irot = 2889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2890
      theta1 = 90
      phi1 = -125.89137
      theta2 = 90
      phi2 = -35.89137
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 837
      chmoth = 'DC25'
      x = -29.532185
      y = -40.810053
      z = 0
      irot = 2890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2891
      theta1 = 90
      phi1 = -124.06396
      theta2 = 90
      phi2 = -34.063959
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 838
      chmoth = 'DC25'
      x = -28.215777
      y = -41.731048
      z = 0
      irot = 2891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2892
      theta1 = 90
      phi1 = -122.23655
      theta2 = 90
      phi2 = -32.236548
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 839
      chmoth = 'DC25'
      x = -26.870668
      y = -42.609595
      z = 0
      irot = 2892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2893
      theta1 = 90
      phi1 = -120.40914
      theta2 = 90
      phi2 = -30.409137
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 840
      chmoth = 'DC25'
      x = -25.498228
      y = -43.444802
      z = 0
      irot = 2893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2894
      theta1 = 90
      phi1 = -118.58173
      theta2 = 90
      phi2 = -28.581726
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 841
      chmoth = 'DC25'
      x = -24.099851
      y = -44.235818
      z = 0
      irot = 2894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2895
      theta1 = 90
      phi1 = -116.75431
      theta2 = 90
      phi2 = -26.754315
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 842
      chmoth = 'DC25'
      x = -22.676961
      y = -44.981839
      z = 0
      irot = 2895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2896
      theta1 = 90
      phi1 = -114.9269
      theta2 = 90
      phi2 = -24.926903
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 843
      chmoth = 'DC25'
      x = -21.231005
      y = -45.682106
      z = 0
      irot = 2896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2897
      theta1 = 90
      phi1 = -113.09949
      theta2 = 90
      phi2 = -23.099492
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 844
      chmoth = 'DC25'
      x = -19.763454
      y = -46.335907
      z = 0
      irot = 2897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2898
      theta1 = 90
      phi1 = -111.27208
      theta2 = 90
      phi2 = -21.272081
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 845
      chmoth = 'DC25'
      x = -18.2758
      y = -46.942577
      z = 0
      irot = 2898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2899
      theta1 = 90
      phi1 = -109.44467
      theta2 = 90
      phi2 = -19.44467
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 846
      chmoth = 'DC25'
      x = -16.769556
      y = -47.501499
      z = 0
      irot = 2899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2900
      theta1 = 90
      phi1 = -107.61726
      theta2 = 90
      phi2 = -17.617259
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 847
      chmoth = 'DC25'
      x = -15.246256
      y = -48.012104
      z = 0
      irot = 2900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2901
      theta1 = 90
      phi1 = -105.78985
      theta2 = 90
      phi2 = -15.789848
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 848
      chmoth = 'DC25'
      x = -13.707447
      y = -48.473872
      z = 0
      irot = 2901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2902
      theta1 = 90
      phi1 = -103.96244
      theta2 = 90
      phi2 = -13.962436
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 849
      chmoth = 'DC25'
      x = -12.154695
      y = -48.886335
      z = 0
      irot = 2902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2903
      theta1 = 90
      phi1 = -102.13503
      theta2 = 90
      phi2 = -12.135025
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 850
      chmoth = 'DC25'
      x = -10.589581
      y = -49.249073
      z = 0
      irot = 2903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2904
      theta1 = 90
      phi1 = -100.30761
      theta2 = 90
      phi2 = -10.307614
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 851
      chmoth = 'DC25'
      x = -9.0136944
      y = -49.561716
      z = 0
      irot = 2904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2905
      theta1 = 90
      phi1 = -98.480203
      theta2 = 90
      phi2 = -8.480203
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 852
      chmoth = 'DC25'
      x = -7.4286399
      y = -49.823947
      z = 0
      irot = 2905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2906
      theta1 = 90
      phi1 = -96.652792
      theta2 = 90
      phi2 = -6.6527918
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 853
      chmoth = 'DC25'
      x = -5.8360292
      y = -50.035499
      z = 0
      irot = 2906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2907
      theta1 = 90
      phi1 = -94.825381
      theta2 = 90
      phi2 = -4.8253806
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 854
      chmoth = 'DC25'
      x = -4.2374823
      y = -50.196157
      z = 0
      irot = 2907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2908
      theta1 = 90
      phi1 = -92.997969
      theta2 = 90
      phi2 = -2.9979695
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 855
      chmoth = 'DC25'
      x = -2.6346253
      y = -50.305757
      z = 0
      irot = 2908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2909
      theta1 = 90
      phi1 = -91.170558
      theta2 = 90
      phi2 = -1.1705583
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 856
      chmoth = 'DC25'
      x = -1.0290884
      y = -50.364187
      z = 0
      irot = 2909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2910
      theta1 = 90
      phi1 = -89.343147
      theta2 = 90
      phi2 = 0.65685286
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 857
      chmoth = 'DC25'
      x = 0.57749526
      y = -50.37139
      z = 0
      irot = 2910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2911
      theta1 = 90
      phi1 = -87.515736
      theta2 = 90
      phi2 = 2.484264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 858
      chmoth = 'DC25'
      x = 2.1834915
      y = -50.327356
      z = 0
      irot = 2911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2912
      theta1 = 90
      phi1 = -85.688325
      theta2 = 90
      phi2 = 4.3116752
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 859
      chmoth = 'DC25'
      x = 3.7872668
      y = -50.232131
      z = 0
      irot = 2912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2913
      theta1 = 90
      phi1 = -83.860914
      theta2 = 90
      phi2 = 6.1390864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 860
      chmoth = 'DC25'
      x = 5.3871898
      y = -50.085812
      z = 0
      irot = 2913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2914
      theta1 = 90
      phi1 = -82.033502
      theta2 = 90
      phi2 = 7.9664975
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 861
      chmoth = 'DC25'
      x = 6.9816332
      y = -49.888548
      z = 0
      irot = 2914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2915
      theta1 = 90
      phi1 = -80.206091
      theta2 = 90
      phi2 = 9.7939087
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 862
      chmoth = 'DC25'
      x = 8.5689751
      y = -49.640539
      z = 0
      irot = 2915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2916
      theta1 = 90
      phi1 = -78.37868
      theta2 = 90
      phi2 = 11.62132
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 863
      chmoth = 'DC25'
      x = 10.147601
      y = -49.342037
      z = 0
      irot = 2916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2917
      theta1 = 90
      phi1 = -76.551269
      theta2 = 90
      phi2 = 13.448731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 864
      chmoth = 'DC25'
      x = 11.715905
      y = -48.993346
      z = 0
      irot = 2917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2918
      theta1 = 90
      phi1 = -74.723858
      theta2 = 90
      phi2 = 15.276142
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 865
      chmoth = 'DC25'
      x = 13.272292
      y = -48.594821
      z = 0
      irot = 2918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2919
      theta1 = 90
      phi1 = -72.896447
      theta2 = 90
      phi2 = 17.103553
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 866
      chmoth = 'DC25'
      x = 14.815179
      y = -48.146868
      z = 0
      irot = 2919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2920
      theta1 = 90
      phi1 = -71.069035
      theta2 = 90
      phi2 = 18.930965
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 867
      chmoth = 'DC25'
      x = 16.342997
      y = -47.649941
      z = 0
      irot = 2920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2921
      theta1 = 90
      phi1 = -69.241624
      theta2 = 90
      phi2 = 20.758376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 868
      chmoth = 'DC25'
      x = 17.854191
      y = -47.104546
      z = 0
      irot = 2921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2922
      theta1 = 90
      phi1 = -67.414213
      theta2 = 90
      phi2 = 22.585787
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 869
      chmoth = 'DC25'
      x = 19.347224
      y = -46.511239
      z = 0
      irot = 2922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2923
      theta1 = 90
      phi1 = -65.586802
      theta2 = 90
      phi2 = 24.413198
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 870
      chmoth = 'DC25'
      x = 20.820579
      y = -45.870621
      z = 0
      irot = 2923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2924
      theta1 = 90
      phi1 = -63.759391
      theta2 = 90
      phi2 = 26.240609
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 871
      chmoth = 'DC25'
      x = 22.272755
      y = -45.183346
      z = 0
      irot = 2924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2925
      theta1 = 90
      phi1 = -61.93198
      theta2 = 90
      phi2 = 28.06802
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 872
      chmoth = 'DC25'
      x = 23.702276
      y = -44.450113
      z = 0
      irot = 2925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2926
      theta1 = 90
      phi1 = -60.104568
      theta2 = 90
      phi2 = 29.895432
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 873
      chmoth = 'DC25'
      x = 25.107688
      y = -43.671666
      z = 0
      irot = 2926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2927
      theta1 = 90
      phi1 = -58.277157
      theta2 = 90
      phi2 = 31.722843
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 874
      chmoth = 'DC25'
      x = 26.487562
      y = -42.848798
      z = 0
      irot = 2927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2928
      theta1 = 90
      phi1 = -56.449746
      theta2 = 90
      phi2 = 33.550254
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 875
      chmoth = 'DC25'
      x = 27.840493
      y = -41.982345
      z = 0
      irot = 2928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2929
      theta1 = 90
      phi1 = -54.622335
      theta2 = 90
      phi2 = 35.377665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 876
      chmoth = 'DC25'
      x = 29.165106
      y = -41.07319
      z = 0
      irot = 2929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2930
      theta1 = 90
      phi1 = -52.794924
      theta2 = 90
      phi2 = 37.205076
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 877
      chmoth = 'DC25'
      x = 30.460054
      y = -40.122257
      z = 0
      irot = 2930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2931
      theta1 = 90
      phi1 = -50.967513
      theta2 = 90
      phi2 = 39.032487
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 878
      chmoth = 'DC25'
      x = 31.724018
      y = -39.130513
      z = 0
      irot = 2931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2932
      theta1 = 90
      phi1 = -49.140101
      theta2 = 90
      phi2 = 40.859899
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 879
      chmoth = 'DC25'
      x = 32.955715
      y = -38.098967
      z = 0
      irot = 2932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2933
      theta1 = 90
      phi1 = -47.31269
      theta2 = 90
      phi2 = 42.68731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 880
      chmoth = 'DC25'
      x = 34.153889
      y = -37.028668
      z = 0
      irot = 2933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2934
      theta1 = 90
      phi1 = -45.485279
      theta2 = 90
      phi2 = 44.514721
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 881
      chmoth = 'DC25'
      x = 35.317324
      y = -35.920705
      z = 0
      irot = 2934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2935
      theta1 = 90
      phi1 = -43.657868
      theta2 = 90
      phi2 = 46.342132
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 882
      chmoth = 'DC25'
      x = 36.444835
      y = -34.776204
      z = 0
      irot = 2935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2936
      theta1 = 90
      phi1 = -41.830457
      theta2 = 90
      phi2 = 48.169543
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 883
      chmoth = 'DC25'
      x = 37.535276
      y = -33.596331
      z = 0
      irot = 2936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2937
      theta1 = 90
      phi1 = -40.003046
      theta2 = 90
      phi2 = 49.996954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 884
      chmoth = 'DC25'
      x = 38.587538
      y = -32.382284
      z = 0
      irot = 2937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2938
      theta1 = 90
      phi1 = -38.175634
      theta2 = 90
      phi2 = 51.824366
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 885
      chmoth = 'DC25'
      x = 39.600549
      y = -31.1353
      z = 0
      irot = 2938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2939
      theta1 = 90
      phi1 = -36.348223
      theta2 = 90
      phi2 = 53.651777
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 886
      chmoth = 'DC25'
      x = 40.573281
      y = -29.856646
      z = 0
      irot = 2939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2940
      theta1 = 90
      phi1 = -34.520812
      theta2 = 90
      phi2 = 55.479188
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 887
      chmoth = 'DC25'
      x = 41.504743
      y = -28.547622
      z = 0
      irot = 2940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2941
      theta1 = 90
      phi1 = -32.693401
      theta2 = 90
      phi2 = 57.306599
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 888
      chmoth = 'DC25'
      x = 42.393987
      y = -27.209562
      z = 0
      irot = 2941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2942
      theta1 = 90
      phi1 = -30.86599
      theta2 = 90
      phi2 = 59.13401
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 889
      chmoth = 'DC25'
      x = 43.24011
      y = -25.843824
      z = 0
      irot = 2942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2943
      theta1 = 90
      phi1 = -29.038579
      theta2 = 90
      phi2 = 60.961421
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 890
      chmoth = 'DC25'
      x = 44.042251
      y = -24.451799
      z = 0
      irot = 2943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2944
      theta1 = 90
      phi1 = -27.211167
      theta2 = 90
      phi2 = 62.788833
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 891
      chmoth = 'DC25'
      x = 44.799594
      y = -23.034903
      z = 0
      irot = 2944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2945
      theta1 = 90
      phi1 = -25.383756
      theta2 = 90
      phi2 = 64.616244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 892
      chmoth = 'DC25'
      x = 45.511368
      y = -21.594577
      z = 0
      irot = 2945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2946
      theta1 = 90
      phi1 = -23.556345
      theta2 = 90
      phi2 = 66.443655
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 893
      chmoth = 'DC25'
      x = 46.17685
      y = -20.132285
      z = 0
      irot = 2946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2947
      theta1 = 90
      phi1 = -21.728934
      theta2 = 90
      phi2 = 68.271066
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 894
      chmoth = 'DC25'
      x = 46.795363
      y = -18.649516
      z = 0
      irot = 2947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2948
      theta1 = 90
      phi1 = -19.901523
      theta2 = 90
      phi2 = 70.098477
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 895
      chmoth = 'DC25'
      x = 47.366277
      y = -17.147777
      z = 0
      irot = 2948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2949
      theta1 = 90
      phi1 = -18.074112
      theta2 = 90
      phi2 = 71.925888
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 896
      chmoth = 'DC25'
      x = 47.889011
      y = -15.628595
      z = 0
      irot = 2949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2950
      theta1 = 90
      phi1 = -16.2467
      theta2 = 90
      phi2 = 73.7533
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 897
      chmoth = 'DC25'
      x = 48.363035
      y = -14.093517
      z = 0
      irot = 2950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2951
      theta1 = 90
      phi1 = -14.419289
      theta2 = 90
      phi2 = 75.580711
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 898
      chmoth = 'DC25'
      x = 48.787866
      y = -12.544104
      z = 0
      irot = 2951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2952
      theta1 = 90
      phi1 = -12.591878
      theta2 = 90
      phi2 = 77.408122
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 899
      chmoth = 'DC25'
      x = 49.163071
      y = -10.981931
      z = 0
      irot = 2952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2953
      theta1 = 90
      phi1 = -10.764467
      theta2 = 90
      phi2 = 79.235533
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 900
      chmoth = 'DC25'
      x = 49.48827
      y = -9.4085882
      z = 0
      irot = 2953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2954
      theta1 = 90
      phi1 = -8.9370557
      theta2 = 90
      phi2 = 81.062944
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 901
      chmoth = 'DC25'
      x = 49.763131
      y = -7.825675
      z = 0
      irot = 2954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2955
      theta1 = 90
      phi1 = -7.1096446
      theta2 = 90
      phi2 = 82.890355
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 902
      chmoth = 'DC25'
      x = 49.987375
      y = -6.2348018
      z = 0
      irot = 2955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2956
      theta1 = 90
      phi1 = -5.2822334
      theta2 = 90
      phi2 = 84.717767
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 903
      chmoth = 'DC25'
      x = 50.160773
      y = -4.6375867
      z = 0
      irot = 2956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2957
      theta1 = 90
      phi1 = -3.4548222
      theta2 = 90
      phi2 = 86.545178
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 904
      chmoth = 'DC25'
      x = 50.28315
      y = -3.0356545
      z = 0
      irot = 2957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2958
      theta1 = 90
      phi1 = -1.6274111
      theta2 = 90
      phi2 = 88.372589
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 905
      chmoth = 'DC25'
      x = 50.354381
      y = -1.4306346
      z = 0
      irot = 2958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2959
      theta1 = 90
      phi1 = 1.113705
      theta2 = 90
      phi2 = 91.113705
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 906
      chmoth = 'DC25'
      x = 51.76242
      y = 1.0062753
      z = 0
      irot = 2959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2960
      theta1 = 90
      phi1 = 2.9411162
      theta2 = 90
      phi2 = 92.941116
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 907
      chmoth = 'DC25'
      x = 51.704005
      y = 2.6564119
      z = 0
      irot = 2960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2961
      theta1 = 90
      phi1 = 4.7685273
      theta2 = 90
      phi2 = 94.768527
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 908
      chmoth = 'DC25'
      x = 51.593
      y = 4.3038466
      z = 0
      irot = 2961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2962
      theta1 = 90
      phi1 = 6.5959385
      theta2 = 90
      phi2 = 96.595939
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 909
      chmoth = 'DC25'
      x = 51.429515
      y = 5.9469035
      z = 0
      irot = 2962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2963
      theta1 = 90
      phi1 = 8.4233497
      theta2 = 90
      phi2 = 98.42335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 910
      chmoth = 'DC25'
      x = 51.213719
      y = 7.5839115
      z = 0
      irot = 2963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2964
      theta1 = 90
      phi1 = 10.250761
      theta2 = 90
      phi2 = 100.25076
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 911
      chmoth = 'DC25'
      x = 50.945829
      y = 9.2132053
      z = 0
      irot = 2964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2965
      theta1 = 90
      phi1 = 12.078172
      theta2 = 90
      phi2 = 102.07817
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 912
      chmoth = 'DC25'
      x = 50.62612
      y = 10.833128
      z = 0
      irot = 2965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2966
      theta1 = 90
      phi1 = 13.905583
      theta2 = 90
      phi2 = 103.90558
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 913
      chmoth = 'DC25'
      x = 50.254916
      y = 12.442031
      z = 0
      irot = 2966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2967
      theta1 = 90
      phi1 = 15.732994
      theta2 = 90
      phi2 = 105.73299
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 914
      chmoth = 'DC25'
      x = 49.832594
      y = 14.038279
      z = 0
      irot = 2967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2968
      theta1 = 90
      phi1 = 17.560406
      theta2 = 90
      phi2 = 107.56041
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 915
      chmoth = 'DC25'
      x = 49.359584
      y = 15.620248
      z = 0
      irot = 2968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2969
      theta1 = 90
      phi1 = 19.387817
      theta2 = 90
      phi2 = 109.38782
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 916
      chmoth = 'DC25'
      x = 48.836368
      y = 17.186328
      z = 0
      irot = 2969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2970
      theta1 = 90
      phi1 = 21.215228
      theta2 = 90
      phi2 = 111.21523
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 917
      chmoth = 'DC25'
      x = 48.263477
      y = 18.734928
      z = 0
      irot = 2970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2971
      theta1 = 90
      phi1 = 23.042639
      theta2 = 90
      phi2 = 113.04264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 918
      chmoth = 'DC25'
      x = 47.641494
      y = 20.26447
      z = 0
      irot = 2971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2972
      theta1 = 90
      phi1 = 24.87005
      theta2 = 90
      phi2 = 114.87005
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 919
      chmoth = 'DC25'
      x = 46.971052
      y = 21.7734
      z = 0
      irot = 2972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2973
      theta1 = 90
      phi1 = 26.697461
      theta2 = 90
      phi2 = 116.69746
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 920
      chmoth = 'DC25'
      x = 46.252833
      y = 23.260184
      z = 0
      irot = 2973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2974
      theta1 = 90
      phi1 = 28.524873
      theta2 = 90
      phi2 = 118.52487
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 921
      chmoth = 'DC25'
      x = 45.487567
      y = 24.723308
      z = 0
      irot = 2974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2975
      theta1 = 90
      phi1 = 30.352284
      theta2 = 90
      phi2 = 120.35228
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 922
      chmoth = 'DC25'
      x = 44.676033
      y = 26.161284
      z = 0
      irot = 2975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2976
      theta1 = 90
      phi1 = 32.179695
      theta2 = 90
      phi2 = 122.17969
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 923
      chmoth = 'DC25'
      x = 43.819056
      y = 27.57265
      z = 0
      irot = 2976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2977
      theta1 = 90
      phi1 = 34.007106
      theta2 = 90
      phi2 = 124.00711
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 924
      chmoth = 'DC25'
      x = 42.917508
      y = 28.95597
      z = 0
      irot = 2977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2978
      theta1 = 90
      phi1 = 35.834517
      theta2 = 90
      phi2 = 125.83452
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 925
      chmoth = 'DC25'
      x = 41.972306
      y = 30.309837
      z = 0
      irot = 2978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2979
      theta1 = 90
      phi1 = 37.661928
      theta2 = 90
      phi2 = 127.66193
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 926
      chmoth = 'DC25'
      x = 40.984411
      y = 31.632874
      z = 0
      irot = 2979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2980
      theta1 = 90
      phi1 = 39.48934
      theta2 = 90
      phi2 = 129.48934
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 927
      chmoth = 'DC25'
      x = 39.954829
      y = 32.923735
      z = 0
      irot = 2980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2981
      theta1 = 90
      phi1 = 41.316751
      theta2 = 90
      phi2 = 131.31675
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 928
      chmoth = 'DC25'
      x = 38.884606
      y = 34.181108
      z = 0
      irot = 2981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2982
      theta1 = 90
      phi1 = 43.144162
      theta2 = 90
      phi2 = 133.14416
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 929
      chmoth = 'DC25'
      x = 37.774831
      y = 35.403713
      z = 0
      irot = 2982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2983
      theta1 = 90
      phi1 = 44.971573
      theta2 = 90
      phi2 = 134.97157
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 930
      chmoth = 'DC25'
      x = 36.626632
      y = 36.590306
      z = 0
      irot = 2983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2984
      theta1 = 90
      phi1 = 46.798984
      theta2 = 90
      phi2 = 136.79898
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 931
      chmoth = 'DC25'
      x = 35.441179
      y = 37.739681
      z = 0
      irot = 2984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2985
      theta1 = 90
      phi1 = 48.626395
      theta2 = 90
      phi2 = 138.6264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 932
      chmoth = 'DC25'
      x = 34.219676
      y = 38.850669
      z = 0
      irot = 2985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2986
      theta1 = 90
      phi1 = 50.453807
      theta2 = 90
      phi2 = 140.45381
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 933
      chmoth = 'DC25'
      x = 32.963366
      y = 39.922139
      z = 0
      irot = 2986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2987
      theta1 = 90
      phi1 = 52.281218
      theta2 = 90
      phi2 = 142.28122
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 934
      chmoth = 'DC25'
      x = 31.673527
      y = 40.953002
      z = 0
      irot = 2987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2988
      theta1 = 90
      phi1 = 54.108629
      theta2 = 90
      phi2 = 144.10863
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 935
      chmoth = 'DC25'
      x = 30.351471
      y = 41.942209
      z = 0
      irot = 2988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2989
      theta1 = 90
      phi1 = 55.93604
      theta2 = 90
      phi2 = 145.93604
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 936
      chmoth = 'DC25'
      x = 28.998542
      y = 42.888754
      z = 0
      irot = 2989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2990
      theta1 = 90
      phi1 = 57.763451
      theta2 = 90
      phi2 = 147.76345
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 937
      chmoth = 'DC25'
      x = 27.616117
      y = 43.791675
      z = 0
      irot = 2990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2991
      theta1 = 90
      phi1 = 59.590862
      theta2 = 90
      phi2 = 149.59086
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 938
      chmoth = 'DC25'
      x = 26.205602
      y = 44.650051
      z = 0
      irot = 2991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2992
      theta1 = 90
      phi1 = 61.418274
      theta2 = 90
      phi2 = 151.41827
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 939
      chmoth = 'DC25'
      x = 24.768432
      y = 45.463012
      z = 0
      irot = 2992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2993
      theta1 = 90
      phi1 = 63.245685
      theta2 = 90
      phi2 = 153.24568
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 940
      chmoth = 'DC25'
      x = 23.306068
      y = 46.229729
      z = 0
      irot = 2993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2994
      theta1 = 90
      phi1 = 65.073096
      theta2 = 90
      phi2 = 155.0731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 941
      chmoth = 'DC25'
      x = 21.819999
      y = 46.949423
      z = 0
      irot = 2994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2995
      theta1 = 90
      phi1 = 66.900507
      theta2 = 90
      phi2 = 156.90051
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 942
      chmoth = 'DC25'
      x = 20.311734
      y = 47.621362
      z = 0
      irot = 2995
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2996
      theta1 = 90
      phi1 = 68.727918
      theta2 = 90
      phi2 = 158.72792
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 943
      chmoth = 'DC25'
      x = 18.78281
      y = 48.244863
      z = 0
      irot = 2996
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2997
      theta1 = 90
      phi1 = 70.555329
      theta2 = 90
      phi2 = 160.55533
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 944
      chmoth = 'DC25'
      x = 17.23478
      y = 48.81929
      z = 0
      irot = 2997
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2998
      theta1 = 90
      phi1 = 72.382741
      theta2 = 90
      phi2 = 162.38274
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 945
      chmoth = 'DC25'
      x = 15.669219
      y = 49.34406
      z = 0
      irot = 2998
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2999
      theta1 = 90
      phi1 = 74.210152
      theta2 = 90
      phi2 = 164.21015
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 946
      chmoth = 'DC25'
      x = 14.087721
      y = 49.818639
      z = 0
      irot = 2999
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3000
      theta1 = 90
      phi1 = 76.037563
      theta2 = 90
      phi2 = 166.03756
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 947
      chmoth = 'DC25'
      x = 12.491893
      y = 50.242545
      z = 0
      irot = 3000
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3001
      theta1 = 90
      phi1 = 77.864974
      theta2 = 90
      phi2 = 167.86497
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 948
      chmoth = 'DC25'
      x = 10.883358
      y = 50.615346
      z = 0
      irot = 3001
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3002
      theta1 = 90
      phi1 = 79.692385
      theta2 = 90
      phi2 = 169.69239
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 949
      chmoth = 'DC25'
      x = 9.2637538
      y = 50.936662
      z = 0
      irot = 3002
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3003
      theta1 = 90
      phi1 = 81.519796
      theta2 = 90
      phi2 = 171.5198
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 950
      chmoth = 'DC25'
      x = 7.6347265
      y = 51.206168
      z = 0
      irot = 3003
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3004
      theta1 = 90
      phi1 = 83.347208
      theta2 = 90
      phi2 = 173.34721
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 951
      chmoth = 'DC25'
      x = 5.9979335
      y = 51.423589
      z = 0
      irot = 3004
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3005
      theta1 = 90
      phi1 = 85.174619
      theta2 = 90
      phi2 = 175.17462
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 952
      chmoth = 'DC25'
      x = 4.3550396
      y = 51.588703
      z = 0
      irot = 3005
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3006
      theta1 = 90
      phi1 = 87.00203
      theta2 = 90
      phi2 = 177.00203
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 953
      chmoth = 'DC25'
      x = 2.7077159
      y = 51.701344
      z = 0
      irot = 3006
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3007
      theta1 = 90
      phi1 = 88.829441
      theta2 = 90
      phi2 = 178.82944
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 954
      chmoth = 'DC25'
      x = 1.057638
      y = 51.761396
      z = 0
      irot = 3007
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3008
      theta1 = 90
      phi1 = 90.656852
      theta2 = 90
      phi2 = -179.34315
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 955
      chmoth = 'DC25'
      x = -0.59351562
      y = 51.768798
      z = 0
      irot = 3008
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3009
      theta1 = 90
      phi1 = 92.484263
      theta2 = 90
      phi2 = -177.51574
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 956
      chmoth = 'DC25'
      x = -2.2440656
      y = 51.723543
      z = 0
      irot = 3009
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3010
      theta1 = 90
      phi1 = 94.311675
      theta2 = 90
      phi2 = -175.68833
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 957
      chmoth = 'DC25'
      x = -3.892333
      y = 51.625676
      z = 0
      irot = 3010
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3011
      theta1 = 90
      phi1 = 96.139086
      theta2 = 90
      phi2 = -173.86091
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 958
      chmoth = 'DC25'
      x = -5.5366412
      y = 51.475298
      z = 0
      irot = 3011
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3012
      theta1 = 90
      phi1 = 97.966497
      theta2 = 90
      phi2 = -172.0335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 959
      chmoth = 'DC25'
      x = -7.1753178
      y = 51.272561
      z = 0
      irot = 3012
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3013
      theta1 = 90
      phi1 = 99.793908
      theta2 = 90
      phi2 = -170.20609
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 960
      chmoth = 'DC25'
      x = -8.8066959
      y = 51.017671
      z = 0
      irot = 3013
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3014
      theta1 = 90
      phi1 = 101.62132
      theta2 = 90
      phi2 = -168.37868
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 961
      chmoth = 'DC25'
      x = -10.429116
      y = 50.710889
      z = 0
      irot = 3014
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3015
      theta1 = 90
      phi1 = 103.44873
      theta2 = 90
      phi2 = -166.55127
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 962
      chmoth = 'DC25'
      x = -12.040928
      y = 50.352525
      z = 0
      irot = 3015
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3016
      theta1 = 90
      phi1 = 105.27614
      theta2 = 90
      phi2 = -164.72386
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 963
      chmoth = 'DC25'
      x = -13.640493
      y = 49.942944
      z = 0
      irot = 3016
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3017
      theta1 = 90
      phi1 = 107.10355
      theta2 = 90
      phi2 = -162.89645
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 964
      chmoth = 'DC25'
      x = -15.226183
      y = 49.482563
      z = 0
      irot = 3017
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3018
      theta1 = 90
      phi1 = 108.93096
      theta2 = 90
      phi2 = -161.06904
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 965
      chmoth = 'DC25'
      x = -16.796385
      y = 48.97185
      z = 0
      irot = 3018
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3019
      theta1 = 90
      phi1 = 110.75838
      theta2 = 90
      phi2 = -159.24162
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 966
      chmoth = 'DC25'
      x = -18.349503
      y = 48.411325
      z = 0
      irot = 3019
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3020
      theta1 = 90
      phi1 = 112.58579
      theta2 = 90
      phi2 = -157.41421
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 967
      chmoth = 'DC25'
      x = -19.883956
      y = 47.801558
      z = 0
      irot = 3020
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3021
      theta1 = 90
      phi1 = 114.4132
      theta2 = 90
      phi2 = -155.5868
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 968
      chmoth = 'DC25'
      x = -21.398185
      y = 47.143169
      z = 0
      irot = 3021
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3022
      theta1 = 90
      phi1 = 116.24061
      theta2 = 90
      phi2 = -153.75939
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 969
      chmoth = 'DC25'
      x = -22.890647
      y = 46.436828
      z = 0
      irot = 3022
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3023
      theta1 = 90
      phi1 = 118.06802
      theta2 = 90
      phi2 = -151.93198
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 970
      chmoth = 'DC25'
      x = -24.359827
      y = 45.683252
      z = 0
      irot = 3023
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3024
      theta1 = 90
      phi1 = 119.89543
      theta2 = 90
      phi2 = -150.10457
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 971
      chmoth = 'DC25'
      x = -25.804228
      y = 44.88321
      z = 0
      irot = 3024
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3025
      theta1 = 90
      phi1 = 121.72284
      theta2 = 90
      phi2 = -148.27716
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 972
      chmoth = 'DC25'
      x = -27.222382
      y = 44.037514
      z = 0
      irot = 3025
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3026
      theta1 = 90
      phi1 = 123.55025
      theta2 = 90
      phi2 = -146.44975
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 973
      chmoth = 'DC25'
      x = -28.612847
      y = 43.147024
      z = 0
      irot = 3026
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3027
      theta1 = 90
      phi1 = 125.37766
      theta2 = 90
      phi2 = -144.62234
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 974
      chmoth = 'DC25'
      x = -29.974207
      y = 42.212647
      z = 0
      irot = 3027
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3028
      theta1 = 90
      phi1 = 127.20508
      theta2 = 90
      phi2 = -142.79492
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 975
      chmoth = 'DC25'
      x = -31.305079
      y = 41.235333
      z = 0
      irot = 3028
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3029
      theta1 = 90
      phi1 = 129.03249
      theta2 = 90
      phi2 = -140.96751
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 976
      chmoth = 'DC25'
      x = -32.604109
      y = 40.216076
      z = 0
      irot = 3029
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3030
      theta1 = 90
      phi1 = 130.8599
      theta2 = 90
      phi2 = -139.1401
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 977
      chmoth = 'DC25'
      x = -33.869975
      y = 39.155913
      z = 0
      irot = 3030
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3031
      theta1 = 90
      phi1 = 132.68731
      theta2 = 90
      phi2 = -137.31269
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 978
      chmoth = 'DC25'
      x = -35.10139
      y = 38.055921
      z = 0
      irot = 3031
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3032
      theta1 = 90
      phi1 = 134.51472
      theta2 = 90
      phi2 = -135.48528
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 979
      chmoth = 'DC25'
      x = -36.2971
      y = 36.917221
      z = 0
      irot = 3032
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3033
      theta1 = 90
      phi1 = 136.34213
      theta2 = 90
      phi2 = -133.65787
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 980
      chmoth = 'DC25'
      x = -37.455891
      y = 35.74097
      z = 0
      irot = 3033
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3034
      theta1 = 90
      phi1 = 138.16954
      theta2 = 90
      phi2 = -131.83046
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 981
      chmoth = 'DC25'
      x = -38.576583
      y = 34.528364
      z = 0
      irot = 3034
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3035
      theta1 = 90
      phi1 = 139.99695
      theta2 = 90
      phi2 = -130.00305
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 982
      chmoth = 'DC25'
      x = -39.658037
      y = 33.280637
      z = 0
      irot = 3035
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3036
      theta1 = 90
      phi1 = 141.82436
      theta2 = 90
      phi2 = -128.17564
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 983
      chmoth = 'DC25'
      x = -40.699151
      y = 31.999059
      z = 0
      irot = 3036
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3037
      theta1 = 90
      phi1 = 143.65178
      theta2 = 90
      phi2 = -126.34822
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 984
      chmoth = 'DC25'
      x = -41.698869
      y = 30.684932
      z = 0
      irot = 3037
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3038
      theta1 = 90
      phi1 = 145.47919
      theta2 = 90
      phi2 = -124.52081
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 985
      chmoth = 'DC25'
      x = -42.656171
      y = 29.339594
      z = 0
      irot = 3038
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3039
      theta1 = 90
      phi1 = 147.3066
      theta2 = 90
      phi2 = -122.6934
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 986
      chmoth = 'DC25'
      x = -43.570085
      y = 27.964412
      z = 0
      irot = 3039
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3040
      theta1 = 90
      phi1 = 149.13401
      theta2 = 90
      phi2 = -120.86599
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 987
      chmoth = 'DC25'
      x = -44.439682
      y = 26.560787
      z = 0
      irot = 3040
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3041
      theta1 = 90
      phi1 = 150.96142
      theta2 = 90
      phi2 = -119.03858
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 988
      chmoth = 'DC25'
      x = -45.264076
      y = 25.130144
      z = 0
      irot = 3041
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3042
      theta1 = 90
      phi1 = 152.78883
      theta2 = 90
      phi2 = -117.21117
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 989
      chmoth = 'DC25'
      x = -46.042429
      y = 23.67394
      z = 0
      irot = 3042
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3043
      theta1 = 90
      phi1 = 154.61624
      theta2 = 90
      phi2 = -115.38376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 990
      chmoth = 'DC25'
      x = -46.773949
      y = 22.193656
      z = 0
      irot = 3043
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3044
      theta1 = 90
      phi1 = 156.44365
      theta2 = 90
      phi2 = -113.55635
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 991
      chmoth = 'DC25'
      x = -47.457893
      y = 20.690798
      z = 0
      irot = 3044
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3045
      theta1 = 90
      phi1 = 158.27107
      theta2 = 90
      phi2 = -111.72893
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 992
      chmoth = 'DC25'
      x = -48.093564
      y = 19.166893
      z = 0
      irot = 3045
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3046
      theta1 = 90
      phi1 = 160.09848
      theta2 = 90
      phi2 = -109.90152
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 993
      chmoth = 'DC25'
      x = -48.680316
      y = 17.623492
      z = 0
      irot = 3046
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3047
      theta1 = 90
      phi1 = 161.92589
      theta2 = 90
      phi2 = -108.07411
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 994
      chmoth = 'DC25'
      x = -49.217553
      y = 16.062166
      z = 0
      irot = 3047
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3048
      theta1 = 90
      phi1 = 163.7533
      theta2 = 90
      phi2 = -106.2467
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 995
      chmoth = 'DC25'
      x = -49.704727
      y = 14.484502
      z = 0
      irot = 3048
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3049
      theta1 = 90
      phi1 = 165.58071
      theta2 = 90
      phi2 = -104.41929
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 996
      chmoth = 'DC25'
      x = -50.141344
      y = 12.892104
      z = 0
      irot = 3049
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3050
      theta1 = 90
      phi1 = 167.40812
      theta2 = 90
      phi2 = -102.59188
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 997
      chmoth = 'DC25'
      x = -50.526958
      y = 11.286594
      z = 0
      irot = 3050
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3051
      theta1 = 90
      phi1 = 169.23553
      theta2 = 90
      phi2 = -100.76447
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 998
      chmoth = 'DC25'
      x = -50.861178
      y = 9.6696028
      z = 0
      irot = 3051
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3052
      theta1 = 90
      phi1 = 171.06294
      theta2 = 90
      phi2 = -98.937056
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 999
      chmoth = 'DC25'
      x = -51.143665
      y = 8.0427762
      z = 0
      irot = 3052
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3053
      theta1 = 90
      phi1 = 172.89035
      theta2 = 90
      phi2 = -97.109645
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1000
      chmoth = 'DC25'
      x = -51.37413
      y = 6.4077688
      z = 0
      irot = 3053
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3054
      theta1 = 90
      phi1 = 174.71777
      theta2 = 90
      phi2 = -95.282234
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1001
      chmoth = 'DC25'
      x = -51.552339
      y = 4.7662437
      z = 0
      irot = 3054
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3055
      theta1 = 90
      phi1 = 176.54518
      theta2 = 90
      phi2 = -93.454823
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1002
      chmoth = 'DC25'
      x = -51.67811
      y = 3.1198705
      z = 0
      irot = 3055
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3056
      theta1 = 90
      phi1 = 178.37259
      theta2 = 90
      phi2 = -91.627412
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1003
      chmoth = 'DC25'
      x = -51.751317
      y = 1.4703239
      z = 0
      irot = 3056
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3057
      theta1 = 90
      phi1 = -179.8
      theta2 = 90
      phi2 = -89.800001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1004
      chmoth = 'DC25'
      x = -51.771885
      y = -0.18071822
      z = 0
      irot = 3057
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3058
      theta1 = 90
      phi1 = -177.97259
      theta2 = 90
      phi2 = -87.972589
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1005
      chmoth = 'DC25'
      x = -51.739791
      y = -1.8315765
      z = 0
      irot = 3058
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3059
      theta1 = 90
      phi1 = -176.14518
      theta2 = 90
      phi2 = -86.145178
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1006
      chmoth = 'DC25'
      x = -51.655071
      y = -3.4805719
      z = 0
      irot = 3059
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3060
      theta1 = 90
      phi1 = -174.31777
      theta2 = 90
      phi2 = -84.317767
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1007
      chmoth = 'DC25'
      x = -51.517808
      y = -5.1260269
      z = 0
      irot = 3060
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3061
      theta1 = 90
      phi1 = -172.49036
      theta2 = 90
      phi2 = -82.490356
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1008
      chmoth = 'DC25'
      x = -51.328143
      y = -6.7662679
      z = 0
      irot = 3061
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3062
      theta1 = 90
      phi1 = -170.66294
      theta2 = 90
      phi2 = -80.662945
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1009
      chmoth = 'DC25'
      x = -51.08627
      y = -8.3996265
      z = 0
      irot = 3062
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3063
      theta1 = 90
      phi1 = -168.83553
      theta2 = 90
      phi2 = -78.835534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1010
      chmoth = 'DC25'
      x = -50.792433
      y = -10.024441
      z = 0
      irot = 3063
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3064
      theta1 = 90
      phi1 = -167.00812
      theta2 = 90
      phi2 = -77.008122
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1011
      chmoth = 'DC25'
      x = -50.446932
      y = -11.63906
      z = 0
      irot = 3064
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3065
      theta1 = 90
      phi1 = -165.18071
      theta2 = 90
      phi2 = -75.180711
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1012
      chmoth = 'DC25'
      x = -50.050119
      y = -13.241839
      z = 0
      irot = 3065
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3066
      theta1 = 90
      phi1 = -163.3533
      theta2 = 90
      phi2 = -73.3533
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1013
      chmoth = 'DC25'
      x = -49.602396
      y = -14.83115
      z = 0
      irot = 3066
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3067
      theta1 = 90
      phi1 = -161.52589
      theta2 = 90
      phi2 = -71.525889
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1014
      chmoth = 'DC25'
      x = -49.10422
      y = -16.405374
      z = 0
      irot = 3067
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3068
      theta1 = 90
      phi1 = -159.69848
      theta2 = 90
      phi2 = -69.698478
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1015
      chmoth = 'DC25'
      x = -48.556096
      y = -17.962912
      z = 0
      irot = 3068
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3069
      theta1 = 90
      phi1 = -157.87107
      theta2 = 90
      phi2 = -67.871067
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1016
      chmoth = 'DC25'
      x = -47.958583
      y = -19.502179
      z = 0
      irot = 3069
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3070
      theta1 = 90
      phi1 = -156.04366
      theta2 = 90
      phi2 = -66.043655
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1017
      chmoth = 'DC25'
      x = -47.312289
      y = -21.021608
      z = 0
      irot = 3070
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3071
      theta1 = 90
      phi1 = -154.21624
      theta2 = 90
      phi2 = -64.216244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1018
      chmoth = 'DC25'
      x = -46.61787
      y = -22.519656
      z = 0
      irot = 3071
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3072
      theta1 = 90
      phi1 = -152.38883
      theta2 = 90
      phi2 = -62.388833
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1019
      chmoth = 'DC25'
      x = -45.876033
      y = -23.994797
      z = 0
      irot = 3072
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3073
      theta1 = 90
      phi1 = -150.56142
      theta2 = 90
      phi2 = -60.561422
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1020
      chmoth = 'DC25'
      x = -45.087533
      y = -25.445531
      z = 0
      irot = 3073
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3074
      theta1 = 90
      phi1 = -148.73401
      theta2 = 90
      phi2 = -58.734011
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1021
      chmoth = 'DC25'
      x = -44.253171
      y = -26.870383
      z = 0
      irot = 3074
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3075
      theta1 = 90
      phi1 = -146.9066
      theta2 = 90
      phi2 = -56.9066
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1022
      chmoth = 'DC25'
      x = -43.373797
      y = -28.267904
      z = 0
      irot = 3075
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3076
      theta1 = 90
      phi1 = -145.07919
      theta2 = 90
      phi2 = -55.079188
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1023
      chmoth = 'DC25'
      x = -42.450305
      y = -29.636672
      z = 0
      irot = 3076
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3077
      theta1 = 90
      phi1 = -143.25178
      theta2 = 90
      phi2 = -53.251777
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1024
      chmoth = 'DC25'
      x = -41.483633
      y = -30.975294
      z = 0
      irot = 3077
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3078
      theta1 = 90
      phi1 = -141.42437
      theta2 = 90
      phi2 = -51.424366
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1025
      chmoth = 'DC25'
      x = -40.474767
      y = -32.28241
      z = 0
      irot = 3078
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3079
      theta1 = 90
      phi1 = -139.59695
      theta2 = 90
      phi2 = -49.596955
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1026
      chmoth = 'DC25'
      x = -39.42473
      y = -33.556689
      z = 0
      irot = 3079
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3080
      theta1 = 90
      phi1 = -137.76954
      theta2 = 90
      phi2 = -47.769544
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1027
      chmoth = 'DC25'
      x = -38.334592
      y = -34.796835
      z = 0
      irot = 3080
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3081
      theta1 = 90
      phi1 = -135.94213
      theta2 = 90
      phi2 = -45.942133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1028
      chmoth = 'DC25'
      x = -37.205462
      y = -36.001587
      z = 0
      irot = 3081
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3082
      theta1 = 90
      phi1 = -134.11472
      theta2 = 90
      phi2 = -44.114721
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1029
      chmoth = 'DC25'
      x = -36.038488
      y = -37.16972
      z = 0
      irot = 3082
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3083
      theta1 = 90
      phi1 = -132.28731
      theta2 = 90
      phi2 = -42.28731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1030
      chmoth = 'DC25'
      x = -34.834857
      y = -38.300045
      z = 0
      irot = 3083
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3084
      theta1 = 90
      phi1 = -130.4599
      theta2 = 90
      phi2 = -40.459899
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1031
      chmoth = 'DC25'
      x = -33.595793
      y = -39.391413
      z = 0
      irot = 3084
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3085
      theta1 = 90
      phi1 = -128.63249
      theta2 = 90
      phi2 = -38.632488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1032
      chmoth = 'DC25'
      x = -32.322556
      y = -40.442713
      z = 0
      irot = 3085
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3086
      theta1 = 90
      phi1 = -126.80508
      theta2 = 90
      phi2 = -36.805077
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1033
      chmoth = 'DC25'
      x = -31.016443
      y = -41.452877
      z = 0
      irot = 3086
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3087
      theta1 = 90
      phi1 = -124.97767
      theta2 = 90
      phi2 = -34.977665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1034
      chmoth = 'DC25'
      x = -29.67878
      y = -42.420876
      z = 0
      irot = 3087
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3088
      theta1 = 90
      phi1 = -123.15025
      theta2 = 90
      phi2 = -33.150254
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1035
      chmoth = 'DC25'
      x = -28.31093
      y = -43.345726
      z = 0
      irot = 3088
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3089
      theta1 = 90
      phi1 = -121.32284
      theta2 = 90
      phi2 = -31.322843
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1036
      chmoth = 'DC25'
      x = -26.914282
      y = -44.226487
      z = 0
      irot = 3089
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3090
      theta1 = 90
      phi1 = -119.49543
      theta2 = 90
      phi2 = -29.495432
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1037
      chmoth = 'DC25'
      x = -25.490258
      y = -45.062262
      z = 0
      irot = 3090
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3091
      theta1 = 90
      phi1 = -117.66802
      theta2 = 90
      phi2 = -27.668021
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1038
      chmoth = 'DC25'
      x = -24.040307
      y = -45.852201
      z = 0
      irot = 3091
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3092
      theta1 = 90
      phi1 = -115.84061
      theta2 = 90
      phi2 = -25.84061
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1039
      chmoth = 'DC25'
      x = -22.565903
      y = -46.595501
      z = 0
      irot = 3092
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3093
      theta1 = 90
      phi1 = -114.0132
      theta2 = 90
      phi2 = -24.013198
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1040
      chmoth = 'DC25'
      x = -21.068545
      y = -47.291406
      z = 0
      irot = 3093
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3094
      theta1 = 90
      phi1 = -112.18579
      theta2 = 90
      phi2 = -22.185787
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1041
      chmoth = 'DC25'
      x = -19.549758
      y = -47.939208
      z = 0
      irot = 3094
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3095
      theta1 = 90
      phi1 = -110.35838
      theta2 = 90
      phi2 = -20.358376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1042
      chmoth = 'DC25'
      x = -18.011085
      y = -48.538248
      z = 0
      irot = 3095
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3096
      theta1 = 90
      phi1 = -108.53096
      theta2 = 90
      phi2 = -18.530965
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1043
      chmoth = 'DC25'
      x = -16.454092
      y = -49.087917
      z = 0
      irot = 3096
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3097
      theta1 = 90
      phi1 = -106.70355
      theta2 = 90
      phi2 = -16.703554
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1044
      chmoth = 'DC25'
      x = -14.880362
      y = -49.587655
      z = 0
      irot = 3097
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3098
      theta1 = 90
      phi1 = -104.87614
      theta2 = 90
      phi2 = -14.876143
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1045
      chmoth = 'DC25'
      x = -13.291497
      y = -50.036954
      z = 0
      irot = 3098
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3099
      theta1 = 90
      phi1 = -103.04873
      theta2 = 90
      phi2 = -13.048731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1046
      chmoth = 'DC25'
      x = -11.689112
      y = -50.435358
      z = 0
      irot = 3099
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3100
      theta1 = 90
      phi1 = -101.22132
      theta2 = 90
      phi2 = -11.22132
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1047
      chmoth = 'DC25'
      x = -10.074837
      y = -50.782461
      z = 0
      irot = 3100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3101
      theta1 = 90
      phi1 = -99.393909
      theta2 = 90
      phi2 = -9.3939091
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1048
      chmoth = 'DC25'
      x = -8.4503146
      y = -51.07791
      z = 0
      irot = 3101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3102
      theta1 = 90
      phi1 = -97.566498
      theta2 = 90
      phi2 = -7.566498
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1049
      chmoth = 'DC25'
      x = -6.8171968
      y = -51.321404
      z = 0
      irot = 3102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3103
      theta1 = 90
      phi1 = -95.739087
      theta2 = 90
      phi2 = -5.7390868
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1050
      chmoth = 'DC25'
      x = -5.1771448
      y = -51.512696
      z = 0
      irot = 3103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3104
      theta1 = 90
      phi1 = -93.911676
      theta2 = 90
      phi2 = -3.9116756
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1051
      chmoth = 'DC25'
      x = -3.5318268
      y = -51.651591
      z = 0
      irot = 3104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3105
      theta1 = 90
      phi1 = -92.084264
      theta2 = 90
      phi2 = -2.0842645
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1052
      chmoth = 'DC25'
      x = -1.8829163
      y = -51.737949
      z = 0
      irot = 3105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3106
      theta1 = 90
      phi1 = -90.256853
      theta2 = 90
      phi2 = -0.2568533
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1053
      chmoth = 'DC25'
      x = -0.23209067
      y = -51.77168
      z = 0
      irot = 3106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3107
      theta1 = 90
      phi1 = -88.429442
      theta2 = 90
      phi2 = 1.5705579
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1054
      chmoth = 'DC25'
      x = 1.4189711
      y = -51.752751
      z = 0
      irot = 3107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3108
      theta1 = 90
      phi1 = -86.602031
      theta2 = 90
      phi2 = 3.397969
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1055
      chmoth = 'DC25'
      x = 3.0685895
      y = -51.681181
      z = 0
      irot = 3108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3109
      theta1 = 90
      phi1 = -84.77462
      theta2 = 90
      phi2 = 5.2253802
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1056
      chmoth = 'DC25'
      x = 4.7150867
      y = -51.557043
      z = 0
      irot = 3109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3110
      theta1 = 90
      phi1 = -82.947209
      theta2 = 90
      phi2 = 7.0527914
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1057
      chmoth = 'DC25'
      x = 6.3567878
      y = -51.380463
      z = 0
      irot = 3110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3111
      theta1 = 90
      phi1 = -81.119797
      theta2 = 90
      phi2 = 8.8802025
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1058
      chmoth = 'DC25'
      x = 7.9920231
      y = -51.15162
      z = 0
      irot = 3111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3112
      theta1 = 90
      phi1 = -79.292386
      theta2 = 90
      phi2 = 10.707614
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1059
      chmoth = 'DC25'
      x = 9.6191291
      y = -50.870748
      z = 0
      irot = 3112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3113
      theta1 = 90
      phi1 = -77.464975
      theta2 = 90
      phi2 = 12.535025
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1060
      chmoth = 'DC25'
      x = 11.236451
      y = -50.538133
      z = 0
      irot = 3113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3114
      theta1 = 90
      phi1 = -75.637564
      theta2 = 90
      phi2 = 14.362436
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1061
      chmoth = 'DC25'
      x = 12.842344
      y = -50.154112
      z = 0
      irot = 3114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3115
      theta1 = 90
      phi1 = -73.810153
      theta2 = 90
      phi2 = 16.189847
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1062
      chmoth = 'DC25'
      x = 14.435173
      y = -49.719075
      z = 0
      irot = 3115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3116
      theta1 = 90
      phi1 = -71.982742
      theta2 = 90
      phi2 = 18.017258
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1063
      chmoth = 'DC25'
      x = 16.01332
      y = -49.233467
      z = 0
      irot = 3116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3117
      theta1 = 90
      phi1 = -70.15533
      theta2 = 90
      phi2 = 19.84467
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1064
      chmoth = 'DC25'
      x = 17.575179
      y = -48.69778
      z = 0
      irot = 3117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3118
      theta1 = 90
      phi1 = -68.327919
      theta2 = 90
      phi2 = 21.672081
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1065
      chmoth = 'DC25'
      x = 19.119161
      y = -48.112559
      z = 0
      irot = 3118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3119
      theta1 = 90
      phi1 = -66.500508
      theta2 = 90
      phi2 = 23.499492
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1066
      chmoth = 'DC25'
      x = 20.643695
      y = -47.478401
      z = 0
      irot = 3119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3120
      theta1 = 90
      phi1 = -64.673097
      theta2 = 90
      phi2 = 25.326903
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1067
      chmoth = 'DC25'
      x = 22.147232
      y = -46.795949
      z = 0
      irot = 3120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3121
      theta1 = 90
      phi1 = -62.845686
      theta2 = 90
      phi2 = 27.154314
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1068
      chmoth = 'DC25'
      x = 23.628241
      y = -46.065897
      z = 0
      irot = 3121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3122
      theta1 = 90
      phi1 = -61.018275
      theta2 = 90
      phi2 = 28.981725
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1069
      chmoth = 'DC25'
      x = 25.085217
      y = -45.28899
      z = 0
      irot = 3122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3123
      theta1 = 90
      phi1 = -59.190863
      theta2 = 90
      phi2 = 30.809137
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1070
      chmoth = 'DC25'
      x = 26.516677
      y = -44.466016
      z = 0
      irot = 3123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3124
      theta1 = 90
      phi1 = -57.363452
      theta2 = 90
      phi2 = 32.636548
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1071
      chmoth = 'DC25'
      x = 27.921165
      y = -43.597813
      z = 0
      irot = 3124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3125
      theta1 = 90
      phi1 = -55.536041
      theta2 = 90
      phi2 = 34.463959
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1072
      chmoth = 'DC25'
      x = 29.297252
      y = -42.685263
      z = 0
      irot = 3125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3126
      theta1 = 90
      phi1 = -53.70863
      theta2 = 90
      phi2 = 36.29137
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1073
      chmoth = 'DC25'
      x = 30.64354
      y = -41.729296
      z = 0
      irot = 3126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3127
      theta1 = 90
      phi1 = -51.881219
      theta2 = 90
      phi2 = 38.118781
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1074
      chmoth = 'DC25'
      x = 31.958658
      y = -40.730884
      z = 0
      irot = 3127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3128
      theta1 = 90
      phi1 = -50.053808
      theta2 = 90
      phi2 = 39.946192
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1075
      chmoth = 'DC25'
      x = 33.241269
      y = -39.691041
      z = 0
      irot = 3128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3129
      theta1 = 90
      phi1 = -48.226396
      theta2 = 90
      phi2 = 41.773604
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1076
      chmoth = 'DC25'
      x = 34.490068
      y = -38.610826
      z = 0
      irot = 3129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3130
      theta1 = 90
      phi1 = -46.398985
      theta2 = 90
      phi2 = 43.601015
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1077
      chmoth = 'DC25'
      x = 35.703785
      y = -37.491338
      z = 0
      irot = 3130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3131
      theta1 = 90
      phi1 = -44.571574
      theta2 = 90
      phi2 = 45.428426
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1078
      chmoth = 'DC25'
      x = 36.881185
      y = -36.333715
      z = 0
      irot = 3131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3132
      theta1 = 90
      phi1 = -42.744163
      theta2 = 90
      phi2 = 47.255837
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1079
      chmoth = 'DC25'
      x = 38.021072
      y = -35.139135
      z = 0
      irot = 3132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3133
      theta1 = 90
      phi1 = -40.916752
      theta2 = 90
      phi2 = 49.083248
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1080
      chmoth = 'DC25'
      x = 39.122285
      y = -33.908812
      z = 0
      irot = 3133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3134
      theta1 = 90
      phi1 = -39.089341
      theta2 = 90
      phi2 = 50.910659
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1081
      chmoth = 'DC25'
      x = 40.183704
      y = -32.643999
      z = 0
      irot = 3134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3135
      theta1 = 90
      phi1 = -37.261929
      theta2 = 90
      phi2 = 52.738071
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1082
      chmoth = 'DC25'
      x = 41.204249
      y = -31.345981
      z = 0
      irot = 3135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3136
      theta1 = 90
      phi1 = -35.434518
      theta2 = 90
      phi2 = 54.565482
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1083
      chmoth = 'DC25'
      x = 42.182884
      y = -30.01608
      z = 0
      irot = 3136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3137
      theta1 = 90
      phi1 = -33.607107
      theta2 = 90
      phi2 = 56.392893
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1084
      chmoth = 'DC25'
      x = 43.118611
      y = -28.655647
      z = 0
      irot = 3137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3138
      theta1 = 90
      phi1 = -31.779696
      theta2 = 90
      phi2 = 58.220304
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1085
      chmoth = 'DC25'
      x = 44.01048
      y = -27.266066
      z = 0
      irot = 3138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3139
      theta1 = 90
      phi1 = -29.952285
      theta2 = 90
      phi2 = 60.047715
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1086
      chmoth = 'DC25'
      x = 44.857582
      y = -25.848752
      z = 0
      irot = 3139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3140
      theta1 = 90
      phi1 = -28.124874
      theta2 = 90
      phi2 = 61.875126
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1087
      chmoth = 'DC25'
      x = 45.659058
      y = -24.405145
      z = 0
      irot = 3140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3141
      theta1 = 90
      phi1 = -26.297462
      theta2 = 90
      phi2 = 63.702538
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1088
      chmoth = 'DC25'
      x = 46.414091
      y = -22.936715
      z = 0
      irot = 3141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3142
      theta1 = 90
      phi1 = -24.470051
      theta2 = 90
      phi2 = 65.529949
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1089
      chmoth = 'DC25'
      x = 47.121913
      y = -21.444954
      z = 0
      irot = 3142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3143
      theta1 = 90
      phi1 = -22.64264
      theta2 = 90
      phi2 = 67.35736
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1090
      chmoth = 'DC25'
      x = 47.781804
      y = -19.93138
      z = 0
      irot = 3143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3144
      theta1 = 90
      phi1 = -20.815229
      theta2 = 90
      phi2 = 69.184771
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1091
      chmoth = 'DC25'
      x = 48.393094
      y = -18.397532
      z = 0
      irot = 3144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3145
      theta1 = 90
      phi1 = -18.987818
      theta2 = 90
      phi2 = 71.012182
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1092
      chmoth = 'DC25'
      x = 48.955159
      y = -16.844971
      z = 0
      irot = 3145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3146
      theta1 = 90
      phi1 = -17.160407
      theta2 = 90
      phi2 = 72.839593
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1093
      chmoth = 'DC25'
      x = 49.46743
      y = -15.275276
      z = 0
      irot = 3146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3147
      theta1 = 90
      phi1 = -15.332995
      theta2 = 90
      phi2 = 74.667005
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1094
      chmoth = 'DC25'
      x = 49.929384
      y = -13.690044
      z = 0
      irot = 3147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3148
      theta1 = 90
      phi1 = -13.505584
      theta2 = 90
      phi2 = 76.494416
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1095
      chmoth = 'DC25'
      x = 50.340552
      y = -12.090886
      z = 0
      irot = 3148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3149
      theta1 = 90
      phi1 = -11.678173
      theta2 = 90
      phi2 = 78.321827
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1096
      chmoth = 'DC25'
      x = 50.700515
      y = -10.479431
      z = 0
      irot = 3149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3150
      theta1 = 90
      phi1 = -9.8507619
      theta2 = 90
      phi2 = 80.149238
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1097
      chmoth = 'DC25'
      x = 51.008908
      y = -8.8573157
      z = 0
      irot = 3150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3151
      theta1 = 90
      phi1 = -8.0233507
      theta2 = 90
      phi2 = 81.976649
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1098
      chmoth = 'DC25'
      x = 51.265416
      y = -7.2261913
      z = 0
      irot = 3151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3152
      theta1 = 90
      phi1 = -6.1959396
      theta2 = 90
      phi2 = 83.80406
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1099
      chmoth = 'DC25'
      x = 51.469779
      y = -5.5877167
      z = 0
      irot = 3152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3153
      theta1 = 90
      phi1 = -4.3685284
      theta2 = 90
      phi2 = 85.631472
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1100
      chmoth = 'DC25'
      x = 51.621788
      y = -3.9435585
      z = 0
      irot = 3153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3154
      theta1 = 90
      phi1 = -2.5411172
      theta2 = 90
      phi2 = 87.458883
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1101
      chmoth = 'DC25'
      x = 51.72129
      y = -2.295389
      z = 0
      irot = 3154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3155
      theta1 = 90
      phi1 = -0.71370607
      theta2 = 90
      phi2 = 89.286294
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1102
      chmoth = 'DC25'
      x = 51.768183
      y = -0.64488481
      z = 0
      irot = 3155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 7
      chmoth = 'DC25'
      x = 0
      y = 0
      z = -75.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 7
      chmoth = 'DC25'
      x = 0
      y = 0
      z = 75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 207
      natmed = 'DC27 CDchamberGas'
      nmat = 41
      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 = 'DC27'
      chshap = 'TUBE'
      nmed = 207
      npar = 3
      par(1) = 52.561
      par(2) = 55.548
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.224) stop 'consistency check #1 failed'

      chname = 'DC27'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 3.29
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3156
      theta1 = 90
      phi1 = 0.8
      theta2 = 90
      phi2 = 90.8
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1103
      chmoth = 'DC27'
      x = 53.357898
      y = 0.74506523
      z = 0
      irot = 3156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3157
      theta1 = 90
      phi1 = 2.522488
      theta2 = 90
      phi2 = 92.522488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1104
      chmoth = 'DC27'
      x = 53.311392
      y = 2.3485901
      z = 0
      irot = 3157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3158
      theta1 = 90
      phi1 = 4.244976
      theta2 = 90
      phi2 = 94.244976
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1105
      chmoth = 'DC27'
      x = 53.216708
      y = 3.9499925
      z = 0
      irot = 3158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3159
      theta1 = 90
      phi1 = 5.967464
      theta2 = 90
      phi2 = 95.967464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1106
      chmoth = 'DC27'
      x = 53.07393
      y = 5.5478252
      z = 0
      irot = 3159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3160
      theta1 = 90
      phi1 = 7.689952
      theta2 = 90
      phi2 = 97.689952
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1107
      chmoth = 'DC27'
      x = 52.883189
      y = 7.1406442
      z = 0
      irot = 3160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3161
      theta1 = 90
      phi1 = 9.41244
      theta2 = 90
      phi2 = 99.41244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1108
      chmoth = 'DC27'
      x = 52.644655
      y = 8.72701
      z = 0
      irot = 3161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3162
      theta1 = 90
      phi1 = 11.134928
      theta2 = 90
      phi2 = 101.13493
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1109
      chmoth = 'DC27'
      x = 52.358546
      y = 10.305489
      z = 0
      irot = 3162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3163
      theta1 = 90
      phi1 = 12.857416
      theta2 = 90
      phi2 = 102.85742
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1110
      chmoth = 'DC27'
      x = 52.025119
      y = 11.874655
      z = 0
      irot = 3163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3164
      theta1 = 90
      phi1 = 14.579904
      theta2 = 90
      phi2 = 104.5799
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1111
      chmoth = 'DC27'
      x = 51.644676
      y = 13.433089
      z = 0
      irot = 3164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3165
      theta1 = 90
      phi1 = 16.302392
      theta2 = 90
      phi2 = 106.30239
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1112
      chmoth = 'DC27'
      x = 51.21756
      y = 14.979384
      z = 0
      irot = 3165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3166
      theta1 = 90
      phi1 = 18.02488
      theta2 = 90
      phi2 = 108.02488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1113
      chmoth = 'DC27'
      x = 50.744159
      y = 16.512141
      z = 0
      irot = 3166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3167
      theta1 = 90
      phi1 = 19.747368
      theta2 = 90
      phi2 = 109.74737
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1114
      chmoth = 'DC27'
      x = 50.224898
      y = 18.029976
      z = 0
      irot = 3167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3168
      theta1 = 90
      phi1 = 21.469856
      theta2 = 90
      phi2 = 111.46986
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1115
      chmoth = 'DC27'
      x = 49.660248
      y = 19.531517
      z = 0
      irot = 3168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3169
      theta1 = 90
      phi1 = 23.192344
      theta2 = 90
      phi2 = 113.19234
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1116
      chmoth = 'DC27'
      x = 49.05072
      y = 21.015407
      z = 0
      irot = 3169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3170
      theta1 = 90
      phi1 = 24.914832
      theta2 = 90
      phi2 = 114.91483
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1117
      chmoth = 'DC27'
      x = 48.396863
      y = 22.480305
      z = 0
      irot = 3170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3171
      theta1 = 90
      phi1 = 26.63732
      theta2 = 90
      phi2 = 116.63732
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1118
      chmoth = 'DC27'
      x = 47.699268
      y = 23.924887
      z = 0
      irot = 3171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3172
      theta1 = 90
      phi1 = 28.359808
      theta2 = 90
      phi2 = 118.35981
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1119
      chmoth = 'DC27'
      x = 46.958567
      y = 25.347848
      z = 0
      irot = 3172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3173
      theta1 = 90
      phi1 = 30.082296
      theta2 = 90
      phi2 = 120.0823
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1120
      chmoth = 'DC27'
      x = 46.175429
      y = 26.747901
      z = 0
      irot = 3173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3174
      theta1 = 90
      phi1 = 31.804784
      theta2 = 90
      phi2 = 121.80478
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1121
      chmoth = 'DC27'
      x = 45.350561
      y = 28.123782
      z = 0
      irot = 3174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3175
      theta1 = 90
      phi1 = 33.527272
      theta2 = 90
      phi2 = 123.52727
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1122
      chmoth = 'DC27'
      x = 44.484708
      y = 29.474246
      z = 0
      irot = 3175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3176
      theta1 = 90
      phi1 = 35.24976
      theta2 = 90
      phi2 = 125.24976
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1123
      chmoth = 'DC27'
      x = 43.578654
      y = 30.798074
      z = 0
      irot = 3176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3177
      theta1 = 90
      phi1 = 36.972248
      theta2 = 90
      phi2 = 126.97225
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1124
      chmoth = 'DC27'
      x = 42.633217
      y = 32.094069
      z = 0
      irot = 3177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3178
      theta1 = 90
      phi1 = 38.694736
      theta2 = 90
      phi2 = 128.69474
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1125
      chmoth = 'DC27'
      x = 41.649251
      y = 33.36106
      z = 0
      irot = 3178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3179
      theta1 = 90
      phi1 = 40.417224
      theta2 = 90
      phi2 = 130.41722
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1126
      chmoth = 'DC27'
      x = 40.627646
      y = 34.597902
      z = 0
      irot = 3179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3180
      theta1 = 90
      phi1 = 42.139712
      theta2 = 90
      phi2 = 132.13971
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1127
      chmoth = 'DC27'
      x = 39.569325
      y = 35.803477
      z = 0
      irot = 3180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3181
      theta1 = 90
      phi1 = 43.8622
      theta2 = 90
      phi2 = 133.8622
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1128
      chmoth = 'DC27'
      x = 38.475244
      y = 36.976696
      z = 0
      irot = 3181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3182
      theta1 = 90
      phi1 = 45.584688
      theta2 = 90
      phi2 = 135.58469
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1129
      chmoth = 'DC27'
      x = 37.346393
      y = 38.116498
      z = 0
      irot = 3182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3183
      theta1 = 90
      phi1 = 47.307176
      theta2 = 90
      phi2 = 137.30718
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1130
      chmoth = 'DC27'
      x = 36.18379
      y = 39.221853
      z = 0
      irot = 3183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3184
      theta1 = 90
      phi1 = 49.029664
      theta2 = 90
      phi2 = 139.02966
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1131
      chmoth = 'DC27'
      x = 34.988488
      y = 40.291763
      z = 0
      irot = 3184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3185
      theta1 = 90
      phi1 = 50.752152
      theta2 = 90
      phi2 = 140.75215
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1132
      chmoth = 'DC27'
      x = 33.761566
      y = 41.32526
      z = 0
      irot = 3185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3186
      theta1 = 90
      phi1 = 52.47464
      theta2 = 90
      phi2 = 142.47464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1133
      chmoth = 'DC27'
      x = 32.504132
      y = 42.321411
      z = 0
      irot = 3186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3187
      theta1 = 90
      phi1 = 54.197128
      theta2 = 90
      phi2 = 144.19713
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1134
      chmoth = 'DC27'
      x = 31.217324
      y = 43.279315
      z = 0
      irot = 3187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3188
      theta1 = 90
      phi1 = 55.919616
      theta2 = 90
      phi2 = 145.91962
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1135
      chmoth = 'DC27'
      x = 29.902305
      y = 44.198106
      z = 0
      irot = 3188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3189
      theta1 = 90
      phi1 = 57.642104
      theta2 = 90
      phi2 = 147.6421
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1136
      chmoth = 'DC27'
      x = 28.560262
      y = 45.076955
      z = 0
      irot = 3189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3190
      theta1 = 90
      phi1 = 59.364592
      theta2 = 90
      phi2 = 149.36459
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1137
      chmoth = 'DC27'
      x = 27.192408
      y = 45.915067
      z = 0
      irot = 3190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3191
      theta1 = 90
      phi1 = 61.08708
      theta2 = 90
      phi2 = 151.08708
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1138
      chmoth = 'DC27'
      x = 25.79998
      y = 46.711684
      z = 0
      irot = 3191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3192
      theta1 = 90
      phi1 = 62.809568
      theta2 = 90
      phi2 = 152.80957
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1139
      chmoth = 'DC27'
      x = 24.384236
      y = 47.466088
      z = 0
      irot = 3192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3193
      theta1 = 90
      phi1 = 64.532056
      theta2 = 90
      phi2 = 154.53206
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1140
      chmoth = 'DC27'
      x = 22.946456
      y = 48.177594
      z = 0
      irot = 3193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3194
      theta1 = 90
      phi1 = 66.254544
      theta2 = 90
      phi2 = 156.25454
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1141
      chmoth = 'DC27'
      x = 21.487938
      y = 48.845562
      z = 0
      irot = 3194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3195
      theta1 = 90
      phi1 = 67.977032
      theta2 = 90
      phi2 = 157.97703
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1142
      chmoth = 'DC27'
      x = 20.010001
      y = 49.469387
      z = 0
      irot = 3195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3196
      theta1 = 90
      phi1 = 69.69952
      theta2 = 90
      phi2 = 159.69952
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1143
      chmoth = 'DC27'
      x = 18.513981
      y = 50.048506
      z = 0
      irot = 3196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3197
      theta1 = 90
      phi1 = 71.422008
      theta2 = 90
      phi2 = 161.42201
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1144
      chmoth = 'DC27'
      x = 17.001229
      y = 50.582395
      z = 0
      irot = 3197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3198
      theta1 = 90
      phi1 = 73.144496
      theta2 = 90
      phi2 = 163.1445
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1145
      chmoth = 'DC27'
      x = 15.473113
      y = 51.070571
      z = 0
      irot = 3198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3199
      theta1 = 90
      phi1 = 74.866984
      theta2 = 90
      phi2 = 164.86698
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1146
      chmoth = 'DC27'
      x = 13.931014
      y = 51.512594
      z = 0
      irot = 3199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3200
      theta1 = 90
      phi1 = 76.589472
      theta2 = 90
      phi2 = 166.58947
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1147
      chmoth = 'DC27'
      x = 12.376325
      y = 51.908063
      z = 0
      irot = 3200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3201
      theta1 = 90
      phi1 = 78.31196
      theta2 = 90
      phi2 = 168.31196
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1148
      chmoth = 'DC27'
      x = 10.810451
      y = 52.256622
      z = 0
      irot = 3201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3202
      theta1 = 90
      phi1 = 80.034448
      theta2 = 90
      phi2 = 170.03445
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1149
      chmoth = 'DC27'
      x = 9.2348073
      y = 52.557956
      z = 0
      irot = 3202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3203
      theta1 = 90
      phi1 = 81.756936
      theta2 = 90
      phi2 = 171.75694
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1150
      chmoth = 'DC27'
      x = 7.650818
      y = 52.811792
      z = 0
      irot = 3203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3204
      theta1 = 90
      phi1 = 83.479424
      theta2 = 90
      phi2 = 173.47942
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1151
      chmoth = 'DC27'
      x = 6.0599145
      y = 53.017901
      z = 0
      irot = 3204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3205
      theta1 = 90
      phi1 = 85.201912
      theta2 = 90
      phi2 = 175.20191
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1152
      chmoth = 'DC27'
      x = 4.4635346
      y = 53.176097
      z = 0
      irot = 3205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3206
      theta1 = 90
      phi1 = 86.9244
      theta2 = 90
      phi2 = 176.9244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1153
      chmoth = 'DC27'
      x = 2.8631209
      y = 53.286236
      z = 0
      irot = 3206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3207
      theta1 = 90
      phi1 = 88.646888
      theta2 = 90
      phi2 = 178.64689
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1154
      chmoth = 'DC27'
      x = 1.2601197
      y = 53.34822
      z = 0
      irot = 3207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3208
      theta1 = 90
      phi1 = 90.369376
      theta2 = 90
      phi2 = -179.63062
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1155
      chmoth = 'DC27'
      x = -0.34402031
      y = 53.361991
      z = 0
      irot = 3208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3209
      theta1 = 90
      phi1 = 92.091864
      theta2 = 90
      phi2 = -177.90814
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1156
      chmoth = 'DC27'
      x = -1.9478494
      y = 53.327538
      z = 0
      irot = 3209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3210
      theta1 = 90
      phi1 = 93.814352
      theta2 = 90
      phi2 = -176.18565
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1157
      chmoth = 'DC27'
      x = -3.5499182
      y = 53.244892
      z = 0
      irot = 3210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3211
      theta1 = 90
      phi1 = 95.53684
      theta2 = 90
      phi2 = -174.46316
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1158
      chmoth = 'DC27'
      x = -5.1487788
      y = 53.114127
      z = 0
      irot = 3211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3212
      theta1 = 90
      phi1 = 97.259328
      theta2 = 90
      phi2 = -172.74067
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1159
      chmoth = 'DC27'
      x = -6.7429864
      y = 52.935362
      z = 0
      irot = 3212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3213
      theta1 = 90
      phi1 = 98.981816
      theta2 = 90
      phi2 = -171.01818
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1160
      chmoth = 'DC27'
      x = -8.3311002
      y = 52.708758
      z = 0
      irot = 3213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3214
      theta1 = 90
      phi1 = 100.7043
      theta2 = 90
      phi2 = -169.2957
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1161
      chmoth = 'DC27'
      x = -9.911685
      y = 52.434521
      z = 0
      irot = 3214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3215
      theta1 = 90
      phi1 = 102.42679
      theta2 = 90
      phi2 = -167.57321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1162
      chmoth = 'DC27'
      x = -11.483312
      y = 52.112896
      z = 0
      irot = 3215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3216
      theta1 = 90
      phi1 = 104.14928
      theta2 = 90
      phi2 = -165.85072
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1163
      chmoth = 'DC27'
      x = -13.044562
      y = 51.744177
      z = 0
      irot = 3216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3217
      theta1 = 90
      phi1 = 105.87177
      theta2 = 90
      phi2 = -164.12823
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1164
      chmoth = 'DC27'
      x = -14.594023
      y = 51.328695
      z = 0
      irot = 3217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3218
      theta1 = 90
      phi1 = 107.59426
      theta2 = 90
      phi2 = -162.40574
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1165
      chmoth = 'DC27'
      x = -16.130295
      y = 50.866826
      z = 0
      irot = 3218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3219
      theta1 = 90
      phi1 = 109.31674
      theta2 = 90
      phi2 = -160.68326
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1166
      chmoth = 'DC27'
      x = -17.65199
      y = 50.358988
      z = 0
      irot = 3219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3220
      theta1 = 90
      phi1 = 111.03923
      theta2 = 90
      phi2 = -158.96077
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1167
      chmoth = 'DC27'
      x = -19.157733
      y = 49.80564
      z = 0
      irot = 3220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3221
      theta1 = 90
      phi1 = 112.76172
      theta2 = 90
      phi2 = -157.23828
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1168
      chmoth = 'DC27'
      x = -20.646162
      y = 49.20728
      z = 0
      irot = 3221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3222
      theta1 = 90
      phi1 = 114.48421
      theta2 = 90
      phi2 = -155.51579
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1169
      chmoth = 'DC27'
      x = -22.115932
      y = 48.564452
      z = 0
      irot = 3222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3223
      theta1 = 90
      phi1 = 116.2067
      theta2 = 90
      phi2 = -153.7933
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1170
      chmoth = 'DC27'
      x = -23.565716
      y = 47.877734
      z = 0
      irot = 3223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3224
      theta1 = 90
      phi1 = 117.92918
      theta2 = 90
      phi2 = -152.07082
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1171
      chmoth = 'DC27'
      x = -24.994204
      y = 47.147749
      z = 0
      irot = 3224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3225
      theta1 = 90
      phi1 = 119.65167
      theta2 = 90
      phi2 = -150.34833
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1172
      chmoth = 'DC27'
      x = -26.400103
      y = 46.375155
      z = 0
      irot = 3225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3226
      theta1 = 90
      phi1 = 121.37416
      theta2 = 90
      phi2 = -148.62584
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1173
      chmoth = 'DC27'
      x = -27.782144
      y = 45.560651
      z = 0
      irot = 3226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3227
      theta1 = 90
      phi1 = 123.09665
      theta2 = 90
      phi2 = -146.90335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1174
      chmoth = 'DC27'
      x = -29.139078
      y = 44.704972
      z = 0
      irot = 3227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3228
      theta1 = 90
      phi1 = 124.81914
      theta2 = 90
      phi2 = -145.18086
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1175
      chmoth = 'DC27'
      x = -30.469678
      y = 43.808893
      z = 0
      irot = 3228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3229
      theta1 = 90
      phi1 = 126.54162
      theta2 = 90
      phi2 = -143.45838
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1176
      chmoth = 'DC27'
      x = -31.772743
      y = 42.873223
      z = 0
      irot = 3229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3230
      theta1 = 90
      phi1 = 128.26411
      theta2 = 90
      phi2 = -141.73589
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1177
      chmoth = 'DC27'
      x = -33.047093
      y = 41.898808
      z = 0
      irot = 3230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3231
      theta1 = 90
      phi1 = 129.9866
      theta2 = 90
      phi2 = -140.0134
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1178
      chmoth = 'DC27'
      x = -34.291578
      y = 40.886527
      z = 0
      irot = 3231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3232
      theta1 = 90
      phi1 = 131.70909
      theta2 = 90
      phi2 = -138.29091
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1179
      chmoth = 'DC27'
      x = -35.505073
      y = 39.837297
      z = 0
      irot = 3232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3233
      theta1 = 90
      phi1 = 133.43158
      theta2 = 90
      phi2 = -136.56842
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1180
      chmoth = 'DC27'
      x = -36.686482
      y = 38.752065
      z = 0
      irot = 3233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3234
      theta1 = 90
      phi1 = 135.15406
      theta2 = 90
      phi2 = -134.84594
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1181
      chmoth = 'DC27'
      x = -37.834736
      y = 37.631811
      z = 0
      irot = 3234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3235
      theta1 = 90
      phi1 = 136.87655
      theta2 = 90
      phi2 = -133.12345
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1182
      chmoth = 'DC27'
      x = -38.948798
      y = 36.477549
      z = 0
      irot = 3235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3236
      theta1 = 90
      phi1 = 138.59904
      theta2 = 90
      phi2 = -131.40096
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1183
      chmoth = 'DC27'
      x = -40.027661
      y = 35.290322
      z = 0
      irot = 3236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3237
      theta1 = 90
      phi1 = 140.32153
      theta2 = 90
      phi2 = -129.67847
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1184
      chmoth = 'DC27'
      x = -41.07035
      y = 34.071202
      z = 0
      irot = 3237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3238
      theta1 = 90
      phi1 = 142.04402
      theta2 = 90
      phi2 = -127.95598
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1185
      chmoth = 'DC27'
      x = -42.075923
      y = 32.821291
      z = 0
      irot = 3238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3239
      theta1 = 90
      phi1 = 143.7665
      theta2 = 90
      phi2 = -126.2335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1186
      chmoth = 'DC27'
      x = -43.043471
      y = 31.541719
      z = 0
      irot = 3239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3240
      theta1 = 90
      phi1 = 145.48899
      theta2 = 90
      phi2 = -124.51101
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1187
      chmoth = 'DC27'
      x = -43.97212
      y = 30.233641
      z = 0
      irot = 3240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3241
      theta1 = 90
      phi1 = 147.21148
      theta2 = 90
      phi2 = -122.78852
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1188
      chmoth = 'DC27'
      x = -44.861031
      y = 28.898241
      z = 0
      irot = 3241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3242
      theta1 = 90
      phi1 = 148.93397
      theta2 = 90
      phi2 = -121.06603
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1189
      chmoth = 'DC27'
      x = -45.709399
      y = 27.536726
      z = 0
      irot = 3242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3243
      theta1 = 90
      phi1 = 150.65646
      theta2 = 90
      phi2 = -119.34354
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1190
      chmoth = 'DC27'
      x = -46.516459
      y = 26.150324
      z = 0
      irot = 3243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3244
      theta1 = 90
      phi1 = 152.37894
      theta2 = 90
      phi2 = -117.62106
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1191
      chmoth = 'DC27'
      x = -47.281481
      y = 24.74029
      z = 0
      irot = 3244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3245
      theta1 = 90
      phi1 = 154.10143
      theta2 = 90
      phi2 = -115.89857
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1192
      chmoth = 'DC27'
      x = -48.003774
      y = 23.307898
      z = 0
      irot = 3245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3246
      theta1 = 90
      phi1 = 155.82392
      theta2 = 90
      phi2 = -114.17608
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1193
      chmoth = 'DC27'
      x = -48.682685
      y = 21.854442
      z = 0
      irot = 3246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3247
      theta1 = 90
      phi1 = 157.54641
      theta2 = 90
      phi2 = -112.45359
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1194
      chmoth = 'DC27'
      x = -49.3176
      y = 20.381235
      z = 0
      irot = 3247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3248
      theta1 = 90
      phi1 = 159.2689
      theta2 = 90
      phi2 = -110.7311
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1195
      chmoth = 'DC27'
      x = -49.907946
      y = 18.88961
      z = 0
      irot = 3248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3249
      theta1 = 90
      phi1 = 160.99138
      theta2 = 90
      phi2 = -109.00862
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1196
      chmoth = 'DC27'
      x = -50.453189
      y = 17.380913
      z = 0
      irot = 3249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3250
      theta1 = 90
      phi1 = 162.71387
      theta2 = 90
      phi2 = -107.28613
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1197
      chmoth = 'DC27'
      x = -50.952837
      y = 15.856509
      z = 0
      irot = 3250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3251
      theta1 = 90
      phi1 = 164.43636
      theta2 = 90
      phi2 = -105.56364
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1198
      chmoth = 'DC27'
      x = -51.406437
      y = 14.317776
      z = 0
      irot = 3251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3252
      theta1 = 90
      phi1 = 166.15885
      theta2 = 90
      phi2 = -103.84115
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1199
      chmoth = 'DC27'
      x = -51.81358
      y = 12.766103
      z = 0
      irot = 3252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3253
      theta1 = 90
      phi1 = 167.88134
      theta2 = 90
      phi2 = -102.11866
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1200
      chmoth = 'DC27'
      x = -52.173898
      y = 11.202892
      z = 0
      irot = 3253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3254
      theta1 = 90
      phi1 = 169.60382
      theta2 = 90
      phi2 = -100.39618
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1201
      chmoth = 'DC27'
      x = -52.487066
      y = 9.6295582
      z = 0
      irot = 3254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3255
      theta1 = 90
      phi1 = 171.32631
      theta2 = 90
      phi2 = -98.673688
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1202
      chmoth = 'DC27'
      x = -52.752799
      y = 8.0475214
      z = 0
      irot = 3255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3256
      theta1 = 90
      phi1 = 173.0488
      theta2 = 90
      phi2 = -96.9512
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1203
      chmoth = 'DC27'
      x = -52.970859
      y = 6.4582119
      z = 0
      irot = 3256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3257
      theta1 = 90
      phi1 = 174.77129
      theta2 = 90
      phi2 = -95.228712
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1204
      chmoth = 'DC27'
      x = -53.141048
      y = 4.863066
      z = 0
      irot = 3257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3258
      theta1 = 90
      phi1 = 176.49378
      theta2 = 90
      phi2 = -93.506224
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1205
      chmoth = 'DC27'
      x = -53.263213
      y = 3.2635253
      z = 0
      irot = 3258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3259
      theta1 = 90
      phi1 = 178.21626
      theta2 = 90
      phi2 = -91.783736
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1206
      chmoth = 'DC27'
      x = -53.337242
      y = 1.6610352
      z = 0
      irot = 3259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3260
      theta1 = 90
      phi1 = 179.93875
      theta2 = 90
      phi2 = -90.061248
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1207
      chmoth = 'DC27'
      x = -53.36307
      y = 0.057044036
      z = 0
      irot = 3260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3261
      theta1 = 90
      phi1 = -178.33876
      theta2 = 90
      phi2 = -88.33876
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1208
      chmoth = 'DC27'
      x = -53.340672
      y = -1.5469987
      z = 0
      irot = 3261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3262
      theta1 = 90
      phi1 = -176.61627
      theta2 = 90
      phi2 = -86.616272
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1209
      chmoth = 'DC27'
      x = -53.270068
      y = -3.1496434
      z = 0
      irot = 3262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3263
      theta1 = 90
      phi1 = -174.89378
      theta2 = 90
      phi2 = -84.893784
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1210
      chmoth = 'DC27'
      x = -53.151324
      y = -4.7494417
      z = 0
      irot = 3263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3264
      theta1 = 90
      phi1 = -173.1713
      theta2 = 90
      phi2 = -83.171296
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1211
      chmoth = 'DC27'
      x = -52.984546
      y = -6.3449478
      z = 0
      irot = 3264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3265
      theta1 = 90
      phi1 = -171.44881
      theta2 = 90
      phi2 = -81.448808
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1212
      chmoth = 'DC27'
      x = -52.769884
      y = -7.9347198
      z = 0
      irot = 3265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3266
      theta1 = 90
      phi1 = -169.72632
      theta2 = 90
      phi2 = -79.72632
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1213
      chmoth = 'DC27'
      x = -52.507533
      y = -9.5173211
      z = 0
      irot = 3266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3267
      theta1 = 90
      phi1 = -168.00383
      theta2 = 90
      phi2 = -78.003832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1214
      chmoth = 'DC27'
      x = -52.19773
      y = -11.091321
      z = 0
      irot = 3267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3268
      theta1 = 90
      phi1 = -166.28134
      theta2 = 90
      phi2 = -76.281344
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1215
      chmoth = 'DC27'
      x = -51.840755
      y = -12.655298
      z = 0
      irot = 3268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3269
      theta1 = 90
      phi1 = -164.55886
      theta2 = 90
      phi2 = -74.558856
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1216
      chmoth = 'DC27'
      x = -51.43693
      y = -14.207838
      z = 0
      irot = 3269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3270
      theta1 = 90
      phi1 = -162.83637
      theta2 = 90
      phi2 = -72.836368
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1217
      chmoth = 'DC27'
      x = -50.986621
      y = -15.747538
      z = 0
      irot = 3270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3271
      theta1 = 90
      phi1 = -161.11388
      theta2 = 90
      phi2 = -71.11388
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1218
      chmoth = 'DC27'
      x = -50.490234
      y = -17.273007
      z = 0
      irot = 3271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3272
      theta1 = 90
      phi1 = -159.39139
      theta2 = 90
      phi2 = -69.391392
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1219
      chmoth = 'DC27'
      x = -49.948217
      y = -18.782865
      z = 0
      irot = 3272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3273
      theta1 = 90
      phi1 = -157.6689
      theta2 = 90
      phi2 = -67.668904
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1220
      chmoth = 'DC27'
      x = -49.361062
      y = -20.27575
      z = 0
      irot = 3273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3274
      theta1 = 90
      phi1 = -155.94642
      theta2 = 90
      phi2 = -65.946416
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1221
      chmoth = 'DC27'
      x = -48.729298
      y = -21.75031
      z = 0
      irot = 3274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3275
      theta1 = 90
      phi1 = -154.22393
      theta2 = 90
      phi2 = -64.223928
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1222
      chmoth = 'DC27'
      x = -48.053496
      y = -23.205214
      z = 0
      irot = 3275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3276
      theta1 = 90
      phi1 = -152.50144
      theta2 = 90
      phi2 = -62.50144
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1223
      chmoth = 'DC27'
      x = -47.334267
      y = -24.639148
      z = 0
      irot = 3276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3277
      theta1 = 90
      phi1 = -150.77895
      theta2 = 90
      phi2 = -60.778952
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1224
      chmoth = 'DC27'
      x = -46.572261
      y = -26.050814
      z = 0
      irot = 3277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3278
      theta1 = 90
      phi1 = -149.05646
      theta2 = 90
      phi2 = -59.056464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1225
      chmoth = 'DC27'
      x = -45.768167
      y = -27.438938
      z = 0
      irot = 3278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3279
      theta1 = 90
      phi1 = -147.33398
      theta2 = 90
      phi2 = -57.333976
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1226
      chmoth = 'DC27'
      x = -44.922711
      y = -28.802264
      z = 0
      irot = 3279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3280
      theta1 = 90
      phi1 = -145.61149
      theta2 = 90
      phi2 = -55.611488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1227
      chmoth = 'DC27'
      x = -44.036658
      y = -30.139562
      z = 0
      irot = 3280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3281
      theta1 = 90
      phi1 = -143.889
      theta2 = 90
      phi2 = -53.889
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1228
      chmoth = 'DC27'
      x = -43.110808
      y = -31.449621
      z = 0
      irot = 3281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3282
      theta1 = 90
      phi1 = -142.16651
      theta2 = 90
      phi2 = -52.166512
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1229
      chmoth = 'DC27'
      x = -42.145998
      y = -32.731259
      z = 0
      irot = 3282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3283
      theta1 = 90
      phi1 = -140.44402
      theta2 = 90
      phi2 = -50.444024
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1230
      chmoth = 'DC27'
      x = -41.143099
      y = -33.983317
      z = 0
      irot = 3283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3284
      theta1 = 90
      phi1 = -138.72154
      theta2 = 90
      phi2 = -48.721536
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1231
      chmoth = 'DC27'
      x = -40.103018
      y = -35.204664
      z = 0
      irot = 3284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3285
      theta1 = 90
      phi1 = -136.99905
      theta2 = 90
      phi2 = -46.999048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1232
      chmoth = 'DC27'
      x = -39.026696
      y = -36.394195
      z = 0
      irot = 3285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3286
      theta1 = 90
      phi1 = -135.27656
      theta2 = 90
      phi2 = -45.27656
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1233
      chmoth = 'DC27'
      x = -37.915104
      y = -37.550836
      z = 0
      irot = 3286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3287
      theta1 = 90
      phi1 = -133.55407
      theta2 = 90
      phi2 = -43.554072
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1234
      chmoth = 'DC27'
      x = -36.769248
      y = -38.673542
      z = 0
      irot = 3287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3288
      theta1 = 90
      phi1 = -131.83158
      theta2 = 90
      phi2 = -41.831584
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1235
      chmoth = 'DC27'
      x = -35.590162
      y = -39.761297
      z = 0
      irot = 3288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3289
      theta1 = 90
      phi1 = -130.1091
      theta2 = 90
      phi2 = -40.109096
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1236
      chmoth = 'DC27'
      x = -34.378913
      y = -40.81312
      z = 0
      irot = 3289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3290
      theta1 = 90
      phi1 = -128.38661
      theta2 = 90
      phi2 = -38.386608
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1237
      chmoth = 'DC27'
      x = -33.136595
      y = -41.828059
      z = 0
      irot = 3290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3291
      theta1 = 90
      phi1 = -126.66412
      theta2 = 90
      phi2 = -36.66412
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1238
      chmoth = 'DC27'
      x = -31.864331
      y = -42.805196
      z = 0
      irot = 3291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3292
      theta1 = 90
      phi1 = -124.94163
      theta2 = 90
      phi2 = -34.941632
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1239
      chmoth = 'DC27'
      x = -30.56327
      y = -43.74365
      z = 0
      irot = 3292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3293
      theta1 = 90
      phi1 = -123.21914
      theta2 = 90
      phi2 = -33.219144
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1240
      chmoth = 'DC27'
      x = -29.234589
      y = -44.642572
      z = 0
      irot = 3293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3294
      theta1 = 90
      phi1 = -121.49666
      theta2 = 90
      phi2 = -31.496656
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1241
      chmoth = 'DC27'
      x = -27.879488
      y = -45.50115
      z = 0
      irot = 3294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3295
      theta1 = 90
      phi1 = -119.77417
      theta2 = 90
      phi2 = -29.774168
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1242
      chmoth = 'DC27'
      x = -26.499191
      y = -46.318607
      z = 0
      irot = 3295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3296
      theta1 = 90
      phi1 = -118.05168
      theta2 = 90
      phi2 = -28.05168
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1243
      chmoth = 'DC27'
      x = -25.094946
      y = -47.094205
      z = 0
      irot = 3296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3297
      theta1 = 90
      phi1 = -116.32919
      theta2 = 90
      phi2 = -26.329192
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1244
      chmoth = 'DC27'
      x = -23.668023
      y = -47.827242
      z = 0
      irot = 3297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3298
      theta1 = 90
      phi1 = -114.6067
      theta2 = 90
      phi2 = -24.606704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1245
      chmoth = 'DC27'
      x = -22.219711
      y = -48.517058
      z = 0
      irot = 3298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3299
      theta1 = 90
      phi1 = -112.88422
      theta2 = 90
      phi2 = -22.884216
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1246
      chmoth = 'DC27'
      x = -20.751317
      y = -49.163027
      z = 0
      irot = 3299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3300
      theta1 = 90
      phi1 = -111.16173
      theta2 = 90
      phi2 = -21.161728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1247
      chmoth = 'DC27'
      x = -19.264171
      y = -49.764567
      z = 0
      irot = 3300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3301
      theta1 = 90
      phi1 = -109.43924
      theta2 = 90
      phi2 = -19.43924
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1248
      chmoth = 'DC27'
      x = -17.759615
      y = -50.321134
      z = 0
      irot = 3301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3302
      theta1 = 90
      phi1 = -107.71675
      theta2 = 90
      phi2 = -17.716752
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1249
      chmoth = 'DC27'
      x = -16.23901
      y = -50.832224
      z = 0
      irot = 3302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3303
      theta1 = 90
      phi1 = -105.99426
      theta2 = 90
      phi2 = -15.994264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1250
      chmoth = 'DC27'
      x = -14.703728
      y = -51.297376
      z = 0
      irot = 3303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3304
      theta1 = 90
      phi1 = -104.27178
      theta2 = 90
      phi2 = -14.271776
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1251
      chmoth = 'DC27'
      x = -13.155159
      y = -51.71617
      z = 0
      irot = 3304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3305
      theta1 = 90
      phi1 = -102.54929
      theta2 = 90
      phi2 = -12.549288
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1252
      chmoth = 'DC27'
      x = -11.594701
      y = -52.088227
      z = 0
      irot = 3305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3306
      theta1 = 90
      phi1 = -100.8268
      theta2 = 90
      phi2 = -10.8268
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1253
      chmoth = 'DC27'
      x = -10.023765
      y = -52.41321
      z = 0
      irot = 3306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3307
      theta1 = 90
      phi1 = -99.104312
      theta2 = 90
      phi2 = -9.104312
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1254
      chmoth = 'DC27'
      x = -8.4437702
      y = -52.690826
      z = 0
      irot = 3307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3308
      theta1 = 90
      phi1 = -97.381824
      theta2 = 90
      phi2 = -7.381824
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1255
      chmoth = 'DC27'
      x = -6.8561445
      y = -52.920825
      z = 0
      irot = 3308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3309
      theta1 = 90
      phi1 = -95.659336
      theta2 = 90
      phi2 = -5.659336
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1256
      chmoth = 'DC27'
      x = -5.2623228
      y = -53.102998
      z = 0
      irot = 3309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3310
      theta1 = 90
      phi1 = -93.936848
      theta2 = 90
      phi2 = -3.936848
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1257
      chmoth = 'DC27'
      x = -3.6637454
      y = -53.237181
      z = 0
      irot = 3310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3311
      theta1 = 90
      phi1 = -92.21436
      theta2 = 90
      phi2 = -2.21436
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1258
      chmoth = 'DC27'
      x = -2.0618569
      y = -53.323252
      z = 0
      irot = 3311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3312
      theta1 = 90
      phi1 = -90.491872
      theta2 = 90
      phi2 = -0.491872
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1259
      chmoth = 'DC27'
      x = -0.45810516
      y = -53.361134
      z = 0
      irot = 3312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3313
      theta1 = 90
      phi1 = -88.769384
      theta2 = 90
      phi2 = 1.230616
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1260
      chmoth = 'DC27'
      x = 1.1460606
      y = -53.350792
      z = 0
      irot = 3313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3314
      theta1 = 90
      phi1 = -87.046896
      theta2 = 90
      phi2 = 2.953104
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1261
      chmoth = 'DC27'
      x = 2.7491907
      y = -53.292236
      z = 0
      irot = 3314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3315
      theta1 = 90
      phi1 = -85.324408
      theta2 = 90
      phi2 = 4.675592
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1262
      chmoth = 'DC27'
      x = 4.3498362
      y = -53.185518
      z = 0
      irot = 3315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3316
      theta1 = 90
      phi1 = -83.60192
      theta2 = 90
      phi2 = 6.39808
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1263
      chmoth = 'DC27'
      x = 5.9465507
      y = -53.030736
      z = 0
      irot = 3316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3317
      theta1 = 90
      phi1 = -81.879432
      theta2 = 90
      phi2 = 8.120568
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1264
      chmoth = 'DC27'
      x = 7.5378912
      y = -52.828029
      z = 0
      irot = 3317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3318
      theta1 = 90
      phi1 = -80.156944
      theta2 = 90
      phi2 = 9.843056
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1265
      chmoth = 'DC27'
      x = 9.1224195
      y = -52.57758
      z = 0
      irot = 3318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3319
      theta1 = 90
      phi1 = -78.434456
      theta2 = 90
      phi2 = 11.565544
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1266
      chmoth = 'DC27'
      x = 10.698704
      y = -52.279615
      z = 0
      irot = 3319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3320
      theta1 = 90
      phi1 = -76.711968
      theta2 = 90
      phi2 = 13.288032
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1267
      chmoth = 'DC27'
      x = 12.265319
      y = -51.934405
      z = 0
      irot = 3320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3321
      theta1 = 90
      phi1 = -74.98948
      theta2 = 90
      phi2 = 15.01052
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1268
      chmoth = 'DC27'
      x = 13.82085
      y = -51.54226
      z = 0
      irot = 3321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3322
      theta1 = 90
      phi1 = -73.266992
      theta2 = 90
      phi2 = 16.733008
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1269
      chmoth = 'DC27'
      x = 15.363891
      y = -51.103535
      z = 0
      irot = 3322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3323
      theta1 = 90
      phi1 = -71.544504
      theta2 = 90
      phi2 = 18.455496
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1270
      chmoth = 'DC27'
      x = 16.893048
      y = -50.618627
      z = 0
      irot = 3323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3324
      theta1 = 90
      phi1 = -69.822016
      theta2 = 90
      phi2 = 20.177984
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1271
      chmoth = 'DC27'
      x = 18.406937
      y = -50.087974
      z = 0
      irot = 3324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3325
      theta1 = 90
      phi1 = -68.099528
      theta2 = 90
      phi2 = 21.900472
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1272
      chmoth = 'DC27'
      x = 19.904192
      y = -49.512055
      z = 0
      irot = 3325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3326
      theta1 = 90
      phi1 = -66.37704
      theta2 = 90
      phi2 = 23.62296
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1273
      chmoth = 'DC27'
      x = 21.383459
      y = -48.891391
      z = 0
      irot = 3326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3327
      theta1 = 90
      phi1 = -64.654552
      theta2 = 90
      phi2 = 25.345448
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1274
      chmoth = 'DC27'
      x = 22.843402
      y = -48.226543
      z = 0
      irot = 3327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3328
      theta1 = 90
      phi1 = -62.932064
      theta2 = 90
      phi2 = 27.067936
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1275
      chmoth = 'DC27'
      x = 24.2827
      y = -47.518111
      z = 0
      irot = 3328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3329
      theta1 = 90
      phi1 = -61.209576
      theta2 = 90
      phi2 = 28.790424
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1276
      chmoth = 'DC27'
      x = 25.700054
      y = -46.766737
      z = 0
      irot = 3329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3330
      theta1 = 90
      phi1 = -59.487088
      theta2 = 90
      phi2 = 30.512912
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1277
      chmoth = 'DC27'
      x = 27.094181
      y = -45.973098
      z = 0
      irot = 3330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3331
      theta1 = 90
      phi1 = -57.7646
      theta2 = 90
      phi2 = 32.2354
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1278
      chmoth = 'DC27'
      x = 28.463824
      y = -45.137913
      z = 0
      irot = 3331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3332
      theta1 = 90
      phi1 = -56.042112
      theta2 = 90
      phi2 = 33.957888
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1279
      chmoth = 'DC27'
      x = 29.807743
      y = -44.261935
      z = 0
      irot = 3332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3333
      theta1 = 90
      phi1 = -54.319624
      theta2 = 90
      phi2 = 35.680376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1280
      chmoth = 'DC27'
      x = 31.124724
      y = -43.345957
      z = 0
      irot = 3333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3334
      theta1 = 90
      phi1 = -52.597136
      theta2 = 90
      phi2 = 37.402864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1281
      chmoth = 'DC27'
      x = 32.413577
      y = -42.390807
      z = 0
      irot = 3334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3335
      theta1 = 90
      phi1 = -50.874648
      theta2 = 90
      phi2 = 39.125352
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1282
      chmoth = 'DC27'
      x = 33.673137
      y = -41.397347
      z = 0
      irot = 3335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3336
      theta1 = 90
      phi1 = -49.15216
      theta2 = 90
      phi2 = 40.84784
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1283
      chmoth = 'DC27'
      x = 34.902266
      y = -40.366475
      z = 0
      irot = 3336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3337
      theta1 = 90
      phi1 = -47.429672
      theta2 = 90
      phi2 = 42.570328
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1284
      chmoth = 'DC27'
      x = 36.099853
      y = -39.299123
      z = 0
      irot = 3337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3338
      theta1 = 90
      phi1 = -45.707184
      theta2 = 90
      phi2 = 44.292816
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1285
      chmoth = 'DC27'
      x = 37.264816
      y = -38.196256
      z = 0
      irot = 3338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3339
      theta1 = 90
      phi1 = -43.984696
      theta2 = 90
      phi2 = 46.015304
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1286
      chmoth = 'DC27'
      x = 38.396102
      y = -37.05887
      z = 0
      irot = 3339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3340
      theta1 = 90
      phi1 = -42.262208
      theta2 = 90
      phi2 = 47.737792
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1287
      chmoth = 'DC27'
      x = 39.492688
      y = -35.887993
      z = 0
      irot = 3340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3341
      theta1 = 90
      phi1 = -40.53972
      theta2 = 90
      phi2 = 49.46028
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1288
      chmoth = 'DC27'
      x = 40.553584
      y = -34.684683
      z = 0
      irot = 3341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3342
      theta1 = 90
      phi1 = -38.817232
      theta2 = 90
      phi2 = 51.182768
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1289
      chmoth = 'DC27'
      x = 41.577831
      y = -33.450028
      z = 0
      irot = 3342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3343
      theta1 = 90
      phi1 = -37.094744
      theta2 = 90
      phi2 = 52.905256
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1290
      chmoth = 'DC27'
      x = 42.564504
      y = -32.185144
      z = 0
      irot = 3343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3344
      theta1 = 90
      phi1 = -35.372256
      theta2 = 90
      phi2 = 54.627744
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1291
      chmoth = 'DC27'
      x = 43.512709
      y = -30.891173
      z = 0
      irot = 3344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3345
      theta1 = 90
      phi1 = -33.649768
      theta2 = 90
      phi2 = 56.350232
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1292
      chmoth = 'DC27'
      x = 44.421592
      y = -29.569285
      z = 0
      irot = 3345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3346
      theta1 = 90
      phi1 = -31.92728
      theta2 = 90
      phi2 = 58.07272
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1293
      chmoth = 'DC27'
      x = 45.29033
      y = -28.220675
      z = 0
      irot = 3346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3347
      theta1 = 90
      phi1 = -30.204792
      theta2 = 90
      phi2 = 59.795208
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1294
      chmoth = 'DC27'
      x = 46.118138
      y = -26.846561
      z = 0
      irot = 3347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3348
      theta1 = 90
      phi1 = -28.482304
      theta2 = 90
      phi2 = 61.517696
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1295
      chmoth = 'DC27'
      x = 46.904267
      y = -25.448185
      z = 0
      irot = 3348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3349
      theta1 = 90
      phi1 = -26.759816
      theta2 = 90
      phi2 = 63.240184
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1296
      chmoth = 'DC27'
      x = 47.648009
      y = -24.026812
      z = 0
      irot = 3349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3350
      theta1 = 90
      phi1 = -25.037328
      theta2 = 90
      phi2 = 64.962672
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1297
      chmoth = 'DC27'
      x = 48.34869
      y = -22.583724
      z = 0
      irot = 3350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3351
      theta1 = 90
      phi1 = -23.31484
      theta2 = 90
      phi2 = 66.68516
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1298
      chmoth = 'DC27'
      x = 49.005677
      y = -21.120228
      z = 0
      irot = 3351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3352
      theta1 = 90
      phi1 = -21.592352
      theta2 = 90
      phi2 = 68.407648
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1299
      chmoth = 'DC27'
      x = 49.618377
      y = -19.637644
      z = 0
      irot = 3352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3353
      theta1 = 90
      phi1 = -19.869864
      theta2 = 90
      phi2 = 70.130136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1300
      chmoth = 'DC27'
      x = 50.186236
      y = -18.137314
      z = 0
      irot = 3353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3354
      theta1 = 90
      phi1 = -18.147376
      theta2 = 90
      phi2 = 71.852624
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1301
      chmoth = 'DC27'
      x = 50.70874
      y = -16.620592
      z = 0
      irot = 3354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3355
      theta1 = 90
      phi1 = -16.424888
      theta2 = 90
      phi2 = 73.575112
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1302
      chmoth = 'DC27'
      x = 51.185418
      y = -15.088851
      z = 0
      irot = 3355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3356
      theta1 = 90
      phi1 = -14.7024
      theta2 = 90
      phi2 = 75.2976
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1303
      chmoth = 'DC27'
      x = 51.615839
      y = -13.543473
      z = 0
      irot = 3356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3357
      theta1 = 90
      phi1 = -12.979912
      theta2 = 90
      phi2 = 77.020088
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1304
      chmoth = 'DC27'
      x = 51.999613
      y = -11.985855
      z = 0
      irot = 3357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3358
      theta1 = 90
      phi1 = -11.257424
      theta2 = 90
      phi2 = 78.742576
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1305
      chmoth = 'DC27'
      x = 52.336394
      y = -10.417406
      z = 0
      irot = 3358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3359
      theta1 = 90
      phi1 = -9.534936
      theta2 = 90
      phi2 = 80.465064
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1306
      chmoth = 'DC27'
      x = 52.625877
      y = -8.8395421
      z = 0
      irot = 3359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3360
      theta1 = 90
      phi1 = -7.812448
      theta2 = 90
      phi2 = 82.187552
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1307
      chmoth = 'DC27'
      x = 52.867801
      y = -7.2536898
      z = 0
      irot = 3360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3361
      theta1 = 90
      phi1 = -6.08996
      theta2 = 90
      phi2 = 83.91004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1308
      chmoth = 'DC27'
      x = 53.061948
      y = -5.6612823
      z = 0
      irot = 3361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3362
      theta1 = 90
      phi1 = -4.367472
      theta2 = 90
      phi2 = 85.632528
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1309
      chmoth = 'DC27'
      x = 53.208141
      y = -4.0637585
      z = 0
      irot = 3362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3363
      theta1 = 90
      phi1 = -2.644984
      theta2 = 90
      phi2 = 87.355016
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1310
      chmoth = 'DC27'
      x = 53.306249
      y = -2.4625622
      z = 0
      irot = 3363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3364
      theta1 = 90
      phi1 = -0.922496
      theta2 = 90
      phi2 = 89.077504
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1311
      chmoth = 'DC27'
      x = 53.356184
      y = -0.85914041
      z = 0
      irot = 3364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3365
      theta1 = 90
      phi1 = 1.661244
      theta2 = 90
      phi2 = 91.661244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1312
      chmoth = 'DC27'
      x = 54.738684
      y = 1.587548
      z = 0
      irot = 3365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3366
      theta1 = 90
      phi1 = 3.383732
      theta2 = 90
      phi2 = 93.383732
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1313
      chmoth = 'DC27'
      x = 54.66623
      y = 3.2321966
      z = 0
      irot = 3366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3367
      theta1 = 90
      phi1 = 5.10622
      theta2 = 90
      phi2 = 95.10622
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1314
      chmoth = 'DC27'
      x = 54.544373
      y = 4.8739242
      z = 0
      irot = 3367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3368
      theta1 = 90
      phi1 = 6.828708
      theta2 = 90
      phi2 = 96.828708
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1315
      chmoth = 'DC27'
      x = 54.373224
      y = 6.5112471
      z = 0
      irot = 3368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3369
      theta1 = 90
      phi1 = 8.551196
      theta2 = 90
      phi2 = 98.551196
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1316
      chmoth = 'DC27'
      x = 54.152936
      y = 8.1426856
      z = 0
      irot = 3369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3370
      theta1 = 90
      phi1 = 10.273684
      theta2 = 90
      phi2 = 100.27368
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1317
      chmoth = 'DC27'
      x = 53.883709
      y = 9.7667655
      z = 0
      irot = 3370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3371
      theta1 = 90
      phi1 = 11.996172
      theta2 = 90
      phi2 = 101.99617
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1318
      chmoth = 'DC27'
      x = 53.565786
      y = 11.382019
      z = 0
      irot = 3371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3372
      theta1 = 90
      phi1 = 13.71866
      theta2 = 90
      phi2 = 103.71866
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1319
      chmoth = 'DC27'
      x = 53.199455
      y = 12.986986
      z = 0
      irot = 3372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3373
      theta1 = 90
      phi1 = 15.441148
      theta2 = 90
      phi2 = 105.44115
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1320
      chmoth = 'DC27'
      x = 52.785046
      y = 14.580217
      z = 0
      irot = 3373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3374
      theta1 = 90
      phi1 = 17.163636
      theta2 = 90
      phi2 = 107.16364
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1321
      chmoth = 'DC27'
      x = 52.322934
      y = 16.160271
      z = 0
      irot = 3374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3375
      theta1 = 90
      phi1 = 18.886124
      theta2 = 90
      phi2 = 108.88612
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1322
      chmoth = 'DC27'
      x = 51.813537
      y = 17.725721
      z = 0
      irot = 3375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3376
      theta1 = 90
      phi1 = 20.608612
      theta2 = 90
      phi2 = 110.60861
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1323
      chmoth = 'DC27'
      x = 51.257315
      y = 19.275151
      z = 0
      irot = 3376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3377
      theta1 = 90
      phi1 = 22.3311
      theta2 = 90
      phi2 = 112.3311
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1324
      chmoth = 'DC27'
      x = 50.65477
      y = 20.807163
      z = 0
      irot = 3377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3378
      theta1 = 90
      phi1 = 24.053588
      theta2 = 90
      phi2 = 114.05359
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1325
      chmoth = 'DC27'
      x = 50.006448
      y = 22.32037
      z = 0
      irot = 3378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3379
      theta1 = 90
      phi1 = 25.776076
      theta2 = 90
      phi2 = 115.77608
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1326
      chmoth = 'DC27'
      x = 49.312934
      y = 23.813406
      z = 0
      irot = 3379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3380
      theta1 = 90
      phi1 = 27.498564
      theta2 = 90
      phi2 = 117.49856
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1327
      chmoth = 'DC27'
      x = 48.574855
      y = 25.284922
      z = 0
      irot = 3380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3381
      theta1 = 90
      phi1 = 29.221052
      theta2 = 90
      phi2 = 119.22105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1328
      chmoth = 'DC27'
      x = 47.792878
      y = 26.733586
      z = 0
      irot = 3381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3382
      theta1 = 90
      phi1 = 30.94354
      theta2 = 90
      phi2 = 120.94354
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1329
      chmoth = 'DC27'
      x = 46.967709
      y = 28.158092
      z = 0
      irot = 3382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3383
      theta1 = 90
      phi1 = 32.666028
      theta2 = 90
      phi2 = 122.66603
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1330
      chmoth = 'DC27'
      x = 46.100094
      y = 29.55715
      z = 0
      irot = 3383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3384
      theta1 = 90
      phi1 = 34.388516
      theta2 = 90
      phi2 = 124.38852
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1331
      chmoth = 'DC27'
      x = 45.190818
      y = 30.929496
      z = 0
      irot = 3384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3385
      theta1 = 90
      phi1 = 36.111004
      theta2 = 90
      phi2 = 126.111
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1332
      chmoth = 'DC27'
      x = 44.240702
      y = 32.273891
      z = 0
      irot = 3385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3386
      theta1 = 90
      phi1 = 37.833492
      theta2 = 90
      phi2 = 127.83349
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1333
      chmoth = 'DC27'
      x = 43.250605
      y = 33.58912
      z = 0
      irot = 3386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3387
      theta1 = 90
      phi1 = 39.55598
      theta2 = 90
      phi2 = 129.55598
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1334
      chmoth = 'DC27'
      x = 42.221421
      y = 34.873993
      z = 0
      irot = 3387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3388
      theta1 = 90
      phi1 = 41.278468
      theta2 = 90
      phi2 = 131.27847
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1335
      chmoth = 'DC27'
      x = 41.154081
      y = 36.12735
      z = 0
      irot = 3388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3389
      theta1 = 90
      phi1 = 43.000956
      theta2 = 90
      phi2 = 133.00096
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1336
      chmoth = 'DC27'
      x = 40.049549
      y = 37.348058
      z = 0
      irot = 3389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3390
      theta1 = 90
      phi1 = 44.723444
      theta2 = 90
      phi2 = 134.72344
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1337
      chmoth = 'DC27'
      x = 38.908823
      y = 38.535013
      z = 0
      irot = 3390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3391
      theta1 = 90
      phi1 = 46.445932
      theta2 = 90
      phi2 = 136.44593
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1338
      chmoth = 'DC27'
      x = 37.732935
      y = 39.687144
      z = 0
      irot = 3391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3392
      theta1 = 90
      phi1 = 48.16842
      theta2 = 90
      phi2 = 138.16842
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1339
      chmoth = 'DC27'
      x = 36.522947
      y = 40.803409
      z = 0
      irot = 3392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3393
      theta1 = 90
      phi1 = 49.890908
      theta2 = 90
      phi2 = 139.89091
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1340
      chmoth = 'DC27'
      x = 35.279952
      y = 41.882798
      z = 0
      irot = 3393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3394
      theta1 = 90
      phi1 = 51.613396
      theta2 = 90
      phi2 = 141.6134
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1341
      chmoth = 'DC27'
      x = 34.005073
      y = 42.924338
      z = 0
      irot = 3394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3395
      theta1 = 90
      phi1 = 53.335884
      theta2 = 90
      phi2 = 143.33588
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1342
      chmoth = 'DC27'
      x = 32.699464
      y = 43.927085
      z = 0
      irot = 3395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3396
      theta1 = 90
      phi1 = 55.058372
      theta2 = 90
      phi2 = 145.05837
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1343
      chmoth = 'DC27'
      x = 31.364304
      y = 44.890135
      z = 0
      irot = 3396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3397
      theta1 = 90
      phi1 = 56.78086
      theta2 = 90
      phi2 = 146.78086
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1344
      chmoth = 'DC27'
      x = 30.000799
      y = 45.812617
      z = 0
      irot = 3397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3398
      theta1 = 90
      phi1 = 58.503348
      theta2 = 90
      phi2 = 148.50335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1345
      chmoth = 'DC27'
      x = 28.610181
      y = 46.693697
      z = 0
      irot = 3398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3399
      theta1 = 90
      phi1 = 60.225836
      theta2 = 90
      phi2 = 150.22584
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1346
      chmoth = 'DC27'
      x = 27.193708
      y = 47.532579
      z = 0
      irot = 3399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3400
      theta1 = 90
      phi1 = 61.948324
      theta2 = 90
      phi2 = 151.94832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1347
      chmoth = 'DC27'
      x = 25.75266
      y = 48.328504
      z = 0
      irot = 3400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3401
      theta1 = 90
      phi1 = 63.670812
      theta2 = 90
      phi2 = 153.67081
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1348
      chmoth = 'DC27'
      x = 24.288338
      y = 49.080754
      z = 0
      irot = 3401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3402
      theta1 = 90
      phi1 = 65.3933
      theta2 = 90
      phi2 = 155.3933
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1349
      chmoth = 'DC27'
      x = 22.802066
      y = 49.788649
      z = 0
      irot = 3402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3403
      theta1 = 90
      phi1 = 67.115788
      theta2 = 90
      phi2 = 157.11579
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1350
      chmoth = 'DC27'
      x = 21.295188
      y = 50.451549
      z = 0
      irot = 3403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3404
      theta1 = 90
      phi1 = 68.838276
      theta2 = 90
      phi2 = 158.83828
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1351
      chmoth = 'DC27'
      x = 19.769064
      y = 51.068854
      z = 0
      irot = 3404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3405
      theta1 = 90
      phi1 = 70.560764
      theta2 = 90
      phi2 = 160.56076
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1352
      chmoth = 'DC27'
      x = 18.225075
      y = 51.640008
      z = 0
      irot = 3405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3406
      theta1 = 90
      phi1 = 72.283252
      theta2 = 90
      phi2 = 162.28325
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1353
      chmoth = 'DC27'
      x = 16.664616
      y = 52.164493
      z = 0
      irot = 3406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3407
      theta1 = 90
      phi1 = 74.00574
      theta2 = 90
      phi2 = 164.00574
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1354
      chmoth = 'DC27'
      x = 15.089097
      y = 52.641837
      z = 0
      irot = 3407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3408
      theta1 = 90
      phi1 = 75.728228
      theta2 = 90
      phi2 = 165.72823
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1355
      chmoth = 'DC27'
      x = 13.499941
      y = 53.071606
      z = 0
      irot = 3408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3409
      theta1 = 90
      phi1 = 77.450716
      theta2 = 90
      phi2 = 167.45072
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1356
      chmoth = 'DC27'
      x = 11.898585
      y = 53.453414
      z = 0
      irot = 3409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3410
      theta1 = 90
      phi1 = 79.173204
      theta2 = 90
      phi2 = 169.1732
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1357
      chmoth = 'DC27'
      x = 10.286475
      y = 53.786915
      z = 0
      irot = 3410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3411
      theta1 = 90
      phi1 = 80.895692
      theta2 = 90
      phi2 = 170.89569
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1358
      chmoth = 'DC27'
      x = 8.6650702
      y = 54.071807
      z = 0
      irot = 3411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3412
      theta1 = 90
      phi1 = 82.61818
      theta2 = 90
      phi2 = 172.61818
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1359
      chmoth = 'DC27'
      x = 7.0358343
      y = 54.307834
      z = 0
      irot = 3412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3413
      theta1 = 90
      phi1 = 84.340668
      theta2 = 90
      phi2 = 174.34067
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1360
      chmoth = 'DC27'
      x = 5.4002398
      y = 54.494781
      z = 0
      irot = 3413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3414
      theta1 = 90
      phi1 = 86.063156
      theta2 = 90
      phi2 = 176.06316
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1361
      chmoth = 'DC27'
      x = 3.7597651
      y = 54.632481
      z = 0
      irot = 3414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3415
      theta1 = 90
      phi1 = 87.785644
      theta2 = 90
      phi2 = 177.78564
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1362
      chmoth = 'DC27'
      x = 2.1158926
      y = 54.720808
      z = 0
      irot = 3415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3416
      theta1 = 90
      phi1 = 89.508132
      theta2 = 90
      phi2 = 179.50813
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1363
      chmoth = 'DC27'
      x = 0.47010787
      y = 54.759682
      z = 0
      irot = 3416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3417
      theta1 = 90
      phi1 = 91.23062
      theta2 = 90
      phi2 = -178.76938
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1364
      chmoth = 'DC27'
      x = -1.1761017
      y = 54.749069
      z = 0
      irot = 3417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3418
      theta1 = 90
      phi1 = 92.953108
      theta2 = 90
      phi2 = -177.04689
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1365
      chmoth = 'DC27'
      x = -2.8212483
      y = 54.688978
      z = 0
      irot = 3418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3419
      theta1 = 90
      phi1 = 94.675596
      theta2 = 90
      phi2 = -175.3244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1366
      chmoth = 'DC27'
      x = -4.4638454
      y = 54.579464
      z = 0
      irot = 3419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3420
      theta1 = 90
      phi1 = 96.398084
      theta2 = 90
      phi2 = -173.60192
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1367
      chmoth = 'DC27'
      x = -6.1024084
      y = 54.420625
      z = 0
      irot = 3420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3421
      theta1 = 90
      phi1 = 98.120572
      theta2 = 90
      phi2 = -171.87943
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1368
      chmoth = 'DC27'
      x = -7.7354565
      y = 54.212605
      z = 0
      irot = 3421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3422
      theta1 = 90
      phi1 = 99.84306
      theta2 = 90
      phi2 = -170.15694
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1369
      chmoth = 'DC27'
      x = -9.3615139
      y = 53.955591
      z = 0
      irot = 3422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3423
      theta1 = 90
      phi1 = 101.56555
      theta2 = 90
      phi2 = -168.43445
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1370
      chmoth = 'DC27'
      x = -10.979111
      y = 53.649817
      z = 0
      irot = 3423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3424
      theta1 = 90
      phi1 = 103.28804
      theta2 = 90
      phi2 = -166.71196
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1371
      chmoth = 'DC27'
      x = -12.586786
      y = 53.295559
      z = 0
      irot = 3424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3425
      theta1 = 90
      phi1 = 105.01052
      theta2 = 90
      phi2 = -164.98948
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1372
      chmoth = 'DC27'
      x = -14.183086
      y = 52.893136
      z = 0
      irot = 3425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3426
      theta1 = 90
      phi1 = 106.73301
      theta2 = 90
      phi2 = -163.26699
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1373
      chmoth = 'DC27'
      x = -15.766569
      y = 52.442913
      z = 0
      irot = 3426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3427
      theta1 = 90
      phi1 = 108.4555
      theta2 = 90
      phi2 = -161.5445
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1374
      chmoth = 'DC27'
      x = -17.335803
      y = 51.945295
      z = 0
      irot = 3427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3428
      theta1 = 90
      phi1 = 110.17799
      theta2 = 90
      phi2 = -159.82201
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1375
      chmoth = 'DC27'
      x = -18.889371
      y = 51.400734
      z = 0
      irot = 3428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3429
      theta1 = 90
      phi1 = 111.90048
      theta2 = 90
      phi2 = -158.09952
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1376
      chmoth = 'DC27'
      x = -20.425867
      y = 50.809721
      z = 0
      irot = 3429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3430
      theta1 = 90
      phi1 = 113.62296
      theta2 = 90
      phi2 = -156.37704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1377
      chmoth = 'DC27'
      x = -21.943905
      y = 50.17279
      z = 0
      irot = 3430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3431
      theta1 = 90
      phi1 = 115.34545
      theta2 = 90
      phi2 = -154.65455
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1378
      chmoth = 'DC27'
      x = -23.442111
      y = 49.490517
      z = 0
      irot = 3431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3432
      theta1 = 90
      phi1 = 117.06794
      theta2 = 90
      phi2 = -152.93206
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1379
      chmoth = 'DC27'
      x = -24.919132
      y = 48.763518
      z = 0
      irot = 3432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3433
      theta1 = 90
      phi1 = 118.79043
      theta2 = 90
      phi2 = -151.20957
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1380
      chmoth = 'DC27'
      x = -26.373633
      y = 47.99245
      z = 0
      irot = 3433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3434
      theta1 = 90
      phi1 = 120.51292
      theta2 = 90
      phi2 = -149.48708
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1381
      chmoth = 'DC27'
      x = -27.804299
      y = 47.178011
      z = 0
      irot = 3434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3435
      theta1 = 90
      phi1 = 122.2354
      theta2 = 90
      phi2 = -147.7646
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1382
      chmoth = 'DC27'
      x = -29.209839
      y = 46.320936
      z = 0
      irot = 3435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3436
      theta1 = 90
      phi1 = 123.95789
      theta2 = 90
      phi2 = -146.04211
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1383
      chmoth = 'DC27'
      x = -30.588981
      y = 45.422
      z = 0
      irot = 3436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3437
      theta1 = 90
      phi1 = 125.68038
      theta2 = 90
      phi2 = -144.31962
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1384
      chmoth = 'DC27'
      x = -31.940478
      y = 44.482015
      z = 0
      irot = 3437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3438
      theta1 = 90
      phi1 = 127.40287
      theta2 = 90
      phi2 = -142.59713
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1385
      chmoth = 'DC27'
      x = -33.263111
      y = 43.50183
      z = 0
      irot = 3438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3439
      theta1 = 90
      phi1 = 129.12536
      theta2 = 90
      phi2 = -140.87464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1386
      chmoth = 'DC27'
      x = -34.555683
      y = 42.482332
      z = 0
      irot = 3439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3440
      theta1 = 90
      phi1 = 130.84784
      theta2 = 90
      phi2 = -139.15216
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1387
      chmoth = 'DC27'
      x = -35.817026
      y = 41.424442
      z = 0
      irot = 3440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3441
      theta1 = 90
      phi1 = 132.57033
      theta2 = 90
      phi2 = -137.42967
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1388
      chmoth = 'DC27'
      x = -37.046001
      y = 40.329116
      z = 0
      irot = 3441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3442
      theta1 = 90
      phi1 = 134.29282
      theta2 = 90
      phi2 = -135.70718
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1389
      chmoth = 'DC27'
      x = -38.241497
      y = 39.197343
      z = 0
      irot = 3442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3443
      theta1 = 90
      phi1 = 136.01531
      theta2 = 90
      phi2 = -133.98469
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1390
      chmoth = 'DC27'
      x = -39.402432
      y = 38.030147
      z = 0
      irot = 3443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3444
      theta1 = 90
      phi1 = 137.7378
      theta2 = 90
      phi2 = -132.2622
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1391
      chmoth = 'DC27'
      x = -40.527759
      y = 36.828583
      z = 0
      irot = 3444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3445
      theta1 = 90
      phi1 = 139.46028
      theta2 = 90
      phi2 = -130.53972
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1392
      chmoth = 'DC27'
      x = -41.616461
      y = 35.593735
      z = 0
      irot = 3445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3446
      theta1 = 90
      phi1 = 141.18277
      theta2 = 90
      phi2 = -128.81723
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1393
      chmoth = 'DC27'
      x = -42.667552
      y = 34.326721
      z = 0
      irot = 3446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3447
      theta1 = 90
      phi1 = 142.90526
      theta2 = 90
      phi2 = -127.09474
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1394
      chmoth = 'DC27'
      x = -43.680084
      y = 33.028685
      z = 0
      irot = 3447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3448
      theta1 = 90
      phi1 = 144.62775
      theta2 = 90
      phi2 = -125.37225
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1395
      chmoth = 'DC27'
      x = -44.653142
      y = 31.7008
      z = 0
      irot = 3448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3449
      theta1 = 90
      phi1 = 146.35024
      theta2 = 90
      phi2 = -123.64976
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1396
      chmoth = 'DC27'
      x = -45.585845
      y = 30.344267
      z = 0
      irot = 3449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3450
      theta1 = 90
      phi1 = 148.07272
      theta2 = 90
      phi2 = -121.92728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1397
      chmoth = 'DC27'
      x = -46.477351
      y = 28.960311
      z = 0
      irot = 3450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3451
      theta1 = 90
      phi1 = 149.79521
      theta2 = 90
      phi2 = -120.20479
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1398
      chmoth = 'DC27'
      x = -47.326855
      y = 27.550182
      z = 0
      irot = 3451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3452
      theta1 = 90
      phi1 = 151.5177
      theta2 = 90
      phi2 = -118.4823
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1399
      chmoth = 'DC27'
      x = -48.133589
      y = 26.115157
      z = 0
      irot = 3452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3453
      theta1 = 90
      phi1 = 153.24019
      theta2 = 90
      phi2 = -116.75981
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1400
      chmoth = 'DC27'
      x = -48.896823
      y = 24.65653
      z = 0
      irot = 3453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3454
      theta1 = 90
      phi1 = 154.96268
      theta2 = 90
      phi2 = -115.03732
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1401
      chmoth = 'DC27'
      x = -49.615868
      y = 23.17562
      z = 0
      irot = 3454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3455
      theta1 = 90
      phi1 = 156.68516
      theta2 = 90
      phi2 = -113.31484
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1402
      chmoth = 'DC27'
      x = -50.290075
      y = 21.673767
      z = 0
      irot = 3455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3456
      theta1 = 90
      phi1 = 158.40765
      theta2 = 90
      phi2 = -111.59235
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1403
      chmoth = 'DC27'
      x = -50.918833
      y = 20.152326
      z = 0
      irot = 3456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3457
      theta1 = 90
      phi1 = 160.13014
      theta2 = 90
      phi2 = -109.86986
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1404
      chmoth = 'DC27'
      x = -51.501575
      y = 18.612673
      z = 0
      irot = 3457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3458
      theta1 = 90
      phi1 = 161.85263
      theta2 = 90
      phi2 = -108.14737
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1405
      chmoth = 'DC27'
      x = -52.037773
      y = 17.0562
      z = 0
      irot = 3458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3459
      theta1 = 90
      phi1 = 163.57512
      theta2 = 90
      phi2 = -106.42488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1406
      chmoth = 'DC27'
      x = -52.526944
      y = 15.484312
      z = 0
      irot = 3459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3460
      theta1 = 90
      phi1 = 165.2976
      theta2 = 90
      phi2 = -104.7024
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1407
      chmoth = 'DC27'
      x = -52.968645
      y = 13.898431
      z = 0
      irot = 3460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3461
      theta1 = 90
      phi1 = 167.02009
      theta2 = 90
      phi2 = -102.97991
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1408
      chmoth = 'DC27'
      x = -53.362478
      y = 12.29999
      z = 0
      irot = 3461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3462
      theta1 = 90
      phi1 = 168.74258
      theta2 = 90
      phi2 = -101.25742
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1409
      chmoth = 'DC27'
      x = -53.708085
      y = 10.690433
      z = 0
      irot = 3462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3463
      theta1 = 90
      phi1 = 170.46507
      theta2 = 90
      phi2 = -99.534932
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1410
      chmoth = 'DC27'
      x = -54.005156
      y = 9.0712149
      z = 0
      irot = 3463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3464
      theta1 = 90
      phi1 = 172.18756
      theta2 = 90
      phi2 = -97.812444
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1411
      chmoth = 'DC27'
      x = -54.253421
      y = 7.4437989
      z = 0
      irot = 3464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3465
      theta1 = 90
      phi1 = 173.91004
      theta2 = 90
      phi2 = -96.089956
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1412
      chmoth = 'DC27'
      x = -54.452655
      y = 5.8096557
      z = 0
      irot = 3465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3466
      theta1 = 90
      phi1 = 175.63253
      theta2 = 90
      phi2 = -94.367468
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1413
      chmoth = 'DC27'
      x = -54.60268
      y = 4.1702622
      z = 0
      irot = 3466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3467
      theta1 = 90
      phi1 = 177.35502
      theta2 = 90
      phi2 = -92.64498
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1414
      chmoth = 'DC27'
      x = -54.70336
      y = 2.5270999
      z = 0
      irot = 3467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3468
      theta1 = 90
      phi1 = 179.07751
      theta2 = 90
      phi2 = -90.922492
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1415
      chmoth = 'DC27'
      x = -54.754602
      y = 0.8816539
      z = 0
      irot = 3468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3469
      theta1 = 90
      phi1 = -179.2
      theta2 = 90
      phi2 = -89.200004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1416
      chmoth = 'DC27'
      x = -54.756362
      y = -0.76458891
      z = 0
      irot = 3469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3470
      theta1 = 90
      phi1 = -177.47752
      theta2 = 90
      phi2 = -87.477516
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1417
      chmoth = 'DC27'
      x = -54.708637
      y = -2.4101407
      z = 0
      irot = 3470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3471
      theta1 = 90
      phi1 = -175.75503
      theta2 = 90
      phi2 = -85.755028
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1418
      chmoth = 'DC27'
      x = -54.611471
      y = -4.0535145
      z = 0
      irot = 3471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3472
      theta1 = 90
      phi1 = -174.03254
      theta2 = 90
      phi2 = -84.03254
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1419
      chmoth = 'DC27'
      x = -54.464952
      y = -5.693225
      z = 0
      irot = 3472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3473
      theta1 = 90
      phi1 = -172.31005
      theta2 = 90
      phi2 = -82.310052
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1420
      chmoth = 'DC27'
      x = -54.269211
      y = -7.3277904
      z = 0
      irot = 3473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3474
      theta1 = 90
      phi1 = -170.58756
      theta2 = 90
      phi2 = -80.587564
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1421
      chmoth = 'DC27'
      x = -54.024426
      y = -8.9557335
      z = 0
      irot = 3474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3475
      theta1 = 90
      phi1 = -168.86508
      theta2 = 90
      phi2 = -78.865076
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1422
      chmoth = 'DC27'
      x = -53.730818
      y = -10.575583
      z = 0
      irot = 3475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3476
      theta1 = 90
      phi1 = -167.14259
      theta2 = 90
      phi2 = -77.142588
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1423
      chmoth = 'DC27'
      x = -53.388653
      y = -12.185875
      z = 0
      irot = 3476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3477
      theta1 = 90
      phi1 = -165.4201
      theta2 = 90
      phi2 = -75.4201
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1424
      chmoth = 'DC27'
      x = -52.998239
      y = -13.785155
      z = 0
      irot = 3477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3478
      theta1 = 90
      phi1 = -163.69761
      theta2 = 90
      phi2 = -73.697612
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1425
      chmoth = 'DC27'
      x = -52.559929
      y = -15.371977
      z = 0
      irot = 3478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3479
      theta1 = 90
      phi1 = -161.97512
      theta2 = 90
      phi2 = -71.975124
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1426
      chmoth = 'DC27'
      x = -52.07412
      y = -16.944906
      z = 0
      irot = 3479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3480
      theta1 = 90
      phi1 = -160.25264
      theta2 = 90
      phi2 = -70.252636
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1427
      chmoth = 'DC27'
      x = -51.54125
      y = -18.502523
      z = 0
      irot = 3480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3481
      theta1 = 90
      phi1 = -158.53015
      theta2 = 90
      phi2 = -68.530148
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1428
      chmoth = 'DC27'
      x = -50.961801
      y = -20.043418
      z = 0
      irot = 3481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3482
      theta1 = 90
      phi1 = -156.80766
      theta2 = 90
      phi2 = -66.80766
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1429
      chmoth = 'DC27'
      x = -50.336297
      y = -21.566199
      z = 0
      irot = 3482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3483
      theta1 = 90
      phi1 = -155.08517
      theta2 = 90
      phi2 = -65.085172
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1430
      chmoth = 'DC27'
      x = -49.665304
      y = -23.069491
      z = 0
      irot = 3483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3484
      theta1 = 90
      phi1 = -153.36268
      theta2 = 90
      phi2 = -63.362684
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1431
      chmoth = 'DC27'
      x = -48.949426
      y = -24.551934
      z = 0
      irot = 3484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3485
      theta1 = 90
      phi1 = -151.6402
      theta2 = 90
      phi2 = -61.640196
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1432
      chmoth = 'DC27'
      x = -48.189312
      y = -26.012189
      z = 0
      irot = 3485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3486
      theta1 = 90
      phi1 = -149.91771
      theta2 = 90
      phi2 = -59.917708
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1433
      chmoth = 'DC27'
      x = -47.385648
      y = -27.448937
      z = 0
      irot = 3486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3487
      theta1 = 90
      phi1 = -148.19522
      theta2 = 90
      phi2 = -58.19522
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1434
      chmoth = 'DC27'
      x = -46.539161
      y = -28.860878
      z = 0
      irot = 3487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3488
      theta1 = 90
      phi1 = -146.47273
      theta2 = 90
      phi2 = -56.472732
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1435
      chmoth = 'DC27'
      x = -45.650615
      y = -30.246737
      z = 0
      irot = 3488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3489
      theta1 = 90
      phi1 = -144.75024
      theta2 = 90
      phi2 = -54.750244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1436
      chmoth = 'DC27'
      x = -44.720814
      y = -31.605261
      z = 0
      irot = 3489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3490
      theta1 = 90
      phi1 = -143.02776
      theta2 = 90
      phi2 = -53.027756
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1437
      chmoth = 'DC27'
      x = -43.750598
      y = -32.935223
      z = 0
      irot = 3490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3491
      theta1 = 90
      phi1 = -141.30527
      theta2 = 90
      phi2 = -51.305268
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1438
      chmoth = 'DC27'
      x = -42.740844
      y = -34.235421
      z = 0
      irot = 3491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3492
      theta1 = 90
      phi1 = -139.58278
      theta2 = 90
      phi2 = -49.58278
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1439
      chmoth = 'DC27'
      x = -41.692463
      y = -35.50468
      z = 0
      irot = 3492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3493
      theta1 = 90
      phi1 = -137.86029
      theta2 = 90
      phi2 = -47.860292
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1440
      chmoth = 'DC27'
      x = -40.606405
      y = -36.741852
      z = 0
      irot = 3493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3494
      theta1 = 90
      phi1 = -136.1378
      theta2 = 90
      phi2 = -46.137804
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1441
      chmoth = 'DC27'
      x = -39.483649
      y = -37.94582
      z = 0
      irot = 3494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3495
      theta1 = 90
      phi1 = -134.41532
      theta2 = 90
      phi2 = -44.415316
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1442
      chmoth = 'DC27'
      x = -38.325211
      y = -39.115495
      z = 0
      irot = 3495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3496
      theta1 = 90
      phi1 = -132.69283
      theta2 = 90
      phi2 = -42.692828
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1443
      chmoth = 'DC27'
      x = -37.132138
      y = -40.249821
      z = 0
      irot = 3496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3497
      theta1 = 90
      phi1 = -130.97034
      theta2 = 90
      phi2 = -40.97034
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1444
      chmoth = 'DC27'
      x = -35.905508
      y = -41.347772
      z = 0
      irot = 3497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3498
      theta1 = 90
      phi1 = -129.24785
      theta2 = 90
      phi2 = -39.247852
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1445
      chmoth = 'DC27'
      x = -34.64643
      y = -42.408357
      z = 0
      irot = 3498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3499
      theta1 = 90
      phi1 = -127.52536
      theta2 = 90
      phi2 = -37.525364
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1446
      chmoth = 'DC27'
      x = -33.35604
      y = -43.430616
      z = 0
      irot = 3499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3500
      theta1 = 90
      phi1 = -125.80288
      theta2 = 90
      phi2 = -35.802876
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1447
      chmoth = 'DC27'
      x = -32.035506
      y = -44.413626
      z = 0
      irot = 3500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3501
      theta1 = 90
      phi1 = -124.08039
      theta2 = 90
      phi2 = -34.080388
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1448
      chmoth = 'DC27'
      x = -30.686021
      y = -45.356498
      z = 0
      irot = 3501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3502
      theta1 = 90
      phi1 = -122.3579
      theta2 = 90
      phi2 = -32.3579
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1449
      chmoth = 'DC27'
      x = -29.308804
      y = -46.258381
      z = 0
      irot = 3502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3503
      theta1 = 90
      phi1 = -120.63541
      theta2 = 90
      phi2 = -30.635412
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1450
      chmoth = 'DC27'
      x = -27.9051
      y = -47.118459
      z = 0
      irot = 3503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3504
      theta1 = 90
      phi1 = -118.91292
      theta2 = 90
      phi2 = -28.912924
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1451
      chmoth = 'DC27'
      x = -26.476178
      y = -47.935955
      z = 0
      irot = 3504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3505
      theta1 = 90
      phi1 = -117.19044
      theta2 = 90
      phi2 = -27.190436
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1452
      chmoth = 'DC27'
      x = -25.023329
      y = -48.71013
      z = 0
      irot = 3505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3506
      theta1 = 90
      phi1 = -115.46795
      theta2 = 90
      phi2 = -25.467948
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1453
      chmoth = 'DC27'
      x = -23.547866
      y = -49.440285
      z = 0
      irot = 3506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3507
      theta1 = 90
      phi1 = -113.74546
      theta2 = 90
      phi2 = -23.74546
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1454
      chmoth = 'DC27'
      x = -22.051122
      y = -50.12576
      z = 0
      irot = 3507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3508
      theta1 = 90
      phi1 = -112.02297
      theta2 = 90
      phi2 = -22.022972
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1455
      chmoth = 'DC27'
      x = -20.534449
      y = -50.765935
      z = 0
      irot = 3508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3509
      theta1 = 90
      phi1 = -110.30048
      theta2 = 90
      phi2 = -20.300484
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1456
      chmoth = 'DC27'
      x = -18.99922
      y = -51.360232
      z = 0
      irot = 3509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3510
      theta1 = 90
      phi1 = -108.578
      theta2 = 90
      phi2 = -18.577996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1457
      chmoth = 'DC27'
      x = -17.44682
      y = -51.908113
      z = 0
      irot = 3510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3511
      theta1 = 90
      phi1 = -106.85551
      theta2 = 90
      phi2 = -16.855508
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1458
      chmoth = 'DC27'
      x = -15.878654
      y = -52.409085
      z = 0
      irot = 3511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3512
      theta1 = 90
      phi1 = -105.13302
      theta2 = 90
      phi2 = -15.13302
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1459
      chmoth = 'DC27'
      x = -14.296137
      y = -52.862692
      z = 0
      irot = 3512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3513
      theta1 = 90
      phi1 = -103.41053
      theta2 = 90
      phi2 = -13.410532
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1460
      chmoth = 'DC27'
      x = -12.700701
      y = -53.268527
      z = 0
      irot = 3513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3514
      theta1 = 90
      phi1 = -101.68804
      theta2 = 90
      phi2 = -11.688044
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1461
      chmoth = 'DC27'
      x = -11.093787
      y = -53.626222
      z = 0
      irot = 3514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3515
      theta1 = 90
      phi1 = -99.965556
      theta2 = 90
      phi2 = -9.965556
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1462
      chmoth = 'DC27'
      x = -9.4768472
      y = -53.935454
      z = 0
      irot = 3515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3516
      theta1 = 90
      phi1 = -98.243068
      theta2 = 90
      phi2 = -8.243068
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1463
      chmoth = 'DC27'
      x = -7.851343
      y = -54.195943
      z = 0
      irot = 3516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3517
      theta1 = 90
      phi1 = -96.52058
      theta2 = 90
      phi2 = -6.52058
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1464
      chmoth = 'DC27'
      x = -6.2187434
      y = -54.407454
      z = 0
      irot = 3517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3518
      theta1 = 90
      phi1 = -94.798092
      theta2 = 90
      phi2 = -4.798092
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1465
      chmoth = 'DC27'
      x = -4.5805237
      y = -54.569796
      z = 0
      irot = 3518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3519
      theta1 = 90
      phi1 = -93.075604
      theta2 = 90
      phi2 = -3.075604
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1466
      chmoth = 'DC27'
      x = -2.9381646
      y = -54.682822
      z = 0
      irot = 3519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3520
      theta1 = 90
      phi1 = -91.353116
      theta2 = 90
      phi2 = -1.353116
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1467
      chmoth = 'DC27'
      x = -1.2931501
      y = -54.74643
      z = 0
      irot = 3520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3521
      theta1 = 90
      phi1 = -89.630628
      theta2 = 90
      phi2 = 0.369372
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1468
      chmoth = 'DC27'
      x = 0.35303296
      y = -54.760562
      z = 0
      irot = 3521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3522
      theta1 = 90
      phi1 = -87.90814
      theta2 = 90
      phi2 = 2.09186
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1469
      chmoth = 'DC27'
      x = 1.998897
      y = -54.725206
      z = 0
      irot = 3522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3523
      theta1 = 90
      phi1 = -86.185652
      theta2 = 90
      phi2 = 3.814348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1470
      chmoth = 'DC27'
      x = 3.6429546
      y = -54.640394
      z = 0
      irot = 3523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3524
      theta1 = 90
      phi1 = -84.463164
      theta2 = 90
      phi2 = 5.536836
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1471
      chmoth = 'DC27'
      x = 5.28372
      y = -54.506202
      z = 0
      irot = 3524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3525
      theta1 = 90
      phi1 = -82.740676
      theta2 = 90
      phi2 = 7.259324
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1472
      chmoth = 'DC27'
      x = 6.9197104
      y = -54.322752
      z = 0
      irot = 3525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3526
      theta1 = 90
      phi1 = -81.018188
      theta2 = 90
      phi2 = 8.981812
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1473
      chmoth = 'DC27'
      x = 8.5494473
      y = -54.090209
      z = 0
      irot = 3526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3527
      theta1 = 90
      phi1 = -79.2957
      theta2 = 90
      phi2 = 10.7043
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1474
      chmoth = 'DC27'
      x = 10.171458
      y = -53.808784
      z = 0
      irot = 3527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3528
      theta1 = 90
      phi1 = -77.573212
      theta2 = 90
      phi2 = 12.426788
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1475
      chmoth = 'DC27'
      x = 11.784276
      y = -53.478731
      z = 0
      irot = 3528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3529
      theta1 = 90
      phi1 = -75.850724
      theta2 = 90
      phi2 = 14.149276
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1476
      chmoth = 'DC27'
      x = 13.386445
      y = -53.100347
      z = 0
      irot = 3529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3530
      theta1 = 90
      phi1 = -74.128236
      theta2 = 90
      phi2 = 15.871764
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1477
      chmoth = 'DC27'
      x = 14.976516
      y = -52.673976
      z = 0
      irot = 3530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3531
      theta1 = 90
      phi1 = -72.405748
      theta2 = 90
      phi2 = 17.594252
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1478
      chmoth = 'DC27'
      x = 16.553053
      y = -52.200002
      z = 0
      irot = 3531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3532
      theta1 = 90
      phi1 = -70.68326
      theta2 = 90
      phi2 = 19.31674
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1479
      chmoth = 'DC27'
      x = 18.11463
      y = -51.678854
      z = 0
      irot = 3532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3533
      theta1 = 90
      phi1 = -68.960772
      theta2 = 90
      phi2 = 21.039228
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1480
      chmoth = 'DC27'
      x = 19.659836
      y = -51.111003
      z = 0
      irot = 3533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3534
      theta1 = 90
      phi1 = -67.238284
      theta2 = 90
      phi2 = 22.761716
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1481
      chmoth = 'DC27'
      x = 21.187276
      y = -50.496962
      z = 0
      irot = 3534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3535
      theta1 = 90
      phi1 = -65.515796
      theta2 = 90
      phi2 = 24.484204
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1482
      chmoth = 'DC27'
      x = 22.695568
      y = -49.837285
      z = 0
      irot = 3535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3536
      theta1 = 90
      phi1 = -63.793308
      theta2 = 90
      phi2 = 26.206692
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1483
      chmoth = 'DC27'
      x = 24.18335
      y = -49.132569
      z = 0
      irot = 3536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3537
      theta1 = 90
      phi1 = -62.07082
      theta2 = 90
      phi2 = 27.92918
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1484
      chmoth = 'DC27'
      x = 25.649277
      y = -48.383452
      z = 0
      irot = 3537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3538
      theta1 = 90
      phi1 = -60.348332
      theta2 = 90
      phi2 = 29.651668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1485
      chmoth = 'DC27'
      x = 27.092023
      y = -47.590609
      z = 0
      irot = 3538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3539
      theta1 = 90
      phi1 = -58.625844
      theta2 = 90
      phi2 = 31.374156
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1486
      chmoth = 'DC27'
      x = 28.510287
      y = -46.754757
      z = 0
      irot = 3539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3540
      theta1 = 90
      phi1 = -56.903356
      theta2 = 90
      phi2 = 33.096644
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1487
      chmoth = 'DC27'
      x = 29.902785
      y = -45.876653
      z = 0
      irot = 3540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3541
      theta1 = 90
      phi1 = -55.180868
      theta2 = 90
      phi2 = 34.819132
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1488
      chmoth = 'DC27'
      x = 31.268259
      y = -44.957088
      z = 0
      irot = 3541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3542
      theta1 = 90
      phi1 = -53.45838
      theta2 = 90
      phi2 = 36.54162
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1489
      chmoth = 'DC27'
      x = 32.605475
      y = -43.996895
      z = 0
      irot = 3542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3543
      theta1 = 90
      phi1 = -51.735892
      theta2 = 90
      phi2 = 38.264108
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1490
      chmoth = 'DC27'
      x = 33.913225
      y = -42.996941
      z = 0
      irot = 3543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3544
      theta1 = 90
      phi1 = -50.013404
      theta2 = 90
      phi2 = 39.986596
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1491
      chmoth = 'DC27'
      x = 35.190327
      y = -41.95813
      z = 0
      irot = 3544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3545
      theta1 = 90
      phi1 = -48.290916
      theta2 = 90
      phi2 = 41.709084
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1492
      chmoth = 'DC27'
      x = 36.435627
      y = -40.8814
      z = 0
      irot = 3545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3546
      theta1 = 90
      phi1 = -46.568428
      theta2 = 90
      phi2 = 43.431572
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1493
      chmoth = 'DC27'
      x = 37.647999
      y = -39.767725
      z = 0
      irot = 3546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3547
      theta1 = 90
      phi1 = -44.84594
      theta2 = 90
      phi2 = 45.15406
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1494
      chmoth = 'DC27'
      x = 38.826348
      y = -38.618111
      z = 0
      irot = 3547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3548
      theta1 = 90
      phi1 = -43.123452
      theta2 = 90
      phi2 = 46.876548
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1495
      chmoth = 'DC27'
      x = 39.969609
      y = -37.433597
      z = 0
      irot = 3548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3549
      theta1 = 90
      phi1 = -41.400964
      theta2 = 90
      phi2 = 48.599036
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1496
      chmoth = 'DC27'
      x = 41.076748
      y = -36.215253
      z = 0
      irot = 3549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3550
      theta1 = 90
      phi1 = -39.678476
      theta2 = 90
      phi2 = 50.321524
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1497
      chmoth = 'DC27'
      x = 42.146765
      y = -34.964181
      z = 0
      irot = 3550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3551
      theta1 = 90
      phi1 = -37.955988
      theta2 = 90
      phi2 = 52.044012
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1498
      chmoth = 'DC27'
      x = 43.178694
      y = -33.681511
      z = 0
      irot = 3551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3552
      theta1 = 90
      phi1 = -36.2335
      theta2 = 90
      phi2 = 53.7665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1499
      chmoth = 'DC27'
      x = 44.171601
      y = -32.368402
      z = 0
      irot = 3552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3553
      theta1 = 90
      phi1 = -34.511012
      theta2 = 90
      phi2 = 55.488988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1500
      chmoth = 'DC27'
      x = 45.124589
      y = -31.026042
      z = 0
      irot = 3553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3554
      theta1 = 90
      phi1 = -32.788524
      theta2 = 90
      phi2 = 57.211476
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1501
      chmoth = 'DC27'
      x = 46.036797
      y = -29.655642
      z = 0
      irot = 3554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3555
      theta1 = 90
      phi1 = -31.066036
      theta2 = 90
      phi2 = 58.933964
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1502
      chmoth = 'DC27'
      x = 46.907401
      y = -28.258442
      z = 0
      irot = 3555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3556
      theta1 = 90
      phi1 = -29.343548
      theta2 = 90
      phi2 = 60.656452
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1503
      chmoth = 'DC27'
      x = 47.735613
      y = -26.835704
      z = 0
      irot = 3556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3557
      theta1 = 90
      phi1 = -27.62106
      theta2 = 90
      phi2 = 62.37894
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1504
      chmoth = 'DC27'
      x = 48.520686
      y = -25.388715
      z = 0
      irot = 3557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3558
      theta1 = 90
      phi1 = -25.898572
      theta2 = 90
      phi2 = 64.101428
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1505
      chmoth = 'DC27'
      x = 49.261909
      y = -23.918781
      z = 0
      irot = 3558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3559
      theta1 = 90
      phi1 = -24.176084
      theta2 = 90
      phi2 = 65.823916
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1506
      chmoth = 'DC27'
      x = 49.958614
      y = -22.427231
      z = 0
      irot = 3559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3560
      theta1 = 90
      phi1 = -22.453596
      theta2 = 90
      phi2 = 67.546404
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1507
      chmoth = 'DC27'
      x = 50.61017
      y = -20.915413
      z = 0
      irot = 3560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3561
      theta1 = 90
      phi1 = -20.731108
      theta2 = 90
      phi2 = 69.268892
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1508
      chmoth = 'DC27'
      x = 51.215988
      y = -19.384693
      z = 0
      irot = 3561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3562
      theta1 = 90
      phi1 = -19.00862
      theta2 = 90
      phi2 = 70.99138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1509
      chmoth = 'DC27'
      x = 51.775522
      y = -17.836455
      z = 0
      irot = 3562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3563
      theta1 = 90
      phi1 = -17.286132
      theta2 = 90
      phi2 = 72.713868
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1510
      chmoth = 'DC27'
      x = 52.288265
      y = -16.272098
      z = 0
      irot = 3563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3564
      theta1 = 90
      phi1 = -15.563644
      theta2 = 90
      phi2 = 74.436356
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1511
      chmoth = 'DC27'
      x = 52.753753
      y = -14.693036
      z = 0
      irot = 3564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3565
      theta1 = 90
      phi1 = -13.841156
      theta2 = 90
      phi2 = 76.158844
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1512
      chmoth = 'DC27'
      x = 53.171567
      y = -13.100695
      z = 0
      irot = 3565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3566
      theta1 = 90
      phi1 = -12.118668
      theta2 = 90
      phi2 = 77.881332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1513
      chmoth = 'DC27'
      x = 53.541329
      y = -11.496514
      z = 0
      irot = 3566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3567
      theta1 = 90
      phi1 = -10.39618
      theta2 = 90
      phi2 = 79.60382
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1514
      chmoth = 'DC27'
      x = 53.862705
      y = -9.8819442
      z = 0
      irot = 3567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3568
      theta1 = 90
      phi1 = -8.673692
      theta2 = 90
      phi2 = 81.326308
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1515
      chmoth = 'DC27'
      x = 54.135403
      y = -8.2584437
      z = 0
      irot = 3568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3569
      theta1 = 90
      phi1 = -6.951204
      theta2 = 90
      phi2 = 83.048796
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1516
      chmoth = 'DC27'
      x = 54.359179
      y = -6.6274798
      z = 0
      irot = 3569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3570
      theta1 = 90
      phi1 = -5.228716
      theta2 = 90
      phi2 = 84.771284
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1517
      chmoth = 'DC27'
      x = 54.533828
      y = -4.9905265
      z = 0
      irot = 3570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3571
      theta1 = 90
      phi1 = -3.506228
      theta2 = 90
      phi2 = 86.493772
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1518
      chmoth = 'DC27'
      x = 54.659195
      y = -3.3490632
      z = 0
      irot = 3571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3572
      theta1 = 90
      phi1 = -1.78374
      theta2 = 90
      phi2 = 88.21626
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1519
      chmoth = 'DC27'
      x = 54.735164
      y = -1.7045733
      z = 0
      irot = 3572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3573
      theta1 = 90
      phi1 = -0.061252
      theta2 = 90
      phi2 = 89.938748
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRA'
      nr = 1520
      chmoth = 'DC27'
      x = 54.761669
      y = -0.058542933
      z = 0
      irot = 3573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 8
      chmoth = 'DC27'
      x = 0
      y = 0
      z = -75.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 8
      chmoth = 'DC27'
      x = 0
      y = 0
      z = 75.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 49
      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 = 51
      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 = 50
      namate = 'MagnesiumOxide'
      wmat(1) = 1
      call gfmate(51,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 = 48
      namate = 'E-glass'
      wmat(1) = 0.54
      call gfmate(25,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.14
      call gfmate(33,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.1
      call gfmate(28,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.12
      call gfmate(49,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.1
      call gfmate(50,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 = 47
      namate = 'E-fiberGlass'
      wmat(1) = 0.327
      call gfmate(35,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.673
      call gfmate(48,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.9631213
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 208
      natmed = 'CDCI E-fiberGlass'
      nmat = 47
      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 = 208
      npar = 3
      par(1) = 9
      par(2) = 9.05
      par(3) = 75.825
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.225) stop 'consistency check #1 failed'

      chname = 'CDCI'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 3.29
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 209
      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 = 209
      npar = 3
      par(1) = 56.007
      par(2) = 56.207
      par(3) = 75.825
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.226) stop 'consistency check #1 failed'

      chname = 'CDCO'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 3.29
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 52
      namate = 'MediumDensityROHACELL'
      wmat(1) = 11
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 8
      call gfmate(13,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 = 210
      natmed = 'CDGD MediumDensityROHACELL'
      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 = 'CDGD'
      chshap = 'TUBE'
      nmed = 210
      npar = 3
      par(1) = 54.46
      par(2) = 57.7276
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.227) stop 'consistency check #1 failed'

      chname = 'CDGD'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 80.16
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 211
      natmed = 'CDGI MediumDensityROHACELL'
      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 = 'CDGI'
      chshap = 'TUBE'
      nmed = 211
      npar = 3
      par(1) = 9
      par(2) = 10.27
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.228) stop 'consistency check #1 failed'

      chname = 'CDGI'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 80.16
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPU'
      nr = 9
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = -72.335
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 9
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 78.59
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 53
      namate = 'AluminizedMylar'
      wmat(1) = 0.071
      call gfmate(7,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.929
      call gfmate(44,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.47
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 212
      natmed = 'CDGW AluminizedMylar'
      nmat = 53
      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 = 'CDGW'
      chshap = 'TUBE'
      nmed = 212
      npar = 3
      par(1) = 9
      par(2) = 57.7276
      par(3) = 0.005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.229) stop 'consistency check #1 failed'

      chname = 'CDGW'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = 81.435
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 54
      namate = 'Plexiglas'
      wmat(1) = 5
      call gfmate(13,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 = 213
      natmed = 'CDGU Plexiglas'
      nmat = 54
      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 = 213
      npar = 3
      par(1) = 9
      par(2) = 57.404
      par(3) = 0.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.230) stop 'consistency check #1 failed'

      chname = 'CDGU'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = -80.7
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 214
      natmed = 'CDGS 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 = 'CDGS'
      chshap = 'TUBE'
      nmed = 214
      npar = 3
      par(1) = 55.8
      par(2) = 56.5
      par(3) = 3.495
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.231) stop 'consistency check #1 failed'

      chname = 'CDGS'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = -76.455
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 215
      natmed = 'CDCA SignalCables'
      nmat = 38
      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 = 215
      npar = 3
      par(1) = 9
      par(2) = 57
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.232) stop 'consistency check #1 failed'

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

      itmed = 216
      natmed = 'CDCB SignalCables'
      nmat = 38
      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 = 216
      npar = 27
      par(1) = 0
      par(2) = 360
      par(3) = 8
      par(4) = -75.2
      par(5) = 74
      par(6) = 120
      par(7) = -72.2
      par(8) = 71
      par(9) = 120
      par(10) = -72.2
      par(11) = 71
      par(12) = 75.2
      par(13) = -66.2
      par(14) = 65
      par(15) = 69.2
      par(16) = -65
      par(17) = 65
      par(18) = 68
      par(19) = -3.31
      par(20) = 56.4
      par(21) = 57
      par(22) = -0.53
      par(23) = 23
      par(24) = 57
      par(25) = 0
      par(26) = 9
      par(27) = 57
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.233) stop 'consistency check #1 failed'

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

      chname = 'CDPU'
      nr = 10
      chmoth = 'CDC'
      x = 0
      y = 0
      z = -72.335
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'CDPD'
      nr = 10
      chmoth = 'CDC'
      x = 0
      y = 0
      z = 78.59
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 217
      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 = 217
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 99
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.234) stop 'consistency check #1 failed'

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

      imate = 56
      namate = 'Polystyrene'
      wmat(1) = 8
      call gfmate(13,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)
      dens = 1.032
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 57
      namate = 'PolyphenyleneOxide'
      wmat(1) = 1
      call gfmate(2,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 15
      call gfmate(13,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 11
      call gfmate(5,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 1
      call gfmate(3,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 1.06
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 55
      namate = 'Noryl'
      wmat(1) = 0.35
      call gfmate(56,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.35
      call gfmate(57,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.3
      call gfmate(27,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.36
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 218
      natmed = 'FDCS Noryl'
      nmat = 55
      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 = 'FDCS'
      chshap = 'TUBE'
      nmed = 218
      npar = 3
      par(1) = 59.8
      par(2) = 60.1
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.235) stop 'consistency check #1 failed'

      chname = 'FDCS'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -97.96
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 219
      natmed = 'FDGS Noryl'
      nmat = 55
      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 = 'FDGS'
      chshap = 'PCON'
      nmed = 219
      npar = 9
      par(1) = 0
      par(2) = 360
      par(3) = 2
      par(4) = -96.96
      par(5) = 59.8
      par(6) = 60.1
      par(7) = -94.58
      par(8) = 53.45
      par(9) = 53.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.236) stop 'consistency check #1 failed'

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

      imate = 58
      namate = 'AluminizedMylarFilm'
      wmat(1) = 0.967
      call gfmate(44,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(35,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 = 220
      natmed = 'FDML AluminizedMylarFilm'
      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 = 'FDML'
      chshap = 'TUBE'
      nmed = 220
      npar = 3
      par(1) = 48.5
      par(2) = 49.8
      par(3) = 0.00065
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.237) stop 'consistency check #1 failed'

      chname = 'FDML'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -94.58545
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 60
      namate = 'Polyetherimide'
      wmat(1) = 24
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 6
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 37
      call gfmate(13,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.27
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 59
      namate = 'Ultem2300'
      wmat(1) = 0.7
      call gfmate(60,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.3
      call gfmate(27,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.51
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 221
      natmed = 'FDRU Ultem2300'
      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 = 'FDRU'
      chshap = 'TUBE'
      nmed = 221
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.238) stop 'consistency check #1 failed'

      chname = 'FDRU'
      nr = 1
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = -95.0348
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 2
      chmoth = 'FDC'
      x = 50.469624
      y = 13.523295
      z = -95.0348
      irot = 3574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3575
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 3
      chmoth = 'FDC'
      x = 45.249827
      y = 26.125
      z = -95.0348
      irot = 3575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 4
      chmoth = 'FDC'
      x = 36.946329
      y = 36.946329
      z = -95.0348
      irot = 3576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3577
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 5
      chmoth = 'FDC'
      x = 26.125
      y = 45.249827
      z = -95.0348
      irot = 3577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3578
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 6
      chmoth = 'FDC'
      x = 13.523295
      y = 50.469624
      z = -95.0348
      irot = 3578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 7
      chmoth = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = -95.0348
      irot = 3579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3580
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 8
      chmoth = 'FDC'
      x = -13.523295
      y = 50.469624
      z = -95.0348
      irot = 3580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3581
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 9
      chmoth = 'FDC'
      x = -26.125
      y = 45.249827
      z = -95.0348
      irot = 3581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 10
      chmoth = 'FDC'
      x = -36.946329
      y = 36.946329
      z = -95.0348
      irot = 3582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3583
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 11
      chmoth = 'FDC'
      x = -45.249827
      y = 26.125
      z = -95.0348
      irot = 3583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3584
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 12
      chmoth = 'FDC'
      x = -50.469624
      y = 13.523295
      z = -95.0348
      irot = 3584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 13
      chmoth = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = -95.0348
      irot = 3585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3586
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 14
      chmoth = 'FDC'
      x = -50.469624
      y = -13.523295
      z = -95.0348
      irot = 3586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3587
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 15
      chmoth = 'FDC'
      x = -45.249827
      y = -26.125
      z = -95.0348
      irot = 3587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 16
      chmoth = 'FDC'
      x = -36.946329
      y = -36.946329
      z = -95.0348
      irot = 3588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 17
      chmoth = 'FDC'
      x = -26.125
      y = -45.249827
      z = -95.0348
      irot = 3589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 18
      chmoth = 'FDC'
      x = -13.523295
      y = -50.469624
      z = -95.0348
      irot = 3590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 19
      chmoth = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = -95.0348
      irot = 3591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 20
      chmoth = 'FDC'
      x = 13.523295
      y = -50.469624
      z = -95.0348
      irot = 3592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 21
      chmoth = 'FDC'
      x = 26.125
      y = -45.249827
      z = -95.0348
      irot = 3593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 22
      chmoth = 'FDC'
      x = 36.946329
      y = -36.946329
      z = -95.0348
      irot = 3594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 23
      chmoth = 'FDC'
      x = 45.249827
      y = -26.125
      z = -95.0348
      irot = 3595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 24
      chmoth = 'FDC'
      x = 50.469624
      y = -13.523295
      z = -95.0348
      irot = 3596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 222
      natmed = 'FDXN 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 = 'FDXN'
      chshap = 'TUBE'
      nmed = 222
      npar = 3
      par(1) = 0.25
      par(2) = 0.7938
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.239) stop 'consistency check #1 failed'

      chname = 'FDXN'
      nr = 1
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = -95.0348
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 2
      chmoth = 'FDC'
      x = 50.469624
      y = 13.523295
      z = -95.0348
      irot = 3597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3598
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 3
      chmoth = 'FDC'
      x = 45.249827
      y = 26.125
      z = -95.0348
      irot = 3598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 4
      chmoth = 'FDC'
      x = 36.946329
      y = 36.946329
      z = -95.0348
      irot = 3599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3600
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 5
      chmoth = 'FDC'
      x = 26.125
      y = 45.249827
      z = -95.0348
      irot = 3600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3601
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 6
      chmoth = 'FDC'
      x = 13.523295
      y = 50.469624
      z = -95.0348
      irot = 3601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 7
      chmoth = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = -95.0348
      irot = 3602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3603
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 8
      chmoth = 'FDC'
      x = -13.523295
      y = 50.469624
      z = -95.0348
      irot = 3603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3604
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 9
      chmoth = 'FDC'
      x = -26.125
      y = 45.249827
      z = -95.0348
      irot = 3604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 10
      chmoth = 'FDC'
      x = -36.946329
      y = 36.946329
      z = -95.0348
      irot = 3605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3606
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 11
      chmoth = 'FDC'
      x = -45.249827
      y = 26.125
      z = -95.0348
      irot = 3606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3607
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 12
      chmoth = 'FDC'
      x = -50.469624
      y = 13.523295
      z = -95.0348
      irot = 3607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 13
      chmoth = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = -95.0348
      irot = 3608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3609
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 14
      chmoth = 'FDC'
      x = -50.469624
      y = -13.523295
      z = -95.0348
      irot = 3609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3610
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 15
      chmoth = 'FDC'
      x = -45.249827
      y = -26.125
      z = -95.0348
      irot = 3610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 16
      chmoth = 'FDC'
      x = -36.946329
      y = -36.946329
      z = -95.0348
      irot = 3611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 17
      chmoth = 'FDC'
      x = -26.125
      y = -45.249827
      z = -95.0348
      irot = 3612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 18
      chmoth = 'FDC'
      x = -13.523295
      y = -50.469624
      z = -95.0348
      irot = 3613
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 19
      chmoth = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = -95.0348
      irot = 3614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 20
      chmoth = 'FDC'
      x = 13.523295
      y = -50.469624
      z = -95.0348
      irot = 3615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 21
      chmoth = 'FDC'
      x = 26.125
      y = -45.249827
      z = -95.0348
      irot = 3616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 22
      chmoth = 'FDC'
      x = 36.946329
      y = -36.946329
      z = -95.0348
      irot = 3617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 23
      chmoth = 'FDC'
      x = 45.249827
      y = -26.125
      z = -95.0348
      irot = 3618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 24
      chmoth = 'FDC'
      x = 50.469624
      y = -13.523295
      z = -95.0348
      irot = 3619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 223
      natmed = 'FDCR FR-4'
      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 = 'FDCR'
      chshap = 'TUBE'
      nmed = 223
      npar = 3
      par(1) = 51.05
      par(2) = 53.45
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.240) stop 'consistency check #1 failed'

      chname = 'FDCR'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -94.6848
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 224
      natmed = 'FDGU FR-4'
      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 = 'FDGU'
      chshap = 'TUBE'
      nmed = 224
      npar = 3
      par(1) = 51.05
      par(2) = 51.25
      par(3) = 0.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.241) stop 'consistency check #1 failed'

      chname = 'FDGU'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -95.5848
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 225
      natmed = 'FDGV FR-4'
      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 = 'FDGV'
      chshap = 'TUBE'
      nmed = 225
      npar = 3
      par(1) = 53.25
      par(2) = 53.45
      par(3) = 0.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.242) stop 'consistency check #1 failed'

      chname = 'FDGV'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -95.5848
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRU'
      nr = 25
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = 75.0348
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 26
      chmoth = 'FDC'
      x = 50.469624
      y = 13.523295
      z = 75.0348
      irot = 3620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3621
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 27
      chmoth = 'FDC'
      x = 45.249827
      y = 26.125
      z = 75.0348
      irot = 3621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 28
      chmoth = 'FDC'
      x = 36.946329
      y = 36.946329
      z = 75.0348
      irot = 3622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3623
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 29
      chmoth = 'FDC'
      x = 26.125
      y = 45.249827
      z = 75.0348
      irot = 3623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3624
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 30
      chmoth = 'FDC'
      x = 13.523295
      y = 50.469624
      z = 75.0348
      irot = 3624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 31
      chmoth = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = 75.0348
      irot = 3625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3626
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 32
      chmoth = 'FDC'
      x = -13.523295
      y = 50.469624
      z = 75.0348
      irot = 3626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3627
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 33
      chmoth = 'FDC'
      x = -26.125
      y = 45.249827
      z = 75.0348
      irot = 3627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 34
      chmoth = 'FDC'
      x = -36.946329
      y = 36.946329
      z = 75.0348
      irot = 3628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3629
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 35
      chmoth = 'FDC'
      x = -45.249827
      y = 26.125
      z = 75.0348
      irot = 3629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3630
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 36
      chmoth = 'FDC'
      x = -50.469624
      y = 13.523295
      z = 75.0348
      irot = 3630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 37
      chmoth = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = 75.0348
      irot = 3631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3632
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 38
      chmoth = 'FDC'
      x = -50.469624
      y = -13.523295
      z = 75.0348
      irot = 3632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3633
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 39
      chmoth = 'FDC'
      x = -45.249827
      y = -26.125
      z = 75.0348
      irot = 3633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 40
      chmoth = 'FDC'
      x = -36.946329
      y = -36.946329
      z = 75.0348
      irot = 3634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 41
      chmoth = 'FDC'
      x = -26.125
      y = -45.249827
      z = 75.0348
      irot = 3635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 42
      chmoth = 'FDC'
      x = -13.523295
      y = -50.469624
      z = 75.0348
      irot = 3636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 43
      chmoth = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = 75.0348
      irot = 3637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 44
      chmoth = 'FDC'
      x = 13.523295
      y = -50.469624
      z = 75.0348
      irot = 3638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 45
      chmoth = 'FDC'
      x = 26.125
      y = -45.249827
      z = 75.0348
      irot = 3639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 46
      chmoth = 'FDC'
      x = 36.946329
      y = -36.946329
      z = 75.0348
      irot = 3640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 47
      chmoth = 'FDC'
      x = 45.249827
      y = -26.125
      z = 75.0348
      irot = 3641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 48
      chmoth = 'FDC'
      x = 50.469624
      y = -13.523295
      z = 75.0348
      irot = 3642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 25
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = 75.0348
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 26
      chmoth = 'FDC'
      x = 50.469624
      y = 13.523295
      z = 75.0348
      irot = 3643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3644
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 27
      chmoth = 'FDC'
      x = 45.249827
      y = 26.125
      z = 75.0348
      irot = 3644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 28
      chmoth = 'FDC'
      x = 36.946329
      y = 36.946329
      z = 75.0348
      irot = 3645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3646
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 29
      chmoth = 'FDC'
      x = 26.125
      y = 45.249827
      z = 75.0348
      irot = 3646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3647
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 30
      chmoth = 'FDC'
      x = 13.523295
      y = 50.469624
      z = 75.0348
      irot = 3647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 31
      chmoth = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = 75.0348
      irot = 3648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3649
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 32
      chmoth = 'FDC'
      x = -13.523295
      y = 50.469624
      z = 75.0348
      irot = 3649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3650
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 33
      chmoth = 'FDC'
      x = -26.125
      y = 45.249827
      z = 75.0348
      irot = 3650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 34
      chmoth = 'FDC'
      x = -36.946329
      y = 36.946329
      z = 75.0348
      irot = 3651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3652
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 35
      chmoth = 'FDC'
      x = -45.249827
      y = 26.125
      z = 75.0348
      irot = 3652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3653
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 36
      chmoth = 'FDC'
      x = -50.469624
      y = 13.523295
      z = 75.0348
      irot = 3653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 37
      chmoth = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = 75.0348
      irot = 3654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3655
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 38
      chmoth = 'FDC'
      x = -50.469624
      y = -13.523295
      z = 75.0348
      irot = 3655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3656
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 39
      chmoth = 'FDC'
      x = -45.249827
      y = -26.125
      z = 75.0348
      irot = 3656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 40
      chmoth = 'FDC'
      x = -36.946329
      y = -36.946329
      z = 75.0348
      irot = 3657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 41
      chmoth = 'FDC'
      x = -26.125
      y = -45.249827
      z = 75.0348
      irot = 3658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 42
      chmoth = 'FDC'
      x = -13.523295
      y = -50.469624
      z = 75.0348
      irot = 3659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 43
      chmoth = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = 75.0348
      irot = 3660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 44
      chmoth = 'FDC'
      x = 13.523295
      y = -50.469624
      z = 75.0348
      irot = 3661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 45
      chmoth = 'FDC'
      x = 26.125
      y = -45.249827
      z = 75.0348
      irot = 3662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 46
      chmoth = 'FDC'
      x = 36.946329
      y = -36.946329
      z = 75.0348
      irot = 3663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 47
      chmoth = 'FDC'
      x = 45.249827
      y = -26.125
      z = 75.0348
      irot = 3664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 48
      chmoth = 'FDC'
      x = 50.469624
      y = -13.523295
      z = 75.0348
      irot = 3665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCR'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 74.6848
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGU'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 75.5848
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGV'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 75.5848
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 226
      natmed = 'FDP1 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 = 'FDP1'
      chshap = 'TUBE'
      nmed = 226
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.243) stop 'consistency check #1 failed'

      chname = 'FDP1'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -87.6486
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 61
      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(42,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.0018432428
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 227
      natmed = 'FDM1 FDchamberGas'
      nmat = 61
      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 = 'FDM1'
      chshap = 'TUBE'
      nmed = 227
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.244) stop 'consistency check #1 failed'

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

      itmed = 228
      natmed = 'FDCG AluminizedMylarFilm'
      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 = 'FDCG'
      chshap = 'TUBE'
      nmed = 228
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.00065
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.245) stop 'consistency check #1 failed'

      chname = 'FDCG'
      nr = 1
      chmoth = 'FDM1'
      x = 0
      y = 0
      z = -6.93555
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 2
      chmoth = 'FDM1'
      x = 0
      y = 0
      z = 6.93555
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 3
      chmoth = 'FDM1'
      x = 0
      y = 0
      z = 6.37685
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 229
      natmed = 'FDC1 FDchamberGas'
      nmat = 61
      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 = 'FDC1'
      chshap = 'TUBE'
      nmed = 229
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.246) stop 'consistency check #1 failed'

      chname = 'FDC1'
      nr = 1
      chmoth = 'FDM1'
      x = 0
      y = 0
      z = -5.3135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 4
      chmoth = 'FDC1'
      x = 0
      y = 0
      z = -1.06205
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 62
      namate = 'CopperKapton'
      wmat(1) = 0.335
      call gfmate(18,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.665
      call gfmate(12,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.9774638
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 230
      natmed = 'FDK1 CopperKapton'
      nmat = 62
      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 = 'FDK1'
      chshap = 'TUBE'
      nmed = 230
      npar = 3
      par(1) = 2.3
      par(2) = 48.5
      par(3) = 0.00135
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.247) stop 'consistency check #1 failed'

      chname = 'FDK1'
      nr = 1
      chmoth = 'FDC1'
      x = 0
      y = 0
      z = -0.50135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDK1'
      nr = 2
      chmoth = 'FDC1'
      x = 0
      y = 0
      z = 0.50135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 231
      natmed = 'FDJ1 Kapton'
      nmat = 12
      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 = 'FDJ1'
      chshap = 'TUBE'
      nmed = 231
      npar = 3
      par(1) = 0
      par(2) = 2.3
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.248) stop 'consistency check #1 failed'

      chname = 'FDJ1'
      nr = 1
      chmoth = 'FDC1'
      x = 0
      y = 0
      z = -0.5013
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDJ1'
      nr = 2
      chmoth = 'FDC1'
      x = 0
      y = 0
      z = 0.5013
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 232
      natmed = 'FDG1 FDchamberGas'
      nmat = 61
      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 = 'FDG1'
      chshap = 'TUBE'
      nmed = 232
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.249) stop 'consistency check #1 failed'

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

      itmed = 233
      natmed = 'FDA1 FDchamberGas'
      nmat = 61
      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 = 'FDA1'
      chshap = 'TUBE'
      nmed = 233
      npar = 3
      par(1) = 2.3
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.250) stop 'consistency check #1 failed'

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

      imate = 63
      namate = 'FDCwirePlaneComposite'
      wmat(1) = 0.21
      call gfmate(17,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(61,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 = 234
      natmed = 'FDXW FDCwirePlaneComposite'
      nmat = 63
      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 = 'FDXW'
      chshap = 'TUBE'
      nmed = 234
      npar = 3
      par(1) = 2.3
      par(2) = 48.5
      par(3) = 0.005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.251) stop 'consistency check #1 failed'

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

      itmed = 235
      natmed = 'FDCW FDCwirePlaneComposite'
      nmat = 63
      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 = 'FDCW'
      chshap = 'TUBE'
      nmed = 235
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.252) stop 'consistency check #1 failed'

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

      irot = 3666
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDC1'
      nr = 2
      chmoth = 'FDM1'
      x = 0
      y = 0
      z = -3.1881
      irot = 3666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDC1'
      nr = 3
      chmoth = 'FDM1'
      x = 0
      y = 0
      z = -1.0627
      irot = 3667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDC1'
      nr = 4
      chmoth = 'FDM1'
      x = 0
      y = 0
      z = 1.0627
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3668
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDC1'
      nr = 5
      chmoth = 'FDM1'
      x = 0
      y = 0
      z = 3.1881
      irot = 3668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDC1'
      nr = 6
      chmoth = 'FDM1'
      x = 0
      y = 0
      z = 5.3135
      irot = 3669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 236
      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 = 236
      npar = 3
      par(1) = 48.5
      par(2) = 60.8
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.253) stop 'consistency check #1 failed'

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

      itmed = 237
      natmed = 'FDNS FDchamberGas'
      nmat = 61
      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 = 'FDNS'
      chshap = 'TUBE'
      nmed = 237
      npar = 3
      par(1) = 48.5
      par(2) = 52.8
      par(3) = 0.28
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.254) stop 'consistency check #1 failed'

      chname = 'FDNS'
      nr = 1
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -6.6562
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 238
      natmed = 'FDNC FR-4'
      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 = 'FDNC'
      chshap = 'TUBE'
      nmed = 238
      npar = 3
      par(1) = 49.8
      par(2) = 52.8
      par(3) = 0.04
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.255) stop 'consistency check #1 failed'

      chname = 'FDNC'
      nr = 1
      chmoth = 'FDNS'
      x = 0
      y = 0
      z = -0.24
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD02'
      chmoth = 'FDNC'
      ndiv = 24
      iaxis = 2
      step = 15
      c0 = 0
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 239
      natmed = 'FDRV Ultem2300'
      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 = 'FDRV'
      chshap = 'TUBE'
      nmed = 239
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.04
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.257) stop 'consistency check #1 failed'

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

      chname = 'FDRV'
      nr = 1
      chmoth = 'SD02'
      x = 51.802994
      y = -6.8199935
      z = 0
      irot = 3670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDNC'
      nr = 2
      chmoth = 'FDNS'
      x = 0
      y = 0
      z = 0.24
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 240
      natmed = 'FDKS FR-4'
      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 = 'FDKS'
      chshap = 'TUBE'
      nmed = 240
      npar = 3
      par(1) = 51.2
      par(2) = 52.8
      par(3) = 0.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.258) stop 'consistency check #1 failed'

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

      itmed = 241
      natmed = 'FDRX Ultem2300'
      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 = 'FDRX'
      chshap = 'TUBE'
      nmed = 241
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.259) stop 'consistency check #1 failed'

      chname = 'FDRX'
      nr = 1
      chmoth = 'FDNS'
      x = 52.25
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 2
      chmoth = 'FDNS'
      x = 50.469624
      y = 13.523295
      z = 0
      irot = 3671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3672
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRX'
      nr = 3
      chmoth = 'FDNS'
      x = 45.249827
      y = 26.125
      z = 0
      irot = 3672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 4
      chmoth = 'FDNS'
      x = 36.946329
      y = 36.946329
      z = 0
      irot = 3673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3674
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRX'
      nr = 5
      chmoth = 'FDNS'
      x = 26.125
      y = 45.249827
      z = 0
      irot = 3674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3675
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRX'
      nr = 6
      chmoth = 'FDNS'
      x = 13.523295
      y = 50.469624
      z = 0
      irot = 3675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 7
      chmoth = 'FDNS'
      x = 3.1993898e-15
      y = 52.25
      z = 0
      irot = 3676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3677
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRX'
      nr = 8
      chmoth = 'FDNS'
      x = -13.523295
      y = 50.469624
      z = 0
      irot = 3677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3678
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRX'
      nr = 9
      chmoth = 'FDNS'
      x = -26.125
      y = 45.249827
      z = 0
      irot = 3678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 10
      chmoth = 'FDNS'
      x = -36.946329
      y = 36.946329
      z = 0
      irot = 3679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3680
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRX'
      nr = 11
      chmoth = 'FDNS'
      x = -45.249827
      y = 26.125
      z = 0
      irot = 3680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3681
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRX'
      nr = 12
      chmoth = 'FDNS'
      x = -50.469624
      y = 13.523295
      z = 0
      irot = 3681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 13
      chmoth = 'FDNS'
      x = -52.25
      y = 6.3987795e-15
      z = 0
      irot = 3682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3683
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRX'
      nr = 14
      chmoth = 'FDNS'
      x = -50.469624
      y = -13.523295
      z = 0
      irot = 3683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3684
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRX'
      nr = 15
      chmoth = 'FDNS'
      x = -45.249827
      y = -26.125
      z = 0
      irot = 3684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 16
      chmoth = 'FDNS'
      x = -36.946329
      y = -36.946329
      z = 0
      irot = 3685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 17
      chmoth = 'FDNS'
      x = -26.125
      y = -45.249827
      z = 0
      irot = 3686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 18
      chmoth = 'FDNS'
      x = -13.523295
      y = -50.469624
      z = 0
      irot = 3687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 19
      chmoth = 'FDNS'
      x = -9.5981693e-15
      y = -52.25
      z = 0
      irot = 3688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 20
      chmoth = 'FDNS'
      x = 13.523295
      y = -50.469624
      z = 0
      irot = 3689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 21
      chmoth = 'FDNS'
      x = 26.125
      y = -45.249827
      z = 0
      irot = 3690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 22
      chmoth = 'FDNS'
      x = 36.946329
      y = -36.946329
      z = 0
      irot = 3691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 23
      chmoth = 'FDNS'
      x = 45.249827
      y = -26.125
      z = 0
      irot = 3692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRX'
      nr = 24
      chmoth = 'FDNS'
      x = 50.469624
      y = -13.523295
      z = 0
      irot = 3693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDML'
      nr = 2
      chmoth = 'FDNS'
      x = 0
      y = 0
      z = 0.27935
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDNS'
      nr = 2
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 6.6562
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 242
      natmed = 'FDEM EpoxyResin'
      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 = 'FDEM'
      chshap = 'TUBE'
      nmed = 242
      npar = 3
      par(1) = 52.8
      par(2) = 52.9
      par(3) = 0.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.260) stop 'consistency check #1 failed'

      chname = 'FDEM'
      nr = 1
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -6.6562
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDEM'
      nr = 2
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 6.6562
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 243
      natmed = 'FDFP 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 = 'FDFP'
      chshap = 'TUBE'
      nmed = 243
      npar = 3
      par(1) = 48.5
      par(2) = 60.25
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.261) stop 'consistency check #1 failed'

      chname = 'FDFP'
      nr = 1
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -5.3135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDNS'
      nr = 3
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = -0.7827
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDEM'
      nr = 3
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = -0.7827
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 244
      natmed = 'FDKB FR-4'
      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 = 'FDKB'
      chshap = 'TUBE'
      nmed = 244
      npar = 3
      par(1) = 52.8
      par(2) = 58.9
      par(3) = 0.04
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.262) stop 'consistency check #1 failed'

      chname = 'FDKB'
      nr = 1
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = -0.5427
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 245
      natmed = 'FDKC CopperKapton'
      nmat = 62
      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 = 'FDKC'
      chshap = 'TUBE'
      nmed = 245
      npar = 3
      par(1) = 48.5
      par(2) = 58.9
      par(3) = 0.00135
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.263) stop 'consistency check #1 failed'

      chname = 'FDKC'
      nr = 1
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = -0.50135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDKC'
      nr = 2
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = 0.50135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 246
      natmed = 'FDPS FDchamberGas'
      nmat = 61
      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 = 'FDPS'
      chshap = 'TUBE'
      nmed = 246
      npar = 3
      par(1) = 48.5
      par(2) = 52.7
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.264) stop 'consistency check #1 failed'

      chname = 'FDPS'
      nr = 1
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = -0.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 64
      namate = 'Polypropylene'
      wmat(1) = 6
      call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 3
      call gfmate(13,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.945
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 247
      natmed = 'FDPP Polypropylene'
      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)

      chname = 'FDPP'
      chshap = 'TUBE'
      nmed = 247
      npar = 3
      par(1) = 51
      par(2) = 52.7
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.265) stop 'consistency check #1 failed'

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

      chname = 'FDRU'
      nr = 49
      chmoth = 'FDPS'
      x = 52.25
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 50
      chmoth = 'FDPS'
      x = 50.469624
      y = 13.523295
      z = 0
      irot = 3694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3695
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 51
      chmoth = 'FDPS'
      x = 45.249827
      y = 26.125
      z = 0
      irot = 3695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 52
      chmoth = 'FDPS'
      x = 36.946329
      y = 36.946329
      z = 0
      irot = 3696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3697
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 53
      chmoth = 'FDPS'
      x = 26.125
      y = 45.249827
      z = 0
      irot = 3697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3698
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 54
      chmoth = 'FDPS'
      x = 13.523295
      y = 50.469624
      z = 0
      irot = 3698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 55
      chmoth = 'FDPS'
      x = 3.1993898e-15
      y = 52.25
      z = 0
      irot = 3699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3700
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 56
      chmoth = 'FDPS'
      x = -13.523295
      y = 50.469624
      z = 0
      irot = 3700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3701
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 57
      chmoth = 'FDPS'
      x = -26.125
      y = 45.249827
      z = 0
      irot = 3701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 58
      chmoth = 'FDPS'
      x = -36.946329
      y = 36.946329
      z = 0
      irot = 3702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3703
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 59
      chmoth = 'FDPS'
      x = -45.249827
      y = 26.125
      z = 0
      irot = 3703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3704
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 60
      chmoth = 'FDPS'
      x = -50.469624
      y = 13.523295
      z = 0
      irot = 3704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 61
      chmoth = 'FDPS'
      x = -52.25
      y = 6.3987795e-15
      z = 0
      irot = 3705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3706
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 62
      chmoth = 'FDPS'
      x = -50.469624
      y = -13.523295
      z = 0
      irot = 3706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3707
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 63
      chmoth = 'FDPS'
      x = -45.249827
      y = -26.125
      z = 0
      irot = 3707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 64
      chmoth = 'FDPS'
      x = -36.946329
      y = -36.946329
      z = 0
      irot = 3708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 65
      chmoth = 'FDPS'
      x = -26.125
      y = -45.249827
      z = 0
      irot = 3709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 66
      chmoth = 'FDPS'
      x = -13.523295
      y = -50.469624
      z = 0
      irot = 3710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 67
      chmoth = 'FDPS'
      x = -9.5981693e-15
      y = -52.25
      z = 0
      irot = 3711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 68
      chmoth = 'FDPS'
      x = 13.523295
      y = -50.469624
      z = 0
      irot = 3712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 69
      chmoth = 'FDPS'
      x = 26.125
      y = -45.249827
      z = 0
      irot = 3713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 70
      chmoth = 'FDPS'
      x = 36.946329
      y = -36.946329
      z = 0
      irot = 3714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 71
      chmoth = 'FDPS'
      x = 45.249827
      y = -26.125
      z = 0
      irot = 3715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 72
      chmoth = 'FDPS'
      x = 50.469624
      y = -13.523295
      z = 0
      irot = 3716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 248
      natmed = 'FDEL EpoxyResin'
      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 = 'FDEL'
      chshap = 'TUBE'
      nmed = 248
      npar = 3
      par(1) = 58.9
      par(2) = 59
      par(3) = 0.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.266) stop 'consistency check #1 failed'

      chname = 'FDEL'
      nr = 1
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = 0.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 249
      natmed = 'FDWF FDchamberGas'
      nmat = 61
      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 = 'FDWF'
      chshap = 'TUBE'
      nmed = 249
      npar = 3
      par(1) = 48.5
      par(2) = 58.9
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.267) stop 'consistency check #1 failed'

      chname = 'FDWF'
      nr = 1
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = 0.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 65
      namate = 'FDAnodeBoard'
      wmat(1) = 0.5
      call gfmate(18,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.5
      call gfmate(26,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 3.1487764
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 250
      natmed = 'FDWB FDAnodeBoard'
      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)

      chname = 'FDWB'
      chshap = 'TUBE'
      nmed = 250
      npar = 3
      par(1) = 48.5
      par(2) = 58.9
      par(3) = 0.04
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.268) stop 'consistency check #1 failed'

      chname = 'FDWB'
      nr = 1
      chmoth = 'FDWF'
      x = 0
      y = 0
      z = -0.21
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD03'
      chmoth = 'FDWB'
      ndiv = 24
      iaxis = 2
      step = 15
      c0 = 0
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      chname = 'FDRV'
      nr = 2
      chmoth = 'SD03'
      x = 51.802994
      y = -6.8199935
      z = 0
      irot = 3717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 68
      chnama = 'Titanium'
      a = 47.9
      z = 22
      dens = 4.53
      radl = 3.5695364
      absl = 27.571744
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 67
      namate = 'CalciumTitanate'
      wmat(1) = 1
      call gfmate(8,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(68,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 = 3.7
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 69
      namate = 'Silver'
      a = 107.868
      z = 47
      dens = 10.48
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 66
      namate = 'HVcapacitorSolder'
      wmat(1) = 0.9
      call gfmate(67,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.1
      call gfmate(69,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 3.9559274
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 251
      natmed = 'FDBC HVcapacitorSolder'
      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)

      chname = 'FDBC'
      chshap = 'TUBE'
      nmed = 251
      npar = 3
      par(1) = 49.8
      par(2) = 50.8
      par(3) = 0.062
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.270) stop 'consistency check #1 failed'

      chname = 'FDBC'
      nr = 1
      chmoth = 'FDWF'
      x = 0
      y = 0
      z = -0.108
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 252
      natmed = 'FDWR HighDensityROHACELL'
      nmat = 20
      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 = 'FDWR'
      chshap = 'TUBE'
      nmed = 252
      npar = 3
      par(1) = 52.8
      par(2) = 58.9
      par(3) = 0.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.271) stop 'consistency check #1 failed'

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

      itmed = 253
      natmed = 'FDOW FR-4'
      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 = 'FDOW'
      chshap = 'TUBE'
      nmed = 253
      npar = 3
      par(1) = 51.1
      par(2) = 52.8
      par(3) = 0.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.272) stop 'consistency check #1 failed'

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

      chname = 'SD04'
      chmoth = 'FDOW'
      ndiv = 24
      iaxis = 2
      step = 15
      c0 = 0
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 254
      natmed = 'FDRW Ultem2300'
      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 = 'FDRW'
      chshap = 'TUBE'
      nmed = 254
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.274) stop 'consistency check #1 failed'

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

      chname = 'FDRW'
      nr = 1
      chmoth = 'SD04'
      x = 51.802994
      y = -6.8199935
      z = 0
      irot = 3718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 255
      natmed = 'FDWC FR-4'
      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 = 'FDWC'
      chshap = 'TUBE'
      nmed = 255
      npar = 3
      par(1) = 51.1
      par(2) = 58.9
      par(3) = 0.04
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.275) stop 'consistency check #1 failed'

      chname = 'FDWC'
      nr = 1
      chmoth = 'FDWF'
      x = 0
      y = 0
      z = 0.21
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'SD05'
      chmoth = 'FDWC'
      ndiv = 24
      iaxis = 2
      step = 15
      c0 = 0
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      chname = 'FDRV'
      nr = 3
      chmoth = 'SD05'
      x = 51.802994
      y = -6.8199935
      z = 0
      irot = 3719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDKB'
      nr = 2
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = 0.5427
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDNS'
      nr = 4
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = 0.7827
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDEM'
      nr = 4
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = 0.7827
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 256
      natmed = 'FDCP CircuitBoards'
      nmat = 36
      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 = 'FDCP'
      chshap = 'TUBE'
      nmed = 256
      npar = 3
      par(1) = 54.7
      par(2) = 60
      par(3) = 0.0135
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.277) stop 'consistency check #1 failed'

      chname = 'FDCP'
      nr = 1
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = -0.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCP'
      nr = 2
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = -0.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCP'
      nr = 3
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = 0.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 257
      natmed = 'FDCL Copper'
      nmat = 18
      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 = 'FDCL'
      chshap = 'TUBE'
      nmed = 257
      npar = 3
      par(1) = 59.9
      par(2) = 60.25
      par(3) = 0.179
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.278) stop 'consistency check #1 failed'

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

      imate = 71
      chnama = 'Fluorine'
      a = 18.9984
      z = 9
      dens = 0.00158
      radl = 20841.772
      absl = 60316.456
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      imate = 70
      namate = 'Fluorinert'
      wmat(1) = 6
      call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 14
      call gfmate(71,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.68
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 258
      natmed = 'FDLF Fluorinert'
      nmat = 70
      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 = 'FDLF'
      chshap = 'TUBE'
      nmed = 258
      npar = 3
      par(1) = 59.95
      par(2) = 60.2
      par(3) = 0.129
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.279) stop 'consistency check #1 failed'

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

      chname = 'FDFP'
      nr = 2
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -3.1881
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDFP'
      nr = 3
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -1.0627
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDFP'
      nr = 4
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 1.0627
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDFP'
      nr = 5
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 3.1881
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDFP'
      nr = 6
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 5.3135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 259
      natmed = 'FDCM 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 = 'FDCM'
      chshap = 'TUBE'
      nmed = 259
      npar = 3
      par(1) = 60.25
      par(2) = 60.27
      par(3) = 0.4545
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.280) stop 'consistency check #1 failed'

      chname = 'FDCM'
      nr = 1
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -5.3135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCM'
      nr = 2
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -3.1881
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCM'
      nr = 3
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -1.0627
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCM'
      nr = 4
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 1.0627
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCM'
      nr = 5
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 3.1881
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCM'
      nr = 6
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 5.3135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 260
      natmed = 'FDP2 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 = 'FDP2'
      chshap = 'TUBE'
      nmed = 260
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.281) stop 'consistency check #1 failed'

      chname = 'FDP2'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -29.2162
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 261
      natmed = 'FDM2 FDchamberGas'
      nmat = 61
      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 = 'FDM2'
      chshap = 'TUBE'
      nmed = 261
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.282) stop 'consistency check #1 failed'

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

      chname = 'FDCG'
      nr = 5
      chmoth = 'FDM2'
      x = 0
      y = 0
      z = -6.93555
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 6
      chmoth = 'FDM2'
      x = 0
      y = 0
      z = 6.93555
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 7
      chmoth = 'FDM2'
      x = 0
      y = 0
      z = 6.37685
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 262
      natmed = 'FDC2 FDchamberGas'
      nmat = 61
      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 = 'FDC2'
      chshap = 'TUBE'
      nmed = 262
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.283) stop 'consistency check #1 failed'

      chname = 'FDC2'
      nr = 1
      chmoth = 'FDM2'
      x = 0
      y = 0
      z = -5.3135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 8
      chmoth = 'FDC2'
      x = 0
      y = 0
      z = -1.06205
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 263
      natmed = 'FDK2 CopperKapton'
      nmat = 62
      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 = 'FDK2'
      chshap = 'TUBE'
      nmed = 263
      npar = 3
      par(1) = 3.2
      par(2) = 48.5
      par(3) = 0.00135
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.284) stop 'consistency check #1 failed'

      chname = 'FDK2'
      nr = 1
      chmoth = 'FDC2'
      x = 0
      y = 0
      z = -0.50135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDK2'
      nr = 2
      chmoth = 'FDC2'
      x = 0
      y = 0
      z = 0.50135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 264
      natmed = 'FDJ2 Kapton'
      nmat = 12
      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 = 'FDJ2'
      chshap = 'TUBE'
      nmed = 264
      npar = 3
      par(1) = 0
      par(2) = 3.2
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.285) stop 'consistency check #1 failed'

      chname = 'FDJ2'
      nr = 1
      chmoth = 'FDC2'
      x = 0
      y = 0
      z = -0.5013
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDJ2'
      nr = 2
      chmoth = 'FDC2'
      x = 0
      y = 0
      z = 0.5013
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 265
      natmed = 'FDG2 FDchamberGas'
      nmat = 61
      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 = 'FDG2'
      chshap = 'TUBE'
      nmed = 265
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.286) stop 'consistency check #1 failed'

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

      itmed = 266
      natmed = 'FDA2 FDchamberGas'
      nmat = 61
      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 = 'FDA2'
      chshap = 'TUBE'
      nmed = 266
      npar = 3
      par(1) = 3.2
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.287) stop 'consistency check #1 failed'

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

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

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

      irot = 3720
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDC2'
      nr = 2
      chmoth = 'FDM2'
      x = 0
      y = 0
      z = -3.1881
      irot = 3720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDC2'
      nr = 3
      chmoth = 'FDM2'
      x = 0
      y = 0
      z = -1.0627
      irot = 3721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDC2'
      nr = 4
      chmoth = 'FDM2'
      x = 0
      y = 0
      z = 1.0627
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3722
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDC2'
      nr = 5
      chmoth = 'FDM2'
      x = 0
      y = 0
      z = 3.1881
      irot = 3722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDC2'
      nr = 6
      chmoth = 'FDM2'
      x = 0
      y = 0
      z = 5.3135
      irot = 3723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      itmed = 267
      natmed = 'FDP3 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 = 'FDP3'
      chshap = 'TUBE'
      nmed = 267
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.288) stop 'consistency check #1 failed'

      chname = 'FDP3'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 29.2162
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 268
      natmed = 'FDM3 FDchamberGas'
      nmat = 61
      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 = 'FDM3'
      chshap = 'TUBE'
      nmed = 268
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.289) stop 'consistency check #1 failed'

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

      chname = 'FDCG'
      nr = 9
      chmoth = 'FDM3'
      x = 0
      y = 0
      z = -6.93555
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 10
      chmoth = 'FDM3'
      x = 0
      y = 0
      z = 6.93555
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 11
      chmoth = 'FDM3'
      x = 0
      y = 0
      z = 6.37685
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 269
      natmed = 'FDC3 FDchamberGas'
      nmat = 61
      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 = 'FDC3'
      chshap = 'TUBE'
      nmed = 269
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.290) stop 'consistency check #1 failed'

      chname = 'FDC3'
      nr = 1
      chmoth = 'FDM3'
      x = 0
      y = 0
      z = -5.3135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 12
      chmoth = 'FDC3'
      x = 0
      y = 0
      z = -1.06205
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 270
      natmed = 'FDK3 CopperKapton'
      nmat = 62
      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 = 'FDK3'
      chshap = 'TUBE'
      nmed = 270
      npar = 3
      par(1) = 3.9
      par(2) = 48.5
      par(3) = 0.00135
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.291) stop 'consistency check #1 failed'

      chname = 'FDK3'
      nr = 1
      chmoth = 'FDC3'
      x = 0
      y = 0
      z = -0.50135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDK3'
      nr = 2
      chmoth = 'FDC3'
      x = 0
      y = 0
      z = 0.50135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 271
      natmed = 'FDJ3 Kapton'
      nmat = 12
      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 = 'FDJ3'
      chshap = 'TUBE'
      nmed = 271
      npar = 3
      par(1) = 0
      par(2) = 3.9
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.292) stop 'consistency check #1 failed'

      chname = 'FDJ3'
      nr = 1
      chmoth = 'FDC3'
      x = 0
      y = 0
      z = -0.5013
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDJ3'
      nr = 2
      chmoth = 'FDC3'
      x = 0
      y = 0
      z = 0.5013
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 272
      natmed = 'FDG3 FDchamberGas'
      nmat = 61
      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 = 'FDG3'
      chshap = 'TUBE'
      nmed = 272
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.293) stop 'consistency check #1 failed'

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

      itmed = 273
      natmed = 'FDA3 FDchamberGas'
      nmat = 61
      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 = 'FDA3'
      chshap = 'TUBE'
      nmed = 273
      npar = 3
      par(1) = 3.9
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.294) stop 'consistency check #1 failed'

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

      chname = 'FDXW'
      nr = 3
      chmoth = 'FDA3'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCW'
      nr = 3
      chmoth = 'FDG3'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3724
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDC3'
      nr = 2
      chmoth = 'FDM3'
      x = 0
      y = 0
      z = -3.1881
      irot = 3724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDC3'
      nr = 3
      chmoth = 'FDM3'
      x = 0
      y = 0
      z = -1.0627
      irot = 3725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDC3'
      nr = 4
      chmoth = 'FDM3'
      x = 0
      y = 0
      z = 1.0627
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3726
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDC3'
      nr = 5
      chmoth = 'FDM3'
      x = 0
      y = 0
      z = 3.1881
      irot = 3726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDC3'
      nr = 6
      chmoth = 'FDM3'
      x = 0
      y = 0
      z = 5.3135
      irot = 3727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSF'
      nr = 3
      chmoth = 'FDP3'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 274
      natmed = 'FDP4 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 = 'FDP4'
      chshap = 'TUBE'
      nmed = 274
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.295) stop 'consistency check #1 failed'

      chname = 'FDP4'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 67.6486
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 275
      natmed = 'FDM4 FDchamberGas'
      nmat = 61
      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 = 'FDM4'
      chshap = 'TUBE'
      nmed = 275
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.296) stop 'consistency check #1 failed'

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

      chname = 'FDCG'
      nr = 13
      chmoth = 'FDM4'
      x = 0
      y = 0
      z = -6.93555
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 14
      chmoth = 'FDM4'
      x = 0
      y = 0
      z = 6.93555
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 15
      chmoth = 'FDM4'
      x = 0
      y = 0
      z = 6.37685
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 276
      natmed = 'FDC4 FDchamberGas'
      nmat = 61
      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 = 'FDC4'
      chshap = 'TUBE'
      nmed = 276
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.297) stop 'consistency check #1 failed'

      chname = 'FDC4'
      nr = 1
      chmoth = 'FDM4'
      x = 0
      y = 0
      z = -5.3135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCG'
      nr = 16
      chmoth = 'FDC4'
      x = 0
      y = 0
      z = -1.06205
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 277
      natmed = 'FDK4 CopperKapton'
      nmat = 62
      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 = 'FDK4'
      chshap = 'TUBE'
      nmed = 277
      npar = 3
      par(1) = 4.6
      par(2) = 48.5
      par(3) = 0.00135
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.298) stop 'consistency check #1 failed'

      chname = 'FDK4'
      nr = 1
      chmoth = 'FDC4'
      x = 0
      y = 0
      z = -0.50135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDK4'
      nr = 2
      chmoth = 'FDC4'
      x = 0
      y = 0
      z = 0.50135
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 278
      natmed = 'FDJ4 Kapton'
      nmat = 12
      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 = 'FDJ4'
      chshap = 'TUBE'
      nmed = 278
      npar = 3
      par(1) = 0
      par(2) = 4.6
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.299) stop 'consistency check #1 failed'

      chname = 'FDJ4'
      nr = 1
      chmoth = 'FDC4'
      x = 0
      y = 0
      z = -0.5013
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDJ4'
      nr = 2
      chmoth = 'FDC4'
      x = 0
      y = 0
      z = 0.5013
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 279
      natmed = 'FDG4 FDchamberGas'
      nmat = 61
      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 = 'FDG4'
      chshap = 'TUBE'
      nmed = 279
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.300) stop 'consistency check #1 failed'

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

      itmed = 280
      natmed = 'FDA4 FDchamberGas'
      nmat = 61
      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 = 'FDA4'
      chshap = 'TUBE'
      nmed = 280
      npar = 3
      par(1) = 4.6
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.301) stop 'consistency check #1 failed'

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

      chname = 'FDXW'
      nr = 4
      chmoth = 'FDA4'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCW'
      nr = 4
      chmoth = 'FDG4'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3728
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDC4'
      nr = 2
      chmoth = 'FDM4'
      x = 0
      y = 0
      z = -3.1881
      irot = 3728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDC4'
      nr = 3
      chmoth = 'FDM4'
      x = 0
      y = 0
      z = -1.0627
      irot = 3729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDC4'
      nr = 4
      chmoth = 'FDM4'
      x = 0
      y = 0
      z = 1.0627
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3730
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDC4'
      nr = 5
      chmoth = 'FDM4'
      x = 0
      y = 0
      z = 3.1881
      irot = 3730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDC4'
      nr = 6
      chmoth = 'FDM4'
      x = 0
      y = 0
      z = 5.3135
      irot = 3731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDSF'
      nr = 4
      chmoth = 'FDP4'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 281
      natmed = 'FDIS 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 = 'FDIS'
      chshap = 'TUBE'
      nmed = 281
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 22.28
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.302) stop 'consistency check #1 failed'

      chname = 'FDIS'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -58.4324
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 282
      natmed = 'FDXM FR-4'
      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 = 'FDXM'
      chshap = 'TUBE'
      nmed = 282
      npar = 3
      par(1) = 51.25
      par(2) = 51.35
      par(3) = 22.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.303) stop 'consistency check #1 failed'

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

      chname = 'FDCR'
      nr = 3
      chmoth = 'FDIS'
      x = 0
      y = 0
      z = -22.18
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGU'
      nr = 3
      chmoth = 'FDIS'
      x = 0
      y = 0
      z = -21.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGV'
      nr = 3
      chmoth = 'FDIS'
      x = 0
      y = 0
      z = -21.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCR'
      nr = 4
      chmoth = 'FDIS'
      x = 0
      y = 0
      z = 22.18
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGU'
      nr = 4
      chmoth = 'FDIS'
      x = 0
      y = 0
      z = 21.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGV'
      nr = 4
      chmoth = 'FDIS'
      x = 0
      y = 0
      z = 21.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDML'
      nr = 3
      chmoth = 'FDIS'
      x = 0
      y = 0
      z = 22.27935
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 283
      natmed = 'FDRL FR-4'
      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 = 'FDRL'
      chshap = 'TUBE'
      nmed = 283
      npar = 3
      par(1) = 0.7838
      par(2) = 0.889
      par(3) = 22.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.304) stop 'consistency check #1 failed'

      chname = 'FDRL'
      nr = 1
      chmoth = 'FDIS'
      x = 52.25
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRL'
      nr = 2
      chmoth = 'FDIS'
      x = 3.1993898e-15
      y = 52.25
      z = 0
      irot = 3732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRL'
      nr = 3
      chmoth = 'FDIS'
      x = -52.25
      y = 6.3987795e-15
      z = 0
      irot = 3733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRL'
      nr = 4
      chmoth = 'FDIS'
      x = -9.5981693e-15
      y = -52.25
      z = 0
      irot = 3734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 49
      chmoth = 'FDIS'
      x = 52.25
      y = 0
      z = -21.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 50
      chmoth = 'FDIS'
      x = 50.469624
      y = 13.523295
      z = -21.83
      irot = 3735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3736
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 51
      chmoth = 'FDIS'
      x = 45.249827
      y = 26.125
      z = -21.83
      irot = 3736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 52
      chmoth = 'FDIS'
      x = 36.946329
      y = 36.946329
      z = -21.83
      irot = 3737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3738
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 53
      chmoth = 'FDIS'
      x = 26.125
      y = 45.249827
      z = -21.83
      irot = 3738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3739
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 54
      chmoth = 'FDIS'
      x = 13.523295
      y = 50.469624
      z = -21.83
      irot = 3739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 55
      chmoth = 'FDIS'
      x = 3.1993898e-15
      y = 52.25
      z = -21.83
      irot = 3740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3741
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 56
      chmoth = 'FDIS'
      x = -13.523295
      y = 50.469624
      z = -21.83
      irot = 3741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3742
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 57
      chmoth = 'FDIS'
      x = -26.125
      y = 45.249827
      z = -21.83
      irot = 3742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 58
      chmoth = 'FDIS'
      x = -36.946329
      y = 36.946329
      z = -21.83
      irot = 3743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3744
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 59
      chmoth = 'FDIS'
      x = -45.249827
      y = 26.125
      z = -21.83
      irot = 3744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3745
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 60
      chmoth = 'FDIS'
      x = -50.469624
      y = 13.523295
      z = -21.83
      irot = 3745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 61
      chmoth = 'FDIS'
      x = -52.25
      y = 6.3987795e-15
      z = -21.83
      irot = 3746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3747
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 62
      chmoth = 'FDIS'
      x = -50.469624
      y = -13.523295
      z = -21.83
      irot = 3747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3748
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 63
      chmoth = 'FDIS'
      x = -45.249827
      y = -26.125
      z = -21.83
      irot = 3748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 64
      chmoth = 'FDIS'
      x = -36.946329
      y = -36.946329
      z = -21.83
      irot = 3749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 65
      chmoth = 'FDIS'
      x = -26.125
      y = -45.249827
      z = -21.83
      irot = 3750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 66
      chmoth = 'FDIS'
      x = -13.523295
      y = -50.469624
      z = -21.83
      irot = 3751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 67
      chmoth = 'FDIS'
      x = -9.5981693e-15
      y = -52.25
      z = -21.83
      irot = 3752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 68
      chmoth = 'FDIS'
      x = 13.523295
      y = -50.469624
      z = -21.83
      irot = 3753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 69
      chmoth = 'FDIS'
      x = 26.125
      y = -45.249827
      z = -21.83
      irot = 3754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 70
      chmoth = 'FDIS'
      x = 36.946329
      y = -36.946329
      z = -21.83
      irot = 3755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 71
      chmoth = 'FDIS'
      x = 45.249827
      y = -26.125
      z = -21.83
      irot = 3756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 72
      chmoth = 'FDIS'
      x = 50.469624
      y = -13.523295
      z = -21.83
      irot = 3757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRU'
      nr = 73
      chmoth = 'FDIS'
      x = 52.25
      y = 0
      z = -21.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 74
      chmoth = 'FDIS'
      x = 50.469624
      y = 13.523295
      z = -21.83
      irot = 3758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3759
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 75
      chmoth = 'FDIS'
      x = 45.249827
      y = 26.125
      z = -21.83
      irot = 3759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 76
      chmoth = 'FDIS'
      x = 36.946329
      y = 36.946329
      z = -21.83
      irot = 3760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3761
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 77
      chmoth = 'FDIS'
      x = 26.125
      y = 45.249827
      z = -21.83
      irot = 3761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3762
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 78
      chmoth = 'FDIS'
      x = 13.523295
      y = 50.469624
      z = -21.83
      irot = 3762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 79
      chmoth = 'FDIS'
      x = 3.1993898e-15
      y = 52.25
      z = -21.83
      irot = 3763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3764
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 80
      chmoth = 'FDIS'
      x = -13.523295
      y = 50.469624
      z = -21.83
      irot = 3764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3765
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 81
      chmoth = 'FDIS'
      x = -26.125
      y = 45.249827
      z = -21.83
      irot = 3765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 82
      chmoth = 'FDIS'
      x = -36.946329
      y = 36.946329
      z = -21.83
      irot = 3766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3767
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 83
      chmoth = 'FDIS'
      x = -45.249827
      y = 26.125
      z = -21.83
      irot = 3767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3768
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 84
      chmoth = 'FDIS'
      x = -50.469624
      y = 13.523295
      z = -21.83
      irot = 3768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 85
      chmoth = 'FDIS'
      x = -52.25
      y = 6.3987795e-15
      z = -21.83
      irot = 3769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3770
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 86
      chmoth = 'FDIS'
      x = -50.469624
      y = -13.523295
      z = -21.83
      irot = 3770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3771
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 87
      chmoth = 'FDIS'
      x = -45.249827
      y = -26.125
      z = -21.83
      irot = 3771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 88
      chmoth = 'FDIS'
      x = -36.946329
      y = -36.946329
      z = -21.83
      irot = 3772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 89
      chmoth = 'FDIS'
      x = -26.125
      y = -45.249827
      z = -21.83
      irot = 3773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 90
      chmoth = 'FDIS'
      x = -13.523295
      y = -50.469624
      z = -21.83
      irot = 3774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 91
      chmoth = 'FDIS'
      x = -9.5981693e-15
      y = -52.25
      z = -21.83
      irot = 3775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 92
      chmoth = 'FDIS'
      x = 13.523295
      y = -50.469624
      z = -21.83
      irot = 3776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 93
      chmoth = 'FDIS'
      x = 26.125
      y = -45.249827
      z = -21.83
      irot = 3777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 94
      chmoth = 'FDIS'
      x = 36.946329
      y = -36.946329
      z = -21.83
      irot = 3778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 95
      chmoth = 'FDIS'
      x = 45.249827
      y = -26.125
      z = -21.83
      irot = 3779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 96
      chmoth = 'FDIS'
      x = 50.469624
      y = -13.523295
      z = -21.83
      irot = 3780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 73
      chmoth = 'FDIS'
      x = 52.25
      y = 0
      z = 21.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 74
      chmoth = 'FDIS'
      x = 50.469624
      y = 13.523295
      z = 21.83
      irot = 3781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3782
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 75
      chmoth = 'FDIS'
      x = 45.249827
      y = 26.125
      z = 21.83
      irot = 3782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 76
      chmoth = 'FDIS'
      x = 36.946329
      y = 36.946329
      z = 21.83
      irot = 3783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3784
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 77
      chmoth = 'FDIS'
      x = 26.125
      y = 45.249827
      z = 21.83
      irot = 3784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3785
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 78
      chmoth = 'FDIS'
      x = 13.523295
      y = 50.469624
      z = 21.83
      irot = 3785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 79
      chmoth = 'FDIS'
      x = 3.1993898e-15
      y = 52.25
      z = 21.83
      irot = 3786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3787
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 80
      chmoth = 'FDIS'
      x = -13.523295
      y = 50.469624
      z = 21.83
      irot = 3787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3788
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 81
      chmoth = 'FDIS'
      x = -26.125
      y = 45.249827
      z = 21.83
      irot = 3788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 82
      chmoth = 'FDIS'
      x = -36.946329
      y = 36.946329
      z = 21.83
      irot = 3789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3790
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 83
      chmoth = 'FDIS'
      x = -45.249827
      y = 26.125
      z = 21.83
      irot = 3790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3791
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 84
      chmoth = 'FDIS'
      x = -50.469624
      y = 13.523295
      z = 21.83
      irot = 3791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 85
      chmoth = 'FDIS'
      x = -52.25
      y = 6.3987795e-15
      z = 21.83
      irot = 3792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3793
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 86
      chmoth = 'FDIS'
      x = -50.469624
      y = -13.523295
      z = 21.83
      irot = 3793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3794
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 87
      chmoth = 'FDIS'
      x = -45.249827
      y = -26.125
      z = 21.83
      irot = 3794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 88
      chmoth = 'FDIS'
      x = -36.946329
      y = -36.946329
      z = 21.83
      irot = 3795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 89
      chmoth = 'FDIS'
      x = -26.125
      y = -45.249827
      z = 21.83
      irot = 3796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 90
      chmoth = 'FDIS'
      x = -13.523295
      y = -50.469624
      z = 21.83
      irot = 3797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 91
      chmoth = 'FDIS'
      x = -9.5981693e-15
      y = -52.25
      z = 21.83
      irot = 3798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 92
      chmoth = 'FDIS'
      x = 13.523295
      y = -50.469624
      z = 21.83
      irot = 3799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 93
      chmoth = 'FDIS'
      x = 26.125
      y = -45.249827
      z = 21.83
      irot = 3800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 94
      chmoth = 'FDIS'
      x = 36.946329
      y = -36.946329
      z = 21.83
      irot = 3801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 95
      chmoth = 'FDIS'
      x = 45.249827
      y = -26.125
      z = 21.83
      irot = 3802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 96
      chmoth = 'FDIS'
      x = 50.469624
      y = -13.523295
      z = 21.83
      irot = 3803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRU'
      nr = 97
      chmoth = 'FDIS'
      x = 52.25
      y = 0
      z = 21.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 98
      chmoth = 'FDIS'
      x = 50.469624
      y = 13.523295
      z = 21.83
      irot = 3804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3805
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 99
      chmoth = 'FDIS'
      x = 45.249827
      y = 26.125
      z = 21.83
      irot = 3805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 100
      chmoth = 'FDIS'
      x = 36.946329
      y = 36.946329
      z = 21.83
      irot = 3806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3807
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 101
      chmoth = 'FDIS'
      x = 26.125
      y = 45.249827
      z = 21.83
      irot = 3807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3808
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 102
      chmoth = 'FDIS'
      x = 13.523295
      y = 50.469624
      z = 21.83
      irot = 3808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 103
      chmoth = 'FDIS'
      x = 3.1993898e-15
      y = 52.25
      z = 21.83
      irot = 3809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3810
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 104
      chmoth = 'FDIS'
      x = -13.523295
      y = 50.469624
      z = 21.83
      irot = 3810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3811
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 105
      chmoth = 'FDIS'
      x = -26.125
      y = 45.249827
      z = 21.83
      irot = 3811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 106
      chmoth = 'FDIS'
      x = -36.946329
      y = 36.946329
      z = 21.83
      irot = 3812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3813
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 107
      chmoth = 'FDIS'
      x = -45.249827
      y = 26.125
      z = 21.83
      irot = 3813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3814
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 108
      chmoth = 'FDIS'
      x = -50.469624
      y = 13.523295
      z = 21.83
      irot = 3814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 109
      chmoth = 'FDIS'
      x = -52.25
      y = 6.3987795e-15
      z = 21.83
      irot = 3815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3816
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 110
      chmoth = 'FDIS'
      x = -50.469624
      y = -13.523295
      z = 21.83
      irot = 3816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3817
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 111
      chmoth = 'FDIS'
      x = -45.249827
      y = -26.125
      z = 21.83
      irot = 3817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 112
      chmoth = 'FDIS'
      x = -36.946329
      y = -36.946329
      z = 21.83
      irot = 3818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 113
      chmoth = 'FDIS'
      x = -26.125
      y = -45.249827
      z = 21.83
      irot = 3819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 114
      chmoth = 'FDIS'
      x = -13.523295
      y = -50.469624
      z = 21.83
      irot = 3820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 115
      chmoth = 'FDIS'
      x = -9.5981693e-15
      y = -52.25
      z = 21.83
      irot = 3821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 116
      chmoth = 'FDIS'
      x = 13.523295
      y = -50.469624
      z = 21.83
      irot = 3822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 117
      chmoth = 'FDIS'
      x = 26.125
      y = -45.249827
      z = 21.83
      irot = 3823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 118
      chmoth = 'FDIS'
      x = 36.946329
      y = -36.946329
      z = 21.83
      irot = 3824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 119
      chmoth = 'FDIS'
      x = 45.249827
      y = -26.125
      z = 21.83
      irot = 3825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 120
      chmoth = 'FDIS'
      x = 50.469624
      y = -13.523295
      z = 21.83
      irot = 3826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 284
      natmed = 'RHVL 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 = 'RHVL'
      chshap = 'TUBE'
      nmed = 284
      npar = 3
      par(1) = 0
      par(2) = 50.5
      par(3) = 22.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.305) stop 'consistency check #1 failed'

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

      itmed = 285
      natmed = 'RAWN Kapton'
      nmat = 12
      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 = 'RAWN'
      chshap = 'TUBE'
      nmed = 285
      npar = 3
      par(1) = 2
      par(2) = 50
      par(3) = 0.0025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.306) stop 'consistency check #1 failed'

      chname = 'RAWN'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = -21.4325
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 72
      namate = 'Aerogel1050'
      wmat(1) = 0.544
      call gfmate(3,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.453
      call gfmate(9,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.003
      call gfmate(5,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 0.234
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 286
      natmed = 'RAHR Aerogel1050'
      nmat = 72
      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 setoptical72(itmed)

      chname = 'RAHR'
      chshap = 'TUBE'
      nmed = 286
      npar = 3
      par(1) = 2
      par(2) = 50
      par(3) = 1.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.307) stop 'consistency check #1 failed'

      chname = 'RAHR'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = -19.93
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 73
      namate = 'CerenkovGas'
      wmat(1) = 4
      call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 10
      call gfmate(71,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 = 287
      natmed = 'RALR CerenkovGas'
      nmat = 73
      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 setoptical73(itmed)

      chname = 'RALR'
      chshap = 'TUBE'
      nmed = 287
      npar = 3
      par(1) = 2
      par(2) = 50
      par(3) = 19.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.308) stop 'consistency check #1 failed'

      chname = 'RALR'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 1.07
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 288
      natmed = 'RAOW FR-4'
      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 = 'RAOW'
      chshap = 'TUBE'
      nmed = 288
      npar = 3
      par(1) = 50
      par(2) = 50.1
      par(3) = 21.4307
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.309) stop 'consistency check #1 failed'

      chname = 'RAOW'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = -0.0043
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 289
      natmed = 'RAIW Kapton'
      nmat = 12
      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 = 'RAIW'
      chshap = 'TUBE'
      nmed = 289
      npar = 3
      par(1) = 1.995
      par(2) = 2
      par(3) = 21.4307
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.310) stop 'consistency check #1 failed'

      chname = 'RAIW'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = -0.0043
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 290
      natmed = 'RDWN BorosilicateGlass'
      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)
      call setoptical27(itmed)

      chname = 'RDWN'
      chshap = 'TUBE'
      nmed = 290
      npar = 3
      par(1) = 2
      par(2) = 50
      par(3) = 0.05
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.311) stop 'consistency check #1 failed'

      chname = 'RDWN'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 20.62
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 291
      natmed = 'RDOF FR-4'
      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 = 'RDOF'
      chshap = 'TUBE'
      nmed = 291
      npar = 3
      par(1) = 49
      par(2) = 50
      par(3) = 0.3005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.312) stop 'consistency check #1 failed'

      chname = 'RDOF'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 20.9705
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 292
      natmed = 'RDIF FR-4'
      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 = 'RDIF'
      chshap = 'TUBE'
      nmed = 292
      npar = 3
      par(1) = 2
      par(2) = 2.5
      par(3) = 0.3005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.313) stop 'consistency check #1 failed'

      chname = 'RDIF'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 20.9705
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 75
      namate = 'Antimony'
      a = 121.75
      z = 51
      dens = 6.679
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 74
      namate = 'MCPPhotocathode'
      wmat(1) = 2
      call gfmate(30,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(32,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 1
      call gfmate(75,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 2
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 293
      natmed = 'RDCD MCPPhotocathode'
      nmat = 74
      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 setoptical74(itmed)

      chname = 'RDCD'
      chshap = 'TUBE'
      nmed = 293
      npar = 3
      par(1) = 2.5
      par(2) = 49
      par(3) = 0.0005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.314) stop 'consistency check #1 failed'

      chname = 'RDCD'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 20.6705
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 294
      natmed = 'RDVC 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 = 'RDVC'
      chshap = 'TUBE'
      nmed = 294
      npar = 3
      par(1) = 2.5
      par(2) = 49
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.315) stop 'consistency check #1 failed'

      chname = 'RDVC'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 20.771
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 76
      namate = 'MicroChannelPlate'
      wmat(1) = 1
      call gfmate(27,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      dens = 0.92
      nlmat = 1
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 295
      natmed = 'RDMC MicroChannelPlate'
      nmat = 76
      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 = 'RDMC'
      chshap = 'TUBE'
      nmed = 295
      npar = 3
      par(1) = 2.5
      par(2) = 49
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.316) stop 'consistency check #1 failed'

      chname = 'RDMC'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 20.971
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'RDVC'
      nr = 2
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 21.171
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 296
      natmed = 'RDCP Copper'
      nmat = 18
      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 = 'RDCP'
      chshap = 'TUBE'
      nmed = 296
      npar = 3
      par(1) = 2
      par(2) = 50
      par(3) = 0.0002
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.317) stop 'consistency check #1 failed'

      chname = 'RDCP'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 21.2712
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 297
      natmed = 'RDKP Kapton'
      nmat = 12
      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 = 'RDKP'
      chshap = 'TUBE'
      nmed = 297
      npar = 3
      par(1) = 2
      par(2) = 50
      par(3) = 0.0025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.318) stop 'consistency check #1 failed'

      chname = 'RDKP'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 21.2739
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'RDWN'
      nr = 2
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 21.3264
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 298
      natmed = 'RDPB CircuitBoards'
      nmat = 36
      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 = 'RDPB'
      chshap = 'TUBE'
      nmed = 298
      npar = 3
      par(1) = 2
      par(2) = 50
      par(3) = 0.025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.319) stop 'consistency check #1 failed'

      chname = 'RDPB'
      nr = 1
      chmoth = 'RHVL'
      x = 0
      y = 0
      z = 21.4014
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 299
      natmed = 'FDIT 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 = 'FDIT'
      chshap = 'TUBE'
      nmed = 299
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 22.28
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.320) stop 'consistency check #1 failed'

      chname = 'FDIT'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -0.009
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDCR'
      nr = 5
      chmoth = 'FDIT'
      x = 0
      y = 0
      z = -22.18
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGU'
      nr = 5
      chmoth = 'FDIT'
      x = 0
      y = 0
      z = -21.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGV'
      nr = 5
      chmoth = 'FDIT'
      x = 0
      y = 0
      z = -21.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCR'
      nr = 6
      chmoth = 'FDIT'
      x = 0
      y = 0
      z = 22.18
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGU'
      nr = 6
      chmoth = 'FDIT'
      x = 0
      y = 0
      z = 21.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGV'
      nr = 6
      chmoth = 'FDIT'
      x = 0
      y = 0
      z = 21.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDML'
      nr = 4
      chmoth = 'FDIT'
      x = 0
      y = 0
      z = 22.27935
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRL'
      nr = 5
      chmoth = 'FDIT'
      x = 52.25
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRL'
      nr = 6
      chmoth = 'FDIT'
      x = 3.1993898e-15
      y = 52.25
      z = 0
      irot = 3827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRL'
      nr = 7
      chmoth = 'FDIT'
      x = -52.25
      y = 6.3987795e-15
      z = 0
      irot = 3828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRL'
      nr = 8
      chmoth = 'FDIT'
      x = -9.5981693e-15
      y = -52.25
      z = 0
      irot = 3829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 97
      chmoth = 'FDIT'
      x = 52.25
      y = 0
      z = -21.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 98
      chmoth = 'FDIT'
      x = 50.469624
      y = 13.523295
      z = -21.83
      irot = 3830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3831
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 99
      chmoth = 'FDIT'
      x = 45.249827
      y = 26.125
      z = -21.83
      irot = 3831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 100
      chmoth = 'FDIT'
      x = 36.946329
      y = 36.946329
      z = -21.83
      irot = 3832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3833
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 101
      chmoth = 'FDIT'
      x = 26.125
      y = 45.249827
      z = -21.83
      irot = 3833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3834
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 102
      chmoth = 'FDIT'
      x = 13.523295
      y = 50.469624
      z = -21.83
      irot = 3834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 103
      chmoth = 'FDIT'
      x = 3.1993898e-15
      y = 52.25
      z = -21.83
      irot = 3835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3836
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 104
      chmoth = 'FDIT'
      x = -13.523295
      y = 50.469624
      z = -21.83
      irot = 3836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3837
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 105
      chmoth = 'FDIT'
      x = -26.125
      y = 45.249827
      z = -21.83
      irot = 3837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 106
      chmoth = 'FDIT'
      x = -36.946329
      y = 36.946329
      z = -21.83
      irot = 3838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3839
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 107
      chmoth = 'FDIT'
      x = -45.249827
      y = 26.125
      z = -21.83
      irot = 3839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3840
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 108
      chmoth = 'FDIT'
      x = -50.469624
      y = 13.523295
      z = -21.83
      irot = 3840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 109
      chmoth = 'FDIT'
      x = -52.25
      y = 6.3987795e-15
      z = -21.83
      irot = 3841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3842
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 110
      chmoth = 'FDIT'
      x = -50.469624
      y = -13.523295
      z = -21.83
      irot = 3842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3843
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 111
      chmoth = 'FDIT'
      x = -45.249827
      y = -26.125
      z = -21.83
      irot = 3843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 112
      chmoth = 'FDIT'
      x = -36.946329
      y = -36.946329
      z = -21.83
      irot = 3844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 113
      chmoth = 'FDIT'
      x = -26.125
      y = -45.249827
      z = -21.83
      irot = 3845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 114
      chmoth = 'FDIT'
      x = -13.523295
      y = -50.469624
      z = -21.83
      irot = 3846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 115
      chmoth = 'FDIT'
      x = -9.5981693e-15
      y = -52.25
      z = -21.83
      irot = 3847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 116
      chmoth = 'FDIT'
      x = 13.523295
      y = -50.469624
      z = -21.83
      irot = 3848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 117
      chmoth = 'FDIT'
      x = 26.125
      y = -45.249827
      z = -21.83
      irot = 3849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 118
      chmoth = 'FDIT'
      x = 36.946329
      y = -36.946329
      z = -21.83
      irot = 3850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 119
      chmoth = 'FDIT'
      x = 45.249827
      y = -26.125
      z = -21.83
      irot = 3851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 120
      chmoth = 'FDIT'
      x = 50.469624
      y = -13.523295
      z = -21.83
      irot = 3852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRU'
      nr = 121
      chmoth = 'FDIT'
      x = 52.25
      y = 0
      z = -21.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 122
      chmoth = 'FDIT'
      x = 50.469624
      y = 13.523295
      z = -21.83
      irot = 3853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3854
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 123
      chmoth = 'FDIT'
      x = 45.249827
      y = 26.125
      z = -21.83
      irot = 3854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 124
      chmoth = 'FDIT'
      x = 36.946329
      y = 36.946329
      z = -21.83
      irot = 3855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3856
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 125
      chmoth = 'FDIT'
      x = 26.125
      y = 45.249827
      z = -21.83
      irot = 3856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3857
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 126
      chmoth = 'FDIT'
      x = 13.523295
      y = 50.469624
      z = -21.83
      irot = 3857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 127
      chmoth = 'FDIT'
      x = 3.1993898e-15
      y = 52.25
      z = -21.83
      irot = 3858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3859
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 128
      chmoth = 'FDIT'
      x = -13.523295
      y = 50.469624
      z = -21.83
      irot = 3859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3860
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 129
      chmoth = 'FDIT'
      x = -26.125
      y = 45.249827
      z = -21.83
      irot = 3860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 130
      chmoth = 'FDIT'
      x = -36.946329
      y = 36.946329
      z = -21.83
      irot = 3861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3862
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 131
      chmoth = 'FDIT'
      x = -45.249827
      y = 26.125
      z = -21.83
      irot = 3862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3863
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 132
      chmoth = 'FDIT'
      x = -50.469624
      y = 13.523295
      z = -21.83
      irot = 3863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 133
      chmoth = 'FDIT'
      x = -52.25
      y = 6.3987795e-15
      z = -21.83
      irot = 3864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3865
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 134
      chmoth = 'FDIT'
      x = -50.469624
      y = -13.523295
      z = -21.83
      irot = 3865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3866
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 135
      chmoth = 'FDIT'
      x = -45.249827
      y = -26.125
      z = -21.83
      irot = 3866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 136
      chmoth = 'FDIT'
      x = -36.946329
      y = -36.946329
      z = -21.83
      irot = 3867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 137
      chmoth = 'FDIT'
      x = -26.125
      y = -45.249827
      z = -21.83
      irot = 3868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 138
      chmoth = 'FDIT'
      x = -13.523295
      y = -50.469624
      z = -21.83
      irot = 3869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 139
      chmoth = 'FDIT'
      x = -9.5981693e-15
      y = -52.25
      z = -21.83
      irot = 3870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 140
      chmoth = 'FDIT'
      x = 13.523295
      y = -50.469624
      z = -21.83
      irot = 3871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 141
      chmoth = 'FDIT'
      x = 26.125
      y = -45.249827
      z = -21.83
      irot = 3872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 142
      chmoth = 'FDIT'
      x = 36.946329
      y = -36.946329
      z = -21.83
      irot = 3873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 143
      chmoth = 'FDIT'
      x = 45.249827
      y = -26.125
      z = -21.83
      irot = 3874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 144
      chmoth = 'FDIT'
      x = 50.469624
      y = -13.523295
      z = -21.83
      irot = 3875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 121
      chmoth = 'FDIT'
      x = 52.25
      y = 0
      z = 21.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 122
      chmoth = 'FDIT'
      x = 50.469624
      y = 13.523295
      z = 21.83
      irot = 3876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3877
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 123
      chmoth = 'FDIT'
      x = 45.249827
      y = 26.125
      z = 21.83
      irot = 3877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 124
      chmoth = 'FDIT'
      x = 36.946329
      y = 36.946329
      z = 21.83
      irot = 3878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3879
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 125
      chmoth = 'FDIT'
      x = 26.125
      y = 45.249827
      z = 21.83
      irot = 3879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3880
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 126
      chmoth = 'FDIT'
      x = 13.523295
      y = 50.469624
      z = 21.83
      irot = 3880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 127
      chmoth = 'FDIT'
      x = 3.1993898e-15
      y = 52.25
      z = 21.83
      irot = 3881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3882
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 128
      chmoth = 'FDIT'
      x = -13.523295
      y = 50.469624
      z = 21.83
      irot = 3882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3883
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 129
      chmoth = 'FDIT'
      x = -26.125
      y = 45.249827
      z = 21.83
      irot = 3883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 130
      chmoth = 'FDIT'
      x = -36.946329
      y = 36.946329
      z = 21.83
      irot = 3884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3885
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 131
      chmoth = 'FDIT'
      x = -45.249827
      y = 26.125
      z = 21.83
      irot = 3885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3886
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 132
      chmoth = 'FDIT'
      x = -50.469624
      y = 13.523295
      z = 21.83
      irot = 3886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 133
      chmoth = 'FDIT'
      x = -52.25
      y = 6.3987795e-15
      z = 21.83
      irot = 3887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3888
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 134
      chmoth = 'FDIT'
      x = -50.469624
      y = -13.523295
      z = 21.83
      irot = 3888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3889
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 135
      chmoth = 'FDIT'
      x = -45.249827
      y = -26.125
      z = 21.83
      irot = 3889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 136
      chmoth = 'FDIT'
      x = -36.946329
      y = -36.946329
      z = 21.83
      irot = 3890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 137
      chmoth = 'FDIT'
      x = -26.125
      y = -45.249827
      z = 21.83
      irot = 3891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 138
      chmoth = 'FDIT'
      x = -13.523295
      y = -50.469624
      z = 21.83
      irot = 3892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 139
      chmoth = 'FDIT'
      x = -9.5981693e-15
      y = -52.25
      z = 21.83
      irot = 3893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 140
      chmoth = 'FDIT'
      x = 13.523295
      y = -50.469624
      z = 21.83
      irot = 3894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 141
      chmoth = 'FDIT'
      x = 26.125
      y = -45.249827
      z = 21.83
      irot = 3895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 142
      chmoth = 'FDIT'
      x = 36.946329
      y = -36.946329
      z = 21.83
      irot = 3896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 143
      chmoth = 'FDIT'
      x = 45.249827
      y = -26.125
      z = 21.83
      irot = 3897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 144
      chmoth = 'FDIT'
      x = 50.469624
      y = -13.523295
      z = 21.83
      irot = 3898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRU'
      nr = 145
      chmoth = 'FDIT'
      x = 52.25
      y = 0
      z = 21.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 146
      chmoth = 'FDIT'
      x = 50.469624
      y = 13.523295
      z = 21.83
      irot = 3899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3900
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 147
      chmoth = 'FDIT'
      x = 45.249827
      y = 26.125
      z = 21.83
      irot = 3900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 148
      chmoth = 'FDIT'
      x = 36.946329
      y = 36.946329
      z = 21.83
      irot = 3901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3902
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 149
      chmoth = 'FDIT'
      x = 26.125
      y = 45.249827
      z = 21.83
      irot = 3902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3903
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 150
      chmoth = 'FDIT'
      x = 13.523295
      y = 50.469624
      z = 21.83
      irot = 3903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 151
      chmoth = 'FDIT'
      x = 3.1993898e-15
      y = 52.25
      z = 21.83
      irot = 3904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3905
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 152
      chmoth = 'FDIT'
      x = -13.523295
      y = 50.469624
      z = 21.83
      irot = 3905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3906
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 153
      chmoth = 'FDIT'
      x = -26.125
      y = 45.249827
      z = 21.83
      irot = 3906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 154
      chmoth = 'FDIT'
      x = -36.946329
      y = 36.946329
      z = 21.83
      irot = 3907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3908
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 155
      chmoth = 'FDIT'
      x = -45.249827
      y = 26.125
      z = 21.83
      irot = 3908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3909
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 156
      chmoth = 'FDIT'
      x = -50.469624
      y = 13.523295
      z = 21.83
      irot = 3909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 157
      chmoth = 'FDIT'
      x = -52.25
      y = 6.3987795e-15
      z = 21.83
      irot = 3910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3911
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 158
      chmoth = 'FDIT'
      x = -50.469624
      y = -13.523295
      z = 21.83
      irot = 3911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3912
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 159
      chmoth = 'FDIT'
      x = -45.249827
      y = -26.125
      z = 21.83
      irot = 3912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 160
      chmoth = 'FDIT'
      x = -36.946329
      y = -36.946329
      z = 21.83
      irot = 3913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 161
      chmoth = 'FDIT'
      x = -26.125
      y = -45.249827
      z = 21.83
      irot = 3914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 162
      chmoth = 'FDIT'
      x = -13.523295
      y = -50.469624
      z = 21.83
      irot = 3915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 163
      chmoth = 'FDIT'
      x = -9.5981693e-15
      y = -52.25
      z = 21.83
      irot = 3916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 164
      chmoth = 'FDIT'
      x = 13.523295
      y = -50.469624
      z = 21.83
      irot = 3917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 165
      chmoth = 'FDIT'
      x = 26.125
      y = -45.249827
      z = 21.83
      irot = 3918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 166
      chmoth = 'FDIT'
      x = 36.946329
      y = -36.946329
      z = 21.83
      irot = 3919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 167
      chmoth = 'FDIT'
      x = 45.249827
      y = -26.125
      z = 21.83
      irot = 3920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 168
      chmoth = 'FDIT'
      x = 50.469624
      y = -13.523295
      z = 21.83
      irot = 3921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 300
      natmed = 'FDIX 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 = 'FDIX'
      chshap = 'TUBE'
      nmed = 300
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 12.28
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.321) stop 'consistency check #1 failed'

      chname = 'FDIX'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 48.4324
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXM'
      nr = 3
      chmoth = 'FDIX'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCR'
      nr = 7
      chmoth = 'FDIX'
      x = 0
      y = 0
      z = -12.18
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGU'
      nr = 7
      chmoth = 'FDIX'
      x = 0
      y = 0
      z = -11.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGV'
      nr = 7
      chmoth = 'FDIX'
      x = 0
      y = 0
      z = -11.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCR'
      nr = 8
      chmoth = 'FDIX'
      x = 0
      y = 0
      z = 12.18
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGU'
      nr = 8
      chmoth = 'FDIX'
      x = 0
      y = 0
      z = 11.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDGV'
      nr = 8
      chmoth = 'FDIX'
      x = 0
      y = 0
      z = 11.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDML'
      nr = 5
      chmoth = 'FDIX'
      x = 0
      y = 0
      z = 12.27935
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 301
      natmed = 'FDZL FR-4'
      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 = 'FDZL'
      chshap = 'TUBE'
      nmed = 301
      npar = 3
      par(1) = 0.7838
      par(2) = 0.889
      par(3) = 12.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.322) stop 'consistency check #1 failed'

      chname = 'FDZL'
      nr = 1
      chmoth = 'FDIX'
      x = 52.25
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDZL'
      nr = 2
      chmoth = 'FDIX'
      x = 3.1993898e-15
      y = 52.25
      z = 0
      irot = 3922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDZL'
      nr = 3
      chmoth = 'FDIX'
      x = -52.25
      y = 6.3987795e-15
      z = 0
      irot = 3923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDZL'
      nr = 4
      chmoth = 'FDIX'
      x = -9.5981693e-15
      y = -52.25
      z = 0
      irot = 3924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 145
      chmoth = 'FDIX'
      x = 52.25
      y = 0
      z = -11.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 146
      chmoth = 'FDIX'
      x = 50.469624
      y = 13.523295
      z = -11.83
      irot = 3925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3926
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 147
      chmoth = 'FDIX'
      x = 45.249827
      y = 26.125
      z = -11.83
      irot = 3926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 148
      chmoth = 'FDIX'
      x = 36.946329
      y = 36.946329
      z = -11.83
      irot = 3927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3928
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 149
      chmoth = 'FDIX'
      x = 26.125
      y = 45.249827
      z = -11.83
      irot = 3928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3929
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 150
      chmoth = 'FDIX'
      x = 13.523295
      y = 50.469624
      z = -11.83
      irot = 3929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 151
      chmoth = 'FDIX'
      x = 3.1993898e-15
      y = 52.25
      z = -11.83
      irot = 3930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3931
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 152
      chmoth = 'FDIX'
      x = -13.523295
      y = 50.469624
      z = -11.83
      irot = 3931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3932
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 153
      chmoth = 'FDIX'
      x = -26.125
      y = 45.249827
      z = -11.83
      irot = 3932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 154
      chmoth = 'FDIX'
      x = -36.946329
      y = 36.946329
      z = -11.83
      irot = 3933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3934
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 155
      chmoth = 'FDIX'
      x = -45.249827
      y = 26.125
      z = -11.83
      irot = 3934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3935
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 156
      chmoth = 'FDIX'
      x = -50.469624
      y = 13.523295
      z = -11.83
      irot = 3935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 157
      chmoth = 'FDIX'
      x = -52.25
      y = 6.3987795e-15
      z = -11.83
      irot = 3936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3937
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 158
      chmoth = 'FDIX'
      x = -50.469624
      y = -13.523295
      z = -11.83
      irot = 3937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3938
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 159
      chmoth = 'FDIX'
      x = -45.249827
      y = -26.125
      z = -11.83
      irot = 3938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 160
      chmoth = 'FDIX'
      x = -36.946329
      y = -36.946329
      z = -11.83
      irot = 3939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 161
      chmoth = 'FDIX'
      x = -26.125
      y = -45.249827
      z = -11.83
      irot = 3940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 162
      chmoth = 'FDIX'
      x = -13.523295
      y = -50.469624
      z = -11.83
      irot = 3941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 163
      chmoth = 'FDIX'
      x = -9.5981693e-15
      y = -52.25
      z = -11.83
      irot = 3942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 164
      chmoth = 'FDIX'
      x = 13.523295
      y = -50.469624
      z = -11.83
      irot = 3943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 165
      chmoth = 'FDIX'
      x = 26.125
      y = -45.249827
      z = -11.83
      irot = 3944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 166
      chmoth = 'FDIX'
      x = 36.946329
      y = -36.946329
      z = -11.83
      irot = 3945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 167
      chmoth = 'FDIX'
      x = 45.249827
      y = -26.125
      z = -11.83
      irot = 3946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 168
      chmoth = 'FDIX'
      x = 50.469624
      y = -13.523295
      z = -11.83
      irot = 3947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRU'
      nr = 169
      chmoth = 'FDIX'
      x = 52.25
      y = 0
      z = -11.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 170
      chmoth = 'FDIX'
      x = 50.469624
      y = 13.523295
      z = -11.83
      irot = 3948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3949
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 171
      chmoth = 'FDIX'
      x = 45.249827
      y = 26.125
      z = -11.83
      irot = 3949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 172
      chmoth = 'FDIX'
      x = 36.946329
      y = 36.946329
      z = -11.83
      irot = 3950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3951
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 173
      chmoth = 'FDIX'
      x = 26.125
      y = 45.249827
      z = -11.83
      irot = 3951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3952
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 174
      chmoth = 'FDIX'
      x = 13.523295
      y = 50.469624
      z = -11.83
      irot = 3952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 175
      chmoth = 'FDIX'
      x = 3.1993898e-15
      y = 52.25
      z = -11.83
      irot = 3953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3954
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 176
      chmoth = 'FDIX'
      x = -13.523295
      y = 50.469624
      z = -11.83
      irot = 3954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3955
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 177
      chmoth = 'FDIX'
      x = -26.125
      y = 45.249827
      z = -11.83
      irot = 3955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 178
      chmoth = 'FDIX'
      x = -36.946329
      y = 36.946329
      z = -11.83
      irot = 3956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3957
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 179
      chmoth = 'FDIX'
      x = -45.249827
      y = 26.125
      z = -11.83
      irot = 3957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3958
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 180
      chmoth = 'FDIX'
      x = -50.469624
      y = 13.523295
      z = -11.83
      irot = 3958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 181
      chmoth = 'FDIX'
      x = -52.25
      y = 6.3987795e-15
      z = -11.83
      irot = 3959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3960
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 182
      chmoth = 'FDIX'
      x = -50.469624
      y = -13.523295
      z = -11.83
      irot = 3960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3961
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 183
      chmoth = 'FDIX'
      x = -45.249827
      y = -26.125
      z = -11.83
      irot = 3961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 184
      chmoth = 'FDIX'
      x = -36.946329
      y = -36.946329
      z = -11.83
      irot = 3962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 185
      chmoth = 'FDIX'
      x = -26.125
      y = -45.249827
      z = -11.83
      irot = 3963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 186
      chmoth = 'FDIX'
      x = -13.523295
      y = -50.469624
      z = -11.83
      irot = 3964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 187
      chmoth = 'FDIX'
      x = -9.5981693e-15
      y = -52.25
      z = -11.83
      irot = 3965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 188
      chmoth = 'FDIX'
      x = 13.523295
      y = -50.469624
      z = -11.83
      irot = 3966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 189
      chmoth = 'FDIX'
      x = 26.125
      y = -45.249827
      z = -11.83
      irot = 3967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 190
      chmoth = 'FDIX'
      x = 36.946329
      y = -36.946329
      z = -11.83
      irot = 3968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 191
      chmoth = 'FDIX'
      x = 45.249827
      y = -26.125
      z = -11.83
      irot = 3969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 192
      chmoth = 'FDIX'
      x = 50.469624
      y = -13.523295
      z = -11.83
      irot = 3970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 169
      chmoth = 'FDIX'
      x = 52.25
      y = 0
      z = 11.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 170
      chmoth = 'FDIX'
      x = 50.469624
      y = 13.523295
      z = 11.83
      irot = 3971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3972
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 171
      chmoth = 'FDIX'
      x = 45.249827
      y = 26.125
      z = 11.83
      irot = 3972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 172
      chmoth = 'FDIX'
      x = 36.946329
      y = 36.946329
      z = 11.83
      irot = 3973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3974
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 173
      chmoth = 'FDIX'
      x = 26.125
      y = 45.249827
      z = 11.83
      irot = 3974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3975
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 174
      chmoth = 'FDIX'
      x = 13.523295
      y = 50.469624
      z = 11.83
      irot = 3975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 175
      chmoth = 'FDIX'
      x = 3.1993898e-15
      y = 52.25
      z = 11.83
      irot = 3976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3977
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 176
      chmoth = 'FDIX'
      x = -13.523295
      y = 50.469624
      z = 11.83
      irot = 3977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3978
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 177
      chmoth = 'FDIX'
      x = -26.125
      y = 45.249827
      z = 11.83
      irot = 3978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 178
      chmoth = 'FDIX'
      x = -36.946329
      y = 36.946329
      z = 11.83
      irot = 3979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3980
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 179
      chmoth = 'FDIX'
      x = -45.249827
      y = 26.125
      z = 11.83
      irot = 3980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3981
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 180
      chmoth = 'FDIX'
      x = -50.469624
      y = 13.523295
      z = 11.83
      irot = 3981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 181
      chmoth = 'FDIX'
      x = -52.25
      y = 6.3987795e-15
      z = 11.83
      irot = 3982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3983
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 182
      chmoth = 'FDIX'
      x = -50.469624
      y = -13.523295
      z = 11.83
      irot = 3983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3984
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 183
      chmoth = 'FDIX'
      x = -45.249827
      y = -26.125
      z = 11.83
      irot = 3984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 184
      chmoth = 'FDIX'
      x = -36.946329
      y = -36.946329
      z = 11.83
      irot = 3985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 185
      chmoth = 'FDIX'
      x = -26.125
      y = -45.249827
      z = 11.83
      irot = 3986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 186
      chmoth = 'FDIX'
      x = -13.523295
      y = -50.469624
      z = 11.83
      irot = 3987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 187
      chmoth = 'FDIX'
      x = -9.5981693e-15
      y = -52.25
      z = 11.83
      irot = 3988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 188
      chmoth = 'FDIX'
      x = 13.523295
      y = -50.469624
      z = 11.83
      irot = 3989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 189
      chmoth = 'FDIX'
      x = 26.125
      y = -45.249827
      z = 11.83
      irot = 3990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 190
      chmoth = 'FDIX'
      x = 36.946329
      y = -36.946329
      z = 11.83
      irot = 3991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 191
      chmoth = 'FDIX'
      x = 45.249827
      y = -26.125
      z = 11.83
      irot = 3992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDXN'
      nr = 192
      chmoth = 'FDIX'
      x = 50.469624
      y = -13.523295
      z = 11.83
      irot = 3993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRU'
      nr = 193
      chmoth = 'FDIX'
      x = 52.25
      y = 0
      z = 11.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 194
      chmoth = 'FDIX'
      x = 50.469624
      y = 13.523295
      z = 11.83
      irot = 3994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3995
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 195
      chmoth = 'FDIX'
      x = 45.249827
      y = 26.125
      z = 11.83
      irot = 3995
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 196
      chmoth = 'FDIX'
      x = 36.946329
      y = 36.946329
      z = 11.83
      irot = 3996
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3997
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 197
      chmoth = 'FDIX'
      x = 26.125
      y = 45.249827
      z = 11.83
      irot = 3997
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3998
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 198
      chmoth = 'FDIX'
      x = 13.523295
      y = 50.469624
      z = 11.83
      irot = 3998
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 199
      chmoth = 'FDIX'
      x = 3.1993898e-15
      y = 52.25
      z = 11.83
      irot = 3999
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4000
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 200
      chmoth = 'FDIX'
      x = -13.523295
      y = 50.469624
      z = 11.83
      irot = 4000
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4001
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 201
      chmoth = 'FDIX'
      x = -26.125
      y = 45.249827
      z = 11.83
      irot = 4001
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 202
      chmoth = 'FDIX'
      x = -36.946329
      y = 36.946329
      z = 11.83
      irot = 4002
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4003
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 203
      chmoth = 'FDIX'
      x = -45.249827
      y = 26.125
      z = 11.83
      irot = 4003
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4004
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 204
      chmoth = 'FDIX'
      x = -50.469624
      y = 13.523295
      z = 11.83
      irot = 4004
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 205
      chmoth = 'FDIX'
      x = -52.25
      y = 6.3987795e-15
      z = 11.83
      irot = 4005
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4006
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 206
      chmoth = 'FDIX'
      x = -50.469624
      y = -13.523295
      z = 11.83
      irot = 4006
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4007
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDRU'
      nr = 207
      chmoth = 'FDIX'
      x = -45.249827
      y = -26.125
      z = 11.83
      irot = 4007
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 208
      chmoth = 'FDIX'
      x = -36.946329
      y = -36.946329
      z = 11.83
      irot = 4008
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 209
      chmoth = 'FDIX'
      x = -26.125
      y = -45.249827
      z = 11.83
      irot = 4009
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 210
      chmoth = 'FDIX'
      x = -13.523295
      y = -50.469624
      z = 11.83
      irot = 4010
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 211
      chmoth = 'FDIX'
      x = -9.5981693e-15
      y = -52.25
      z = 11.83
      irot = 4011
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 212
      chmoth = 'FDIX'
      x = 13.523295
      y = -50.469624
      z = 11.83
      irot = 4012
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 213
      chmoth = 'FDIX'
      x = 26.125
      y = -45.249827
      z = 11.83
      irot = 4013
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 214
      chmoth = 'FDIX'
      x = 36.946329
      y = -36.946329
      z = 11.83
      irot = 4014
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 215
      chmoth = 'FDIX'
      x = 45.249827
      y = -26.125
      z = 11.83
      irot = 4015
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRU'
      nr = 216
      chmoth = 'FDIX'
      x = 50.469624
      y = -13.523295
      z = 11.83
      irot = 4016
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 302
      natmed = 'FDE1 SignalCables'
      nmat = 38
      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 = 'FDE1'
      chshap = 'PCON'
      nmed = 302
      npar = 30
      par(1) = 0
      par(2) = 360
      par(3) = 9
      par(4) = -247.73
      par(5) = 137.21
      par(6) = 137.21
      par(7) = -247.62
      par(8) = 135.94
      par(9) = 137.22
      par(10) = -247.25
      par(11) = 86
      par(12) = 87.27
      par(13) = -247.14
      par(14) = 85.81
      par(15) = 86.03
      par(16) = -238.4
      par(17) = 77.6
      par(18) = 77.82
      par(19) = -238.32
      par(20) = 77.55
      par(21) = 77.68
      par(22) = -190.66
      par(23) = 61
      par(24) = 61.13
      par(25) = -190.63
      par(26) = 61
      par(27) = 61.11
      par(28) = 3
      par(29) = 61
      par(30) = 61.11
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.323) stop 'consistency check #1 failed'

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

      itmed = 303
      natmed = 'FDE2 SignalCables'
      nmat = 38
      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 = 'FDE2'
      chshap = 'PCON'
      nmed = 303
      npar = 30
      par(1) = 0
      par(2) = 360
      par(3) = 9
      par(4) = -247.23
      par(5) = 137.25
      par(6) = 137.25
      par(7) = -247.12
      par(8) = 136
      par(9) = 137.26
      par(10) = -246.76
      par(11) = 86.15
      par(12) = 87.41
      par(13) = -246.66
      par(14) = 85.97
      par(15) = 86.18
      par(16) = -238.04
      par(17) = 77.96
      par(18) = 78.18
      par(19) = -237.96
      par(20) = 77.92
      par(21) = 78.04
      par(22) = -190.52
      par(23) = 61.5
      par(24) = 61.63
      par(25) = -190.49
      par(26) = 61.5
      par(27) = 61.61
      par(28) = 61
      par(29) = 61.5
      par(30) = 61.61
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.324) stop 'consistency check #1 failed'

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

      itmed = 304
      natmed = 'FDE3 SignalCables'
      nmat = 38
      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 = 'FDE3'
      chshap = 'PCON'
      nmed = 304
      npar = 30
      par(1) = 0
      par(2) = 360
      par(3) = 9
      par(4) = -246.74
      par(5) = 137.29
      par(6) = 137.29
      par(7) = -246.63
      par(8) = 136.05
      par(9) = 137.3
      par(10) = -246.28
      par(11) = 86.31
      par(12) = 87.56
      par(13) = -246.17
      par(14) = 85.12
      par(15) = 86.34
      par(16) = -237.67
      par(17) = 77.33
      par(18) = 78.55
      par(19) = -237.59
      par(20) = 77.28
      par(21) = 78.41
      par(22) = -190.39
      par(23) = 62
      par(24) = 62.13
      par(25) = -190.36
      par(26) = 62
      par(27) = 62.11
      par(28) = 119
      par(29) = 62
      par(30) = 62.11
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.325) stop 'consistency check #1 failed'

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

      itmed = 305
      natmed = 'FDE4 SignalCables'
      nmat = 38
      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 = 'FDE4'
      chshap = 'PCON'
      nmed = 305
      npar = 30
      par(1) = 0
      par(2) = 360
      par(3) = 9
      par(4) = -246.24
      par(5) = 137.34
      par(6) = 137.34
      par(7) = -246.13
      par(8) = 136.11
      par(9) = 137.35
      par(10) = -245.79
      par(11) = 86.46
      par(12) = 87.7
      par(13) = -245.68
      par(14) = 86.28
      par(15) = 86.49
      par(16) = -237.3
      par(17) = 78.7
      par(18) = 78.91
      par(19) = -237.23
      par(20) = 78.65
      par(21) = 78.77
      par(22) = -190.25
      par(23) = 62.5
      par(24) = 62.62
      par(25) = -190.22
      par(26) = 62.5
      par(27) = 62.61
      par(28) = 177
      par(29) = 62.5
      par(30) = 62.61
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.326) stop 'consistency check #1 failed'

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

      itmed = 306
      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 = 306
      npar = 3
      par(1) = 61.76
      par(2) = 89.347
      par(3) = 220
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.327) 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 = 'SD06'
      chmoth = 'BCAL'
      ndiv = 48
      iaxis = 2
      step = 7.5
      c0 = -4.4408921e-16
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 307
      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 = 307
      npar = 5
      par(1) = 61.76
      par(2) = 89.347
      par(3) = 220
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.329) stop 'consistency check #1 failed'

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

      itmed = 308
      natmed = 'BCL0 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 = 'BCL0'
      chshap = 'TUBS'
      nmed = 308
      npar = 5
      par(1) = 63.5
      par(2) = 64.3
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.330) stop 'consistency check #1 failed'

      chname = 'BCL0'
      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 = 309
      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 = 309
      npar = 5
      par(1) = 64.3
      par(2) = 66.3
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.331) 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 = 'SD07'
      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 = 310
      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 = 310
      npar = 5
      par(1) = 64.3
      par(2) = 66.3
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.333) stop 'consistency check #1 failed'

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

      imate = 78
      namate = 'BCF-12'
      wmat(1) = 8
      call gfmate(13,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)
      dens = 1.049
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 79
      namate = 'BC600epoxy'
      wmat(1) = 60
      call gfmate(13,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.18
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 77
      namate = 'leadScint'
      wmat(1) = 0.1036
      call gfmate(78,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.8619
      call gfmate(19,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.0345
      call gfmate(79,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 4.87
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 311
      natmed = 'BM01 leadScint'
      nmat = 77
      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 = 'BM01'
      chshap = 'TUBS'
      nmed = 311
      npar = 5
      par(1) = 64.3
      par(2) = 66.3
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.334) stop 'consistency check #1 failed'

      chname = 'BM01'
      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 = 312
      natmed = 'BCN1 Plexiglas'
      nmat = 54
      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 = 312
      npar = 11
      par(1) = 4
      par(2) = 0
      par(3) = 0
      par(4) = 1.0287
      par(5) = 1.05
      par(6) = 1.05
      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.335) stop 'consistency check #1 failed'

      chname = 'BCN1'
      nr = 1
      chmoth = 'BCS1'
      x = 65.3
      y = 0
      z = 199
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4017
      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 = 65.3
      y = 0
      z = -199
      irot = 4017
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 313
      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 = 313
      npar = 5
      par(1) = 66.3
      par(2) = 68.3
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.336) 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 = 'SD08'
      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 = 314
      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 = 314
      npar = 5
      par(1) = 66.3
      par(2) = 68.3
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.338) stop 'consistency check #1 failed'

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

      itmed = 315
      natmed = 'BM02 leadScint'
      nmat = 77
      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 = 'BM02'
      chshap = 'TUBS'
      nmed = 315
      npar = 5
      par(1) = 66.3
      par(2) = 68.3
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.339) stop 'consistency check #1 failed'

      chname = 'BM02'
      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 = 316
      natmed = 'BCN2 Plexiglas'
      nmat = 54
      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 = 316
      npar = 11
      par(1) = 4
      par(2) = 0
      par(3) = 0
      par(4) = 1.0287
      par(5) = 1.08
      par(6) = 1.08
      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.340) stop 'consistency check #1 failed'

      chname = 'BCN2'
      nr = 1
      chmoth = 'BCS2'
      x = 67.3
      y = 0
      z = 199
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4018
      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 = 67.3
      y = 0
      z = -199
      irot = 4018
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 317
      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 = 317
      npar = 5
      par(1) = 68.3
      par(2) = 70.3
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.341) 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 = 'SD09'
      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 = 318
      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 = 318
      npar = 5
      par(1) = 68.3
      par(2) = 70.3
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.343) stop 'consistency check #1 failed'

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

      itmed = 319
      natmed = 'BM03 leadScint'
      nmat = 77
      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 = 'BM03'
      chshap = 'TUBS'
      nmed = 319
      npar = 5
      par(1) = 68.3
      par(2) = 70.3
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.344) stop 'consistency check #1 failed'

      chname = 'BM03'
      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 = 320
      natmed = 'BCN3 Plexiglas'
      nmat = 54
      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 = 320
      npar = 11
      par(1) = 4.005
      par(2) = 0
      par(3) = 0
      par(4) = 1.0287
      par(5) = 1.1
      par(6) = 1.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.345) stop 'consistency check #1 failed'

      chname = 'BCN3'
      nr = 1
      chmoth = 'BCS3'
      x = 69.3
      y = 0
      z = 199
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4019
      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 = 69.3
      y = 0
      z = -199
      irot = 4019
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 321
      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 = 321
      npar = 5
      par(1) = 70.3
      par(2) = 72.3
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.346) 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 = 'SD0A'
      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 = 322
      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 = 322
      npar = 5
      par(1) = 70.3
      par(2) = 72.3
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.348) stop 'consistency check #1 failed'

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

      itmed = 323
      natmed = 'BM04 leadScint'
      nmat = 77
      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 = 'BM04'
      chshap = 'TUBS'
      nmed = 323
      npar = 5
      par(1) = 70.3
      par(2) = 72.3
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.349) stop 'consistency check #1 failed'

      chname = 'BM04'
      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 = 324
      natmed = 'BCN4 Plexiglas'
      nmat = 54
      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 = 324
      npar = 11
      par(1) = 4
      par(2) = 0
      par(3) = 0
      par(4) = 1.0287
      par(5) = 1.15
      par(6) = 1.15
      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.350) stop 'consistency check #1 failed'

      chname = 'BCN4'
      nr = 1
      chmoth = 'BCS4'
      x = 71.3
      y = 0
      z = 199
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4020
      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 = 71.3
      y = 0
      z = -199
      irot = 4020
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 325
      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 = 325
      npar = 5
      par(1) = 72.3
      par(2) = 74.3
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.351) 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 = 'SD0B'
      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 = 326
      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 = 326
      npar = 5
      par(1) = 72.3
      par(2) = 74.3
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.353) stop 'consistency check #1 failed'

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

      itmed = 327
      natmed = 'BM05 leadScint'
      nmat = 77
      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 = 'BM05'
      chshap = 'TUBS'
      nmed = 327
      npar = 5
      par(1) = 72.3
      par(2) = 74.3
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.354) stop 'consistency check #1 failed'

      chname = 'BM05'
      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 = 328
      natmed = 'BCN5 Plexiglas'
      nmat = 54
      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 = 328
      npar = 11
      par(1) = 4
      par(2) = 0
      par(3) = 0
      par(4) = 1.0287
      par(5) = 1.18
      par(6) = 1.18
      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.355) stop 'consistency check #1 failed'

      chname = 'BCN5'
      nr = 1
      chmoth = 'BCS5'
      x = 73.3
      y = 0
      z = 199
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4021
      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 = 73.3
      y = 0
      z = -199
      irot = 4021
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 329
      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 = 329
      npar = 5
      par(1) = 74.3
      par(2) = 76.3
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.356) 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 = 'SD0C'
      chmoth = 'BCL6'
      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 = 330
      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 = 330
      npar = 5
      par(1) = 74.3
      par(2) = 76.3
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.358) stop 'consistency check #1 failed'

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

      itmed = 331
      natmed = 'BM06 leadScint'
      nmat = 77
      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 = 'BM06'
      chshap = 'TUBS'
      nmed = 331
      npar = 5
      par(1) = 74.3
      par(2) = 76.3
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.359) stop 'consistency check #1 failed'

      chname = 'BM06'
      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 = 332
      natmed = 'BCN6 Plexiglas'
      nmat = 54
      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 = 332
      npar = 11
      par(1) = 4
      par(2) = 0
      par(3) = 0
      par(4) = 1.0287
      par(5) = 1.2
      par(6) = 1.2
      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.360) stop 'consistency check #1 failed'

      chname = 'BCN6'
      nr = 1
      chmoth = 'BCS6'
      x = 75.3
      y = 0
      z = 199
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4022
      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 = 75.3
      y = 0
      z = -199
      irot = 4022
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 333
      natmed = 'BCK7 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 = 'BCK7'
      chshap = 'TUBS'
      nmed = 333
      npar = 5
      par(1) = 76.3
      par(2) = 78.768
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.361) stop 'consistency check #1 failed'

      chname = 'BCK7'
      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 = 'SD0D'
      chmoth = 'BCK7'
      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 = 334
      natmed = 'BCA7 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 = 'BCA7'
      chshap = 'TUBS'
      nmed = 334
      npar = 5
      par(1) = 76.3
      par(2) = 78.768
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.363) stop 'consistency check #1 failed'

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

      itmed = 335
      natmed = 'BMF7 leadScint'
      nmat = 77
      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 = 'BMF7'
      chshap = 'TUBS'
      nmed = 335
      npar = 5
      par(1) = 76.3
      par(2) = 78.768
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.364) stop 'consistency check #1 failed'

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

      itmed = 336
      natmed = 'BCO7 Plexiglas'
      nmat = 54
      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 = 'BCO7'
      chshap = 'TRAP'
      nmed = 336
      npar = 11
      par(1) = 4
      par(2) = 0
      par(3) = 0
      par(4) = 1.2319
      par(5) = 1.245
      par(6) = 1.245
      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.365) stop 'consistency check #1 failed'

      chname = 'BCO7'
      nr = 1
      chmoth = 'BCA7'
      x = 77.534
      y = 0
      z = 199
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BCO7'
      nr = 2
      chmoth = 'BCA7'
      x = 77.534
      y = 0
      z = -199
      irot = 4023
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 337
      natmed = 'BCK8 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 = 'BCK8'
      chshap = 'TUBS'
      nmed = 337
      npar = 5
      par(1) = 78.768
      par(2) = 81.236
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.366) stop 'consistency check #1 failed'

      chname = 'BCK8'
      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 = 'SD0E'
      chmoth = 'BCK8'
      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 = 338
      natmed = 'BCA8 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 = 'BCA8'
      chshap = 'TUBS'
      nmed = 338
      npar = 5
      par(1) = 78.768
      par(2) = 81.236
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.368) stop 'consistency check #1 failed'

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

      itmed = 339
      natmed = 'BMF8 leadScint'
      nmat = 77
      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 = 'BMF8'
      chshap = 'TUBS'
      nmed = 339
      npar = 5
      par(1) = 78.768
      par(2) = 81.236
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.369) stop 'consistency check #1 failed'

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

      itmed = 340
      natmed = 'BCO8 Plexiglas'
      nmat = 54
      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 = 'BCO8'
      chshap = 'TRAP'
      nmed = 340
      npar = 11
      par(1) = 4
      par(2) = 0
      par(3) = 0
      par(4) = 1.2319
      par(5) = 1.285
      par(6) = 1.285
      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.370) stop 'consistency check #1 failed'

      chname = 'BCO8'
      nr = 1
      chmoth = 'BCA8'
      x = 80.002
      y = 0
      z = 199
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BCO8'
      nr = 2
      chmoth = 'BCA8'
      x = 80.002
      y = 0
      z = -199
      irot = 4024
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 341
      natmed = 'BCK9 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 = 'BCK9'
      chshap = 'TUBS'
      nmed = 341
      npar = 5
      par(1) = 81.236
      par(2) = 83.704
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.371) stop 'consistency check #1 failed'

      chname = 'BCK9'
      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 = 'SD0F'
      chmoth = 'BCK9'
      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 = 342
      natmed = 'BCA9 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 = 'BCA9'
      chshap = 'TUBS'
      nmed = 342
      npar = 5
      par(1) = 81.236
      par(2) = 83.704
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.373) stop 'consistency check #1 failed'

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

      itmed = 343
      natmed = 'BMF9 leadScint'
      nmat = 77
      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 = 'BMF9'
      chshap = 'TUBS'
      nmed = 343
      npar = 5
      par(1) = 81.236
      par(2) = 83.704
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.374) stop 'consistency check #1 failed'

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

      itmed = 344
      natmed = 'BCO9 Plexiglas'
      nmat = 54
      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 = 'BCO9'
      chshap = 'TRAP'
      nmed = 344
      npar = 11
      par(1) = 4
      par(2) = 0
      par(3) = 0
      par(4) = 1.2319
      par(5) = 1.325
      par(6) = 1.325
      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.375) stop 'consistency check #1 failed'

      chname = 'BCO9'
      nr = 1
      chmoth = 'BCA9'
      x = 82.47
      y = 0
      z = 199
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BCO9'
      nr = 2
      chmoth = 'BCA9'
      x = 82.47
      y = 0
      z = -199
      irot = 4025
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 345
      natmed = 'BCKA 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 = 'BCKA'
      chshap = 'TUBS'
      nmed = 345
      npar = 5
      par(1) = 83.704
      par(2) = 86.172
      par(3) = 210
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.376) stop 'consistency check #1 failed'

      chname = 'BCKA'
      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 = 'SD10'
      chmoth = 'BCKA'
      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 = 346
      natmed = 'BCAA 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 = 'BCAA'
      chshap = 'TUBS'
      nmed = 346
      npar = 5
      par(1) = 83.704
      par(2) = 86.172
      par(3) = 210
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.378) stop 'consistency check #1 failed'

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

      itmed = 347
      natmed = 'BMFA leadScint'
      nmat = 77
      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 = 'BMFA'
      chshap = 'TUBS'
      nmed = 347
      npar = 5
      par(1) = 83.704
      par(2) = 86.172
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.379) stop 'consistency check #1 failed'

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

      itmed = 348
      natmed = 'BCOA Plexiglas'
      nmat = 54
      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 = 'BCOA'
      chshap = 'TRAP'
      nmed = 348
      npar = 11
      par(1) = 4
      par(2) = 0
      par(3) = 0
      par(4) = 1.2319
      par(5) = 1.365
      par(6) = 1.365
      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.380) stop 'consistency check #1 failed'

      chname = 'BCOA'
      nr = 1
      chmoth = 'BCAA'
      x = 84.938
      y = 0
      z = 199
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BCOA'
      nr = 2
      chmoth = 'BCAA'
      x = 84.938
      y = 0
      z = -199
      irot = 4026
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 349
      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 = 349
      npar = 5
      par(1) = 86.172
      par(2) = 89.347
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.381) 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 = 350
      natmed = 'ROUT 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 = 'ROUT'
      chshap = 'TRAP'
      nmed = 350
      npar = 11
      par(1) = 12.8
      par(2) = 0
      par(3) = 0
      par(4) = 4.1795
      par(5) = 8
      par(6) = 8
      par(7) = 0
      par(8) = 5.68706
      par(9) = 8
      par(10) = 8
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.382) stop 'consistency check #1 failed'

      irot = 4027
      theta1 = 3.5083546e-15
      phi1 = -90
      theta2 = 90
      phi2 = -90
      theta3 = 90
      phi3 = 7.0167093e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ROUT'
      nr = 1
      chmoth = 'BCAM'
      x = 76.4235
      y = 0
      z = 202
      irot = 4027
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 351
      natmed = 'ALPL 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 = 'ALPL'
      chshap = 'TRAP'
      nmed = 351
      npar = 11
      par(1) = 12.8
      par(2) = 0
      par(3) = 0
      par(4) = 4.1795
      par(5) = 0.2375
      par(6) = 0.2375
      par(7) = 0
      par(8) = 5.68706
      par(9) = 0.2375
      par(10) = 0.2375
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.383) stop 'consistency check #1 failed'

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

      itmed = 352
      natmed = 'PMHO FR-4'
      nmat = 26
      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 = 'PMHO'
      chshap = 'TRAP'
      nmed = 352
      npar = 11
      par(1) = 12.8
      par(2) = 0
      par(3) = 0
      par(4) = 4.1795
      par(5) = 0.2375
      par(6) = 0.2375
      par(7) = 0
      par(8) = 5.68706
      par(9) = 0.2375
      par(10) = 0.2375
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.384) stop 'consistency check #1 failed'

      chname = 'PMHO'
      nr = 1
      chmoth = 'ROUT'
      x = 1.245
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 353
      natmed = 'CUPL Copper'
      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 = 'CUPL'
      chshap = 'TRAP'
      nmed = 353
      npar = 11
      par(1) = 12.8
      par(2) = 0
      par(3) = 0
      par(4) = 4.1795
      par(5) = 0.45
      par(6) = 0.45
      par(7) = 0
      par(8) = 5.68706
      par(9) = 0.45
      par(10) = 0.45
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.385) stop 'consistency check #1 failed'

      chname = 'CUPL'
      nr = 1
      chmoth = 'ROUT'
      x = 1.9325
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 354
      natmed = 'PCB2 FR-4'
      nmat = 26
      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 = 'PCB2'
      chshap = 'TRAP'
      nmed = 354
      npar = 11
      par(1) = 12.8
      par(2) = 0
      par(3) = 0
      par(4) = 4.1795
      par(5) = 0.11811
      par(6) = 0.11811
      par(7) = 0
      par(8) = 5.68706
      par(9) = 0.11811
      par(10) = 0.11811
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.386) stop 'consistency check #1 failed'

      chname = 'PCB2'
      nr = 1
      chmoth = 'ROUT'
      x = 3.14
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 355
      natmed = 'COTR 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 = 'COTR'
      chshap = 'TRAP'
      nmed = 355
      npar = 11
      par(1) = 12.8
      par(2) = 0
      par(3) = 0
      par(4) = 4.1795
      par(5) = 2
      par(6) = 2
      par(7) = 0
      par(8) = 5.68706
      par(9) = 2
      par(10) = 2
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.387) stop 'consistency check #1 failed'

      chname = 'COTR'
      nr = 1
      chmoth = 'ROUT'
      x = 4.21
      y = 0
      z = -2
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 356
      natmed = 'ALFE 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 = 'ALFE'
      chshap = 'BOX '
      nmed = 356
      npar = 3
      par(1) = 0.9525
      par(2) = 0.3175
      par(3) = 7.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.388) stop 'consistency check #1 failed'

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

      chname = 'ALFE'
      nr = 1
      chmoth = 'COTR'
      x = 0
      y = 1.25
      z = 0
      irot = 4028
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4029
      theta1 = 90
      phi1 = 0
      theta2 = 88.5
      phi2 = 90
      theta3 = 1.5
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ALFE'
      nr = 2
      chmoth = 'COTR'
      x = 0
      y = -1.25
      z = 0
      irot = 4029
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4030
      theta1 = 90
      phi1 = 0
      theta2 = 92.95
      phi2 = 90
      theta3 = 2.95
      phi3 = 90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ALFE'
      nr = 3
      chmoth = 'COTR'
      x = 0
      y = 3.5
      z = 0
      irot = 4030
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4031
      theta1 = 90
      phi1 = 0
      theta2 = 87.05
      phi2 = 90
      theta3 = 2.95
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ALFE'
      nr = 4
      chmoth = 'COTR'
      x = 0
      y = -3.5
      z = 0
      irot = 4031
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 357
      natmed = 'ALP2 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 = 'ALP2'
      chshap = 'TRAP'
      nmed = 357
      npar = 11
      par(1) = 7.5
      par(2) = 0
      par(3) = 0
      par(4) = 3.4925
      par(5) = 0.15875
      par(6) = 0.15875
      par(7) = 0
      par(8) = 4.2799
      par(9) = 0.15875
      par(10) = 0.15875
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.389) stop 'consistency check #1 failed'

      chname = 'ALP2'
      nr = 1
      chmoth = 'COTR'
      x = 1.11125
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 358
      natmed = 'COFI 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 = 'COFI'
      chshap = 'BOX '
      nmed = 358
      npar = 3
      par(1) = 2.25
      par(2) = 4
      par(3) = 6
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.390) stop 'consistency check #1 failed'

      chname = 'COFI'
      nr = 1
      chmoth = 'ROUT'
      x = 7.85
      y = 0
      z = -2
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 359
      natmed = 'HSPL 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 = 'HSPL'
      chshap = 'BOX '
      nmed = 359
      npar = 3
      par(1) = 0.16
      par(2) = 3.815
      par(3) = 5.79
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.391) stop 'consistency check #1 failed'

      chname = 'HSPL'
      nr = 1
      chmoth = 'COFI'
      x = -2.09
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 360
      natmed = 'HSFI 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 = 'HSFI'
      chshap = 'BOX '
      nmed = 360
      npar = 3
      par(1) = 1.905
      par(2) = 3.815
      par(3) = 0.075
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.392) stop 'consistency check #1 failed'

      chname = 'HSFI'
      nr = 1
      chmoth = 'COFI'
      x = 0
      y = 0
      z = -4.74
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 2
      chmoth = 'COFI'
      x = 0
      y = 0
      z = -4.01
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 3
      chmoth = 'COFI'
      x = 0
      y = 0
      z = -3.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 4
      chmoth = 'COFI'
      x = 0
      y = 0
      z = -2.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 5
      chmoth = 'COFI'
      x = 0
      y = 0
      z = -1.82
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 6
      chmoth = 'COFI'
      x = 0
      y = 0
      z = -1.09
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 7
      chmoth = 'COFI'
      x = 0
      y = 0
      z = -0.37
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 8
      chmoth = 'COFI'
      x = 0
      y = 0
      z = 0.37
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 9
      chmoth = 'COFI'
      x = 0
      y = 0
      z = 1.1
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 10
      chmoth = 'COFI'
      x = 0
      y = 0
      z = 1.82
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 11
      chmoth = 'COFI'
      x = 0
      y = 0
      z = 2.55
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 12
      chmoth = 'COFI'
      x = 0
      y = 0
      z = 3.28
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 13
      chmoth = 'COFI'
      x = 0
      y = 0
      z = 4.01
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'HSFI'
      nr = 14
      chmoth = 'COFI'
      x = 0
      y = 0
      z = 4.74
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 361
      natmed = 'ALP1 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 = 'ALP1'
      chshap = 'TRAP'
      nmed = 361
      npar = 11
      par(1) = 12.8
      par(2) = 0
      par(3) = 0
      par(4) = 4.1795
      par(5) = 0.0595
      par(6) = 0.0595
      par(7) = 0
      par(8) = 5.68706
      par(9) = 0.0595
      par(10) = 0.0595
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.393) stop 'consistency check #1 failed'

      chname = 'ALP1'
      nr = 1
      chmoth = 'ROUT'
      x = 5.54
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 362
      natmed = 'ALID 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 = 'ALID'
      chshap = 'BOX '
      nmed = 362
      npar = 3
      par(1) = 4.1783
      par(2) = 6.2996
      par(3) = 0.13843
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.394) stop 'consistency check #1 failed'

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

      chname = 'ALID'
      nr = 1
      chmoth = 'ROUT'
      x = -0.7
      y = 0
      z = -12.92
      irot = 4032
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 363
      natmed = 'ALOD 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 = 'ALOD'
      chshap = 'BOX '
      nmed = 363
      npar = 3
      par(1) = 5.68706
      par(2) = 6.2996
      par(3) = 0.13843
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.395) stop 'consistency check #1 failed'

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

      chname = 'ALOD'
      nr = 1
      chmoth = 'ROUT'
      x = -0.7
      y = 0
      z = 12.7
      irot = 4033
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 364
      natmed = 'COCO 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 = 'COCO'
      chshap = 'TUBE'
      nmed = 364
      npar = 3
      par(1) = 0
      par(2) = 0.6
      par(3) = 4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.396) stop 'consistency check #1 failed'

      irot = 4034
      theta1 = 165
      phi1 = 0
      theta2 = 90
      phi2 = 90
      theta3 = 75
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'COCO'
      nr = 1
      chmoth = 'ROUT'
      x = 5.82
      y = -2
      z = -10
      irot = 4034
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 365
      natmed = 'PIP1 Copper'
      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 = 'PIP1'
      chshap = 'TUBE'
      nmed = 365
      npar = 3
      par(1) = 0.23622
      par(2) = 0.3175
      par(3) = 4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.397) stop 'consistency check #1 failed'

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

      itmed = 366
      natmed = 'PIP2 Copper'
      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 = 'PIP2'
      chshap = 'TUBE'
      nmed = 366
      npar = 3
      par(1) = 0.3175
      par(2) = 0.6
      par(3) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.398) stop 'consistency check #1 failed'

      chname = 'PIP2'
      nr = 1
      chmoth = 'COCO'
      x = 0
      y = 0
      z = 3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 4035
      theta1 = 165
      phi1 = 0
      theta2 = 90
      phi2 = 90
      theta3 = 75
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'COCO'
      nr = 2
      chmoth = 'ROUT'
      x = 5.82
      y = 2
      z = -10
      irot = 4035
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 367
      natmed = 'ALBL 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 = 'ALBL'
      chshap = 'BOX '
      nmed = 367
      npar = 3
      par(1) = 0.47625
      par(2) = 4.1783
      par(3) = 0.24
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.399) stop 'consistency check #1 failed'

      chname = 'ALBL'
      nr = 1
      chmoth = 'ROUT'
      x = -6.51
      y = 0
      z = -12.542
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 81
      namate = 'Manganese'
      a = 54.983
      z = 25
      dens = 7.43
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 82
      namate = 'Chromium'
      a = 51.996
      z = 24
      dens = 7.18
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

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

      imate = 80
      namate = 'StainlessSteel'
      wmat(1) = 0.6996
      call gfmate(10,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.0004
      call gfmate(13,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.01
      call gfmate(81,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.19
      call gfmate(82,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.1
      call gfmate(83,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf)
      dens = 8.02
      nlmat = 5
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 368
      natmed = 'SOFF StainlessSteel'
      nmat = 80
      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 = 'SOFF'
      chshap = 'TUBE'
      nmed = 368
      npar = 3
      par(1) = 0
      par(2) = 0.25
      par(3) = 1.585
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.400) stop 'consistency check #1 failed'

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

      chname = 'SOFF'
      nr = 1
      chmoth = 'ROUT'
      x = 3.9
      y = 0
      z = -11
      irot = 4036
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'SOFF'
      nr = 2
      chmoth = 'ROUT'
      x = 3.9
      y = -3.5
      z = -12
      irot = 4037
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'SOFF'
      nr = 3
      chmoth = 'ROUT'
      x = 3.9
      y = 3.5
      z = -12
      irot = 4038
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'ROUT'
      nr = 2
      chmoth = 'BCAM'
      x = 76.4235
      y = 0
      z = -202
      irot = 4039
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 369
      natmed = 'BCSU SignalCables'
      nmat = 38
      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 = 369
      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.401) stop 'consistency check #1 failed'

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

      itmed = 370
      natmed = 'BCSD SignalCables'
      nmat = 38
      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 = 370
      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.402) stop 'consistency check #1 failed'

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

      itmed = 371
      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 = 371
      npar = 3
      par(1) = 126
      par(2) = 126
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.403) stop 'consistency check #1 failed'

      irot = 4040
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = 3.5083546e-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 = 4040
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 372
      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 = 372
      npar = 3
      par(1) = 126
      par(2) = 60
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.404) 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 = 'YD11'
      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 = 373
      natmed = 'FTOC Scintillator'
      nmat = 22
      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 = 373
      npar = 3
      par(1) = 126
      par(2) = 3
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.406) stop 'consistency check #1 failed'

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

      itmed = 374
      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 = 374
      npar = 3
      par(1) = 60
      par(2) = 6
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.407) 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 = 'YD12'
      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 = 375
      natmed = 'FTOH Scintillator'
      nmat = 22
      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 = 375
      npar = 3
      par(1) = 60
      par(2) = 3
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.409) stop 'consistency check #1 failed'

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

      itmed = 376
      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 = 376
      npar = 3
      par(1) = 60
      par(2) = 6
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.410) 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 = 'YD13'
      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 = 'YD13'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 377
      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 = 377
      npar = 3
      par(1) = 126
      par(2) = 60
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.412) 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 = 'YD14'
      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 = 'YD14'
      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 = 378
      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 = 378
      npar = 3
      par(1) = 118
      par(2) = 118
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.414) 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 = 379
      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 = 379
      npar = 3
      par(1) = 118
      par(2) = 56
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.415) 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 = 'YD15'
      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 = 'YD15'
      ndiv = 59
      iaxis = 1
      step = 4
      c0 = -118
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      imate = 84
      namate = 'leadGlassF800'
      wmat(1) = 0.6803
      call gfmate(19,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(32,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.006
      call gfmate(30,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 = 380
      natmed = 'LGBL leadGlassF800'
      nmat = 84
      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 = 380
      npar = 3
      par(1) = 2
      par(2) = 2
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.418) 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 = 381
      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 = 381
      npar = 3
      par(1) = 56
      par(2) = 6
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.419) 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 = 'YD16'
      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 = 'YD16'
      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 = 382
      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 = 382
      npar = 3
      par(1) = 56
      par(2) = 6
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.422) 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 = 'YD17'
      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 = 'YD17'
      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 = 383
      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 = 383
      npar = 3
      par(1) = 118
      par(2) = 56
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.425) 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 = 'YD18'
      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 = 'YD18'
      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 = 384
      natmed = 'CCAL 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 = 'CCAL'
      chshap = 'BOX '
      nmed = 384
      npar = 3
      par(1) = 16
      par(2) = 16
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.428) stop 'consistency check #1 failed'

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

      itmed = 385
      natmed = 'LTDB 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 = 'LTDB'
      chshap = 'BOX '
      nmed = 385
      npar = 3
      par(1) = 16
      par(2) = 7
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.429) stop 'consistency check #1 failed'

      chname = 'LTDB'
      nr = 1
      chmoth = 'CCAL'
      x = 0
      y = -9
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD19'
      chmoth = 'LTDB'
      ndiv = 7
      iaxis = 2
      step = 2
      c0 = -7
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'XD05'
      chmoth = 'YD19'
      ndiv = 16
      iaxis = 1
      step = 2
      c0 = -16
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 386
      natmed = 'LTBL leadGlassF800'
      nmat = 84
      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 = 'LTBL'
      chshap = 'BOX '
      nmed = 386
      npar = 3
      par(1) = 1
      par(2) = 1
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.432) stop 'consistency check #1 failed'

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

      itmed = 387
      natmed = 'LTDE 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 = 'LTDE'
      chshap = 'BOX '
      nmed = 387
      npar = 3
      par(1) = 7
      par(2) = 2
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.433) stop 'consistency check #1 failed'

      chname = 'LTDE'
      nr = 1
      chmoth = 'CCAL'
      x = -9
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD1A'
      chmoth = 'LTDE'
      ndiv = 2
      iaxis = 2
      step = 2
      c0 = -2
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'XD06'
      chmoth = 'YD1A'
      ndiv = 7
      iaxis = 1
      step = 2
      c0 = -7
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 388
      natmed = 'LTDW 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 = 'LTDW'
      chshap = 'BOX '
      nmed = 388
      npar = 3
      par(1) = 7
      par(2) = 2
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.436) stop 'consistency check #1 failed'

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

      chname = 'YD1B'
      chmoth = 'LTDW'
      ndiv = 2
      iaxis = 2
      step = 2
      c0 = -2
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'XD07'
      chmoth = 'YD1B'
      ndiv = 7
      iaxis = 1
      step = 2
      c0 = -7
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'LTBL'
      nr = 3
      chmoth = 'XD07'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 389
      natmed = 'LTDT 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 = 'LTDT'
      chshap = 'BOX '
      nmed = 389
      npar = 3
      par(1) = 16
      par(2) = 7
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.439) stop 'consistency check #1 failed'

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

      chname = 'YD1C'
      chmoth = 'LTDT'
      ndiv = 7
      iaxis = 2
      step = 2
      c0 = -7
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'XD08'
      chmoth = 'YD1C'
      ndiv = 16
      iaxis = 1
      step = 2
      c0 = -16
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'LTBL'
      nr = 4
      chmoth = 'XD08'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 390
      natmed = 'HPO1 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 = 'HPO1'
      chshap = 'TUBE'
      nmed = 390
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 9.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.442) stop 'consistency check #1 failed'

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

      itmed = 391
      natmed = 'HPI1 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 = 'HPI1'
      chshap = 'TUBE'
      nmed = 391
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 9.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.443) stop 'consistency check #1 failed'

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

      itmed = 392
      natmed = 'MAG3 Vacuum'
      nmat = 11
      isvol = 0
      ifield = 2
      fieldm = 16.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 = 'MAG3'
      chshap = 'BOX '
      nmed = 392
      npar = 3
      par(1) = 136
      par(2) = 68.5
      par(3) = 91.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.444) stop 'consistency check #1 failed'

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

      itmed = 393
      natmed = 'POL3 Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 16.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 = 'POL3'
      chshap = 'BOX '
      nmed = 393
      npar = 3
      par(1) = 136
      par(2) = 33.5
      par(3) = 91.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.445) stop 'consistency check #1 failed'

      chname = 'POL3'
      nr = 1
      chmoth = 'MAG3'
      x = 0
      y = 35
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'POL3'
      nr = 2
      chmoth = 'MAG3'
      x = 0
      y = -35
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 394
      natmed = 'GAP3 Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 16.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 = 'GAP3'
      chshap = 'BOX '
      nmed = 394
      npar = 3
      par(1) = 50
      par(2) = 1.5
      par(3) = 91.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.446) stop 'consistency check #1 failed'

      chname = 'GAP3'
      nr = 1
      chmoth = 'MAG3'
      x = 86
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'GAP3'
      nr = 2
      chmoth = 'MAG3'
      x = -86
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 395
      natmed = 'PASP 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 = 'PASP'
      chshap = 'BOX '
      nmed = 395
      npar = 3
      par(1) = 136
      par(2) = 68.5
      par(3) = 8.9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.447) stop 'consistency check #1 failed'

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

      itmed = 396
      natmed = 'PSPH 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 = 'PSPH'
      chshap = 'BOX '
      nmed = 396
      npar = 3
      par(1) = 36
      par(2) = 1.5
      par(3) = 8.9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.448) stop 'consistency check #1 failed'

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

      itmed = 397
      natmed = 'TCL1 Lead'
      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 = 'TCL1'
      chshap = 'TRAP'
      nmed = 397
      npar = 11
      par(1) = 8.9
      par(2) = 9.410012
      par(3) = 0
      par(4) = 1.5
      par(5) = 3.45
      par(6) = 3.45
      par(7) = 0
      par(8) = 1.5
      par(9) = 0.5
      par(10) = 0.5
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.449) stop 'consistency check #1 failed'

      chname = 'TCL1'
      nr = 1
      chmoth = 'PSPH'
      x = 33.8
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 398
      natmed = 'TCL2 Lead'
      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 = 'TCL2'
      chshap = 'TRAP'
      nmed = 398
      npar = 11
      par(1) = 8.9
      par(2) = 9.410012
      par(3) = 180
      par(4) = 1.5
      par(5) = 3.45
      par(6) = 3.45
      par(7) = 0
      par(8) = 1.5
      par(9) = 0.5
      par(10) = 0.5
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.450) stop 'consistency check #1 failed'

      chname = 'TCL2'
      nr = 1
      chmoth = 'PSPH'
      x = -33.8
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 399
      natmed = 'VCL1 Lead'
      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 = 'VCL1'
      chshap = 'BOX '
      nmed = 399
      npar = 3
      par(1) = 10
      par(2) = 5
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.451) stop 'consistency check #1 failed'

      chname = 'VCL1'
      nr = 1
      chmoth = 'HALL'
      x = 200.9
      y = -350
      z = -1275.2
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'VCL1'
      nr = 2
      chmoth = 'HALL'
      x = 99.1
      y = -350
      z = -1275.2
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 400
      natmed = 'PCO1 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 = 'PCO1'
      chshap = 'TRAP'
      nmed = 400
      npar = 11
      par(1) = 66.1
      par(2) = 0
      par(3) = 0
      par(4) = 4.4
      par(5) = 36.6
      par(6) = 36.6
      par(7) = 0
      par(8) = 4.4
      par(9) = 90.6
      par(10) = 90.6
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.452) stop 'consistency check #1 failed'

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

      itmed = 401
      natmed = 'PCI1 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 = 'PCI1'
      chshap = 'TRAP'
      nmed = 401
      npar = 11
      par(1) = 66.1
      par(2) = 0
      par(3) = 0
      par(4) = 4.4
      par(5) = 36
      par(6) = 36
      par(7) = 0
      par(8) = 4.4
      par(9) = 90
      par(10) = 90
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.453) stop 'consistency check #1 failed'

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

      itmed = 402
      natmed = 'VSPL 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 = 'VSPL'
      chshap = 'BOX '
      nmed = 402
      npar = 3
      par(1) = 90.6
      par(2) = 4.4
      par(3) = 0.3
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.454) stop 'consistency check #1 failed'

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

      itmed = 403
      natmed = 'VHB1 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 = 'VHB1'
      chshap = 'BOX '
      nmed = 403
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.2875
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.455) stop 'consistency check #1 failed'

      chname = 'VHB1'
      nr = 1
      chmoth = 'VSPL'
      x = 50
      y = 0
      z = -0.0125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 404
      natmed = 'VBW1 Kapton'
      nmat = 12
      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 = 'VBW1'
      chshap = 'BOX '
      nmed = 404
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.0125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.456) stop 'consistency check #1 failed'

      chname = 'VBW1'
      nr = 1
      chmoth = 'VSPL'
      x = 50
      y = 0
      z = 0.2875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 405
      natmed = 'VHB2 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 = 'VHB2'
      chshap = 'BOX '
      nmed = 405
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.2875
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.457) stop 'consistency check #1 failed'

      chname = 'VHB2'
      nr = 1
      chmoth = 'VSPL'
      x = -50
      y = 0
      z = -0.0125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 406
      natmed = 'VBW2 Kapton'
      nmat = 12
      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 = 'VBW2'
      chshap = 'BOX '
      nmed = 406
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.0125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.458) stop 'consistency check #1 failed'

      chname = 'VBW2'
      nr = 1
      chmoth = 'VSPL'
      x = -50
      y = 0
      z = 0.2875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 407
      natmed = 'VVPH 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 = 'VVPH'
      chshap = 'TUBE'
      nmed = 407
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 0.3
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.459) stop 'consistency check #1 failed'

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

      itmed = 408
      natmed = 'FF01 Scintillator'
      nmat = 22
      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 = 'FF01'
      chshap = 'BOX '
      nmed = 408
      npar = 3
      par(1) = 0.536
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.460) stop 'consistency check #1 failed'

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

      chname = 'FF01'
      nr = 1
      chmoth = 'HALL'
      x = 75.198
      y = -350
      z = -1146.878
      irot = 4041
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 409
      natmed = 'FF02 Scintillator'
      nmat = 22
      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 = 'FF02'
      chshap = 'BOX '
      nmed = 409
      npar = 3
      par(1) = 0.5215
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.461) stop 'consistency check #1 failed'

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

      chname = 'FF02'
      nr = 1
      chmoth = 'HALL'
      x = 76.304
      y = -350
      z = -1146.882
      irot = 4042
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 410
      natmed = 'FF03 Scintillator'
      nmat = 22
      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 = 'FF03'
      chshap = 'BOX '
      nmed = 410
      npar = 3
      par(1) = 0.5025
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.462) stop 'consistency check #1 failed'

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

      chname = 'FF03'
      nr = 1
      chmoth = 'HALL'
      x = 77.376
      y = -350
      z = -1146.887
      irot = 4043
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 411
      natmed = 'FF04 Scintillator'
      nmat = 22
      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 = 'FF04'
      chshap = 'BOX '
      nmed = 411
      npar = 3
      par(1) = 0.488
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.463) stop 'consistency check #1 failed'

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

      chname = 'FF04'
      nr = 1
      chmoth = 'HALL'
      x = 78.412
      y = -350
      z = -1146.891
      irot = 4044
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 412
      natmed = 'FF05 Scintillator'
      nmat = 22
      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 = 'FF05'
      chshap = 'BOX '
      nmed = 412
      npar = 3
      par(1) = 0.478
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.464) stop 'consistency check #1 failed'

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

      chname = 'FF05'
      nr = 1
      chmoth = 'HALL'
      x = 79.422
      y = -350
      z = -1146.893
      irot = 4045
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 413
      natmed = 'FF06 Scintillator'
      nmat = 22
      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 = 'FF06'
      chshap = 'BOX '
      nmed = 413
      npar = 3
      par(1) = 0.4635
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.465) stop 'consistency check #1 failed'

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

      chname = 'FF06'
      nr = 1
      chmoth = 'HALL'
      x = 80.408
      y = -350
      z = -1146.897
      irot = 4046
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 414
      natmed = 'FF07 Scintillator'
      nmat = 22
      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 = 'FF07'
      chshap = 'BOX '
      nmed = 414
      npar = 3
      par(1) = 0.449
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.466) stop 'consistency check #1 failed'

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

      chname = 'FF07'
      nr = 1
      chmoth = 'HALL'
      x = 81.364
      y = -350
      z = -1146.901
      irot = 4047
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 415
      natmed = 'FF08 Scintillator'
      nmat = 22
      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 = 'FF08'
      chshap = 'BOX '
      nmed = 415
      npar = 3
      par(1) = 0.4395
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.467) stop 'consistency check #1 failed'

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

      chname = 'FF08'
      nr = 1
      chmoth = 'HALL'
      x = 82.295
      y = -350
      z = -1146.903
      irot = 4048
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 416
      natmed = 'FF09 Scintillator'
      nmat = 22
      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 = 'FF09'
      chshap = 'BOX '
      nmed = 416
      npar = 3
      par(1) = 0.425
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.468) stop 'consistency check #1 failed'

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

      chname = 'FF09'
      nr = 1
      chmoth = 'HALL'
      x = 83.201
      y = -350
      z = -1146.907
      irot = 4049
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 417
      natmed = 'FF0a Scintillator'
      nmat = 22
      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 = 'FF0a'
      chshap = 'BOX '
      nmed = 417
      npar = 3
      par(1) = 0.4155
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.469) stop 'consistency check #1 failed'

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

      chname = 'FF0a'
      nr = 1
      chmoth = 'HALL'
      x = 84.082
      y = -350
      z = -1146.909
      irot = 4050
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 418
      natmed = 'FF0b Scintillator'
      nmat = 22
      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 = 'FF0b'
      chshap = 'BOX '
      nmed = 418
      npar = 3
      par(1) = 0.401
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.470) stop 'consistency check #1 failed'

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

      chname = 'FF0b'
      nr = 1
      chmoth = 'HALL'
      x = 84.938
      y = -350
      z = -1146.913
      irot = 4051
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 419
      natmed = 'FF0c Scintillator'
      nmat = 22
      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 = 'FF0c'
      chshap = 'BOX '
      nmed = 419
      npar = 3
      par(1) = 0.391
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.471) stop 'consistency check #1 failed'

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

      chname = 'FF0c'
      nr = 1
      chmoth = 'HALL'
      x = 85.768
      y = -350
      z = -1146.916
      irot = 4052
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 420
      natmed = 'FF0d Scintillator'
      nmat = 22
      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 = 'FF0d'
      chshap = 'BOX '
      nmed = 420
      npar = 3
      par(1) = 0.3815
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.472) stop 'consistency check #1 failed'

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

      chname = 'FF0d'
      nr = 1
      chmoth = 'HALL'
      x = 86.579
      y = -350
      z = -1146.918
      irot = 4053
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 421
      natmed = 'FF0e Scintillator'
      nmat = 22
      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 = 'FF0e'
      chshap = 'BOX '
      nmed = 421
      npar = 3
      par(1) = 0.372
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.473) stop 'consistency check #1 failed'

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

      chname = 'FF0e'
      nr = 1
      chmoth = 'HALL'
      x = 87.37
      y = -350
      z = -1146.921
      irot = 4054
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 422
      natmed = 'FF0f Scintillator'
      nmat = 22
      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 = 'FF0f'
      chshap = 'BOX '
      nmed = 422
      npar = 3
      par(1) = 0.362
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.474) stop 'consistency check #1 failed'

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

      chname = 'FF0f'
      nr = 1
      chmoth = 'HALL'
      x = 88.14
      y = -350
      z = -1146.923
      irot = 4055
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 423
      natmed = 'FF10 Scintillator'
      nmat = 22
      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 = 'FF10'
      chshap = 'BOX '
      nmed = 423
      npar = 3
      par(1) = 0.3525
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.475) stop 'consistency check #1 failed'

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

      chname = 'FF10'
      nr = 1
      chmoth = 'HALL'
      x = 88.891
      y = -350
      z = -1146.926
      irot = 4056
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 424
      natmed = 'FF11 Scintillator'
      nmat = 22
      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 = 'FF11'
      chshap = 'BOX '
      nmed = 424
      npar = 3
      par(1) = 0.348
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.476) stop 'consistency check #1 failed'

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

      chname = 'FF11'
      nr = 1
      chmoth = 'HALL'
      x = 89.626
      y = -350
      z = -1146.927
      irot = 4057
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 425
      natmed = 'FF12 Scintillator'
      nmat = 22
      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 = 'FF12'
      chshap = 'BOX '
      nmed = 425
      npar = 3
      par(1) = 0.338
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.477) stop 'consistency check #1 failed'

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

      chname = 'FF12'
      nr = 1
      chmoth = 'HALL'
      x = 90.347
      y = -350
      z = -1146.929
      irot = 4058
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 426
      natmed = 'FF13 Scintillator'
      nmat = 22
      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 = 'FF13'
      chshap = 'BOX '
      nmed = 426
      npar = 3
      par(1) = 0.3285
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.478) stop 'consistency check #1 failed'

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

      chname = 'FF13'
      nr = 1
      chmoth = 'HALL'
      x = 91.048
      y = -350
      z = -1146.932
      irot = 4059
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 427
      natmed = 'FF14 Scintillator'
      nmat = 22
      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 = 'FF14'
      chshap = 'BOX '
      nmed = 427
      npar = 3
      par(1) = 0.3235
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.479) stop 'consistency check #1 failed'

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

      chname = 'FF14'
      nr = 1
      chmoth = 'HALL'
      x = 91.733
      y = -350
      z = -1146.933
      irot = 4060
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 428
      natmed = 'FF15 Scintillator'
      nmat = 22
      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 = 'FF15'
      chshap = 'BOX '
      nmed = 428
      npar = 3
      par(1) = 0.314
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.480) stop 'consistency check #1 failed'

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

      chname = 'FF15'
      nr = 1
      chmoth = 'HALL'
      x = 92.404
      y = -350
      z = -1146.936
      irot = 4061
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 429
      natmed = 'FF16 Scintillator'
      nmat = 22
      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 = 'FF16'
      chshap = 'BOX '
      nmed = 429
      npar = 3
      par(1) = 0.309
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.481) stop 'consistency check #1 failed'

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

      chname = 'FF16'
      nr = 1
      chmoth = 'HALL'
      x = 93.059
      y = -350
      z = -1146.937
      irot = 4062
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 430
      natmed = 'FF17 Scintillator'
      nmat = 22
      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 = 'FF17'
      chshap = 'BOX '
      nmed = 430
      npar = 3
      par(1) = 0.2995
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.482) stop 'consistency check #1 failed'

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

      chname = 'FF17'
      nr = 1
      chmoth = 'HALL'
      x = 93.7
      y = -350
      z = -1146.939
      irot = 4063
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 431
      natmed = 'FF18 Scintillator'
      nmat = 22
      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 = 'FF18'
      chshap = 'BOX '
      nmed = 431
      npar = 3
      par(1) = 0.2945
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.483) stop 'consistency check #1 failed'

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

      chname = 'FF18'
      nr = 1
      chmoth = 'HALL'
      x = 94.325
      y = -350
      z = -1146.941
      irot = 4064
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 432
      natmed = 'WF19 Scintillator'
      nmat = 22
      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 = 'WF19'
      chshap = 'BOX '
      nmed = 432
      npar = 3
      par(1) = 0.655
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.484) stop 'consistency check #1 failed'

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

      chname = 'WF19'
      nr = 1
      chmoth = 'HALL'
      x = 219.397
      y = -350
      z = -1146.85
      irot = 4065
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 433
      natmed = 'WF1a Scintillator'
      nmat = 22
      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 = 'WF1a'
      chshap = 'BOX '
      nmed = 433
      npar = 3
      par(1) = 0.375
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.485) stop 'consistency check #1 failed'

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

      chname = 'WF1a'
      nr = 1
      chmoth = 'HALL'
      x = 202.33
      y = -350
      z = -1146.95
      irot = 4066
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 434
      natmed = 'WF1b Scintillator'
      nmat = 22
      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 = 'WF1b'
      chshap = 'BOX '
      nmed = 434
      npar = 3
      par(1) = 0.27
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.486) stop 'consistency check #1 failed'

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

      chname = 'WF1b'
      nr = 1
      chmoth = 'HALL'
      x = 192.019
      y = -350
      z = -1147
      irot = 4067
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 435
      natmed = 'WF1c Scintillator'
      nmat = 22
      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 = 'WF1c'
      chshap = 'BOX '
      nmed = 435
      npar = 3
      par(1) = 0.175
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.487) stop 'consistency check #1 failed'

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

      chname = 'WF1c'
      nr = 1
      chmoth = 'HALL'
      x = 185.207
      y = -350
      z = -1147
      irot = 4068
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 436
      natmed = 'WF1d Scintillator'
      nmat = 22
      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 = 'WF1d'
      chshap = 'BOX '
      nmed = 436
      npar = 3
      par(1) = 0.125
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.488) stop 'consistency check #1 failed'

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

      chname = 'WF1d'
      nr = 1
      chmoth = 'HALL'
      x = 180.292
      y = -350
      z = -1147
      irot = 4069
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 437
      natmed = 'WF1e Scintillator'
      nmat = 22
      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 = 'WF1e'
      chshap = 'BOX '
      nmed = 437
      npar = 3
      par(1) = 0.1
      par(2) = 1.5
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.489) stop 'consistency check #1 failed'

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

      chname = 'WF1e'
      nr = 1
      chmoth = 'HALL'
      x = 176.581
      y = -350
      z = -1147
      irot = 4070
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 438
      natmed = 'HPO2 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 = 'HPO2'
      chshap = 'TUBE'
      nmed = 438
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 31.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.490) stop 'consistency check #1 failed'

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

      itmed = 439
      natmed = 'HPI2 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 = 'HPI2'
      chshap = 'TUBE'
      nmed = 439
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 31.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.491) stop 'consistency check #1 failed'

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

      itmed = 440
      natmed = 'PSHL Lead'
      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 = 'PSHL'
      chshap = 'BOX '
      nmed = 440
      npar = 3
      par(1) = 110
      par(2) = 15
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.492) stop 'consistency check #1 failed'

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

      itmed = 441
      natmed = 'OPSH 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 = 'OPSH'
      chshap = 'TUBE'
      nmed = 441
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.493) stop 'consistency check #1 failed'

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

      itmed = 442
      natmed = 'IPSH 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 = 'IPSH'
      chshap = 'TUBE'
      nmed = 442
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.494) stop 'consistency check #1 failed'

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

      itmed = 443
      natmed = 'PCON 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 = 'PCON'
      chshap = 'BOX '
      nmed = 443
      npar = 3
      par(1) = 198.12
      par(2) = 33.02
      par(3) = 16.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.495) stop 'consistency check #1 failed'

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

      itmed = 444
      natmed = 'OPCO 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 = 'OPCO'
      chshap = 'TUBE'
      nmed = 444
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 16.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.496) stop 'consistency check #1 failed'

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

      itmed = 445
      natmed = 'IPCO 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 = 'IPCO'
      chshap = 'TUBE'
      nmed = 445
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 16.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.497) stop 'consistency check #1 failed'

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

      itmed = 446
      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 = 446
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.498) 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 = 447
      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 = 447
      npar = 3
      par(1) = 850
      par(2) = 1
      par(3) = 1500
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.499) 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 = 448
      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 = 448
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.500) 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 = 449
      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 = 449
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 225
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.501) stop 'consistency check #1 failed'

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

      itmed = 450
      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 = 450
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 225
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.502) 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 = 451
      natmed = 'CAP2 Mylar'
      nmat = 44
      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 = 451
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 0.025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.503) stop 'consistency check #1 failed'

      chname = 'CAP2'
      nr = 1
      chmoth = 'IHPI'
      x = 0
      y = 0
      z = 224.975
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)
      end

      subroutine setoptical27(itmed)
      implicit none
      integer itmed
      integer nbins
      real Ephot(16)
      real abslen(16)
      real effic(16)
      real rindex(16)
      real smooth(16)
      real refloss(16)
      common /optical27/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      integer i
      data nbins/16/
      data (Ephot(i),i=1,16) /
     + 1.5e-09,2e-09,2.5e-09,3e-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,5e-09/
      data (rindex(i),i=1,16) /
     + 1.465,1.47,1.476,1.484,1.493,1.495,
     + 1.497,1.499,1.502,1.504,1.506,1.509,
     + 1.512,1.514,1.517,1.533/
      data (abslen(i),i=1,16) /
     + 5.7,5.4,5.5,5.4,4.8,4.2,
     + 3.4,2.5,1.6,0.91,0.59,0.42,
     + 0.26,0.17,0.12,0.08/
      data (smooth(i),i=1,16) /
     + 0,0,0,0,0,0,
     + 0,0,0,0,0,0,
     + 0,0,0,0/
      data (refloss(i),i=1,16) /
     + 1,1,1,1,1,1,
     + 1,1,1,1,1,1,
     + 1,1,1,1/
      data (effic(i),i=1,16) /
     + 0,0,0,0,0,0,
     + 0,0,0,0,0,0,
     + 0,0,0,0/
      call GSCKOV(itmed,nbins,Ephot,abslen,effic,rindex)
      end

      subroutine getoptical27(E,refl,absl,rind,plsh,eff)
      implicit none
      real E,refl,absl,rind,plsh,eff
      integer n
      real x
      integer nbins
      real Ephot(16)
      real abslen(16)
      real effic(16)
      real rindex(16)
      real smooth(16)
      real refloss(16)
      common /optical27/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 setoptical73(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 /optical73/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 getoptical73(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 /optical73/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 setoptical72(itmed)
      implicit none
      integer itmed
      integer nbins
      real Ephot(15)
      real abslen(15)
      real effic(15)
      real rindex(15)
      real smooth(15)
      real refloss(15)
      common /optical72/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      integer i
      data nbins/15/
      data (Ephot(i),i=1,15) /
     + 1.5e-09,1.75e-09,2e-09,2.25e-09,2.5e-09,2.75e-09,
     + 3e-09,3.25e-09,3.5e-09,3.75e-09,4e-09,4.25e-09,
     + 4.5e-09,4.75e-09,5e-09/
      data (rindex(i),i=1,15) /
     + 1.0467,1.0468,1.047,1.0471,1.0473,1.0475,
     + 1.0478,1.048,1.0483,1.0486,1.0489,1.0493,
     + 1.0497,1.0501,1.0506/
      data (abslen(i),i=1,15) /
     + 2100,1800,1600,1400,1260,1150,
     + 860,560,340,190,96,43,
     + 19,10,6/
      data (smooth(i),i=1,15) /
     + 0,0,0,0,0,0,
     + 0,0,0,0,0,0,
     + 0,0,0/
      data (refloss(i),i=1,15) /
     + 1,1,1,1,1,1,
     + 1,1,1,1,1,1,
     + 1,1,1/
      data (effic(i),i=1,15) /
     + 0,0,0,0,0,0,
     + 0,0,0,0,0,0,
     + 0,0,0/
      call GSCKOV(itmed,nbins,Ephot,abslen,effic,rindex)
      end

      subroutine getoptical72(E,refl,absl,rind,plsh,eff)
      implicit none
      real E,refl,absl,rind,plsh,eff
      integer n
      real x
      integer nbins
      real Ephot(15)
      real abslen(15)
      real effic(15)
      real rindex(15)
      real smooth(15)
      real refloss(15)
      common /optical72/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 setoptical74(itmed)
      implicit none
      integer itmed
      integer nbins
      real Ephot(29)
      real abslen(29)
      real effic(29)
      real rindex(29)
      real smooth(29)
      real refloss(29)
      common /optical74/nbins,Ephot,rindex,abslen,refloss,smooth,effic
      integer i
      data nbins/29/
      data (Ephot(i),i=1,29) /
     + 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/
      data (rindex(i),i=1,29) /
     + 1.5,1.5,1.5,1.5,1.5,1.5,
     + 1.5,1.5,1.5,1.5,1.5,1.5,
     + 1.5,1.5,1.5,1.5,1.5,1.5,
     + 1.5,1.5,1.5,1.5,1.5,1.5,
     + 1.5,1.5,1.5,1.5,1.5/
      data (abslen(i),i=1,29) /
     + 0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
     + 0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
     + 0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
     + 0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
     + 0.0001,0.0001,0.0001,0.0001,0.0001/
      data (smooth(i),i=1,29) /
     + 0,0,0,0,0,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,29) /
     + 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,29) /
     + 0,0.004,0.018,0.048,0.089,0.13,
     + 0.176,0.212,0.235,0.257,0.272,0.283,
     + 0.291,0.29,0.28,0.26,0.243,0.236,
     + 0.23,0.225,0.216,0.199,0.168,0.112,
     + 0.061,0.03,0.017,0.004,0/
      call GSCKOV(itmed,nbins,Ephot,abslen,effic,rindex)
      end

      subroutine getoptical74(E,refl,absl,rind,plsh,eff)
      implicit none
      real E,refl,absl,rind,plsh,eff
      integer n
      real x
      integer nbins
      real Ephot(29)
      real abslen(29)
      real effic(29)
      real rindex(29)
      real smooth(29)
      real refloss(29)
      common /optical74/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(503)
      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,
     +     0,    0,    0,    0,    0,    0,    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,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=401,500) /
     +     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,
     +   219,    0,    0,    0,  235,    0,    0,  242,    0,    0,
     +   249,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=501,503) /
     +     0,    0,    0/
      integer lookup(264)
      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,    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,   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/
      data (lookup(i),i=101,200) /
     +    56,   57,   58,    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,   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,    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,
     +    31,   32,   33,   34,   35,   36,   37,   38,   39,   40/
      data (lookup(i),i=201,264) /
     +    41,   42,   43,   44,   45,   46,   47,   48,   49,   50,
     +    51,   52,   53,   54,   55,   56,   57,   58,    0,    1,
     +     2,    3,    4,    5,    6,    7,    8,    9,   10,   11,
     +    12,   13,   14,   15,    0,    1,    2,    3,    4,    5,
     +     6,    9,   10,   11,   12,   13,   14,   15,    0,    1,
     +     2,    3,    4,    5,    6,    7,    8,    9,   10,   11,
     +    12,   13,   14,   15/
      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(503)
      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,    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,    7,    0,    0,    0,    0,    0,    0,   13,
     +     0,    0,    0,    0,    0,    0,   19,    0,    0,    0/
      data (istart(i),i=301,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,   25,    0,    0,    0,    0,   29,    0,    0,    0,
     +     0,   33,    0,    0,    0,    0,   37,    0,    0,    0,
     +     0,   41,    0,    0,    0,    0,   45,    0,    0,    0,
     +     0,   49,    0,    0,    0,    0,   53,    0,    0,    0,
     +     0,   57,    0,    0,    0,    0,   61,    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=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=501,503) /
     +     0,    0,    0/
      integer lookup(64)
      data (lookup(i),i=1,64) /
     +     1,    2,    3,    4,    5,    6,    1,    2,    3,    4,
     +     5,    6,    1,    2,    3,    4,    5,    6,    1,    2,
     +     3,    4,    5,    6,    1,    1,    1,    1,    2,    2,
     +     2,    2,    3,    3,    3,    3,    4,    4,    4,    4,
     +     5,    5,    5,    5,    6,    6,    6,    6,    7,    7,
     +     7,    7,    8,    8,    8,    8,    9,    9,    9,    9,
     +    10,   10,   10,   10/
      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(503)
      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,    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/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    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,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    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/
      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,400) /
     +     0,    0,    0,    0,    0,    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,
     +     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,   14,    0,    0,    0,    0,
     +    15,   16,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,   18,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,   19,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,   20,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=501,503) /
     +     0,    0,    0/
      integer lookup(20)
      data (lookup(i),i=1,20) /
     +     1,    2,    3,    4,    4,    4,    4,    4,    4,    4,
     +     4,    4,    4,    4,    4,    4,    4,    5,    6,    7/
      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(503)
      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,
     +     0,    0,    0,    0,    0,    0,    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,400) /
     +     0,    0,    0,    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,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=501,503) /
     +     0,    0,    0/
      integer lookup(48)
      data (lookup(i),i=1,48) /
     +     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 getPackage()
      implicit none
      integer getPackage
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(503)
      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,    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,
     +     2,    0,    0,    0,    0,    0,    0,    3,    0,    0,
     +     0,    0,    0,    0,    4,    0,    0,    0,    0,    0/
      data (istart(i),i=301,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=501,503) /
     +     0,    0,    0/
      integer lookup(4)
      data (lookup(i),i=1,4) /
     +     1,    2,    3,    4/
      integer level,index
      integer package
      getPackage = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          package = lookup(index + number(level) - 1)
          if (package.gt.0) then
            getPackage = package
          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(503)
      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,
     +     0,    0,    0,    0,    0,    0,    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,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=401,500) /
     +     0,    0,    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,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=501,503) /
     +     0,    0,    0/
      integer lookup(2)
      data (lookup(i),i=1,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(503)
      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,    1,    0,    0,
     +     0,    0,    0,    0, 1521,    0,    0, 2517,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=501,503) /
     +     0,    0,    0/
      integer lookup(3522)
      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,    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,    3,    3,    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,    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,    4,    4,
     +     4,    4,   13,   13,   13,   13,   13,   13,   13,   13/
      data (lookup(i),i=201,300) /
     +    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=301,400) /
     +    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,   14,   14,   14,   14,   14,   14,   14/
      data (lookup(i),i=401,500) /
     +    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,   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=501,600) /
     +    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,   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=601,700) /
     +    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,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16/
      data (lookup(i),i=701,800) /
     +    16,   16,   16,   16,   16,   16,   16,   16,   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=801,900) /
     +    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=901,1000) /
     +    25,   25,   25,   25,   25,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26/
      data (lookup(i),i=1001,1100) /
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26,
     +    26,   26,   26,   26,   26,   26,   26,   26,   26,   26/
      data (lookup(i),i=1101,1200) /
     +    26,   26,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27/
      data (lookup(i),i=1201,1300) /
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27/
      data (lookup(i),i=1301,1400) /
     +    27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
     +    27,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28/
      data (lookup(i),i=1401,1500) /
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28/
      data (lookup(i),i=1501,1600) /
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +    28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
     +     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/
      data (lookup(i),i=1601,1700) /
     +     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,    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=1701,1800) /
     +     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,    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=1801,1900) /
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,   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=1901,2000) /
     +    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,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22/
      data (lookup(i),i=2001,2100) /
     +    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=2101,2200) /
     +    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,   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=2201,2300) /
     +    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=2301,2400) /
     +    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,   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=2401,2500) /
     +    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=2501,2600) /
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,    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,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9/
      data (lookup(i),i=2601,2700) /
     +     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,   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=2701,2800) /
     +    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,   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=2801,2900) /
     +    11,   11,   11,   11,   11,   11,   11,   11,   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,   12,   12,   12/
      data (lookup(i),i=2901,3000) /
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   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=3001,3100) /
     +    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,
     +    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=3101,3200) /
     +    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=3201,3300) /
     +    18,   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/
      data (lookup(i),i=3301,3400) /
     +    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,   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=3401,3500) /
     +    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=3501,3522) /
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20/
      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(503)
      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,
     +     0,    0,    0,    0,    0,    0,    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,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=401,500) /
     +     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,  107,
     +     0,    0,    0,  114,    0,    0,  116,    0,    0,  118,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=501,503) /
     +     0,    0,    0/
      integer lookup(124)
      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,
     +    42,   44,   41,   43,   21,   22,   23,   24,   25,   26,
     +    27,   28,   29,   30,   31,   32,   33,   34,   35,   36,
     +    37,   38,   39,   40,    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,124) /
     +    53,   54,   55,   56,   57,   58,    0,    1,    2,    3,
     +     4,    5,    6,    7,    8,    7,    8,    9,   10,   11,
     +    12,   13,   14,   15/
      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(503)
      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,    1,    0,    0,
     +     0,    0,    0,    0,    0,    0,   31,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,   41,    0,    0,
     +     0,    0,    0,    0, 1561,    0,    0, 2557,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0, 3563,    0,    0,    0,    0, 3567,    0,    0,    0,
     +     0, 3571,    0,    0,    0,    0, 3575,    0,    0,    0,
     +     0, 3579,    0,    0,    0,    0, 3583,    0,    0,    0,
     +     0, 3587,    0,    0,    0,    0, 3591,    0,    0,    0,
     +     0, 3595,    0,    0,    0,    0, 3599,    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=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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=501,503) /
     +     0,    0,    0/
      integer lookup(3602)
      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,   25,   26,   27,   28,   29,   30,
     +     1,    2,    3,    4,    5,    6,    7,    8,    9,   10,
     +     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,    1,    2,    3,    4,    5,    6,    7,    8,
     +     9,   10,   11,   12,   13,   14,   15,   16,   17,   18/
      data (lookup(i),i=101,200) /
     +    19,   20,   21,   22,   23,   24,   25,   26,   27,   28,
     +    29,   30,   31,   32,   33,   34,   35,   36,   37,   38,
     +    39,   40,   41,   42,    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,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22/
      data (lookup(i),i=201,300) /
     +    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,    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/
      data (lookup(i),i=301,400) /
     +    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,    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/
      data (lookup(i),i=401,500) /
     +    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,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22/
      data (lookup(i),i=501,600) /
     +    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,  115,  116,  117,  118,  119,  120,  121,  122/
      data (lookup(i),i=601,700) /
     +   123,  124,  125,  126,  127,  128,  129,  130,  131,  132,
     +   133,  134,  135,    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=701,800) /
     +    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,    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/
      data (lookup(i),i=801,900) /
     +    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,
     +   143,  144,  145,  146,  147,  148,  149,  150,  151,  152/
      data (lookup(i),i=901,1000) /
     +   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,    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/
      data (lookup(i),i=1001,1100) /
     +    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,  143,  144,  145,
     +   146,  147,  148,  149,  150,  151,  152,  153,  154,  155/
      data (lookup(i),i=1101,1200) /
     +   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,    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/
      data (lookup(i),i=1201,1300) /
     +    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,  143,  144,  145,  146,  147,  148,
     +   149,  150,  151,  152,  153,  154,  155,  156,  157,  158/
      data (lookup(i),i=1301,1400) /
     +   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,  200,  201,  202,  203,  204,  205,  206,  207,  208,
     +   209,    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=1401,1500) /
     +    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,  143,  144,  145,  146,  147,  148,  149/
      data (lookup(i),i=1501,1600) /
     +   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,
     +   200,  201,  202,  203,  204,  205,  206,  207,  208,  209,
     +     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/
      data (lookup(i),i=1601,1700) /
     +    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,    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,    1,    2,    3,    4,    5,    6,    7,    8/
      data (lookup(i),i=1701,1800) /
     +     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,    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/
      data (lookup(i),i=1801,1900) /
     +    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,    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/
      data (lookup(i),i=1901,2000) /
     +    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,  143,  144,  145,  146,  147,  148/
      data (lookup(i),i=2001,2100) /
     +   149,  150,  151,  152,  153,  154,  155,  156,  157,  158,
     +   159,  160,  161,  162,  163,  164,  165,  166,  167,  168,
     +   169,  170,    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/
      data (lookup(i),i=2101,2200) /
     +    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,    1,    2,    3,    4,    5,    6,    7,    8/
      data (lookup(i),i=2201,2300) /
     +     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,  107,  108/
      data (lookup(i),i=2301,2400) /
     +   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,    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=2401,2500) /
     +    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,  115,  116,
     +   117,  118,  119,  120,  121,  122,  123,  124,  125,  126/
      data (lookup(i),i=2501,2600) /
     +   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,    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=2601,2700) /
     +    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,    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/
      data (lookup(i),i=2701,2800) /
     +    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,    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/
      data (lookup(i),i=2801,2900) /
     +    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,    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/
      data (lookup(i),i=2901,3000) /
     +    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,    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/
      data (lookup(i),i=3001,3100) /
     +    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,  143,  144,  145,  146/
      data (lookup(i),i=3101,3200) /
     +     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,   94,   95,   96,   97,   98,   99,  100/
      data (lookup(i),i=3201,3300) /
     +   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,    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=3301,3400) /
     +    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,  143,  144,
     +   145,  146,  147,  148,  149,  150,  151,  152,  153,  154/
      data (lookup(i),i=3401,3500) /
     +   155,  156,  157,  158,    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,   94,   95,   96/
      data (lookup(i),i=3501,3600) /
     +    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,    1,    2,    3,    4,    1,    2,    3,    4,
     +     1,    2,    3,    4,    1,    2,    3,    4,    1,    2,
     +     3,    4,    1,    2,    3,    4,    1,    2,    3,    4,
     +     1,    2,    3,    4,    1,    2,    3,    4,    1,    2/
      data (lookup(i),i=3601,3602) /
     +     3,    4/
      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,-1895.68/
      data rmat1/1,0,0,
     +          0,1,0,
     +          0,0,1/
      real orig2(3),rmat2(3,3)
      data orig2/0,0,-1494.72/
      data rmat2/1,0,0,
     +          0,1,0,
     +          0,0,1/
      real orig7(3),rmat7(3,3)
      data orig7/0,0,-889.45/
      data rmat7/1,0,0,
     +          0,1,0,
     +          0,0,1/
      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.3
        B(3) = 0
      else if (iregion.eq.2) then
        B(1) = 0
        B(2) = 2.3
        B(3) = 0
      else if (iregion.eq.7) then
        B(1) = 0
        B(2) = 16.4
        B(3) = 0
      else if (iregion.eq.3) then
		    call gufld2(r, B)
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)
        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.2831853,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.27) then
        call getoptical27(E,refl,absl,rind,plsh,eff)
      elseif (imat.eq.73) then
        call getoptical73(E,refl,absl,rind,plsh,eff)
      elseif (imat.eq.72) then
        call getoptical72(E,refl,absl,rind,plsh,eff)
      elseif (imat.eq.74) then
        call getoptical74(E,refl,absl,rind,plsh,eff)
      else
        refl = 0
        absl = 0
        rind = 0
        plsh = 1
        eff = 0
      endif
      end

      function guplsh(medi0,medi1)
      implicit none
      real guplsh
      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)
      guplsh = plsh
      end