*
* 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 = 0
      z = 0
      dens = 0
      radl = 1e+30
      absl = 1e+30
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

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

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

      imate = 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 = 155
      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 = 155
      npar = 3
      par(1) = 3
      par(2) = 4
      par(3) = 27.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.171) 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 = 156
      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 = 156
      npar = 3
      par(1) = 0
      par(2) = 2
      par(3) = 0.0035
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.172) stop 'consistency check #1 failed'

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

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

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

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

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

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

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

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

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

      itmed = 161
      natmed = 'LIH2 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 = 'LIH2'
      chshap = 'TUBE'
      nmed = 161
      npar = 3
      par(1) = 0
      par(2) = 1.5
      par(3) = 0.014
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.177) 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 = 162
      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 = 162
      npar = 15
      par(1) = 0
      par(2) = 360
      par(3) = 4
      par(4) = -60.8
      par(5) = 4.5
      par(6) = 188
      par(7) = 92
      par(8) = 4.5
      par(9) = 188
      par(10) = 92
      par(11) = 0
      par(12) = 188
      par(13) = 460
      par(14) = 0
      par(15) = 188
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.178) 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 = 163
      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 = 163
      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.179) 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 = 164
      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 = 164
      npar = 3
      par(1) = 95
      par(2) = 187.96
      par(3) = 188.9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.180) 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 = 165
      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 = 165
      npar = 3
      par(1) = 92.71
      par(2) = 187.96
      par(3) = 33
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.181) 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 = 166
      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 = 166
      npar = 49
      par(1) = 0
      par(2) = 360
      par(3) = 40
      par(4) = 15
      par(5) = -140.01
      par(6) = 6.911305
      par(7) = 8.937551
      par(8) = 49.99
      par(9) = 6.911305
      par(10) = 8.937551
      par(11) = 50.051907
      par(12) = 6.907519
      par(13) = 8.937551
      par(14) = 50.427356
      par(15) = 6.884555
      par(16) = 8.914588
      par(17) = 50.674755
      par(18) = 6.838703
      par(19) = 8.899456
      par(20) = 50.858193
      par(21) = 6.804705
      par(22) = 8.865458
      par(23) = 51.276087
      par(24) = 6.672943
      par(25) = 8.788006
      par(26) = 51.349302
      par(27) = 6.639577
      par(28) = 8.774437
      par(29) = 51.674808
      par(30) = 6.491236
      par(31) = 8.671805
      par(32) = 52.003585
      par(33) = 6.28976
      par(34) = 8.568142
      par(35) = 52.048412
      par(36) = 6.26229
      par(37) = 8.547713
      par(38) = 52.62785
      par(39) = 5.856563
      par(40) = 8.283648
      par(41) = 53.159908
      par(42) = 5.484013
      par(43) = 7.957603
      par(44) = 58.60982
      par(45) = 1.667943
      par(46) = 4.141533
      par(47) = 59.772027
      par(48) = 3.327747
      par(49) = 3.327747
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.182) 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 = 21
      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 = 167
      natmed = 'STRC Scintillator'
      nmat = 21
      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 = 167
      npar = 49
      par(1) = -4.5
      par(2) = 9
      par(3) = 1
      par(4) = 15
      par(5) = 0
      par(6) = 7.322573
      par(7) = 7.623501
      par(8) = 50
      par(9) = 7.322573
      par(10) = 7.623501
      par(11) = 50.009194
      par(12) = 7.322011
      par(13) = 7.623501
      par(14) = 50.487477
      par(15) = 7.292758
      par(16) = 7.594248
      par(17) = 50.52422
      par(18) = 7.285948
      par(19) = 7.592
      par(20) = 50.967688
      par(21) = 7.203756
      par(22) = 7.509808
      par(23) = 51.040625
      par(24) = 7.180759
      par(25) = 7.49629
      par(26) = 51.433472
      par(27) = 7.056895
      par(28) = 7.372426
      par(29) = 51.541516
      par(30) = 7.007656
      par(31) = 7.33836
      par(32) = 51.877886
      par(33) = 6.854363
      par(34) = 7.185067
      par(35) = 52.019427
      par(36) = 6.767627
      par(37) = 7.120563
      par(38) = 52.294306
      par(39) = 6.599181
      par(40) = 6.952118
      par(41) = 52.459379
      par(42) = 6.483595
      par(43) = 6.85096
      par(44) = 58.847522
      par(45) = 2.01057
      par(46) = 2.377935
      par(47) = 59.020127
      par(48) = 2.257075
      par(49) = 2.257075
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.183) stop 'consistency check #1 failed'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      irot = 21
      theta1 = 90
      phi1 = 85.5
      theta2 = 90
      phi2 = 175.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

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

      irot = 22
      theta1 = 90
      phi1 = 94.5
      theta2 = 90
      phi2 = -175.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

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

      irot = 23
      theta1 = 90
      phi1 = 103.5
      theta2 = 90
      phi2 = -166.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

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

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

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

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

      irot = 26
      theta1 = 90
      phi1 = 130.5
      theta2 = 90
      phi2 = -139.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

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

      irot = 27
      theta1 = 90
      phi1 = 139.5
      theta2 = 90
      phi2 = -130.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

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

      irot = 28
      theta1 = 90
      phi1 = 148.5
      theta2 = 90
      phi2 = -121.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

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

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

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

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

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

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

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

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

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

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

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

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

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

      irot = 36
      theta1 = 90
      phi1 = -139.5
      theta2 = 90
      phi2 = -49.5
      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 = -130.5
      theta2 = 90
      phi2 = -40.5
      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 = -121.5
      theta2 = 90
      phi2 = -31.5
      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 = -112.5
      theta2 = 90
      phi2 = -22.5
      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 = -103.5
      theta2 = 90
      phi2 = -13.5
      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 = -94.5
      theta2 = 90
      phi2 = -4.5
      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)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      irot = 50
      theta1 = 90
      phi1 = -13.5
      theta2 = 90
      phi2 = 76.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

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

      irot = 51
      theta1 = 90
      phi1 = -4.5
      theta2 = 90
      phi2 = 85.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

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

      itmed = 168
      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 = 168
      npar = 49
      par(1) = 0
      par(2) = 360
      par(3) = 40
      par(4) = 15
      par(5) = 0
      par(6) = 6.921336
      par(7) = 7.318561
      par(8) = 50
      par(9) = 6.921336
      par(10) = 7.318561
      par(11) = 50.012136
      par(12) = 6.920594
      par(13) = 7.318561
      par(14) = 50.440086
      par(15) = 6.894419
      par(16) = 7.292386
      par(17) = 50.488586
      par(18) = 6.88543
      par(19) = 7.28942
      par(20) = 50.873612
      par(21) = 6.81407
      par(22) = 7.218059
      par(23) = 50.969889
      par(24) = 6.783714
      par(25) = 7.200216
      par(26) = 51.294114
      par(27) = 6.681486
      par(28) = 7.097988
      par(29) = 51.436732
      par(30) = 6.616491
      par(31) = 7.05302
      par(32) = 51.695324
      par(33) = 6.498644
      par(34) = 6.935174
      par(35) = 51.882158
      par(36) = 6.384152
      par(37) = 6.850028
      par(38) = 52.07126
      par(39) = 6.26827
      par(40) = 6.734146
      par(41) = 52.289157
      par(42) = 6.115697
      par(43) = 6.600619
      par(44) = 58.624477
      par(45) = 1.679659
      par(46) = 2.16458
      par(47) = 58.852315
      par(48) = 2.005046
      par(49) = 2.005046
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.184) 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 = 22
      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 = 169
      natmed = 'STOS LowDensityROHACELL'
      nmat = 22
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STOS'
      chshap = 'PGON'
      nmed = 169
      npar = 49
      par(1) = 0
      par(2) = 360
      par(3) = 40
      par(4) = 15
      par(5) = 0
      par(6) = 7.924428
      par(7) = 8.456067
      par(8) = 50
      par(9) = 7.924428
      par(10) = 8.456067
      par(11) = 50.016243
      par(12) = 7.923435
      par(13) = 8.456067
      par(14) = 50.560825
      par(15) = 7.890127
      par(16) = 8.422759
      par(17) = 50.625737
      par(18) = 7.878096
      par(19) = 8.418789
      par(20) = 51.11329
      par(21) = 7.787734
      par(22) = 8.328426
      par(23) = 51.242145
      par(24) = 7.747106
      par(25) = 8.304544
      par(26) = 51.649157
      par(27) = 7.618775
      par(28) = 8.176214
      par(29) = 51.840036
      par(30) = 7.531787
      par(31) = 8.11603
      par(32) = 52.16044
      par(33) = 7.38577
      par(34) = 7.970014
      par(35) = 52.410496
      par(36) = 7.232536
      par(37) = 7.856057
      par(38) = 52.639516
      par(39) = 7.092192
      par(40) = 7.715713
      par(41) = 52.931146
      par(42) = 6.887991
      par(43) = 7.537002
      par(44) = 59.192732
      par(45) = 2.503581
      par(46) = 3.152592
      par(47) = 59.497668
      par(48) = 2.939074
      par(49) = 2.939074
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.185) 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 = 23
      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 = 170
      natmed = 'STWR Cellulose'
      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 = 'STWR'
      chshap = 'PGON'
      nmed = 170
      npar = 49
      par(1) = 0
      par(2) = 360
      par(3) = 40
      par(4) = 15
      par(5) = 0
      par(6) = 7.633501
      par(7) = 7.683655
      par(8) = 50
      par(9) = 7.633501
      par(10) = 7.683655
      par(11) = 50.001532
      par(12) = 7.633407
      par(13) = 7.683655
      par(14) = 50.52537
      par(15) = 7.601368
      par(16) = 7.651616
      par(17) = 50.531494
      par(18) = 7.600233
      par(19) = 7.651241
      par(20) = 51.042908
      par(21) = 7.505448
      par(22) = 7.556456
      par(23) = 51.055064
      par(24) = 7.501615
      par(25) = 7.554203
      par(26) = 51.544898
      par(27) = 7.347171
      par(28) = 7.399759
      par(29) = 51.562906
      par(30) = 7.338964
      par(31) = 7.394082
      par(32) = 52.023858
      par(33) = 7.128896
      par(34) = 7.184014
      par(35) = 52.047448
      par(36) = 7.11444
      par(37) = 7.173263
      par(38) = 52.472647
      par(39) = 6.853878
      par(40) = 6.912701
      par(41) = 52.500159
      par(42) = 6.834614
      par(43) = 6.895841
      par(44) = 59.025863
      par(45) = 2.265267
      par(46) = 2.326494
      par(47) = 59.05463
      par(48) = 2.306351
      par(49) = 2.306351
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.186) 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 = 171
      natmed = 'TARM Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'TARM'
      chshap = 'TUBE'
      nmed = 171
      npar = 3
      par(1) = 6.921336
      par(2) = 8.927521
      par(3) = 70
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.187) stop 'consistency check #1 failed'

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

      imate = 24
      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 = 172
      natmed = 'STLG Plexiglas'
      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 = 'STLG'
      chshap = 'TUBE'
      nmed = 172
      npar = 3
      par(1) = 7.3
      par(2) = 7.8
      par(3) = 70
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.188) stop 'consistency check #1 failed'

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

      itmed = 173
      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 = 173
      npar = 3
      par(1) = 9
      par(2) = 59.741
      par(3) = 81.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.189) 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 = 174
      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 = 174
      npar = 3
      par(1) = 57.4
      par(2) = 59.7
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.190) 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 = 175
      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 = 175
      npar = 3
      par(1) = 0
      par(2) = 0.794
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.192) 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 = 176
      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 = 176
      npar = 3
      par(1) = 0.6289
      par(2) = 0.794
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.193) 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 = 177
      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 = 177
      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.194) 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 = 26
      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 = 25
      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(26,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 = 178
      natmed = 'CDCG CDchamberGas'
      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 = 'CDCG'
      chshap = 'TUBE'
      nmed = 178
      npar = 3
      par(1) = 9
      par(2) = 56.207
      par(3) = 81.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.195) 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 = 179
      natmed = 'DC1 CDchamberGas'
      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 = 'DC1'
      chshap = 'TUBE'
      nmed = 179
      npar = 3
      par(1) = 9.02
      par(2) = 12.9769
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.196) 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 = 180
      natmed = 'STRA CDchamberGas'
      nmat = 25
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STRA'
      chshap = 'TUBE'
      nmed = 180
      npar = 3
      par(1) = 0
      par(2) = 0.7874
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.197) 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 = 28
      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 = 29
      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 = 27
      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(28,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.648
      call gfmate(29,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 = 181
      natmed = 'STRW CDCStrawMaterial'
      nmat = 27
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STRW'
      chshap = 'TUBE'
      nmed = 181
      npar = 3
      par(1) = 0.776
      par(2) = 0.7874
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.198) 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 = 182
      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 = 182
      npar = 3
      par(1) = 0
      par(2) = 0.001
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.199) 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 = 183
      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 = 183
      npar = 3
      par(1) = 9
      par(2) = 59.741
      par(3) = 0.625
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.200) 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 = 31
      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 = 30
      namate = 'CarbonFiberEpoxy'
      wmat(1) = 0.375
      call gfmate(31,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.25
      call gfmate(28,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.375
      call gfmate(31,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 = 184
      natmed = 'CDPD CarbonFiberEpoxy'
      nmat = 30
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDPD'
      chshap = 'TUBE'
      nmed = 184
      npar = 3
      par(1) = 9
      par(2) = 59.741
      par(3) = 0.3
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.201) 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 = 185
      natmed = 'DC3 CDchamberGas'
      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 = 'DC3'
      chshap = 'TUBE'
      nmed = 185
      npar = 3
      par(1) = 12.977
      par(2) = 16.1307
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.202) 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 = 186
      natmed = 'DC5 CDchamberGas'
      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 = 'DC5'
      chshap = 'TUBE'
      nmed = 186
      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.203) 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 = 187
      natmed = 'STLA CDchamberGas'
      nmat = 25
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STLA'
      chshap = 'TUBE'
      nmed = 187
      npar = 3
      par(1) = 0
      par(2) = 0.7874
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.204) 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 = 188
      natmed = 'STLW CDCStrawMaterial'
      nmat = 27
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STLW'
      chshap = 'TUBE'
      nmed = 188
      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.205) 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 = 189
      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 = 189
      npar = 3
      par(1) = 0
      par(2) = 0.0015
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.206) 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 = 190
      natmed = 'STLB CDchamberGas'
      nmat = 25
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STLB'
      chshap = 'TUBE'
      nmed = 190
      npar = 3
      par(1) = 0
      par(2) = 0.7874
      par(3) = 75.415
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.207) 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 = 191
      natmed = 'STLX CDCStrawMaterial'
      nmat = 27
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STLX'
      chshap = 'TUBE'
      nmed = 191
      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.208) 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 = 192
      natmed = 'DC13 CDchamberGas'
      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 = 'DC13'
      chshap = 'TUBE'
      nmed = 192
      npar = 3
      par(1) = 30.5786
      par(2) = 33.632
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.209) 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 = 193
      natmed = 'DC15 CDchamberGas'
      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 = 'DC15'
      chshap = 'TUBE'
      nmed = 193
      npar = 3
      par(1) = 33.633
      par(2) = 36.6432
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.210) 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 = 194
      natmed = 'DC17 CDchamberGas'
      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 = 'DC17'
      chshap = 'TUBE'
      nmed = 194
      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.211) 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 = 195
      natmed = 'DC25 CDchamberGas'
      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 = 'DC25'
      chshap = 'TUBE'
      nmed = 195
      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.212) 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 = 196
      natmed = 'DC27 CDchamberGas'
      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 = 'DC27'
      chshap = 'TUBE'
      nmed = 196
      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.213) 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 = 34
      namate = 'SiliconDioxide'
      wmat(1) = 1
      call gfmate(9,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 2
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.6
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 35
      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 = 36
      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 = 37
      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 = 39
      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 = 38
      namate = 'MagnesiumOxide'
      wmat(1) = 1
      call gfmate(39,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 = 33
      namate = 'E-glass'
      wmat(1) = 0.54
      call gfmate(34,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.14
      call gfmate(35,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.1
      call gfmate(36,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.12
      call gfmate(37,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.1
      call gfmate(38,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 = 32
      namate = 'E-fiberGlass'
      wmat(1) = 0.327
      call gfmate(28,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.673
      call gfmate(33,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 = 197
      natmed = 'CDCI E-fiberGlass'
      nmat = 32
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDCI'
      chshap = 'TUBE'
      nmed = 197
      npar = 3
      par(1) = 9
      par(2) = 9.05
      par(3) = 75.825
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.214) 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 = 198
      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 = 198
      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.215) 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 = 40
      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 = 199
      natmed = 'CDGD MediumDensityROHACELL'
      nmat = 40
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 199
      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.216) 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 = 200
      natmed = 'CDGI MediumDensityROHACELL'
      nmat = 40
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 200
      npar = 3
      par(1) = 9
      par(2) = 10.27
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.217) 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 = 41
      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(29,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 = 201
      natmed = 'CDGW AluminizedMylar'
      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 = 'CDGW'
      chshap = 'TUBE'
      nmed = 201
      npar = 3
      par(1) = 9
      par(2) = 57.7276
      par(3) = 0.005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.218) 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)

      itmed = 202
      natmed = 'CDGU Plexiglas'
      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 = 'CDGU'
      chshap = 'TUBE'
      nmed = 202
      npar = 3
      par(1) = 9
      par(2) = 57.404
      par(3) = 0.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.219) 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 = 203
      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 = 203
      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.220) 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)

      imate = 44
      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 = 43
      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(44,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 = 42
      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(43,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 = 204
      natmed = 'CDCA SignalCables'
      nmat = 42
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 204
      npar = 3
      par(1) = 9
      par(2) = 57
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.221) 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 = 205
      natmed = 'CDCB SignalCables'
      nmat = 42
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 205
      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.222) 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 = 206
      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 = 206
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 99
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.223) 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 = 46
      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 = 47
      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 = 50
      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 = 49
      namate = 'SodiumOxide'
      wmat(1) = 2
      call gfmate(50,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 = 52
      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 = 51
      namate = 'PotassiumOxide'
      wmat(1) = 2
      call gfmate(52,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 = 53
      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 = 48
      namate = 'BorosilicateGlass'
      wmat(1) = 0.7
      call gfmate(34,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.1
      call gfmate(36,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.08
      call gfmate(49,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.08
      call gfmate(51,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.025
      call gfmate(35,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf)
      wmat(6) = 0.015
      call gfmate(53,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 = 45
      namate = 'Noryl'
      wmat(1) = 0.35
      call gfmate(46,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.35
      call gfmate(47,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.3
      call gfmate(48,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 = 207
      natmed = 'FDCS Noryl'
      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 = 'FDCS'
      chshap = 'TUBE'
      nmed = 207
      npar = 3
      par(1) = 59.8
      par(2) = 60.1
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.224) 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 = 208
      natmed = 'FDGS Noryl'
      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 = 'FDGS'
      chshap = 'PCON'
      nmed = 208
      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.225) 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 = 54
      namate = 'AluminizedMylarFilm'
      wmat(1) = 0.967
      call gfmate(29,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(28,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 = 209
      natmed = 'FDML AluminizedMylarFilm'
      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 = 'FDML'
      chshap = 'TUBE'
      nmed = 209
      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.226) 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 = 56
      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 = 55
      namate = 'Ultem2300'
      wmat(1) = 0.7
      call gfmate(56,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.3
      call gfmate(48,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 = 210
      natmed = 'FDRU Ultem2300'
      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 = 'FDRU'
      chshap = 'TUBE'
      nmed = 210
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.227) 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 = 211
      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 = 211
      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.228) 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)

      imate = 57
      namate = 'FR-4'
      wmat(1) = 0.7
      call gfmate(48,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.3
      call gfmate(28,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 = 212
      natmed = 'FDCR FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCR'
      chshap = 'TUBE'
      nmed = 212
      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.229) 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 = 213
      natmed = 'FDGU FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDGU'
      chshap = 'TUBE'
      nmed = 213
      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.230) 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 = 214
      natmed = 'FDGV FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDGV'
      chshap = 'TUBE'
      nmed = 214
      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.231) 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 = 215
      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 = 215
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.232) 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 = 58
      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(26,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 = 216
      natmed = 'FDM1 FDchamberGas'
      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 = 'FDM1'
      chshap = 'TUBE'
      nmed = 216
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.233) 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 = 217
      natmed = 'FDCG AluminizedMylarFilm'
      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 = 'FDCG'
      chshap = 'TUBE'
      nmed = 217
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.00065
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.234) 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 = 218
      natmed = 'FDC1 FDchamberGas'
      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 = 'FDC1'
      chshap = 'TUBE'
      nmed = 218
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.235) 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 = 59
      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 = 219
      natmed = 'FDK1 CopperKapton'
      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 = 'FDK1'
      chshap = 'TUBE'
      nmed = 219
      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.236) 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 = 220
      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 = 220
      npar = 3
      par(1) = 0
      par(2) = 2.3
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.237) 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 = 221
      natmed = 'FDG1 FDchamberGas'
      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 = 'FDG1'
      chshap = 'TUBE'
      nmed = 221
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.238) 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 = 222
      natmed = 'FDA1 FDchamberGas'
      nmat = 58
      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 = 222
      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.239) 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 = 60
      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(58,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 = 223
      natmed = 'FDXW FDCwirePlaneComposite'
      nmat = 60
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 223
      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.240) 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 = 224
      natmed = 'FDCW FDCwirePlaneComposite'
      nmat = 60
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 224
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.241) 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 = 225
      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 = 225
      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.242) 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 = 226
      natmed = 'FDNS FDchamberGas'
      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 = 'FDNS'
      chshap = 'TUBE'
      nmed = 226
      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.243) 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 = 227
      natmed = 'FDNC FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDNC'
      chshap = 'TUBE'
      nmed = 227
      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.244) 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 = 228
      natmed = 'FDRV Ultem2300'
      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 = 'FDRV'
      chshap = 'TUBE'
      nmed = 228
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.04
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.246) 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 = 229
      natmed = 'FDKS FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDKS'
      chshap = 'TUBE'
      nmed = 229
      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.247) 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 = 230
      natmed = 'FDRX Ultem2300'
      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 = 'FDRX'
      chshap = 'TUBE'
      nmed = 230
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.248) 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 = 231
      natmed = 'FDEM EpoxyResin'
      nmat = 28
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 231
      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.249) 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 = 232
      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 = 232
      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.250) 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 = 233
      natmed = 'FDKB FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDKB'
      chshap = 'TUBE'
      nmed = 233
      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.251) 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 = 234
      natmed = 'FDKC CopperKapton'
      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 = 'FDKC'
      chshap = 'TUBE'
      nmed = 234
      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.252) 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 = 235
      natmed = 'FDPS FDchamberGas'
      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 = 'FDPS'
      chshap = 'TUBE'
      nmed = 235
      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.253) 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 = 61
      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 = 236
      natmed = 'FDPP Polypropylene'
      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 = 'FDPP'
      chshap = 'TUBE'
      nmed = 236
      npar = 3
      par(1) = 51
      par(2) = 52.7
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.254) 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 = 237
      natmed = 'FDEL EpoxyResin'
      nmat = 28
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 237
      npar = 3
      par(1) = 58.9
      par(2) = 59
      par(3) = 0.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.255) 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 = 238
      natmed = 'FDWF FDchamberGas'
      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 = 'FDWF'
      chshap = 'TUBE'
      nmed = 238
      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.256) 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 = 62
      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(57,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 = 239
      natmed = 'FDWB FDAnodeBoard'
      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 = 'FDWB'
      chshap = 'TUBE'
      nmed = 239
      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.257) 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 = 65
      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 = 64
      namate = 'CalciumTitanate'
      wmat(1) = 1
      call gfmate(8,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(65,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 = 66
      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 = 63
      namate = 'HVcapacitorSolder'
      wmat(1) = 0.9
      call gfmate(64,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.1
      call gfmate(66,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 = 240
      natmed = 'FDBC HVcapacitorSolder'
      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 = 'FDBC'
      chshap = 'TUBE'
      nmed = 240
      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.259) 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 = 241
      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 = 241
      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.260) 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 = 242
      natmed = 'FDOW FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDOW'
      chshap = 'TUBE'
      nmed = 242
      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.261) 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 = 243
      natmed = 'FDRW Ultem2300'
      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 = 'FDRW'
      chshap = 'TUBE'
      nmed = 243
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.263) 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 = 244
      natmed = 'FDWC FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDWC'
      chshap = 'TUBE'
      nmed = 244
      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.264) 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)

      imate = 68
      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 = 67
      namate = 'CircuitBoards'
      wmat(1) = 0.35
      call gfmate(68,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(57,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 = 245
      natmed = 'FDCP CircuitBoards'
      nmat = 67
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 245
      npar = 3
      par(1) = 54.7
      par(2) = 60
      par(3) = 0.0135
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.266) 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 = 246
      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 = 246
      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.267) 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 = 70
      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 = 69
      namate = 'Fluorinert'
      wmat(1) = 6
      call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 14
      call gfmate(70,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 = 247
      natmed = 'FDLF Fluorinert'
      nmat = 69
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 247
      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.268) 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 = 248
      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 = 248
      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.269) 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 = 249
      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 = 249
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.270) 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 = 250
      natmed = 'FDM2 FDchamberGas'
      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 = 'FDM2'
      chshap = 'TUBE'
      nmed = 250
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.271) 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 = 251
      natmed = 'FDC2 FDchamberGas'
      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 = 'FDC2'
      chshap = 'TUBE'
      nmed = 251
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.272) 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 = 252
      natmed = 'FDK2 CopperKapton'
      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 = 'FDK2'
      chshap = 'TUBE'
      nmed = 252
      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.273) 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 = 253
      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 = 253
      npar = 3
      par(1) = 0
      par(2) = 3.2
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.274) 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 = 254
      natmed = 'FDG2 FDchamberGas'
      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 = 'FDG2'
      chshap = 'TUBE'
      nmed = 254
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.275) 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 = 255
      natmed = 'FDA2 FDchamberGas'
      nmat = 58
      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 = 255
      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.276) 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 = 256
      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 = 256
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.277) 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 = 257
      natmed = 'FDM3 FDchamberGas'
      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 = 'FDM3'
      chshap = 'TUBE'
      nmed = 257
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.278) 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 = 258
      natmed = 'FDC3 FDchamberGas'
      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 = 'FDC3'
      chshap = 'TUBE'
      nmed = 258
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.279) 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 = 259
      natmed = 'FDK3 CopperKapton'
      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 = 'FDK3'
      chshap = 'TUBE'
      nmed = 259
      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.280) 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 = 260
      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 = 260
      npar = 3
      par(1) = 0
      par(2) = 3.9
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.281) 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 = 261
      natmed = 'FDG3 FDchamberGas'
      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 = 'FDG3'
      chshap = 'TUBE'
      nmed = 261
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.282) 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 = 262
      natmed = 'FDA3 FDchamberGas'
      nmat = 58
      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 = 262
      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.283) 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 = 263
      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 = 263
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.284) 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 = 264
      natmed = 'FDM4 FDchamberGas'
      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 = 'FDM4'
      chshap = 'TUBE'
      nmed = 264
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.285) 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 = 265
      natmed = 'FDC4 FDchamberGas'
      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 = 'FDC4'
      chshap = 'TUBE'
      nmed = 265
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.286) 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 = 266
      natmed = 'FDK4 CopperKapton'
      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 = 'FDK4'
      chshap = 'TUBE'
      nmed = 266
      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.287) 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 = 267
      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 = 267
      npar = 3
      par(1) = 0
      par(2) = 4.6
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.288) 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 = 268
      natmed = 'FDG4 FDchamberGas'
      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 = 'FDG4'
      chshap = 'TUBE'
      nmed = 268
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.289) 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 = 269
      natmed = 'FDA4 FDchamberGas'
      nmat = 58
      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 = 269
      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.290) 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 = 270
      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 = 270
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 22.28
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.291) 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 = 271
      natmed = 'FDXM FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDXM'
      chshap = 'TUBE'
      nmed = 271
      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.292) 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 = 272
      natmed = 'FDRL FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDRL'
      chshap = 'TUBE'
      nmed = 272
      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.293) 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)

      chname = 'FDIS'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -0.009
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 273
      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 = 273
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 12.28
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.294) 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 = 2
      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 = 5
      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 = 5
      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 = 5
      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 = 6
      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 = 6
      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 = 6
      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 = 4
      chmoth = 'FDIX'
      x = 0
      y = 0
      z = 12.27935
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 274
      natmed = 'FDZL FR-4'
      nmat = 57
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDZL'
      chshap = 'TUBE'
      nmed = 274
      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.295) 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 = 3827
      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 = 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 = 'FDZL'
      nr = 3
      chmoth = 'FDIX'
      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 = 'FDZL'
      nr = 4
      chmoth = 'FDIX'
      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 = 'FDIX'
      x = 52.25
      y = 0
      z = -11.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 = 'FDIX'
      x = 50.469624
      y = 13.523295
      z = -11.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 = 'FDIX'
      x = 45.249827
      y = 26.125
      z = -11.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 = 'FDIX'
      x = 36.946329
      y = 36.946329
      z = -11.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 = 'FDIX'
      x = 26.125
      y = 45.249827
      z = -11.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 = 'FDIX'
      x = 13.523295
      y = 50.469624
      z = -11.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 = 'FDIX'
      x = 3.1993898e-15
      y = 52.25
      z = -11.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 = 'FDIX'
      x = -13.523295
      y = 50.469624
      z = -11.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 = 'FDIX'
      x = -26.125
      y = 45.249827
      z = -11.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 = 'FDIX'
      x = -36.946329
      y = 36.946329
      z = -11.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 = 'FDIX'
      x = -45.249827
      y = 26.125
      z = -11.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 = 'FDIX'
      x = -50.469624
      y = 13.523295
      z = -11.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 = 'FDIX'
      x = -52.25
      y = 6.3987795e-15
      z = -11.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 = 'FDIX'
      x = -50.469624
      y = -13.523295
      z = -11.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 = 'FDIX'
      x = -45.249827
      y = -26.125
      z = -11.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 = 'FDIX'
      x = -36.946329
      y = -36.946329
      z = -11.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 = 'FDIX'
      x = -26.125
      y = -45.249827
      z = -11.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 = 'FDIX'
      x = -13.523295
      y = -50.469624
      z = -11.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 = 'FDIX'
      x = -9.5981693e-15
      y = -52.25
      z = -11.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 = 'FDIX'
      x = 13.523295
      y = -50.469624
      z = -11.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 = 'FDIX'
      x = 26.125
      y = -45.249827
      z = -11.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 = 'FDIX'
      x = 36.946329
      y = -36.946329
      z = -11.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 = 'FDIX'
      x = 45.249827
      y = -26.125
      z = -11.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 = 'FDIX'
      x = 50.469624
      y = -13.523295
      z = -11.83
      irot = 3852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRU'
      nr = 121
      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 = 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 = 'FDIX'
      x = 50.469624
      y = 13.523295
      z = -11.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 = 'FDIX'
      x = 45.249827
      y = 26.125
      z = -11.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 = 'FDIX'
      x = 36.946329
      y = 36.946329
      z = -11.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 = 'FDIX'
      x = 26.125
      y = 45.249827
      z = -11.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 = 'FDIX'
      x = 13.523295
      y = 50.469624
      z = -11.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 = 'FDIX'
      x = 3.1993898e-15
      y = 52.25
      z = -11.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 = 'FDIX'
      x = -13.523295
      y = 50.469624
      z = -11.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 = 'FDIX'
      x = -26.125
      y = 45.249827
      z = -11.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 = 'FDIX'
      x = -36.946329
      y = 36.946329
      z = -11.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 = 'FDIX'
      x = -45.249827
      y = 26.125
      z = -11.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 = 'FDIX'
      x = -50.469624
      y = 13.523295
      z = -11.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 = 'FDIX'
      x = -52.25
      y = 6.3987795e-15
      z = -11.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 = 'FDIX'
      x = -50.469624
      y = -13.523295
      z = -11.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 = 'FDIX'
      x = -45.249827
      y = -26.125
      z = -11.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 = 'FDIX'
      x = -36.946329
      y = -36.946329
      z = -11.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 = 'FDIX'
      x = -26.125
      y = -45.249827
      z = -11.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 = 'FDIX'
      x = -13.523295
      y = -50.469624
      z = -11.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 = 'FDIX'
      x = -9.5981693e-15
      y = -52.25
      z = -11.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 = 'FDIX'
      x = 13.523295
      y = -50.469624
      z = -11.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 = 'FDIX'
      x = 26.125
      y = -45.249827
      z = -11.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 = 'FDIX'
      x = 36.946329
      y = -36.946329
      z = -11.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 = 'FDIX'
      x = 45.249827
      y = -26.125
      z = -11.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 = 'FDIX'
      x = 50.469624
      y = -13.523295
      z = -11.83
      irot = 3875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 121
      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 = 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 = 'FDIX'
      x = 50.469624
      y = 13.523295
      z = 11.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 = 'FDIX'
      x = 45.249827
      y = 26.125
      z = 11.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 = 'FDIX'
      x = 36.946329
      y = 36.946329
      z = 11.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 = 'FDIX'
      x = 26.125
      y = 45.249827
      z = 11.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 = 'FDIX'
      x = 13.523295
      y = 50.469624
      z = 11.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 = 'FDIX'
      x = 3.1993898e-15
      y = 52.25
      z = 11.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 = 'FDIX'
      x = -13.523295
      y = 50.469624
      z = 11.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 = 'FDIX'
      x = -26.125
      y = 45.249827
      z = 11.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 = 'FDIX'
      x = -36.946329
      y = 36.946329
      z = 11.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 = 'FDIX'
      x = -45.249827
      y = 26.125
      z = 11.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 = 'FDIX'
      x = -50.469624
      y = 13.523295
      z = 11.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 = 'FDIX'
      x = -52.25
      y = 6.3987795e-15
      z = 11.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 = 'FDIX'
      x = -50.469624
      y = -13.523295
      z = 11.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 = 'FDIX'
      x = -45.249827
      y = -26.125
      z = 11.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 = 'FDIX'
      x = -36.946329
      y = -36.946329
      z = 11.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 = 'FDIX'
      x = -26.125
      y = -45.249827
      z = 11.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 = 'FDIX'
      x = -13.523295
      y = -50.469624
      z = 11.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 = 'FDIX'
      x = -9.5981693e-15
      y = -52.25
      z = 11.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 = 'FDIX'
      x = 13.523295
      y = -50.469624
      z = 11.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 = 'FDIX'
      x = 26.125
      y = -45.249827
      z = 11.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 = 'FDIX'
      x = 36.946329
      y = -36.946329
      z = 11.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 = 'FDIX'
      x = 45.249827
      y = -26.125
      z = 11.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 = 'FDIX'
      x = 50.469624
      y = -13.523295
      z = 11.83
      irot = 3898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRU'
      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 = 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 = 'FDIX'
      x = 50.469624
      y = 13.523295
      z = 11.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 = 'FDIX'
      x = 45.249827
      y = 26.125
      z = 11.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 = 'FDIX'
      x = 36.946329
      y = 36.946329
      z = 11.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 = 'FDIX'
      x = 26.125
      y = 45.249827
      z = 11.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 = 'FDIX'
      x = 13.523295
      y = 50.469624
      z = 11.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 = 'FDIX'
      x = 3.1993898e-15
      y = 52.25
      z = 11.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 = 'FDIX'
      x = -13.523295
      y = 50.469624
      z = 11.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 = 'FDIX'
      x = -26.125
      y = 45.249827
      z = 11.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 = 'FDIX'
      x = -36.946329
      y = 36.946329
      z = 11.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 = 'FDIX'
      x = -45.249827
      y = 26.125
      z = 11.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 = 'FDIX'
      x = -50.469624
      y = 13.523295
      z = 11.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 = 'FDIX'
      x = -52.25
      y = 6.3987795e-15
      z = 11.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 = 'FDIX'
      x = -50.469624
      y = -13.523295
      z = 11.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 = 'FDIX'
      x = -45.249827
      y = -26.125
      z = 11.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 = 'FDIX'
      x = -36.946329
      y = -36.946329
      z = 11.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 = 'FDIX'
      x = -26.125
      y = -45.249827
      z = 11.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 = 'FDIX'
      x = -13.523295
      y = -50.469624
      z = 11.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 = 'FDIX'
      x = -9.5981693e-15
      y = -52.25
      z = 11.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 = 'FDIX'
      x = 13.523295
      y = -50.469624
      z = 11.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 = 'FDIX'
      x = 26.125
      y = -45.249827
      z = 11.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 = 'FDIX'
      x = 36.946329
      y = -36.946329
      z = 11.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 = 'FDIX'
      x = 45.249827
      y = -26.125
      z = 11.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 = 'FDIX'
      x = 50.469624
      y = -13.523295
      z = 11.83
      irot = 3921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 275
      natmed = 'FDE1 SignalCables'
      nmat = 42
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 275
      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.296) 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 = 276
      natmed = 'FDE2 SignalCables'
      nmat = 42
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 276
      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.297) 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 = 277
      natmed = 'FDE3 SignalCables'
      nmat = 42
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 277
      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.298) 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 = 278
      natmed = 'FDE4 SignalCables'
      nmat = 42
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 278
      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.299) 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 = 279
      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 = 279
      npar = 3
      par(1) = 61.76
      par(2) = 89.347
      par(3) = 220
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.300) 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 = 280
      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 = 280
      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.302) 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 = 281
      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 = 281
      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.303) 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 = 282
      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 = 282
      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.304) 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 = 283
      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 = 283
      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.306) 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 = 72
      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 = 73
      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 = 71
      namate = 'leadScint'
      wmat(1) = 0.1036
      call gfmate(72,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(73,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 = 284
      natmed = 'BM01 leadScint'
      nmat = 71
      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 = 284
      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.307) 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 = 285
      natmed = 'BCN1 Plexiglas'
      nmat = 24
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 285
      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.308) 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 = 3922
      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 = 3922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 286
      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 = 286
      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.309) 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 = 287
      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 = 287
      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.311) 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 = 288
      natmed = 'BM02 leadScint'
      nmat = 71
      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 = 288
      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.312) 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 = 289
      natmed = 'BCN2 Plexiglas'
      nmat = 24
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 289
      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.313) 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 = 3923
      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 = 3923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 290
      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 = 290
      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.314) 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 = 291
      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 = 291
      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.316) 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 = 292
      natmed = 'BM03 leadScint'
      nmat = 71
      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 = 292
      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.317) 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 = 293
      natmed = 'BCN3 Plexiglas'
      nmat = 24
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 293
      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.318) 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 = 3924
      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 = 3924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 294
      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 = 294
      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.319) 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 = 295
      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 = 295
      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.321) 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 = 296
      natmed = 'BM04 leadScint'
      nmat = 71
      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 = 296
      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.322) 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 = 297
      natmed = 'BCN4 Plexiglas'
      nmat = 24
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 297
      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.323) 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 = 3925
      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 = 3925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 298
      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 = 298
      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.324) 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 = 299
      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 = 299
      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.326) 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 = 300
      natmed = 'BM05 leadScint'
      nmat = 71
      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 = 300
      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.327) 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 = 301
      natmed = 'BCN5 Plexiglas'
      nmat = 24
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 301
      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.328) 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 = 3926
      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 = 3926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 302
      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 = 302
      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.329) 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 = 303
      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 = 303
      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.331) 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 = 304
      natmed = 'BM06 leadScint'
      nmat = 71
      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 = 304
      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.332) 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 = 305
      natmed = 'BCN6 Plexiglas'
      nmat = 24
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 305
      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.333) 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 = 3927
      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 = 3927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 306
      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 = 306
      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.334) 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 = 307
      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 = 307
      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.336) 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 = 308
      natmed = 'BMF7 leadScint'
      nmat = 71
      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 = 308
      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.337) 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 = 309
      natmed = 'BCO7 Plexiglas'
      nmat = 24
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 309
      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.338) 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 = 3928
      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 = 3928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 310
      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 = 310
      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.339) 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 = 311
      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 = 311
      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.341) 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 = 312
      natmed = 'BMF8 leadScint'
      nmat = 71
      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 = 312
      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.342) 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 = 313
      natmed = 'BCO8 Plexiglas'
      nmat = 24
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 313
      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.343) 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 = 3929
      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 = 3929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 314
      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 = 314
      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.344) 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 = 315
      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 = 315
      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.346) 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 = 316
      natmed = 'BMF9 leadScint'
      nmat = 71
      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 = 316
      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.347) 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 = 317
      natmed = 'BCO9 Plexiglas'
      nmat = 24
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 317
      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.348) 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 = 3930
      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 = 3930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 318
      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 = 318
      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.349) 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 = 319
      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 = 319
      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.351) 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 = 320
      natmed = 'BMFA leadScint'
      nmat = 71
      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 = 320
      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.352) 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 = 321
      natmed = 'BCOA Plexiglas'
      nmat = 24
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 321
      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.353) 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 = 3931
      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 = 3931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 322
      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 = 322
      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.354) 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 = 323
      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 = 323
      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.355) stop 'consistency check #1 failed'

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

      itmed = 324
      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 = 324
      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.356) 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 = 325
      natmed = 'PMHO FR-4'
      nmat = 57
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 325
      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.357) 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 = 326
      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 = 326
      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.358) 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 = 327
      natmed = 'PCB2 FR-4'
      nmat = 57
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 327
      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.359) 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 = 328
      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 = 328
      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.360) 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 = 329
      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 = 329
      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.361) stop 'consistency check #1 failed'

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

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

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

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

      itmed = 330
      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 = 330
      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.362) 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 = 331
      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 = 331
      npar = 3
      par(1) = 2.25
      par(2) = 4
      par(3) = 6
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.363) 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 = 332
      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 = 332
      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.364) 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 = 333
      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 = 333
      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.365) 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 = 334
      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 = 334
      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.366) 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 = 335
      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 = 335
      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.367) stop 'consistency check #1 failed'

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

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

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

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

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

      itmed = 338
      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 = 338
      npar = 3
      par(1) = 0.23622
      par(2) = 0.3175
      par(3) = 4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.370) 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 = 339
      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 = 339
      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.371) 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 = 3940
      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 = 3940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 340
      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 = 340
      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.372) 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 = 75
      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 = 76
      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 = 77
      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 = 74
      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(75,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.19
      call gfmate(76,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.1
      call gfmate(77,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 = 341
      natmed = 'SOFF StainlessSteel'
      nmat = 74
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 341
      npar = 3
      par(1) = 0
      par(2) = 0.25
      par(3) = 1.585
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.373) stop 'consistency check #1 failed'

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

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

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

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

      itmed = 342
      natmed = 'BCSU SignalCables'
      nmat = 42
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 342
      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.374) 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 = 343
      natmed = 'BCSD SignalCables'
      nmat = 42
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 343
      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.375) 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 = 344
      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 = 344
      npar = 3
      par(1) = 126
      par(2) = 126
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.376) stop 'consistency check #1 failed'

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

      itmed = 345
      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 = 345
      npar = 3
      par(1) = 126
      par(2) = 60
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.377) 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 = 346
      natmed = 'FTOC Scintillator'
      nmat = 21
      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 = 346
      npar = 3
      par(1) = 126
      par(2) = 3
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.379) 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 = 347
      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 = 347
      npar = 3
      par(1) = 60
      par(2) = 6
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.380) 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 = 348
      natmed = 'FTOH Scintillator'
      nmat = 21
      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 = 348
      npar = 3
      par(1) = 60
      par(2) = 3
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.382) 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 = 349
      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 = 349
      npar = 3
      par(1) = 60
      par(2) = 6
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.383) 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 = 350
      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 = 350
      npar = 3
      par(1) = 126
      par(2) = 60
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.385) 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 = 351
      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 = 351
      npar = 3
      par(1) = 118
      par(2) = 118
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.387) 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 = 352
      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 = 352
      npar = 3
      par(1) = 118
      par(2) = 56
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.388) 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 = 78
      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(52,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.006
      call gfmate(50,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 = 353
      natmed = 'LGBL leadGlassF800'
      nmat = 78
      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 = 353
      npar = 3
      par(1) = 2
      par(2) = 2
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.391) 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 = 354
      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 = 354
      npar = 3
      par(1) = 56
      par(2) = 6
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.392) 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 = 355
      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 = 355
      npar = 3
      par(1) = 56
      par(2) = 6
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.395) 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 = 356
      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 = 356
      npar = 3
      par(1) = 118
      par(2) = 56
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.398) 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 = 357
      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 = 357
      npar = 3
      par(1) = 16
      par(2) = 16
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.401) 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 = 358
      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 = 358
      npar = 3
      par(1) = 16
      par(2) = 7
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.402) 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 = 359
      natmed = 'LTBL leadGlassF800'
      nmat = 78
      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 = 359
      npar = 3
      par(1) = 1
      par(2) = 1
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.405) 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 = 360
      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 = 360
      npar = 3
      par(1) = 7
      par(2) = 2
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.406) 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 = 361
      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 = 361
      npar = 3
      par(1) = 7
      par(2) = 2
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.409) 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 = 362
      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 = 362
      npar = 3
      par(1) = 16
      par(2) = 7
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.412) 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 = 363
      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 = 363
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 9.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.415) 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 = 364
      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 = 364
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 9.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.416) 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 = 365
      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 = 365
      npar = 3
      par(1) = 136
      par(2) = 68.5
      par(3) = 91.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.417) 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 = 366
      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 = 366
      npar = 3
      par(1) = 136
      par(2) = 33.5
      par(3) = 91.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.418) 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 = 367
      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 = 367
      npar = 3
      par(1) = 50
      par(2) = 1.5
      par(3) = 91.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.419) 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 = 368
      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 = 368
      npar = 3
      par(1) = 136
      par(2) = 68.5
      par(3) = 8.9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.420) 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 = 369
      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 = 369
      npar = 3
      par(1) = 36
      par(2) = 1.5
      par(3) = 8.9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.421) 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 = 370
      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 = 370
      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.422) 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 = 371
      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 = 371
      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.423) 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 = 372
      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 = 372
      npar = 3
      par(1) = 10
      par(2) = 5
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.424) 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 = 373
      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 = 373
      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.425) 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 = 374
      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 = 374
      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.426) 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 = 375
      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 = 375
      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.427) 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 = 376
      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 = 376
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.2875
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.428) 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 = 377
      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 = 377
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.0125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.429) 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 = 378
      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 = 378
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.2875
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.430) 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 = 379
      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 = 379
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.0125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.431) 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 = 380
      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 = 380
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 0.3
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.432) 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 = 381
      natmed = 'FF01 Scintillator'
      nmat = 21
      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 = 381
      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.433) stop 'consistency check #1 failed'

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

      itmed = 382
      natmed = 'FF02 Scintillator'
      nmat = 21
      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 = 382
      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.434) stop 'consistency check #1 failed'

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

      itmed = 383
      natmed = 'FF03 Scintillator'
      nmat = 21
      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 = 383
      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.435) stop 'consistency check #1 failed'

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

      itmed = 384
      natmed = 'FF04 Scintillator'
      nmat = 21
      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 = 384
      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.436) stop 'consistency check #1 failed'

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

      itmed = 385
      natmed = 'FF05 Scintillator'
      nmat = 21
      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 = 385
      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.437) stop 'consistency check #1 failed'

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

      itmed = 386
      natmed = 'FF06 Scintillator'
      nmat = 21
      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 = 386
      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.438) stop 'consistency check #1 failed'

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

      itmed = 387
      natmed = 'FF07 Scintillator'
      nmat = 21
      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 = 387
      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.439) stop 'consistency check #1 failed'

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

      itmed = 388
      natmed = 'FF08 Scintillator'
      nmat = 21
      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 = 388
      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.440) stop 'consistency check #1 failed'

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

      itmed = 389
      natmed = 'FF09 Scintillator'
      nmat = 21
      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 = 389
      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.441) stop 'consistency check #1 failed'

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

      itmed = 390
      natmed = 'FF0a Scintillator'
      nmat = 21
      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 = 390
      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.442) stop 'consistency check #1 failed'

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

      itmed = 391
      natmed = 'FF0b Scintillator'
      nmat = 21
      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 = 391
      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.443) stop 'consistency check #1 failed'

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

      itmed = 392
      natmed = 'FF0c Scintillator'
      nmat = 21
      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 = 392
      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.444) stop 'consistency check #1 failed'

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

      itmed = 393
      natmed = 'FF0d Scintillator'
      nmat = 21
      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 = 393
      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.445) stop 'consistency check #1 failed'

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

      itmed = 394
      natmed = 'FF0e Scintillator'
      nmat = 21
      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 = 394
      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.446) stop 'consistency check #1 failed'

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

      itmed = 395
      natmed = 'FF0f Scintillator'
      nmat = 21
      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 = 395
      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.447) stop 'consistency check #1 failed'

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

      itmed = 396
      natmed = 'FF10 Scintillator'
      nmat = 21
      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 = 396
      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.448) stop 'consistency check #1 failed'

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

      itmed = 397
      natmed = 'FF11 Scintillator'
      nmat = 21
      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 = 397
      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.449) stop 'consistency check #1 failed'

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

      itmed = 398
      natmed = 'FF12 Scintillator'
      nmat = 21
      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 = 398
      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.450) stop 'consistency check #1 failed'

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

      itmed = 399
      natmed = 'FF13 Scintillator'
      nmat = 21
      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 = 399
      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.451) stop 'consistency check #1 failed'

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

      itmed = 400
      natmed = 'FF14 Scintillator'
      nmat = 21
      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 = 400
      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.452) stop 'consistency check #1 failed'

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

      itmed = 401
      natmed = 'FF15 Scintillator'
      nmat = 21
      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 = 401
      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.453) stop 'consistency check #1 failed'

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

      itmed = 402
      natmed = 'FF16 Scintillator'
      nmat = 21
      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 = 402
      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.454) stop 'consistency check #1 failed'

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

      itmed = 403
      natmed = 'FF17 Scintillator'
      nmat = 21
      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 = 403
      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.455) stop 'consistency check #1 failed'

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

      itmed = 404
      natmed = 'FF18 Scintillator'
      nmat = 21
      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 = 404
      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.456) stop 'consistency check #1 failed'

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

      itmed = 405
      natmed = 'WF19 Scintillator'
      nmat = 21
      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 = 405
      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.457) stop 'consistency check #1 failed'

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

      itmed = 406
      natmed = 'WF1a Scintillator'
      nmat = 21
      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 = 406
      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.458) stop 'consistency check #1 failed'

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

      itmed = 407
      natmed = 'WF1b Scintillator'
      nmat = 21
      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 = 407
      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.459) stop 'consistency check #1 failed'

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

      itmed = 408
      natmed = 'WF1c Scintillator'
      nmat = 21
      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 = 408
      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.460) stop 'consistency check #1 failed'

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

      itmed = 409
      natmed = 'WF1d Scintillator'
      nmat = 21
      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 = 409
      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.461) stop 'consistency check #1 failed'

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

      itmed = 410
      natmed = 'WF1e Scintillator'
      nmat = 21
      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 = 410
      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.462) stop 'consistency check #1 failed'

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

      itmed = 411
      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 = 411
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 31.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.463) 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 = 412
      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 = 412
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 31.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.464) 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 = 413
      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 = 413
      npar = 3
      par(1) = 110
      par(2) = 15
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.465) 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 = 414
      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 = 414
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.466) 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 = 415
      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 = 415
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.467) 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 = 416
      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 = 416
      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.468) 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 = 417
      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 = 417
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 16.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.469) 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 = 418
      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 = 418
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 16.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.470) 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 = 419
      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 = 419
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.471) 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 = 420
      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 = 420
      npar = 3
      par(1) = 850
      par(2) = 1
      par(3) = 1500
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.472) 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 = 421
      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 = 421
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.473) 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 = 422
      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 = 422
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 225
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.474) 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 = 423
      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 = 423
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 225
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.475) 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 = 424
      natmed = 'CAP2 Mylar'
      nmat = 29
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 424
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 0.025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.476) 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

      function getColumn()
      implicit none
      integer getColumn
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(476)
      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,    1,    0,    0,
     +    21,    0,    0,   23,    0,   25,    0,    0,    0,   45,
     +     0,    0,    0,  104,    0,    0,  132,    0,    0,  160/
      data (istart(i),i=401,476) /
     +     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,    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(476)
      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,    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,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,400) /
     +     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,    0,    0,    0,    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,476) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    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(476)
      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,    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,    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/
      data (istart(i),i=401,476) /
     +    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,    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(476)
      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) /
     +     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,    0,    0/
      data (istart(i),i=401,476) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    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(476)
      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,    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,    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,476) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    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(476)
      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,    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/
      data (istart(i),i=401,476) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    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(476)
      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,    1,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     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,    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,476) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    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(476)
      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,    1,    0,    0,
     +    21,    0,    0,   23,    0,   25,    0,    0,   45,    0,
     +     0,    0,   73,    0,    0,   76,    0,    0,   79,    0/
      data (istart(i),i=401,476) /
     +     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,    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(476)
      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,    1,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,   41,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     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,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,400) /
     +     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,    0,    0,    0,    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,476) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    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,
     +    31,   32,   33,   34,   35,   36,   37,   38,   39,   40,
     +     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
      
      refl = 0
      absl = 0
      rind = 0
      plsh = 1
      eff = 0
      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