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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      chname = 'BPTO'
      chshap = 'TUBE'
      nmed = 6
      npar = 3
      par(1) = 0
      par(2) = 12.7
      par(3) = 15.24
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.6) stop 'consistency check #1 failed'

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

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

      chname = 'BPTI'
      chshap = 'TUBE'
      nmed = 7
      npar = 3
      par(1) = 0
      par(2) = 12.4
      par(3) = 15.24
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.7) stop 'consistency check #1 failed'

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

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

      chname = 'BFO1'
      chshap = 'TUBE'
      nmed = 8
      npar = 3
      par(1) = 12.7
      par(2) = 15.24
      par(3) = 1.42
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.8) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'FCAP'
      chshap = 'TUBE'
      nmed = 9
      npar = 3
      par(1) = 0
      par(2) = 10.16
      par(3) = 0.0125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.9) stop 'consistency check #1 failed'

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

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

      chname = 'BFO2'
      chshap = 'TUBE'
      nmed = 10
      npar = 3
      par(1) = 10.16
      par(2) = 15.24
      par(3) = 1.42
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.10) stop 'consistency check #1 failed'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      imate = 17
      chnama = 'Tungsten'
      a = 183.85
      z = 74
      dens = 19.3
      radl = 0.35025907
      absl = 9.5854922
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

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

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

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

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

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

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

      chname = 'AIR1'
      chshap = 'BOX '
      nmed = 19
      npar = 3
      par(1) = 0.025
      par(2) = 0.15
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.19) stop 'consistency check #1 failed'

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

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

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

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

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

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

      chname = 'AIR2'
      chshap = 'BOX '
      nmed = 21
      npar = 3
      par(1) = 0.025
      par(2) = 0.25
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.22) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AIR3'
      chshap = 'BOX '
      nmed = 22
      npar = 3
      par(1) = 0.025
      par(2) = 0.25
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.24) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AIR4'
      chshap = 'BOX '
      nmed = 23
      npar = 3
      par(1) = 0.025
      par(2) = 0.35
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.26) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AIR5'
      chshap = 'BOX '
      nmed = 24
      npar = 3
      par(1) = 0.025
      par(2) = 0.35
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.28) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AIR6'
      chshap = 'BOX '
      nmed = 25
      npar = 3
      par(1) = 0.025
      par(2) = 0.45
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.30) stop 'consistency check #1 failed'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      chname = 'AOR1'
      chshap = 'BOX '
      nmed = 28
      npar = 3
      par(1) = 0.025
      par(2) = 0.05
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.34) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AOR2'
      chshap = 'BOX '
      nmed = 29
      npar = 3
      par(1) = 0.025
      par(2) = 0.15
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.35) stop 'consistency check #1 failed'

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

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

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

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

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

      chname = 'AOR3'
      chshap = 'BOX '
      nmed = 30
      npar = 3
      par(1) = 0.025
      par(2) = 0.35
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.37) stop 'consistency check #1 failed'

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

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

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

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

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

      chname = 'AOR4'
      chshap = 'BOX '
      nmed = 31
      npar = 3
      par(1) = 0.025
      par(2) = 0.5
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.39) stop 'consistency check #1 failed'

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

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

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

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

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

      chname = 'AOR5'
      chshap = 'BOX '
      nmed = 32
      npar = 3
      par(1) = 0.025
      par(2) = 1.75
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.41) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AOR6'
      chshap = 'BOX '
      nmed = 33
      npar = 3
      par(1) = 0.025
      par(2) = 1.75
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.43) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AOR7'
      chshap = 'BOX '
      nmed = 34
      npar = 3
      par(1) = 0.025
      par(2) = 1.85
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.45) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AOR8'
      chshap = 'BOX '
      nmed = 35
      npar = 3
      par(1) = 0.025
      par(2) = 1.95
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.47) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AOR9'
      chshap = 'BOX '
      nmed = 36
      npar = 3
      par(1) = 0.025
      par(2) = 1.95
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.49) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AORA'
      chshap = 'BOX '
      nmed = 37
      npar = 3
      par(1) = 0.025
      par(2) = 2.05
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.51) stop 'consistency check #1 failed'

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

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

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

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

      chname = 'AORB'
      chshap = 'BOX '
      nmed = 38
      npar = 3
      par(1) = 0.025
      par(2) = 2.05
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.53) stop 'consistency check #1 failed'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      chname = 'PCPB'
      chshap = 'BOX '
      nmed = 40
      npar = 3
      par(1) = 15.24
      par(2) = 15.24
      par(3) = 10
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.56) stop 'consistency check #1 failed'

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

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

      chname = 'PCTT'
      chshap = 'BOX '
      nmed = 41
      npar = 3
      par(1) = 2.54
      par(2) = 2.54
      par(3) = 10
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.57) stop 'consistency check #1 failed'

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

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

      chname = 'PCTH'
      chshap = 'TUBE'
      nmed = 42
      npar = 3
      par(1) = 0
      par(2) = 0.17
      par(3) = 10
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.58) stop 'consistency check #1 failed'

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

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

      chname = 'FOI1'
      chshap = 'TUBE'
      nmed = 43
      npar = 3
      par(1) = 1.27
      par(2) = 8.57
      par(3) = 1.07
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.59) stop 'consistency check #1 failed'

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

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

      chname = 'F1CP'
      chshap = 'TUBE'
      nmed = 44
      npar = 3
      par(1) = 0
      par(2) = 1.27
      par(3) = 0.0075
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.60) stop 'consistency check #1 failed'

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

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

      chname = 'FOPO'
      chshap = 'ELTU'
      nmed = 45
      npar = 3
      par(1) = 5.11
      par(2) = 2.45
      par(3) = 3.325
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.61) stop 'consistency check #1 failed'

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

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

      chname = 'FOPI'
      chshap = 'ELTU'
      nmed = 46
      npar = 3
      par(1) = 4.95
      par(2) = 2.29
      par(3) = 3.325
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.62) stop 'consistency check #1 failed'

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

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

      chname = 'MAG1'
      chshap = 'BOX '
      nmed = 47
      npar = 3
      par(1) = 14.6
      par(2) = 12.4
      par(3) = 177.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.63) stop 'consistency check #1 failed'

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

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

      chname = 'POL1'
      chshap = 'BOX '
      nmed = 48
      npar = 3
      par(1) = 14.6
      par(2) = 4.975
      par(3) = 177.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.64) stop 'consistency check #1 failed'

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

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

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

      chname = 'GAP1'
      chshap = 'BOX '
      nmed = 49
      npar = 3
      par(1) = 4.745
      par(2) = 2.45
      par(3) = 177.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.65) stop 'consistency check #1 failed'

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

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

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

      chname = 'MPO1'
      chshap = 'ELTU'
      nmed = 50
      npar = 3
      par(1) = 5.11
      par(2) = 2.45
      par(3) = 177.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.66) stop 'consistency check #1 failed'

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

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

      chname = 'MPI1'
      chshap = 'ELTU'
      nmed = 51
      npar = 3
      par(1) = 4.95
      par(2) = 2.29
      par(3) = 177.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.67) stop 'consistency check #1 failed'

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

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

      chname = 'WTOP'
      chshap = 'BOX '
      nmed = 52
      npar = 3
      par(1) = 50.8
      par(2) = 17.9
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.68) stop 'consistency check #1 failed'

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

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

      chname = 'WBOT'
      chshap = 'BOX '
      nmed = 53
      npar = 3
      par(1) = 50.8
      par(2) = 43.8
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.69) stop 'consistency check #1 failed'

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

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

      chname = 'WSID'
      chshap = 'BOX '
      nmed = 54
      npar = 3
      par(1) = 18.1
      par(2) = 12.4
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.70) stop 'consistency check #1 failed'

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

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

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

      chname = 'FTO1'
      chshap = 'ELTU'
      nmed = 55
      npar = 3
      par(1) = 5.11
      par(2) = 2.45
      par(3) = 2.29
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.71) stop 'consistency check #1 failed'

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

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

      chname = 'FTI1'
      chshap = 'ELTU'
      nmed = 56
      npar = 3
      par(1) = 4.95
      par(2) = 2.29
      par(3) = 2.29
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.72) stop 'consistency check #1 failed'

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

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

      chname = 'FTO2'
      chshap = 'TUBE'
      nmed = 57
      npar = 3
      par(1) = 0
      par(2) = 8.57
      par(3) = 2.14
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.73) stop 'consistency check #1 failed'

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

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

      chname = 'FTI2'
      chshap = 'TUBE'
      nmed = 58
      npar = 3
      par(1) = 0
      par(2) = 6.19
      par(3) = 2.14
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.74) stop 'consistency check #1 failed'

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

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

      chname = 'FTO3'
      chshap = 'TUBE'
      nmed = 59
      npar = 3
      par(1) = 0
      par(2) = 6.21
      par(3) = 8.02
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.75) stop 'consistency check #1 failed'

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

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

      chname = 'FTI3'
      chshap = 'TUBE'
      nmed = 60
      npar = 3
      par(1) = 0
      par(2) = 6.19
      par(3) = 8.02
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.76) stop 'consistency check #1 failed'

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

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

      chname = 'FTO4'
      chshap = 'TUBE'
      nmed = 61
      npar = 3
      par(1) = 0
      par(2) = 8.57
      par(3) = 2.14
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.77) stop 'consistency check #1 failed'

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

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

      chname = 'FTI4'
      chshap = 'TUBE'
      nmed = 62
      npar = 3
      par(1) = 0
      par(2) = 6.19
      par(3) = 2.14
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.78) stop 'consistency check #1 failed'

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

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

      chname = 'FTO5'
      chshap = 'TUBE'
      nmed = 63
      npar = 3
      par(1) = 0
      par(2) = 6.35
      par(3) = 2.42
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.79) stop 'consistency check #1 failed'

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

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

      chname = 'FTI5'
      chshap = 'TUBE'
      nmed = 64
      npar = 3
      par(1) = 0
      par(2) = 6.19
      par(3) = 2.42
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.80) stop 'consistency check #1 failed'

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

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

      chname = 'VCO1'
      chshap = 'TUBE'
      nmed = 65
      npar = 3
      par(1) = 0
      par(2) = 9.85
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.81) stop 'consistency check #1 failed'

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

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

      chname = 'VCI1'
      chshap = 'TUBE'
      nmed = 66
      npar = 3
      par(1) = 0
      par(2) = 6.19
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.82) stop 'consistency check #1 failed'

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

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

      chname = 'VCO2'
      chshap = 'TUBE'
      nmed = 67
      npar = 3
      par(1) = 0
      par(2) = 9.85
      par(3) = 25.38
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.83) stop 'consistency check #1 failed'

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

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

      chname = 'VCI2'
      chshap = 'TUBE'
      nmed = 68
      npar = 3
      par(1) = 0
      par(2) = 9.83
      par(3) = 25.38
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.84) stop 'consistency check #1 failed'

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

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

      chname = 'VCO3'
      chshap = 'TUBE'
      nmed = 69
      npar = 3
      par(1) = 0
      par(2) = 9.85
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.85) stop 'consistency check #1 failed'

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

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

      chname = 'VCI3'
      chshap = 'TUBE'
      nmed = 70
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.86) stop 'consistency check #1 failed'

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

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

      chname = 'LBD1'
      chshap = 'BOX '
      nmed = 71
      npar = 3
      par(1) = 40.64
      par(2) = 10.16
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.87) stop 'consistency check #1 failed'

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

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

      chname = 'LBO1'
      chshap = 'TUBE'
      nmed = 72
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.88) stop 'consistency check #1 failed'

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

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

      chname = 'LBI1'
      chshap = 'TUBE'
      nmed = 73
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.89) stop 'consistency check #1 failed'

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

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

      chname = 'F3O1'
      chshap = 'TUBE'
      nmed = 74
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 5.56
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.90) stop 'consistency check #1 failed'

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

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

      chname = 'F3I1'
      chshap = 'TUBE'
      nmed = 75
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 5.56
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.91) stop 'consistency check #1 failed'

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

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

      chname = 'F3O2'
      chshap = 'TUBE'
      nmed = 76
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.92) stop 'consistency check #1 failed'

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

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

      chname = 'F3I2'
      chshap = 'TUBE'
      nmed = 77
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.93) stop 'consistency check #1 failed'

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

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

      chname = 'F3O3'
      chshap = 'TUBE'
      nmed = 78
      npar = 3
      par(1) = 0
      par(2) = 2.08
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.94) stop 'consistency check #1 failed'

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

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

      chname = 'F3I3'
      chshap = 'TUBE'
      nmed = 79
      npar = 3
      par(1) = 0
      par(2) = 2.06
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.95) stop 'consistency check #1 failed'

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

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

      chname = 'F3O4'
      chshap = 'TUBE'
      nmed = 80
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.96) stop 'consistency check #1 failed'

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

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

      chname = 'F3I4'
      chshap = 'TUBE'
      nmed = 81
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.97) stop 'consistency check #1 failed'

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

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

      chname = 'F3O5'
      chshap = 'TUBE'
      nmed = 82
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 2.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.98) stop 'consistency check #1 failed'

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

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

      chname = 'F3I5'
      chshap = 'TUBE'
      nmed = 83
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 2.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.99) stop 'consistency check #1 failed'

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

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

      chname = 'OCOL'
      chshap = 'TUBE'
      nmed = 84
      npar = 3
      par(1) = 0
      par(2) = 10
      par(3) = 25.4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.100) stop 'consistency check #1 failed'

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

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

      chname = 'ICOL'
      chshap = 'TUBE'
      nmed = 85
      npar = 3
      par(1) = 0
      par(2) = 0.3
      par(3) = 25.4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.101) stop 'consistency check #1 failed'

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

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

      chname = 'F4O1'
      chshap = 'TUBE'
      nmed = 86
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.102) stop 'consistency check #1 failed'

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

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

      chname = 'F4I1'
      chshap = 'TUBE'
      nmed = 87
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.103) stop 'consistency check #1 failed'

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

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

      chname = 'F4O2'
      chshap = 'TUBE'
      nmed = 88
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.104) stop 'consistency check #1 failed'

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

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

      chname = 'F4I2'
      chshap = 'TUBE'
      nmed = 89
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.105) stop 'consistency check #1 failed'

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

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

      chname = 'F4O3'
      chshap = 'TUBE'
      nmed = 90
      npar = 3
      par(1) = 0
      par(2) = 2.08
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.106) stop 'consistency check #1 failed'

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

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

      chname = 'F4I3'
      chshap = 'TUBE'
      nmed = 91
      npar = 3
      par(1) = 0
      par(2) = 2.06
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.107) stop 'consistency check #1 failed'

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

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

      chname = 'F4O4'
      chshap = 'TUBE'
      nmed = 92
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.108) stop 'consistency check #1 failed'

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

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

      chname = 'F4I4'
      chshap = 'TUBE'
      nmed = 93
      npar = 3
      par(1) = 0
      par(2) = 1.745
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.109) stop 'consistency check #1 failed'

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

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

      chname = 'F4O5'
      chshap = 'TUBE'
      nmed = 94
      npar = 3
      par(1) = 0
      par(2) = 1.905
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.110) stop 'consistency check #1 failed'

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

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

      chname = 'F4I5'
      chshap = 'TUBE'
      nmed = 95
      npar = 3
      par(1) = 0
      par(2) = 1.745
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.111) stop 'consistency check #1 failed'

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

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

      chname = 'POL2'
      chshap = 'BOX '
      nmed = 96
      npar = 3
      par(1) = 21
      par(2) = 10.4
      par(3) = 18
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.112) stop 'consistency check #1 failed'

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

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

      chname = 'GAP2'
      chshap = 'BOX '
      nmed = 97
      npar = 3
      par(1) = 10.15
      par(2) = 2.5
      par(3) = 18
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.113) stop 'consistency check #1 failed'

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

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

      chname = 'MPO2'
      chshap = 'TUBE'
      nmed = 98
      npar = 3
      par(1) = 0
      par(2) = 1.905
      par(3) = 18
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.114) stop 'consistency check #1 failed'

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

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

      chname = 'MPI2'
      chshap = 'TUBE'
      nmed = 99
      npar = 3
      par(1) = 0
      par(2) = 1.745
      par(3) = 18
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.115) stop 'consistency check #1 failed'

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

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

      chname = 'F5O1'
      chshap = 'TUBE'
      nmed = 100
      npar = 3
      par(1) = 0
      par(2) = 1.905
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.116) stop 'consistency check #1 failed'

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

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

      chname = 'F5I1'
      chshap = 'TUBE'
      nmed = 101
      npar = 3
      par(1) = 0
      par(2) = 1.745
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.117) stop 'consistency check #1 failed'

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

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

      chname = 'F5O2'
      chshap = 'TUBE'
      nmed = 102
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.118) stop 'consistency check #1 failed'

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

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

      chname = 'F5I2'
      chshap = 'TUBE'
      nmed = 103
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.119) stop 'consistency check #1 failed'

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

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

      chname = 'F5O3'
      chshap = 'TUBE'
      nmed = 104
      npar = 3
      par(1) = 0
      par(2) = 2.08
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.120) stop 'consistency check #1 failed'

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

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

      chname = 'F5I3'
      chshap = 'TUBE'
      nmed = 105
      npar = 3
      par(1) = 0
      par(2) = 2.06
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.121) stop 'consistency check #1 failed'

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

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

      chname = 'F5O4'
      chshap = 'TUBE'
      nmed = 106
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.122) stop 'consistency check #1 failed'

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

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

      chname = 'F5I4'
      chshap = 'TUBE'
      nmed = 107
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.123) stop 'consistency check #1 failed'

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

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

      chname = 'F5O5'
      chshap = 'TUBE'
      nmed = 108
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.124) stop 'consistency check #1 failed'

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

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

      chname = 'F5I5'
      chshap = 'TUBE'
      nmed = 109
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.125) stop 'consistency check #1 failed'

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

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

      chname = 'BPO1'
      chshap = 'TUBE'
      nmed = 110
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 50.16
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.126) stop 'consistency check #1 failed'

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

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

      chname = 'BPI1'
      chshap = 'TUBE'
      nmed = 111
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 50.16
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.127) stop 'consistency check #1 failed'

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

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

      chname = 'LBD2'
      chshap = 'BOX '
      nmed = 112
      npar = 3
      par(1) = 40.64
      par(2) = 10.16
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.128) stop 'consistency check #1 failed'

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

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

      chname = 'LBO2'
      chshap = 'TUBE'
      nmed = 113
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.129) stop 'consistency check #1 failed'

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

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

      chname = 'LBI2'
      chshap = 'TUBE'
      nmed = 114
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 5.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.130) stop 'consistency check #1 failed'

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

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

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

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

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

      chname = 'F6O1'
      chshap = 'TUBE'
      nmed = 116
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.132) stop 'consistency check #1 failed'

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

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

      chname = 'F6I1'
      chshap = 'TUBE'
      nmed = 117
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.133) stop 'consistency check #1 failed'

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

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

      chname = 'F6O2'
      chshap = 'TUBE'
      nmed = 118
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.134) stop 'consistency check #1 failed'

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

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

      chname = 'F6I2'
      chshap = 'TUBE'
      nmed = 119
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.135) stop 'consistency check #1 failed'

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

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

      chname = 'F6O3'
      chshap = 'TUBE'
      nmed = 120
      npar = 3
      par(1) = 0
      par(2) = 2.08
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.136) stop 'consistency check #1 failed'

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

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

      chname = 'F6I3'
      chshap = 'TUBE'
      nmed = 121
      npar = 3
      par(1) = 0
      par(2) = 2.06
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.137) stop 'consistency check #1 failed'

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

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

      chname = 'F6O4'
      chshap = 'TUBE'
      nmed = 122
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.138) stop 'consistency check #1 failed'

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

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

      chname = 'F6I4'
      chshap = 'TUBE'
      nmed = 123
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.139) stop 'consistency check #1 failed'

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

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

      chname = 'F6O5'
      chshap = 'TUBE'
      nmed = 124
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.140) stop 'consistency check #1 failed'

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

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

      chname = 'F6I5'
      chshap = 'TUBE'
      nmed = 125
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.141) stop 'consistency check #1 failed'

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

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

      chname = 'TBO1'
      chshap = 'BOX '
      nmed = 126
      npar = 3
      par(1) = 11
      par(2) = 10
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.142) stop 'consistency check #1 failed'

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

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

      chname = 'TBI1'
      chshap = 'TUBE'
      nmed = 127
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.143) stop 'consistency check #1 failed'

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

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

      chname = 'TBO2'
      chshap = 'BOX '
      nmed = 128
      npar = 3
      par(1) = 11
      par(2) = 10
      par(3) = 10.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.144) stop 'consistency check #1 failed'

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

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

      chname = 'TBI2'
      chshap = 'BOX '
      nmed = 129
      npar = 3
      par(1) = 10.8
      par(2) = 9.8
      par(3) = 10.8
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.145) stop 'consistency check #1 failed'

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

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

      chname = 'PTAR'
      chshap = 'BOX '
      nmed = 130
      npar = 3
      par(1) = 0.5
      par(2) = 0.5
      par(3) = 0.02225
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.146) stop 'consistency check #1 failed'

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

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

      chname = 'TBO3'
      chshap = 'BOX '
      nmed = 131
      npar = 3
      par(1) = 11
      par(2) = 10
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.147) stop 'consistency check #1 failed'

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

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

      chname = 'TBI3'
      chshap = 'TUBE'
      nmed = 132
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 0.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.148) stop 'consistency check #1 failed'

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

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

      chname = 'F7O1'
      chshap = 'TUBE'
      nmed = 133
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.149) stop 'consistency check #1 failed'

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

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

      chname = 'F7I1'
      chshap = 'TUBE'
      nmed = 134
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.150) stop 'consistency check #1 failed'

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

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

      chname = 'F7O2'
      chshap = 'TUBE'
      nmed = 135
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.151) stop 'consistency check #1 failed'

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

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

      chname = 'F7I2'
      chshap = 'TUBE'
      nmed = 136
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.152) stop 'consistency check #1 failed'

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

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

      chname = 'F7O3'
      chshap = 'TUBE'
      nmed = 137
      npar = 3
      par(1) = 0
      par(2) = 2.08
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.153) stop 'consistency check #1 failed'

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

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

      chname = 'F7I3'
      chshap = 'TUBE'
      nmed = 138
      npar = 3
      par(1) = 0
      par(2) = 2.06
      par(3) = 3.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.154) stop 'consistency check #1 failed'

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

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

      chname = 'F7O4'
      chshap = 'TUBE'
      nmed = 139
      npar = 3
      par(1) = 0
      par(2) = 4.29
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.155) stop 'consistency check #1 failed'

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

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

      chname = 'F7I4'
      chshap = 'TUBE'
      nmed = 140
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 1.58
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.156) stop 'consistency check #1 failed'

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

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

      chname = 'F7O5'
      chshap = 'TUBE'
      nmed = 141
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.157) stop 'consistency check #1 failed'

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

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

      chname = 'F7I5'
      chshap = 'TUBE'
      nmed = 142
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 4.13
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.158) stop 'consistency check #1 failed'

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

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

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

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

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

      chname = 'ENTR'
      chshap = 'BOX '
      nmed = 144
      npar = 3
      par(1) = 46
      par(2) = 135
      par(3) = 30.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.160) stop 'consistency check #1 failed'

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

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

      chname = 'OBHO'
      chshap = 'TUBE'
      nmed = 145
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.161) stop 'consistency check #1 failed'

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

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

      chname = 'IBHO'
      chshap = 'TUBE'
      nmed = 146
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 60.96
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.162) stop 'consistency check #1 failed'

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

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

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

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

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

      chname = 'OWHO'
      chshap = 'TUBE'
      nmed = 148
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 2.54
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.164) stop 'consistency check #1 failed'

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

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

      chname = 'IWHO'
      chshap = 'TUBE'
      nmed = 149
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 2.54
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.165) stop 'consistency check #1 failed'

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

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

      chname = 'BPO2'
      chshap = 'TUBE'
      nmed = 150
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 63.86
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.166) stop 'consistency check #1 failed'

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

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

      chname = 'BPI2'
      chshap = 'TUBE'
      nmed = 151
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 63.86
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.167) stop 'consistency check #1 failed'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      chname = 'TGFL'
      chshap = 'TUBE'
      nmed = 156
      npar = 3
      par(1) = 8.5
      par(2) = 12.65
      par(3) = 2.54
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.172) stop 'consistency check #1 failed'

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

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

      chname = 'TGF1'
      chshap = 'TUBE'
      nmed = 157
      npar = 3
      par(1) = 8.5
      par(2) = 12.65
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.173) stop 'consistency check #1 failed'

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

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

      chname = 'TGF2'
      chshap = 'TUBE'
      nmed = 158
      npar = 3
      par(1) = 10.1
      par(2) = 12.65
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.174) stop 'consistency check #1 failed'

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

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

      chname = 'TARG'
      chshap = 'TUBE'
      nmed = 159
      npar = 3
      par(1) = 0
      par(2) = 4.7
      par(3) = 21.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.175) stop 'consistency check #1 failed'

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

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

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

      chname = 'CYLW'
      chshap = 'TUBE'
      nmed = 160
      npar = 3
      par(1) = 3.7
      par(2) = 4.7
      par(3) = 21.1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.176) stop 'consistency check #1 failed'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      chname = 'LASS'
      chshap = 'PCON'
      nmed = 167
      npar = 36
      par(1) = 0
      par(2) = 360
      par(3) = 11
      par(4) = -70.8
      par(5) = 12.65
      par(6) = 188
      par(7) = -12.5
      par(8) = 12.65
      par(9) = 188
      par(10) = 4.7
      par(11) = 8.5
      par(12) = 188
      par(13) = 10.7
      par(14) = 7.9
      par(15) = 188
      par(16) = 34.9
      par(17) = 7.9
      par(18) = 188
      par(19) = 34.9
      par(20) = 6.9
      par(21) = 188
      par(22) = 39.9
      par(23) = 6.9
      par(24) = 188
      par(25) = 43.9
      par(26) = 4.7
      par(27) = 188
      par(28) = 86.1
      par(29) = 4.7
      par(30) = 188
      par(31) = 86.1
      par(32) = 0
      par(33) = 188
      par(34) = 460
      par(35) = 0
      par(36) = 188
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.183) stop 'consistency check #1 failed'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      chname = 'STRO'
      chshap = 'TUBE'
      nmed = 176
      npar = 3
      par(1) = 7
      par(2) = 8.32
      par(3) = 0.14
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.192) stop 'consistency check #1 failed'

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

      itmed = 177
      natmed = 'STSI Silicon'
      nmat = 9
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STSI'
      chshap = 'TUBE'
      nmed = 177
      npar = 3
      par(1) = 7.34021
      par(2) = 7.641863
      par(3) = 0.05
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.193) stop 'consistency check #1 failed'

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

      imate = 25
      namate = 'SiliconDioxide'
      wmat(1) = 1
      call gfmate(9,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 2
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.6
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

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

      chname = 'STSS'
      chshap = 'TUBE'
      nmed = 178
      npar = 3
      par(1) = 7.34021
      par(2) = 7.641863
      par(3) = 0.05
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.194) stop 'consistency check #1 failed'

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

      imate = 28
      namate = 'BoricOxide'
      wmat(1) = 2
      call gfmate(15,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 3
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.46
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 30
      namate = 'Sodium'
      a = 22.9898
      z = 11
      dens = 0.969
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

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

      imate = 32
      namate = 'Potassium'
      a = 39.098
      z = 19
      dens = 0.86
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 31
      namate = 'PotassiumOxide'
      wmat(1) = 2
      call gfmate(32,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.35
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 33
      namate = 'AluminumOxide'
      wmat(1) = 2
      call gfmate(7,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 3
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 3.97
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 34
      namate = 'IronOxide'
      wmat(1) = 1
      call gfmate(10,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 5.7
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 27
      namate = 'BorosilicateGlass'
      wmat(1) = 0.7
      call gfmate(25,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.1
      call gfmate(28,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.08
      call gfmate(29,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.08
      call gfmate(31,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.025
      call gfmate(33,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf)
      wmat(6) = 0.015
      call gfmate(34,chnama,amat(6),zmat(6),dens,radl,absl,ubuf,nwbuf)
      dens = 2.3
      nlmat = 6
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

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

      imate = 26
      namate = 'FR-4'
      wmat(1) = 0.7
      call gfmate(27,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.3
      call gfmate(35,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.91
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

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

      chname = 'STRB'
      chshap = 'TUBE'
      nmed = 179
      npar = 3
      par(1) = 7
      par(2) = 8.32
      par(3) = 0.04
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.195) stop 'consistency check #1 failed'

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

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

      chname = 'STCM'
      chshap = 'TUBE'
      nmed = 180
      npar = 3
      par(1) = 8.2
      par(2) = 8.75
      par(3) = 14.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.196) stop 'consistency check #1 failed'

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

      chname = 'SD01'
      chmoth = 'STCM'
      ndiv = 10
      iaxis = 2
      step = 36
      c0 = 0
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      chname = 'STCB'
      chshap = 'BOX '
      nmed = 181
      npar = 3
      par(1) = 0.05
      par(2) = 1.905
      par(3) = 14.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.198) stop 'consistency check #1 failed'

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

      imate = 37
      namate = 'Polyethylene'
      wmat(1) = 1
      call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 2
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.95
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

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

      itmed = 182
      natmed = 'STC1 CircuitBoards'
      nmat = 36
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STC1'
      chshap = 'BOX '
      nmed = 182
      npar = 3
      par(1) = 0.05
      par(2) = 1.905
      par(3) = 2.682
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.199) stop 'consistency check #1 failed'

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

      imate = 40
      namate = 'Chlorine'
      a = 35.453
      z = 17
      dens = 1.56
      nlmat = 1
      wmat(1) = 1
      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)

      imate = 39
      namate = 'PVC'
      wmat(1) = 2
      call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 3
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 1
      call gfmate(40,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.32
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 38
      namate = 'SignalCables'
      wmat(1) = 0.4
      call gfmate(18,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.6
      call gfmate(39,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 2.003252
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 183
      natmed = 'STC2 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'STC2'
      chshap = 'BOX '
      nmed = 183
      npar = 3
      par(1) = 0.05
      par(2) = 1.27
      par(3) = 12.168
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.200) stop 'consistency check #1 failed'

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

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

      chname = 'CDC'
      chshap = 'TUBE'
      nmed = 184
      npar = 3
      par(1) = 8.75
      par(2) = 60.5663
      par(3) = 81.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.201) 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)

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

      imate = 41
      namate = 'CDchamberGas'
      wmat(1) = 0.474
      call gfmate(4,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.526
      call gfmate(42,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.0018129018
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

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

      chname = 'CDCG'
      chshap = 'TUBE'
      nmed = 185
      npar = 3
      par(1) = 8.75
      par(2) = 57.9374
      par(3) = 81.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.202) 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 = 186
      natmed = 'DCLS CDchamberGas'
      nmat = 41
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DCLS'
      chshap = 'TUBE'
      nmed = 186
      npar = 3
      par(1) = 9.9344
      par(2) = 55.5338
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.203) stop 'consistency check #1 failed'

      chname = 'DCLS'
      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 = '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 = 187
      npar = 3
      par(1) = 8.75
      par(2) = 59.741
      par(3) = 0.47625
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.204) stop 'consistency check #1 failed'

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

      imate = 44
      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 = 43
      namate = 'CarbonFiberEpoxy'
      wmat(1) = 0.375
      call gfmate(44,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.25
      call gfmate(35,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.375
      call gfmate(44,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 = 188
      natmed = 'CDPD CarbonFiberEpoxy'
      nmat = 43
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDPD'
      chshap = 'TUBE'
      nmed = 188
      npar = 3
      par(1) = 8.75
      par(2) = 59.741
      par(3) = 0.3
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.205) stop 'consistency check #1 failed'

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

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

      chname = 'STRM'
      chshap = 'TUBE'
      nmed = 189
      npar = 3
      par(1) = 0
      par(2) = 0.7874
      par(3) = 75.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.206) stop 'consistency check #1 failed'

      chname = 'STRM'
      nr = 1
      chmoth = 'DCLS'
      x = 10.7218
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRA'
      chshap = 'PCON'
      nmed = 190
      npar = 21
      par(1) = 0
      par(2) = 360
      par(3) = 6
      par(4) = -75.45
      par(5) = 0.001
      par(6) = 0.254
      par(7) = -72.91
      par(8) = 0.001
      par(9) = 0.254
      par(10) = -72.91
      par(11) = 0.001
      par(12) = 0.776
      par(13) = 72.91
      par(14) = 0.001
      par(15) = 0.776
      par(16) = 72.91
      par(17) = 0.001
      par(18) = 0.254
      par(19) = 75.45
      par(20) = 0.001
      par(21) = 0.254
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.207) stop 'consistency check #1 failed'

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

      imate = 46
      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 = 45
      namate = 'CDCStrawMaterial'
      wmat(1) = 0.187
      call gfmate(7,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.165
      call gfmate(35,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.648
      call gfmate(46,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 = 191
      natmed = 'STRW CDCStrawMaterial'
      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 = 'STRW'
      chshap = 'TUBE'
      nmed = 191
      npar = 3
      par(1) = 0.776
      par(2) = 0.7874
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.208) stop 'consistency check #1 failed'

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

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

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

      imate = 47
      namate = 'Delrin'
      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)
      wmat(3) = 1
      call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.42
      nlmat = -3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

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

      chname = 'DPLG'
      chshap = 'TUBE'
      nmed = 193
      npar = 3
      par(1) = 0.5556
      par(2) = 0.776
      par(3) = 0.47625
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.210) stop 'consistency check #1 failed'

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

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

      chname = 'DFTH'
      chshap = 'TUBE'
      nmed = 194
      npar = 3
      par(1) = 0.3175
      par(2) = 0.5556
      par(3) = 0.8267
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.211) stop 'consistency check #1 failed'

      chname = 'DFTH'
      nr = 1
      chmoth = 'STRM'
      x = 0
      y = 0
      z = 74.6233
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'UPLG'
      chshap = 'TUBE'
      nmed = 195
      npar = 3
      par(1) = 0.5556
      par(2) = 0.776
      par(3) = 0.47625
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.212) stop 'consistency check #1 failed'

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

      itmed = 196
      natmed = 'UFTH 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 = 'UFTH'
      chshap = 'TUBE'
      nmed = 196
      npar = 3
      par(1) = 0.3175
      par(2) = 0.5556
      par(3) = 0.8267
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.213) stop 'consistency check #1 failed'

      chname = 'UFTH'
      nr = 1
      chmoth = 'STRM'
      x = 0
      y = 0
      z = -74.6233
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 49
      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 = 50
      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 = 48
      namate = 'Noryl'
      wmat(1) = 0.35
      call gfmate(49,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.35
      call gfmate(50,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.3
      call gfmate(27,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 1.36
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 197
      natmed = 'UWIN Noryl'
      nmat = 48
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UWIN'
      chshap = 'TUBE'
      nmed = 197
      npar = 3
      par(1) = 0.254
      par(2) = 0.3175
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.214) stop 'consistency check #1 failed'

      chname = 'UWIN'
      nr = 1
      chmoth = 'STRM'
      x = 0
      y = 0
      z = -74.18
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 198
      natmed = 'DWIN Noryl'
      nmat = 48
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DWIN'
      chshap = 'TUBE'
      nmed = 198
      npar = 3
      par(1) = 0.254
      par(2) = 0.3175
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.215) stop 'consistency check #1 failed'

      chname = 'DWIN'
      nr = 1
      chmoth = 'STRM'
      x = 0
      y = 0
      z = 74.18
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 199
      natmed = 'UPES 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 = 'UPES'
      chshap = 'TUBE'
      nmed = 199
      npar = 3
      par(1) = 0.556
      par(2) = 0.7874
      par(3) = 0.225
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.216) stop 'consistency check #1 failed'

      chname = 'UPES'
      nr = 1
      chmoth = 'STRM'
      x = 0
      y = 0
      z = -75.225
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 200
      natmed = 'DWES CarbonFiber'
      nmat = 44
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'DWES'
      chshap = 'TUBE'
      nmed = 200
      npar = 3
      par(1) = 0.556
      par(2) = 0.7874
      par(3) = 0.225
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.217) stop 'consistency check #1 failed'

      chname = 'DWES'
      nr = 1
      chmoth = 'STRM'
      x = 0
      y = 0
      z = 75.225
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 2
      chmoth = 'DCLS'
      x = 10.602046
      y = 1.5980013
      z = 0
      irot = 42
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 3
      chmoth = 'DCLS'
      x = 10.245461
      y = 3.1603058
      z = 0
      irot = 43
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 44
      theta1 = 90
      phi1 = 25.714284
      theta2 = 90
      phi2 = 115.71428
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 4
      chmoth = 'DCLS'
      x = 9.6600081
      y = 4.6520144
      z = 0
      irot = 44
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 5
      chmoth = 'DCLS'
      x = 8.8587671
      y = 6.0398046
      z = 0
      irot = 45
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 46
      theta1 = 90
      phi1 = 42.85714
      theta2 = 90
      phi2 = 132.85714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 6
      chmoth = 'DCLS'
      x = 7.8596359
      y = 7.2926757
      z = 0
      irot = 46
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 7
      chmoth = 'DCLS'
      x = 6.6849335
      y = 8.3826404
      z = 0
      irot = 47
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 8
      chmoth = 'DCLS'
      x = 5.3609006
      y = 9.2853508
      z = 0
      irot = 48
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 49
      theta1 = 90
      phi1 = 68.571424
      theta2 = 90
      phi2 = 158.57142
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 9
      chmoth = 'DCLS'
      x = 3.9171142
      y = 9.9806418
      z = 0
      irot = 49
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 10
      chmoth = 'DCLS'
      x = 2.3858259
      y = 10.452982
      z = 0
      irot = 50
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 11
      chmoth = 'DCLS'
      x = 0.80124218
      y = 10.69182
      z = 0
      irot = 51
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 12
      chmoth = 'DCLS'
      x = -0.80123994
      y = 10.69182
      z = 0
      irot = 52
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 53
      theta1 = 90
      phi1 = 102.85714
      theta2 = 90
      phi2 = -167.14286
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 13
      chmoth = 'DCLS'
      x = -2.3858237
      y = 10.452982
      z = 0
      irot = 53
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 14
      chmoth = 'DCLS'
      x = -3.9171121
      y = 9.9806427
      z = 0
      irot = 54
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 15
      chmoth = 'DCLS'
      x = -5.3608987
      y = 9.2853519
      z = 0
      irot = 55
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 16
      chmoth = 'DCLS'
      x = -6.6849317
      y = 8.3826418
      z = 0
      irot = 56
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 17
      chmoth = 'DCLS'
      x = -7.8596344
      y = 7.2926773
      z = 0
      irot = 57
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 18
      chmoth = 'DCLS'
      x = -8.8587659
      y = 6.0398065
      z = 0
      irot = 58
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 19
      chmoth = 'DCLS'
      x = -9.6600072
      y = 4.6520164
      z = 0
      irot = 59
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 20
      chmoth = 'DCLS'
      x = -10.24546
      y = 3.160308
      z = 0
      irot = 60
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 21
      chmoth = 'DCLS'
      x = -10.602046
      y = 1.5980035
      z = 0
      irot = 61
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 22
      chmoth = 'DCLS'
      x = -10.7218
      y = 2.2455685e-06
      z = 0
      irot = 62
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 23
      chmoth = 'DCLS'
      x = -10.602047
      y = -1.597999
      z = 0
      irot = 63
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 24
      chmoth = 'DCLS'
      x = -10.245461
      y = -3.1603037
      z = 0
      irot = 64
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 25
      chmoth = 'DCLS'
      x = -9.6600091
      y = -4.6520124
      z = 0
      irot = 65
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 26
      chmoth = 'DCLS'
      x = -8.8587684
      y = -6.0398028
      z = 0
      irot = 66
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 27
      chmoth = 'DCLS'
      x = -7.8596375
      y = -7.292674
      z = 0
      irot = 67
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 28
      chmoth = 'DCLS'
      x = -6.6849352
      y = -8.382639
      z = 0
      irot = 68
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 29
      chmoth = 'DCLS'
      x = -5.3609026
      y = -9.2853497
      z = 0
      irot = 69
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 30
      chmoth = 'DCLS'
      x = -3.9171163
      y = -9.980641
      z = 0
      irot = 70
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 31
      chmoth = 'DCLS'
      x = -2.3858281
      y = -10.452981
      z = 0
      irot = 71
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 32
      chmoth = 'DCLS'
      x = -0.80124442
      y = -10.691819
      z = 0
      irot = 72
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 33
      chmoth = 'DCLS'
      x = 0.80123771
      y = -10.69182
      z = 0
      irot = 73
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 34
      chmoth = 'DCLS'
      x = 2.3858215
      y = -10.452983
      z = 0
      irot = 74
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 35
      chmoth = 'DCLS'
      x = 3.91711
      y = -9.9806435
      z = 0
      irot = 75
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 36
      chmoth = 'DCLS'
      x = 5.3608968
      y = -9.285353
      z = 0
      irot = 76
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 37
      chmoth = 'DCLS'
      x = 6.6849299
      y = -8.3826432
      z = 0
      irot = 77
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 38
      chmoth = 'DCLS'
      x = 7.8596329
      y = -7.292679
      z = 0
      irot = 78
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 39
      chmoth = 'DCLS'
      x = 8.8587646
      y = -6.0398084
      z = 0
      irot = 79
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 40
      chmoth = 'DCLS'
      x = 9.6600062
      y = -4.6520184
      z = 0
      irot = 80
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 41
      chmoth = 'DCLS'
      x = 10.245459
      y = -3.1603101
      z = 0
      irot = 81
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 42
      chmoth = 'DCLS'
      x = 10.602046
      y = -1.5980057
      z = 0
      irot = 82
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 43
      chmoth = 'DCLS'
      x = 12.045923
      y = 0.90271705
      z = 0
      irot = 83
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 44
      chmoth = 'DCLS'
      x = 11.776837
      y = 2.6879859
      z = 0
      irot = 84
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 45
      chmoth = 'DCLS'
      x = 11.244676
      y = 4.4132097
      z = 0
      irot = 85
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 46
      chmoth = 'DCLS'
      x = 10.461327
      y = 6.0398496
      z = 0
      irot = 86
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 47
      chmoth = 'DCLS'
      x = 9.4442901
      y = 7.5315693
      z = 0
      irot = 87
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 88
      theta1 = 90
      phi1 = 47.142854
      theta2 = 90
      phi2 = 137.14285
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 48
      chmoth = 'DCLS'
      x = 8.2162831
      y = 8.8550462
      z = 0
      irot = 88
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 89
      theta1 = 90
      phi1 = 55.714282
      theta2 = 90
      phi2 = 145.71428
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 49
      chmoth = 'DCLS'
      x = 6.804738
      y = 9.9807161
      z = 0
      irot = 89
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 50
      chmoth = 'DCLS'
      x = 5.2411862
      y = 10.883433
      z = 0
      irot = 90
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 51
      chmoth = 'DCLS'
      x = 3.5605551
      y = 11.543033
      z = 0
      irot = 91
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 52
      chmoth = 'DCLS'
      x = 1.800387
      y = 11.94478
      z = 0
      irot = 92
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 93
      theta1 = 90
      phi1 = 89.999994
      theta2 = 90
      phi2 = 179.99999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 53
      chmoth = 'DCLS'
      x = 1.2649832e-06
      y = 12.0797
      z = 0
      irot = 93
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 54
      chmoth = 'DCLS'
      x = -1.8003845
      y = 11.94478
      z = 0
      irot = 94
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 55
      chmoth = 'DCLS'
      x = -3.5605526
      y = 11.543033
      z = 0
      irot = 95
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 56
      chmoth = 'DCLS'
      x = -5.2411839
      y = 10.883434
      z = 0
      irot = 96
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 57
      chmoth = 'DCLS'
      x = -6.8047359
      y = 9.9807175
      z = 0
      irot = 97
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 58
      chmoth = 'DCLS'
      x = -8.2162813
      y = 8.855048
      z = 0
      irot = 98
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 59
      chmoth = 'DCLS'
      x = -9.4442885
      y = 7.5315713
      z = 0
      irot = 99
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 60
      chmoth = 'DCLS'
      x = -10.461326
      y = 6.0398518
      z = 0
      irot = 100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 61
      chmoth = 'DCLS'
      x = -11.244675
      y = 4.413212
      z = 0
      irot = 101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 62
      chmoth = 'DCLS'
      x = -11.776836
      y = 2.6879884
      z = 0
      irot = 102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 103
      theta1 = 90
      phi1 = 175.71427
      theta2 = 90
      phi2 = -94.285726
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 63
      chmoth = 'DCLS'
      x = -12.045923
      y = 0.90271957
      z = 0
      irot = 103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 64
      chmoth = 'DCLS'
      x = -12.045923
      y = -0.90271453
      z = 0
      irot = 104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 65
      chmoth = 'DCLS'
      x = -11.776837
      y = -2.6879835
      z = 0
      irot = 105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 66
      chmoth = 'DCLS'
      x = -11.244677
      y = -4.4132073
      z = 0
      irot = 106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 67
      chmoth = 'DCLS'
      x = -10.461329
      y = -6.0398474
      z = 0
      irot = 107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 68
      chmoth = 'DCLS'
      x = -9.4442917
      y = -7.5315674
      z = 0
      irot = 108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 69
      chmoth = 'DCLS'
      x = -8.216285
      y = -8.8550445
      z = 0
      irot = 109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 70
      chmoth = 'DCLS'
      x = -6.80474
      y = -9.9807147
      z = 0
      irot = 110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 71
      chmoth = 'DCLS'
      x = -5.2411885
      y = -10.883432
      z = 0
      irot = 111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 72
      chmoth = 'DCLS'
      x = -3.5605575
      y = -11.543032
      z = 0
      irot = 112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 73
      chmoth = 'DCLS'
      x = -1.8003895
      y = -11.944779
      z = 0
      irot = 113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 114
      theta1 = 90
      phi1 = -90.000018
      theta2 = 90
      phi2 = -1.8e-05
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 74
      chmoth = 'DCLS'
      x = -3.7949497e-06
      y = -12.0797
      z = 0
      irot = 114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 75
      chmoth = 'DCLS'
      x = 1.800382
      y = -11.94478
      z = 0
      irot = 115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 76
      chmoth = 'DCLS'
      x = 3.5605502
      y = -11.543034
      z = 0
      irot = 116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 77
      chmoth = 'DCLS'
      x = 5.2411817
      y = -10.883435
      z = 0
      irot = 117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 78
      chmoth = 'DCLS'
      x = 6.8047338
      y = -9.9807189
      z = 0
      irot = 118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 79
      chmoth = 'DCLS'
      x = 8.2162794
      y = -8.8550497
      z = 0
      irot = 119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 80
      chmoth = 'DCLS'
      x = 9.4442869
      y = -7.5315733
      z = 0
      irot = 120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 81
      chmoth = 'DCLS'
      x = 10.461325
      y = -6.039854
      z = 0
      irot = 121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 82
      chmoth = 'DCLS'
      x = 11.244674
      y = -4.4132144
      z = 0
      irot = 122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 83
      chmoth = 'DCLS'
      x = 11.776836
      y = -2.6879909
      z = 0
      irot = 123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 84
      chmoth = 'DCLS'
      x = 12.045922
      y = -0.9027221
      z = 0
      irot = 124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 125
      theta1 = 90
      phi1 = 2.18133
      theta2 = 90
      phi2 = 92.18133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 85
      chmoth = 'DCLS'
      x = 13.770314
      y = 0.52450846
      z = 0
      irot = 125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 126
      theta1 = 90
      phi1 = 8.8479967
      theta2 = 90
      phi2 = 98.847997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 86
      chmoth = 'DCLS'
      x = 13.616313
      y = 2.1195979
      z = 0
      irot = 126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 127
      theta1 = 90
      phi1 = 15.514663
      theta2 = 90
      phi2 = 105.51466
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 87
      chmoth = 'DCLS'
      x = 13.278174
      y = 3.6860233
      z = 0
      irot = 127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 128
      theta1 = 90
      phi1 = 22.18133
      theta2 = 90
      phi2 = 112.18133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 88
      chmoth = 'DCLS'
      x = 12.76047
      y = 5.2026017
      z = 0
      irot = 128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 129
      theta1 = 90
      phi1 = 28.847997
      theta2 = 90
      phi2 = 118.848
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 89
      chmoth = 'DCLS'
      x = 12.070203
      y = 6.6488237
      z = 0
      irot = 129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 130
      theta1 = 90
      phi1 = 35.514663
      theta2 = 90
      phi2 = 125.51466
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 90
      chmoth = 'DCLS'
      x = 11.216708
      y = 8.0051319
      z = 0
      irot = 130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 131
      theta1 = 90
      phi1 = 42.18133
      theta2 = 90
      phi2 = 132.18133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 91
      chmoth = 'DCLS'
      x = 10.211525
      y = 9.2531843
      z = 0
      irot = 131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 92
      chmoth = 'DCLS'
      x = 9.0682494
      y = 10.376103
      z = 0
      irot = 132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 133
      theta1 = 90
      phi1 = 55.514664
      theta2 = 90
      phi2 = 145.51466
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 93
      chmoth = 'DCLS'
      x = 7.8023411
      y = 11.358703
      z = 0
      irot = 133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 134
      theta1 = 90
      phi1 = 62.18133
      theta2 = 90
      phi2 = 152.18133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 94
      chmoth = 'DCLS'
      x = 6.4309195
      y = 12.187696
      z = 0
      irot = 134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 95
      chmoth = 'DCLS'
      x = 4.9725307
      y = 12.851872
      z = 0
      irot = 135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 96
      chmoth = 'DCLS'
      x = 3.446897
      y = 13.342248
      z = 0
      irot = 136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 97
      chmoth = 'DCLS'
      x = 1.8746499
      y = 13.652192
      z = 0
      irot = 137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 98
      chmoth = 'DCLS'
      x = 0.2770514
      y = 13.777515
      z = 0
      irot = 138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 139
      theta1 = 90
      phi1 = 95.514664
      theta2 = 90
      phi2 = -174.48534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 99
      chmoth = 'DCLS'
      x = -1.3242938
      y = 13.71652
      z = 0
      irot = 139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 140
      theta1 = 90
      phi1 = 102.18133
      theta2 = 90
      phi2 = -167.81867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 100
      chmoth = 'DCLS'
      x = -2.9077301
      y = 13.470032
      z = 0
      irot = 140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 141
      theta1 = 90
      phi1 = 108.848
      theta2 = 90
      phi2 = -161.152
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 101
      chmoth = 'DCLS'
      x = -4.4518444
      y = 13.041386
      z = 0
      irot = 141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 102
      chmoth = 'DCLS'
      x = -5.9357551
      y = 12.436377
      z = 0
      irot = 142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 143
      theta1 = 90
      phi1 = 122.18133
      theta2 = 90
      phi2 = -147.81867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 103
      chmoth = 'DCLS'
      x = -7.339395
      y = 11.663188
      z = 0
      irot = 143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 104
      chmoth = 'DCLS'
      x = -8.6437821
      y = 10.732274
      z = 0
      irot = 144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 145
      theta1 = 90
      phi1 = 135.51466
      theta2 = 90
      phi2 = -134.48534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 105
      chmoth = 'DCLS'
      x = -9.8312769
      y = 9.6562241
      z = 0
      irot = 145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 146
      theta1 = 90
      phi1 = 142.18133
      theta2 = 90
      phi2 = -127.81867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 106
      chmoth = 'DCLS'
      x = -10.88582
      y = 8.4495906
      z = 0
      irot = 146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 147
      theta1 = 90
      phi1 = 148.848
      theta2 = 90
      phi2 = -121.152
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 107
      chmoth = 'DCLS'
      x = -11.793152
      y = 7.1286908
      z = 0
      irot = 147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 108
      chmoth = 'DCLS'
      x = -12.541001
      y = 5.7113878
      z = 0
      irot = 148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 149
      theta1 = 90
      phi1 = 162.18133
      theta2 = 90
      phi2 = -107.81867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 109
      chmoth = 'DCLS'
      x = -13.119255
      y = 4.216848
      z = 0
      irot = 149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 110
      chmoth = 'DCLS'
      x = -13.520094
      y = 2.6652826
      z = 0
      irot = 150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 111
      chmoth = 'DCLS'
      x = -13.738096
      y = 1.0776738
      z = 0
      irot = 151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 112
      chmoth = 'DCLS'
      x = -13.770314
      y = -0.52450867
      z = 0
      irot = 152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 113
      chmoth = 'DCLS'
      x = -13.616313
      y = -2.1195981
      z = 0
      irot = 153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 114
      chmoth = 'DCLS'
      x = -13.278174
      y = -3.6860235
      z = 0
      irot = 154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 115
      chmoth = 'DCLS'
      x = -12.76047
      y = -5.2026019
      z = 0
      irot = 155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 116
      chmoth = 'DCLS'
      x = -12.070203
      y = -6.6488239
      z = 0
      irot = 156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 117
      chmoth = 'DCLS'
      x = -11.216708
      y = -8.005132
      z = 0
      irot = 157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 118
      chmoth = 'DCLS'
      x = -10.211525
      y = -9.2531845
      z = 0
      irot = 158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 119
      chmoth = 'DCLS'
      x = -9.0682493
      y = -10.376103
      z = 0
      irot = 159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 120
      chmoth = 'DCLS'
      x = -7.8023409
      y = -11.358703
      z = 0
      irot = 160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 121
      chmoth = 'DCLS'
      x = -6.4309193
      y = -12.187696
      z = 0
      irot = 161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 122
      chmoth = 'DCLS'
      x = -4.9725305
      y = -12.851872
      z = 0
      irot = 162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 123
      chmoth = 'DCLS'
      x = -3.4468968
      y = -13.342248
      z = 0
      irot = 163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 124
      chmoth = 'DCLS'
      x = -1.8746497
      y = -13.652192
      z = 0
      irot = 164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 125
      chmoth = 'DCLS'
      x = -0.27705118
      y = -13.777515
      z = 0
      irot = 165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 126
      chmoth = 'DCLS'
      x = 1.324294
      y = -13.71652
      z = 0
      irot = 166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 127
      chmoth = 'DCLS'
      x = 2.9077303
      y = -13.470032
      z = 0
      irot = 167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 128
      chmoth = 'DCLS'
      x = 4.4518446
      y = -13.041386
      z = 0
      irot = 168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 129
      chmoth = 'DCLS'
      x = 5.9357553
      y = -12.436377
      z = 0
      irot = 169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 130
      chmoth = 'DCLS'
      x = 7.3393952
      y = -11.663188
      z = 0
      irot = 170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 131
      chmoth = 'DCLS'
      x = 8.6437822
      y = -10.732274
      z = 0
      irot = 171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 132
      chmoth = 'DCLS'
      x = 9.831277
      y = -9.6562239
      z = 0
      irot = 172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 133
      chmoth = 'DCLS'
      x = 10.885821
      y = -8.4495904
      z = 0
      irot = 173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 134
      chmoth = 'DCLS'
      x = 11.793152
      y = -7.1286906
      z = 0
      irot = 174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 135
      chmoth = 'DCLS'
      x = 12.541002
      y = -5.7113876
      z = 0
      irot = 175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 136
      chmoth = 'DCLS'
      x = 13.119255
      y = -4.2168478
      z = 0
      irot = 176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 137
      chmoth = 'DCLS'
      x = 13.520094
      y = -2.6652824
      z = 0
      irot = 177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 138
      chmoth = 'DCLS'
      x = 13.738096
      y = -1.0776736
      z = 0
      irot = 178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 179
      theta1 = 90
      phi1 = 5.51466
      theta2 = 90
      phi2 = 95.51466
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 139
      chmoth = 'DCLS'
      x = 15.074704
      y = 1.4554219
      z = 0
      irot = 179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 140
      chmoth = 'DCLS'
      x = 14.803811
      y = 3.1956472
      z = 0
      irot = 180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 181
      theta1 = 90
      phi1 = 18.847993
      theta2 = 90
      phi2 = 108.84799
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 141
      chmoth = 'DCLS'
      x = 14.33272
      y = 4.8926569
      z = 0
      irot = 181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 182
      theta1 = 90
      phi1 = 25.51466
      theta2 = 90
      phi2 = 115.51466
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 142
      chmoth = 'DCLS'
      x = 13.667805
      y = 6.5235018
      z = 0
      irot = 182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 183
      theta1 = 90
      phi1 = 32.181327
      theta2 = 90
      phi2 = 122.18133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 143
      chmoth = 'DCLS'
      x = 12.818056
      y = 8.0661275
      z = 0
      irot = 183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 184
      theta1 = 90
      phi1 = 38.847994
      theta2 = 90
      phi2 = 128.84799
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 144
      chmoth = 'DCLS'
      x = 11.794964
      y = 9.4996727
      z = 0
      irot = 184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 185
      theta1 = 90
      phi1 = 45.51466
      theta2 = 90
      phi2 = 135.51466
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 145
      chmoth = 'DCLS'
      x = 10.612366
      y = 10.804751
      z = 0
      irot = 185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 186
      theta1 = 90
      phi1 = 52.181327
      theta2 = 90
      phi2 = 142.18133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 146
      chmoth = 'DCLS'
      x = 9.2862543
      y = 11.963714
      z = 0
      irot = 186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 187
      theta1 = 90
      phi1 = 58.847994
      theta2 = 90
      phi2 = 148.84799
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 147
      chmoth = 'DCLS'
      x = 7.8345616
      y = 12.960888
      z = 0
      irot = 187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 188
      theta1 = 90
      phi1 = 65.51466
      theta2 = 90
      phi2 = 155.51466
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 148
      chmoth = 'DCLS'
      x = 6.2769198
      y = 13.782788
      z = 0
      irot = 188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 189
      theta1 = 90
      phi1 = 72.181327
      theta2 = 90
      phi2 = 162.18133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 149
      chmoth = 'DCLS'
      x = 4.6343935
      y = 14.4183
      z = 0
      irot = 189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 150
      chmoth = 'DCLS'
      x = 2.929195
      y = 14.858828
      z = 0
      irot = 190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 151
      chmoth = 'DCLS'
      x = 1.1843841
      y = 15.098417
      z = 0
      irot = 191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 192
      theta1 = 90
      phi1 = 92.181327
      theta2 = 90
      phi2 = -177.81867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 152
      chmoth = 'DCLS'
      x = -0.57644355
      y = 15.133826
      z = 0
      irot = 192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 193
      theta1 = 90
      phi1 = 98.847994
      theta2 = 90
      phi2 = -171.15201
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 153
      chmoth = 'DCLS'
      x = -2.3294758
      y = 14.964575
      z = 0
      irot = 193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 194
      theta1 = 90
      phi1 = 105.51466
      theta2 = 90
      phi2 = -164.48534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 154
      chmoth = 'DCLS'
      x = -4.0510058
      y = 14.592954
      z = 0
      irot = 194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 195
      theta1 = 90
      phi1 = 112.18133
      theta2 = 90
      phi2 = -157.81867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 155
      chmoth = 'DCLS'
      x = -5.717753
      y = 14.023989
      z = 0
      irot = 195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 196
      theta1 = 90
      phi1 = 118.84799
      theta2 = 90
      phi2 = -151.15201
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 156
      chmoth = 'DCLS'
      x = -7.3071774
      y = 13.265373
      z = 0
      irot = 196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 197
      theta1 = 90
      phi1 = 125.51466
      theta2 = 90
      phi2 = -144.48534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 157
      chmoth = 'DCLS'
      x = -8.7977847
      y = 12.327366
      z = 0
      irot = 197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 198
      theta1 = 90
      phi1 = 132.18133
      theta2 = 90
      phi2 = -137.81867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 158
      chmoth = 'DCLS'
      x = -10.169417
      y = 11.222652
      z = 0
      irot = 198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 199
      theta1 = 90
      phi1 = 138.84799
      theta2 = 90
      phi2 = -131.15201
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 159
      chmoth = 'DCLS'
      x = -11.403526
      y = 9.9661714
      z = 0
      irot = 199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 200
      theta1 = 90
      phi1 = 145.51466
      theta2 = 90
      phi2 = -124.48534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 160
      chmoth = 'DCLS'
      x = -12.483421
      y = 8.5749152
      z = 0
      irot = 200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 201
      theta1 = 90
      phi1 = 152.18133
      theta2 = 90
      phi2 = -117.81867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 161
      chmoth = 'DCLS'
      x = -13.394499
      y = 7.067698
      z = 0
      irot = 201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 202
      theta1 = 90
      phi1 = 158.84799
      theta2 = 90
      phi2 = -111.15201
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 162
      chmoth = 'DCLS'
      x = -14.12444
      y = 5.4649023
      z = 0
      irot = 202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 163
      chmoth = 'DCLS'
      x = -14.663372
      y = 3.7882032
      z = 0
      irot = 203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 164
      chmoth = 'DCLS'
      x = -15.004007
      y = 2.0602751
      z = 0
      irot = 204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 165
      chmoth = 'DCLS'
      x = -15.141739
      y = 0.30448529
      z = 0
      irot = 205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 166
      chmoth = 'DCLS'
      x = -15.074704
      y = -1.4554221
      z = 0
      irot = 206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 167
      chmoth = 'DCLS'
      x = -14.80381
      y = -3.1956475
      z = 0
      irot = 207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 168
      chmoth = 'DCLS'
      x = -14.33272
      y = -4.8926571
      z = 0
      irot = 208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 169
      chmoth = 'DCLS'
      x = -13.667805
      y = -6.523502
      z = 0
      irot = 209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 170
      chmoth = 'DCLS'
      x = -12.818056
      y = -8.0661277
      z = 0
      irot = 210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 171
      chmoth = 'DCLS'
      x = -11.794964
      y = -9.4996729
      z = 0
      irot = 211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 172
      chmoth = 'DCLS'
      x = -10.612366
      y = -10.804751
      z = 0
      irot = 212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 173
      chmoth = 'DCLS'
      x = -9.2862541
      y = -11.963714
      z = 0
      irot = 213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 174
      chmoth = 'DCLS'
      x = -7.8345614
      y = -12.960888
      z = 0
      irot = 214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 175
      chmoth = 'DCLS'
      x = -6.2769196
      y = -13.782788
      z = 0
      irot = 215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 176
      chmoth = 'DCLS'
      x = -4.6343933
      y = -14.4183
      z = 0
      irot = 216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 177
      chmoth = 'DCLS'
      x = -2.9291947
      y = -14.858829
      z = 0
      irot = 217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 178
      chmoth = 'DCLS'
      x = -1.1843838
      y = -15.098417
      z = 0
      irot = 218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 179
      chmoth = 'DCLS'
      x = 0.57644379
      y = -15.133826
      z = 0
      irot = 219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 180
      chmoth = 'DCLS'
      x = 2.329476
      y = -14.964575
      z = 0
      irot = 220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 181
      chmoth = 'DCLS'
      x = 4.0510061
      y = -14.592954
      z = 0
      irot = 221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 182
      chmoth = 'DCLS'
      x = 5.7177532
      y = -14.023989
      z = 0
      irot = 222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 183
      chmoth = 'DCLS'
      x = 7.3071776
      y = -13.265373
      z = 0
      irot = 223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 184
      chmoth = 'DCLS'
      x = 8.7977849
      y = -12.327366
      z = 0
      irot = 224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 185
      chmoth = 'DCLS'
      x = 10.169417
      y = -11.222652
      z = 0
      irot = 225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STRM'
      nr = 186
      chmoth = 'DCLS'
      x = 11.403526
      y = -9.9661713
      z = 0
      irot = 226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 227
      theta1 = 90
      phi1 = -34.485338
      theta2 = 90
      phi2 = 55.514662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 187
      chmoth = 'DCLS'
      x = 12.483421
      y = -8.574915
      z = 0
      irot = 227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 228
      theta1 = 90
      phi1 = -27.818672
      theta2 = 90
      phi2 = 62.181328
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 188
      chmoth = 'DCLS'
      x = 13.394499
      y = -7.0676978
      z = 0
      irot = 228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 229
      theta1 = 90
      phi1 = -21.152005
      theta2 = 90
      phi2 = 68.847995
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 189
      chmoth = 'DCLS'
      x = 14.12444
      y = -5.4649021
      z = 0
      irot = 229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 230
      theta1 = 90
      phi1 = -14.485338
      theta2 = 90
      phi2 = 75.514662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 190
      chmoth = 'DCLS'
      x = 14.663372
      y = -3.7882029
      z = 0
      irot = 230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 231
      theta1 = 90
      phi1 = -7.8186716
      theta2 = 90
      phi2 = 82.181328
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 191
      chmoth = 'DCLS'
      x = 15.004007
      y = -2.0602748
      z = 0
      irot = 231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 232
      theta1 = 90
      phi1 = -1.1520049
      theta2 = 90
      phi2 = 88.847995
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 192
      chmoth = 'DCLS'
      x = 15.141739
      y = -0.30448505
      z = 0
      irot = 232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLM'
      chshap = 'TUBE'
      nmed = 201
      npar = 3
      par(1) = 0
      par(2) = 0.7874
      par(3) = 75.575
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.218) stop 'consistency check #1 failed'

      irot = 233
      theta1 = 90
      phi1 = 0
      theta2 = 84.001132
      phi2 = 90
      theta3 = 5.998868
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1
      chmoth = 'DCLS'
      x = 16.932
      y = 0
      z = 0
      irot = 233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      chshap = 'PCON'
      nmed = 202
      npar = 21
      par(1) = 0
      par(2) = 360
      par(3) = 6
      par(4) = -75.575
      par(5) = 0.001
      par(6) = 0.254
      par(7) = -73.035
      par(8) = 0.001
      par(9) = 0.254
      par(10) = -73.035
      par(11) = 0.001
      par(12) = 0.776
      par(13) = 73.035
      par(14) = 0.001
      par(15) = 0.776
      par(16) = 73.035
      par(17) = 0.001
      par(18) = 0.254
      par(19) = 75.575
      par(20) = 0.001
      par(21) = 0.254
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.219) stop 'consistency check #1 failed'

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

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

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

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

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

      chname = 'DFTH'
      nr = 2
      chmoth = 'STLM'
      x = 0
      y = 0
      z = 74.7473
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'UFTH'
      nr = 2
      chmoth = 'STLM'
      x = 0
      y = 0
      z = -74.7473
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UWIN'
      nr = 2
      chmoth = 'STLM'
      x = 0
      y = 0
      z = -74.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'DWIN'
      nr = 2
      chmoth = 'STLM'
      x = 0
      y = 0
      z = 74.3
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 234
      theta1 = 90
      phi1 = 5.4545455
      theta2 = 84.001132
      phi2 = 95.454545
      theta3 = 5.998868
      phi3 = -84.545455
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 2
      chmoth = 'DCLS'
      x = 16.855331
      y = 1.6094889
      z = 0
      irot = 234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 235
      theta1 = 90
      phi1 = 10.909091
      theta2 = 84.001132
      phi2 = 100.90909
      theta3 = 5.998868
      phi3 = -79.090909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 3
      chmoth = 'DCLS'
      x = 16.626017
      y = 3.2044021
      z = 0
      irot = 235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 236
      theta1 = 90
      phi1 = 16.363636
      theta2 = 84.001132
      phi2 = 106.36364
      theta3 = 5.998868
      phi3 = -73.636364
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 4
      chmoth = 'DCLS'
      x = 16.246135
      y = 4.7702957
      z = 0
      irot = 236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 237
      theta1 = 90
      phi1 = 21.818182
      theta2 = 84.001132
      phi2 = 111.81818
      theta3 = 5.998868
      phi3 = -68.181818
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 5
      chmoth = 'DCLS'
      x = 15.719126
      y = 6.2929887
      z = 0
      irot = 237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 238
      theta1 = 90
      phi1 = 27.272727
      theta2 = 84.001132
      phi2 = 117.27273
      theta3 = 5.998868
      phi3 = -62.727273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 6
      chmoth = 'DCLS'
      x = 15.049762
      y = 7.7586915
      z = 0
      irot = 238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 239
      theta1 = 90
      phi1 = 32.727273
      theta2 = 84.001132
      phi2 = 122.72727
      theta3 = 5.998868
      phi3 = -57.272727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 7
      chmoth = 'DCLS'
      x = 14.244105
      y = 9.1541303
      z = 0
      irot = 239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 240
      theta1 = 90
      phi1 = 38.181818
      theta2 = 84.001132
      phi2 = 128.18182
      theta3 = 5.998868
      phi3 = -51.818182
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 8
      chmoth = 'DCLS'
      x = 13.309451
      y = 10.466668
      z = 0
      irot = 240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 241
      theta1 = 90
      phi1 = 43.636364
      theta2 = 84.001132
      phi2 = 133.63636
      theta3 = 5.998868
      phi3 = -46.363636
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 9
      chmoth = 'DCLS'
      x = 12.254265
      y = 11.684418
      z = 0
      irot = 241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 242
      theta1 = 90
      phi1 = 49.090909
      theta2 = 84.001132
      phi2 = 139.09091
      theta3 = 5.998868
      phi3 = -40.909091
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 10
      chmoth = 'DCLS'
      x = 11.088102
      y = 12.796352
      z = 0
      irot = 242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 243
      theta1 = 90
      phi1 = 54.545455
      theta2 = 84.001132
      phi2 = 144.54545
      theta3 = 5.998868
      phi3 = -35.454545
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 11
      chmoth = 'DCLS'
      x = 9.8215236
      y = 13.7924
      z = 0
      irot = 243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 244
      theta1 = 90
      phi1 = 60
      theta2 = 84.001132
      phi2 = 150
      theta3 = 5.998868
      phi3 = -30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 12
      chmoth = 'DCLS'
      x = 8.466
      y = 14.663542
      z = 0
      irot = 244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 245
      theta1 = 90
      phi1 = 65.454545
      theta2 = 84.001132
      phi2 = 155.45455
      theta3 = 5.998868
      phi3 = -24.545455
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 13
      chmoth = 'DCLS'
      x = 7.033807
      y = 15.401889
      z = 0
      irot = 245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 246
      theta1 = 90
      phi1 = 70.909091
      theta2 = 84.001132
      phi2 = 160.90909
      theta3 = 5.998868
      phi3 = -19.090909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 14
      chmoth = 'DCLS'
      x = 5.5379148
      y = 16.000754
      z = 0
      irot = 246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 247
      theta1 = 90
      phi1 = 76.363636
      theta2 = 84.001132
      phi2 = 166.36364
      theta3 = 5.998868
      phi3 = -13.636364
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 15
      chmoth = 'DCLS'
      x = 3.9918703
      y = 16.454713
      z = 0
      irot = 247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 248
      theta1 = 90
      phi1 = 81.818182
      theta2 = 84.001132
      phi2 = 171.81818
      theta3 = 5.998868
      phi3 = -8.1818182
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 16
      chmoth = 'DCLS'
      x = 2.4096748
      y = 16.759657
      z = 0
      irot = 248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 249
      theta1 = 90
      phi1 = 87.272727
      theta2 = 84.001132
      phi2 = 177.27273
      theta3 = 5.998868
      phi3 = -2.7272727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 17
      chmoth = 'DCLS'
      x = 0.805657
      y = 16.912822
      z = 0
      irot = 249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 250
      theta1 = 90
      phi1 = 92.727273
      theta2 = 84.001132
      phi2 = -177.27273
      theta3 = 5.998868
      phi3 = 2.7272727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 18
      chmoth = 'DCLS'
      x = -0.805657
      y = 16.912822
      z = 0
      irot = 250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 251
      theta1 = 90
      phi1 = 98.181818
      theta2 = 84.001132
      phi2 = -171.81818
      theta3 = 5.998868
      phi3 = 8.1818182
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 19
      chmoth = 'DCLS'
      x = -2.4096748
      y = 16.759657
      z = 0
      irot = 251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 252
      theta1 = 90
      phi1 = 103.63636
      theta2 = 84.001132
      phi2 = -166.36364
      theta3 = 5.998868
      phi3 = 13.636364
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 20
      chmoth = 'DCLS'
      x = -3.9918703
      y = 16.454713
      z = 0
      irot = 252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 253
      theta1 = 90
      phi1 = 109.09091
      theta2 = 84.001132
      phi2 = -160.90909
      theta3 = 5.998868
      phi3 = 19.090909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 21
      chmoth = 'DCLS'
      x = -5.5379148
      y = 16.000754
      z = 0
      irot = 253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 254
      theta1 = 90
      phi1 = 114.54545
      theta2 = 84.001132
      phi2 = -155.45455
      theta3 = 5.998868
      phi3 = 24.545455
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 22
      chmoth = 'DCLS'
      x = -7.033807
      y = 15.401889
      z = 0
      irot = 254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 255
      theta1 = 90
      phi1 = 120
      theta2 = 84.001132
      phi2 = -150
      theta3 = 5.998868
      phi3 = 30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 23
      chmoth = 'DCLS'
      x = -8.466
      y = 14.663542
      z = 0
      irot = 255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 256
      theta1 = 90
      phi1 = 125.45455
      theta2 = 84.001132
      phi2 = -144.54545
      theta3 = 5.998868
      phi3 = 35.454545
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 24
      chmoth = 'DCLS'
      x = -9.8215236
      y = 13.7924
      z = 0
      irot = 256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 257
      theta1 = 90
      phi1 = 130.90909
      theta2 = 84.001132
      phi2 = -139.09091
      theta3 = 5.998868
      phi3 = 40.909091
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 25
      chmoth = 'DCLS'
      x = -11.088102
      y = 12.796352
      z = 0
      irot = 257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 258
      theta1 = 90
      phi1 = 136.36364
      theta2 = 84.001132
      phi2 = -133.63636
      theta3 = 5.998868
      phi3 = 46.363636
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 26
      chmoth = 'DCLS'
      x = -12.254265
      y = 11.684418
      z = 0
      irot = 258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 259
      theta1 = 90
      phi1 = 141.81818
      theta2 = 84.001132
      phi2 = -128.18182
      theta3 = 5.998868
      phi3 = 51.818182
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 27
      chmoth = 'DCLS'
      x = -13.309451
      y = 10.466668
      z = 0
      irot = 259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 260
      theta1 = 90
      phi1 = 147.27273
      theta2 = 84.001132
      phi2 = -122.72727
      theta3 = 5.998868
      phi3 = 57.272727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 28
      chmoth = 'DCLS'
      x = -14.244105
      y = 9.1541303
      z = 0
      irot = 260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 261
      theta1 = 90
      phi1 = 152.72727
      theta2 = 84.001132
      phi2 = -117.27273
      theta3 = 5.998868
      phi3 = 62.727273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 29
      chmoth = 'DCLS'
      x = -15.049762
      y = 7.7586915
      z = 0
      irot = 261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 262
      theta1 = 90
      phi1 = 158.18182
      theta2 = 84.001132
      phi2 = -111.81818
      theta3 = 5.998868
      phi3 = 68.181818
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 30
      chmoth = 'DCLS'
      x = -15.719126
      y = 6.2929887
      z = 0
      irot = 262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 263
      theta1 = 90
      phi1 = 163.63636
      theta2 = 84.001132
      phi2 = -106.36364
      theta3 = 5.998868
      phi3 = 73.636364
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 31
      chmoth = 'DCLS'
      x = -16.246135
      y = 4.7702957
      z = 0
      irot = 263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 264
      theta1 = 90
      phi1 = 169.09091
      theta2 = 84.001132
      phi2 = -100.90909
      theta3 = 5.998868
      phi3 = 79.090909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 32
      chmoth = 'DCLS'
      x = -16.626017
      y = 3.2044021
      z = 0
      irot = 264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 265
      theta1 = 90
      phi1 = 174.54545
      theta2 = 84.001132
      phi2 = -95.454545
      theta3 = 5.998868
      phi3 = 84.545455
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 33
      chmoth = 'DCLS'
      x = -16.855331
      y = 1.6094889
      z = 0
      irot = 265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 266
      theta1 = 90
      phi1 = -180
      theta2 = 84.001132
      phi2 = -90
      theta3 = 5.998868
      phi3 = 90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 34
      chmoth = 'DCLS'
      x = -16.932
      y = 2.073572e-15
      z = 0
      irot = 266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 267
      theta1 = 90
      phi1 = -174.54545
      theta2 = 84.001132
      phi2 = -84.545455
      theta3 = 5.998868
      phi3 = 95.454545
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 35
      chmoth = 'DCLS'
      x = -16.855331
      y = -1.6094889
      z = 0
      irot = 267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 268
      theta1 = 90
      phi1 = -169.09091
      theta2 = 84.001132
      phi2 = -79.090909
      theta3 = 5.998868
      phi3 = 100.90909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 36
      chmoth = 'DCLS'
      x = -16.626017
      y = -3.2044021
      z = 0
      irot = 268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 269
      theta1 = 90
      phi1 = -163.63636
      theta2 = 84.001132
      phi2 = -73.636364
      theta3 = 5.998868
      phi3 = 106.36364
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 37
      chmoth = 'DCLS'
      x = -16.246135
      y = -4.7702957
      z = 0
      irot = 269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 270
      theta1 = 90
      phi1 = -158.18182
      theta2 = 84.001132
      phi2 = -68.181818
      theta3 = 5.998868
      phi3 = 111.81818
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 38
      chmoth = 'DCLS'
      x = -15.719126
      y = -6.2929887
      z = 0
      irot = 270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 271
      theta1 = 90
      phi1 = -152.72727
      theta2 = 84.001132
      phi2 = -62.727273
      theta3 = 5.998868
      phi3 = 117.27273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 39
      chmoth = 'DCLS'
      x = -15.049762
      y = -7.7586915
      z = 0
      irot = 271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 272
      theta1 = 90
      phi1 = -147.27273
      theta2 = 84.001132
      phi2 = -57.272727
      theta3 = 5.998868
      phi3 = 122.72727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 40
      chmoth = 'DCLS'
      x = -14.244105
      y = -9.1541303
      z = 0
      irot = 272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 273
      theta1 = 90
      phi1 = -141.81818
      theta2 = 84.001132
      phi2 = -51.818182
      theta3 = 5.998868
      phi3 = 128.18182
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 41
      chmoth = 'DCLS'
      x = -13.309451
      y = -10.466668
      z = 0
      irot = 273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 274
      theta1 = 90
      phi1 = -136.36364
      theta2 = 84.001132
      phi2 = -46.363636
      theta3 = 5.998868
      phi3 = 133.63636
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 42
      chmoth = 'DCLS'
      x = -12.254265
      y = -11.684418
      z = 0
      irot = 274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 275
      theta1 = 90
      phi1 = -130.90909
      theta2 = 84.001132
      phi2 = -40.909091
      theta3 = 5.998868
      phi3 = 139.09091
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 43
      chmoth = 'DCLS'
      x = -11.088102
      y = -12.796352
      z = 0
      irot = 275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 276
      theta1 = 90
      phi1 = -125.45455
      theta2 = 84.001132
      phi2 = -35.454545
      theta3 = 5.998868
      phi3 = 144.54545
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 44
      chmoth = 'DCLS'
      x = -9.8215236
      y = -13.7924
      z = 0
      irot = 276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 277
      theta1 = 90
      phi1 = -120
      theta2 = 84.001132
      phi2 = -30
      theta3 = 5.998868
      phi3 = 150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 45
      chmoth = 'DCLS'
      x = -8.466
      y = -14.663542
      z = 0
      irot = 277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 278
      theta1 = 90
      phi1 = -114.54545
      theta2 = 84.001132
      phi2 = -24.545455
      theta3 = 5.998868
      phi3 = 155.45455
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 46
      chmoth = 'DCLS'
      x = -7.033807
      y = -15.401889
      z = 0
      irot = 278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 279
      theta1 = 90
      phi1 = -109.09091
      theta2 = 84.001132
      phi2 = -19.090909
      theta3 = 5.998868
      phi3 = 160.90909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 47
      chmoth = 'DCLS'
      x = -5.5379148
      y = -16.000754
      z = 0
      irot = 279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 280
      theta1 = 90
      phi1 = -103.63636
      theta2 = 84.001132
      phi2 = -13.636364
      theta3 = 5.998868
      phi3 = 166.36364
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 48
      chmoth = 'DCLS'
      x = -3.9918703
      y = -16.454713
      z = 0
      irot = 280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 281
      theta1 = 90
      phi1 = -98.181818
      theta2 = 84.001132
      phi2 = -8.1818182
      theta3 = 5.998868
      phi3 = 171.81818
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 49
      chmoth = 'DCLS'
      x = -2.4096748
      y = -16.759657
      z = 0
      irot = 281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 282
      theta1 = 90
      phi1 = -92.727273
      theta2 = 84.001132
      phi2 = -2.7272727
      theta3 = 5.998868
      phi3 = 177.27273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 50
      chmoth = 'DCLS'
      x = -0.805657
      y = -16.912822
      z = 0
      irot = 282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 283
      theta1 = 90
      phi1 = -87.272727
      theta2 = 84.001132
      phi2 = 2.7272727
      theta3 = 5.998868
      phi3 = -177.27273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 51
      chmoth = 'DCLS'
      x = 0.805657
      y = -16.912822
      z = 0
      irot = 283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 284
      theta1 = 90
      phi1 = -81.818182
      theta2 = 84.001132
      phi2 = 8.1818182
      theta3 = 5.998868
      phi3 = -171.81818
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 52
      chmoth = 'DCLS'
      x = 2.4096748
      y = -16.759657
      z = 0
      irot = 284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 285
      theta1 = 90
      phi1 = -76.363636
      theta2 = 84.001132
      phi2 = 13.636364
      theta3 = 5.998868
      phi3 = -166.36364
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 53
      chmoth = 'DCLS'
      x = 3.9918703
      y = -16.454713
      z = 0
      irot = 285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 286
      theta1 = 90
      phi1 = -70.909091
      theta2 = 84.001132
      phi2 = 19.090909
      theta3 = 5.998868
      phi3 = -160.90909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 54
      chmoth = 'DCLS'
      x = 5.5379148
      y = -16.000754
      z = 0
      irot = 286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 287
      theta1 = 90
      phi1 = -65.454545
      theta2 = 84.001132
      phi2 = 24.545455
      theta3 = 5.998868
      phi3 = -155.45455
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 55
      chmoth = 'DCLS'
      x = 7.033807
      y = -15.401889
      z = 0
      irot = 287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 288
      theta1 = 90
      phi1 = -60
      theta2 = 84.001132
      phi2 = 30
      theta3 = 5.998868
      phi3 = -150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 56
      chmoth = 'DCLS'
      x = 8.466
      y = -14.663542
      z = 0
      irot = 288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 289
      theta1 = 90
      phi1 = -54.545455
      theta2 = 84.001132
      phi2 = 35.454545
      theta3 = 5.998868
      phi3 = -144.54545
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 57
      chmoth = 'DCLS'
      x = 9.8215236
      y = -13.7924
      z = 0
      irot = 289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 290
      theta1 = 90
      phi1 = -49.090909
      theta2 = 84.001132
      phi2 = 40.909091
      theta3 = 5.998868
      phi3 = -139.09091
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 58
      chmoth = 'DCLS'
      x = 11.088102
      y = -12.796352
      z = 0
      irot = 290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 291
      theta1 = 90
      phi1 = -43.636364
      theta2 = 84.001132
      phi2 = 46.363636
      theta3 = 5.998868
      phi3 = -133.63636
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 59
      chmoth = 'DCLS'
      x = 12.254265
      y = -11.684418
      z = 0
      irot = 291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 292
      theta1 = 90
      phi1 = -38.181818
      theta2 = 84.001132
      phi2 = 51.818182
      theta3 = 5.998868
      phi3 = -128.18182
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 60
      chmoth = 'DCLS'
      x = 13.309451
      y = -10.466668
      z = 0
      irot = 292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 293
      theta1 = 90
      phi1 = -32.727273
      theta2 = 84.001132
      phi2 = 57.272727
      theta3 = 5.998868
      phi3 = -122.72727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 61
      chmoth = 'DCLS'
      x = 14.244105
      y = -9.1541303
      z = 0
      irot = 293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 294
      theta1 = 90
      phi1 = -27.272727
      theta2 = 84.001132
      phi2 = 62.727273
      theta3 = 5.998868
      phi3 = -117.27273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 62
      chmoth = 'DCLS'
      x = 15.049762
      y = -7.7586915
      z = 0
      irot = 294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 295
      theta1 = 90
      phi1 = -21.818182
      theta2 = 84.001132
      phi2 = 68.181818
      theta3 = 5.998868
      phi3 = -111.81818
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 63
      chmoth = 'DCLS'
      x = 15.719126
      y = -6.2929887
      z = 0
      irot = 295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 296
      theta1 = 90
      phi1 = -16.363636
      theta2 = 84.001132
      phi2 = 73.636364
      theta3 = 5.998868
      phi3 = -106.36364
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 64
      chmoth = 'DCLS'
      x = 16.246135
      y = -4.7702957
      z = 0
      irot = 296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 297
      theta1 = 90
      phi1 = -10.909091
      theta2 = 84.001132
      phi2 = 79.090909
      theta3 = 5.998868
      phi3 = -100.90909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 65
      chmoth = 'DCLS'
      x = 16.626017
      y = -3.2044021
      z = 0
      irot = 297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 298
      theta1 = 90
      phi1 = -5.4545455
      theta2 = 84.001132
      phi2 = 84.545455
      theta3 = 5.998868
      phi3 = -95.454545
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 66
      chmoth = 'DCLS'
      x = 16.855331
      y = -1.6094889
      z = 0
      irot = 298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 299
      theta1 = 90.30978
      phi1 = 0
      theta2 = 83.530825
      phi2 = 89.964873
      theta3 = 6.4766511
      phi3 = -87.27015
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 67
      chmoth = 'DCLS'
      x = 18.2876
      y = 0.8787
      z = 0
      irot = 299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 300
      theta1 = 90.30978
      phi1 = 5.4545455
      theta2 = 83.530825
      phi2 = 95.419419
      theta3 = 6.4766511
      phi3 = -81.815605
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 68
      chmoth = 'DCLS'
      x = 18.121267
      y = 2.6130681
      z = 0
      irot = 300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 301
      theta1 = 90.30978
      phi1 = 10.909091
      theta2 = 83.530825
      phi2 = 100.87396
      theta3 = 6.4766511
      phi3 = -76.361059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 69
      chmoth = 'DCLS'
      x = 17.790824
      y = 4.3237718
      z = 0
      irot = 301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 302
      theta1 = 90.30978
      phi1 = 16.363636
      theta2 = 83.530825
      phi2 = 106.32851
      theta3 = 6.4766511
      phi3 = -70.906514
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 70
      chmoth = 'DCLS'
      x = 17.299265
      y = 5.9953188
      z = 0
      irot = 302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 303
      theta1 = 90.30978
      phi1 = 21.818182
      theta2 = 83.530825
      phi2 = 111.78306
      theta3 = 6.4766511
      phi3 = -65.451968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 71
      chmoth = 'DCLS'
      x = 16.651042
      y = 7.6125712
      z = 0
      irot = 303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 304
      theta1 = 90.30978
      phi1 = 27.272727
      theta2 = 83.530825
      phi2 = 117.2376
      theta3 = 6.4766511
      phi3 = -59.997423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 72
      chmoth = 'DCLS'
      x = 15.852024
      y = 9.160883
      z = 0
      irot = 304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 305
      theta1 = 90.30978
      phi1 = 32.727273
      theta2 = 83.530825
      phi2 = 122.69215
      theta3 = 6.4766511
      phi3 = -54.542877
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 73
      chmoth = 'DCLS'
      x = 14.909447
      y = 10.626232
      z = 0
      irot = 305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 306
      theta1 = 90.30978
      phi1 = 38.181818
      theta2 = 83.530825
      phi2 = 128.14669
      theta3 = 6.4766511
      phi3 = -49.088332
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 74
      chmoth = 'DCLS'
      x = 13.831848
      y = 11.995349
      z = 0
      irot = 306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 307
      theta1 = 90.30978
      phi1 = 43.636364
      theta2 = 83.530825
      phi2 = 133.60124
      theta3 = 6.4766511
      phi3 = -43.633787
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 75
      chmoth = 'DCLS'
      x = 12.628986
      y = 13.255834
      z = 0
      irot = 307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 308
      theta1 = 90.30978
      phi1 = 49.090909
      theta2 = 83.530825
      phi2 = 139.05578
      theta3 = 6.4766511
      phi3 = -38.179241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 76
      chmoth = 'DCLS'
      x = 11.311754
      y = 14.396272
      z = 0
      irot = 308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 309
      theta1 = 90.30978
      phi1 = 54.545455
      theta2 = 83.530825
      phi2 = 144.51033
      theta3 = 6.4766511
      phi3 = -32.724696
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 77
      chmoth = 'DCLS'
      x = 9.8920809
      y = 15.406335
      z = 0
      irot = 309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 310
      theta1 = 90.30978
      phi1 = 60
      theta2 = 83.530825
      phi2 = 149.96487
      theta3 = 6.4766511
      phi3 = -27.27015
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 78
      chmoth = 'DCLS'
      x = 8.3828235
      y = 16.276876
      z = 0
      irot = 310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 311
      theta1 = 90.30978
      phi1 = 65.454545
      theta2 = 83.530825
      phi2 = 155.41942
      theta3 = 6.4766511
      phi3 = -21.815605
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 79
      chmoth = 'DCLS'
      x = 6.79765
      y = 17.000011
      z = 0
      irot = 311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 312
      theta1 = 90.30978
      phi1 = 70.909091
      theta2 = 83.530825
      phi2 = 160.87396
      theta3 = 6.4766511
      phi3 = -16.361059
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 80
      chmoth = 'DCLS'
      x = 5.1509159
      y = 17.569192
      z = 0
      irot = 312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 313
      theta1 = 90.30978
      phi1 = 76.363636
      theta2 = 83.530825
      phi2 = 166.32851
      theta3 = 6.4766511
      phi3 = -10.906514
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 81
      chmoth = 'DCLS'
      x = 3.4575343
      y = 17.979263
      z = 0
      irot = 313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 314
      theta1 = 90.30978
      phi1 = 81.818182
      theta2 = 83.530825
      phi2 = 171.78306
      theta3 = 6.4766511
      phi3 = -5.4519684
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 82
      chmoth = 'DCLS'
      x = 1.7328407
      y = 18.226511
      z = 0
      irot = 314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 315
      theta1 = 90.30978
      phi1 = 87.272727
      theta2 = 83.530825
      phi2 = 177.2376
      theta3 = 6.4766511
      phi3 = 0.0025770534
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 83
      chmoth = 'DCLS'
      x = -0.0075456871
      y = 18.308697
      z = 0
      irot = 315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 316
      theta1 = 90.30978
      phi1 = 92.727273
      theta2 = 83.530825
      phi2 = -177.30785
      theta3 = 6.4766511
      phi3 = 5.4571225
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 84
      chmoth = 'DCLS'
      x = -1.7478638
      y = 18.225076
      z = 0
      irot = 316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 317
      theta1 = 90.30978
      phi1 = 98.181818
      theta2 = 83.530825
      phi2 = -171.85331
      theta3 = 6.4766511
      phi3 = 10.911668
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 85
      chmoth = 'DCLS'
      x = -3.4723529
      y = 17.976407
      z = 0
      irot = 317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 318
      theta1 = 90.30978
      phi1 = 103.63636
      theta2 = 83.530825
      phi2 = -166.39876
      theta3 = 6.4766511
      phi3 = 16.366213
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 86
      chmoth = 'DCLS'
      x = -5.1653959
      y = 17.56494
      z = 0
      irot = 318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 319
      theta1 = 90.30978
      phi1 = 109.09091
      theta2 = 83.530825
      phi2 = -160.94422
      theta3 = 6.4766511
      phi3 = 21.820759
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 87
      chmoth = 'DCLS'
      x = -6.8116603
      y = 16.994402
      z = 0
      irot = 319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 320
      theta1 = 90.30978
      phi1 = 114.54545
      theta2 = 83.530825
      phi2 = -155.48967
      theta3 = 6.4766511
      phi3 = 27.275304
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 88
      chmoth = 'DCLS'
      x = -8.3962372
      y = 16.269961
      z = 0
      irot = 320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 321
      theta1 = 90.30978
      phi1 = 120
      theta2 = 83.530825
      phi2 = -150.03513
      theta3 = 6.4766511
      phi3 = 32.72985
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 89
      chmoth = 'DCLS'
      x = -9.9047765
      y = 15.398176
      z = 0
      irot = 321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 322
      theta1 = 90.30978
      phi1 = 125.45455
      theta2 = 83.530825
      phi2 = -144.58058
      theta3 = 6.4766511
      phi3 = 38.184395
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 90
      chmoth = 'DCLS'
      x = -11.323617
      y = 14.386943
      z = 0
      irot = 322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 323
      theta1 = 90.30978
      phi1 = 130.90909
      theta2 = 83.530825
      phi2 = -139.12604
      theta3 = 6.4766511
      phi3 = 43.638941
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 91
      chmoth = 'DCLS'
      x = -12.639908
      y = 13.24542
      z = 0
      irot = 323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 324
      theta1 = 90.30978
      phi1 = 136.36364
      theta2 = 83.530825
      phi2 = -133.67149
      theta3 = 6.4766511
      phi3 = 49.093486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 92
      chmoth = 'DCLS'
      x = -13.841731
      y = 11.983944
      z = 0
      irot = 324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 325
      theta1 = 90.30978
      phi1 = 141.81818
      theta2 = 83.530825
      phi2 = -128.21694
      theta3 = 6.4766511
      phi3 = 54.548032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 93
      chmoth = 'DCLS'
      x = -14.918201
      y = 10.613939
      z = 0
      irot = 325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 326
      theta1 = 90.30978
      phi1 = 147.27273
      theta2 = 83.530825
      phi2 = -122.7624
      theta3 = 6.4766511
      phi3 = 60.002577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 94
      chmoth = 'DCLS'
      x = -15.859569
      y = 9.1478135
      z = 0
      irot = 326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 327
      theta1 = 90.30978
      phi1 = 152.72727
      theta2 = 83.530825
      phi2 = -117.30785
      theta3 = 6.4766511
      phi3 = 65.457123
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 95
      chmoth = 'DCLS'
      x = -16.657311
      y = 7.5988436
      z = 0
      irot = 327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 328
      theta1 = 90.30978
      phi1 = 158.18182
      theta2 = 83.530825
      phi2 = -111.85331
      theta3 = 6.4766511
      phi3 = 70.911668
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 96
      chmoth = 'DCLS'
      x = -17.304201
      y = 5.9810574
      z = 0
      irot = 328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 329
      theta1 = 90.30978
      phi1 = 163.63636
      theta2 = 83.530825
      phi2 = -106.39876
      theta3 = 6.4766511
      phi3 = 76.366213
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 97
      chmoth = 'DCLS'
      x = -17.794382
      y = 4.3091058
      z = 0
      irot = 329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 330
      theta1 = 90.30978
      phi1 = 169.09091
      theta2 = 83.530825
      phi2 = -100.94422
      theta3 = 6.4766511
      phi3 = 81.820759
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 98
      chmoth = 'DCLS'
      x = -18.123414
      y = 2.5981303
      z = 0
      irot = 330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 331
      theta1 = 90.30978
      phi1 = 174.54545
      theta2 = 83.530825
      phi2 = -95.489672
      theta3 = 6.4766511
      phi3 = 87.275304
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 99
      chmoth = 'DCLS'
      x = -18.288318
      y = 0.86362572
      z = 0
      irot = 331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 332
      theta1 = 90.30978
      phi1 = -180
      theta2 = 83.530825
      phi2 = -90.035127
      theta3 = 6.4766511
      phi3 = 92.72985
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 100
      chmoth = 'DCLS'
      x = -18.2876
      y = -0.8787
      z = 0
      irot = 332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 333
      theta1 = 90.30978
      phi1 = -174.54545
      theta2 = 83.530825
      phi2 = -84.580581
      theta3 = 6.4766511
      phi3 = 98.184395
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 101
      chmoth = 'DCLS'
      x = -18.121267
      y = -2.6130681
      z = 0
      irot = 333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 334
      theta1 = 90.30978
      phi1 = -169.09091
      theta2 = 83.530825
      phi2 = -79.126036
      theta3 = 6.4766511
      phi3 = 103.63894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 102
      chmoth = 'DCLS'
      x = -17.790824
      y = -4.3237718
      z = 0
      irot = 334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 335
      theta1 = 90.30978
      phi1 = -163.63636
      theta2 = 83.530825
      phi2 = -73.67149
      theta3 = 6.4766511
      phi3 = 109.09349
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 103
      chmoth = 'DCLS'
      x = -17.299265
      y = -5.9953188
      z = 0
      irot = 335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 336
      theta1 = 90.30978
      phi1 = -158.18182
      theta2 = 83.530825
      phi2 = -68.216945
      theta3 = 6.4766511
      phi3 = 114.54803
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 104
      chmoth = 'DCLS'
      x = -16.651042
      y = -7.6125712
      z = 0
      irot = 336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 337
      theta1 = 90.30978
      phi1 = -152.72727
      theta2 = 83.530825
      phi2 = -62.762399
      theta3 = 6.4766511
      phi3 = 120.00258
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 105
      chmoth = 'DCLS'
      x = -15.852024
      y = -9.160883
      z = 0
      irot = 337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 338
      theta1 = 90.30978
      phi1 = -147.27273
      theta2 = 83.530825
      phi2 = -57.307854
      theta3 = 6.4766511
      phi3 = 125.45712
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 106
      chmoth = 'DCLS'
      x = -14.909447
      y = -10.626232
      z = 0
      irot = 338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 339
      theta1 = 90.30978
      phi1 = -141.81818
      theta2 = 83.530825
      phi2 = -51.853308
      theta3 = 6.4766511
      phi3 = 130.91167
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 107
      chmoth = 'DCLS'
      x = -13.831848
      y = -11.995349
      z = 0
      irot = 339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 340
      theta1 = 90.30978
      phi1 = -136.36364
      theta2 = 83.530825
      phi2 = -46.398763
      theta3 = 6.4766511
      phi3 = 136.36621
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 108
      chmoth = 'DCLS'
      x = -12.628986
      y = -13.255834
      z = 0
      irot = 340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 341
      theta1 = 90.30978
      phi1 = -130.90909
      theta2 = 83.530825
      phi2 = -40.944217
      theta3 = 6.4766511
      phi3 = 141.82076
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 109
      chmoth = 'DCLS'
      x = -11.311754
      y = -14.396272
      z = 0
      irot = 341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 342
      theta1 = 90.30978
      phi1 = -125.45455
      theta2 = 83.530825
      phi2 = -35.489672
      theta3 = 6.4766511
      phi3 = 147.2753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 110
      chmoth = 'DCLS'
      x = -9.8920809
      y = -15.406335
      z = 0
      irot = 342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 343
      theta1 = 90.30978
      phi1 = -120
      theta2 = 83.530825
      phi2 = -30.035127
      theta3 = 6.4766511
      phi3 = 152.72985
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 111
      chmoth = 'DCLS'
      x = -8.3828235
      y = -16.276876
      z = 0
      irot = 343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 344
      theta1 = 90.30978
      phi1 = -114.54545
      theta2 = 83.530825
      phi2 = -24.580581
      theta3 = 6.4766511
      phi3 = 158.1844
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 112
      chmoth = 'DCLS'
      x = -6.79765
      y = -17.000011
      z = 0
      irot = 344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 345
      theta1 = 90.30978
      phi1 = -109.09091
      theta2 = 83.530825
      phi2 = -19.126036
      theta3 = 6.4766511
      phi3 = 163.63894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 113
      chmoth = 'DCLS'
      x = -5.1509159
      y = -17.569192
      z = 0
      irot = 345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 346
      theta1 = 90.30978
      phi1 = -103.63636
      theta2 = 83.530825
      phi2 = -13.67149
      theta3 = 6.4766511
      phi3 = 169.09349
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 114
      chmoth = 'DCLS'
      x = -3.4575343
      y = -17.979263
      z = 0
      irot = 346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 347
      theta1 = 90.30978
      phi1 = -98.181818
      theta2 = 83.530825
      phi2 = -8.2169447
      theta3 = 6.4766511
      phi3 = 174.54803
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 115
      chmoth = 'DCLS'
      x = -1.7328407
      y = -18.226511
      z = 0
      irot = 347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 348
      theta1 = 90.30978
      phi1 = -92.727273
      theta2 = 83.530825
      phi2 = -2.7623992
      theta3 = 6.4766511
      phi3 = -179.99742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 116
      chmoth = 'DCLS'
      x = 0.0075456871
      y = -18.308697
      z = 0
      irot = 348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 349
      theta1 = 90.30978
      phi1 = -87.272727
      theta2 = 83.530825
      phi2 = 2.6921462
      theta3 = 6.4766511
      phi3 = -174.54288
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 117
      chmoth = 'DCLS'
      x = 1.7478638
      y = -18.225076
      z = 0
      irot = 349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 350
      theta1 = 90.30978
      phi1 = -81.818182
      theta2 = 83.530825
      phi2 = 8.1466917
      theta3 = 6.4766511
      phi3 = -169.08833
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 118
      chmoth = 'DCLS'
      x = 3.4723529
      y = -17.976407
      z = 0
      irot = 350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 351
      theta1 = 90.30978
      phi1 = -76.363636
      theta2 = 83.530825
      phi2 = 13.601237
      theta3 = 6.4766511
      phi3 = -163.63379
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 119
      chmoth = 'DCLS'
      x = 5.1653959
      y = -17.56494
      z = 0
      irot = 351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 352
      theta1 = 90.30978
      phi1 = -70.909091
      theta2 = 83.530825
      phi2 = 19.055783
      theta3 = 6.4766511
      phi3 = -158.17924
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 120
      chmoth = 'DCLS'
      x = 6.8116603
      y = -16.994402
      z = 0
      irot = 352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 353
      theta1 = 90.30978
      phi1 = -65.454545
      theta2 = 83.530825
      phi2 = 24.510328
      theta3 = 6.4766511
      phi3 = -152.7247
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 121
      chmoth = 'DCLS'
      x = 8.3962372
      y = -16.269961
      z = 0
      irot = 353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 354
      theta1 = 90.30978
      phi1 = -60
      theta2 = 83.530825
      phi2 = 29.964873
      theta3 = 6.4766511
      phi3 = -147.27015
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 122
      chmoth = 'DCLS'
      x = 9.9047765
      y = -15.398176
      z = 0
      irot = 354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 355
      theta1 = 90.30978
      phi1 = -54.545455
      theta2 = 83.530825
      phi2 = 35.419419
      theta3 = 6.4766511
      phi3 = -141.8156
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 123
      chmoth = 'DCLS'
      x = 11.323617
      y = -14.386943
      z = 0
      irot = 355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 356
      theta1 = 90.30978
      phi1 = -49.090909
      theta2 = 83.530825
      phi2 = 40.873964
      theta3 = 6.4766511
      phi3 = -136.36106
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 124
      chmoth = 'DCLS'
      x = 12.639908
      y = -13.24542
      z = 0
      irot = 356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 357
      theta1 = 90.30978
      phi1 = -43.636364
      theta2 = 83.530825
      phi2 = 46.32851
      theta3 = 6.4766511
      phi3 = -130.90651
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 125
      chmoth = 'DCLS'
      x = 13.841731
      y = -11.983944
      z = 0
      irot = 357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 358
      theta1 = 90.30978
      phi1 = -38.181818
      theta2 = 83.530825
      phi2 = 51.783055
      theta3 = 6.4766511
      phi3 = -125.45197
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 126
      chmoth = 'DCLS'
      x = 14.918201
      y = -10.613939
      z = 0
      irot = 358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 359
      theta1 = 90.30978
      phi1 = -32.727273
      theta2 = 83.530825
      phi2 = 57.237601
      theta3 = 6.4766511
      phi3 = -119.99742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 127
      chmoth = 'DCLS'
      x = 15.859569
      y = -9.1478135
      z = 0
      irot = 359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 360
      theta1 = 90.30978
      phi1 = -27.272727
      theta2 = 83.530825
      phi2 = 62.692146
      theta3 = 6.4766511
      phi3 = -114.54288
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 128
      chmoth = 'DCLS'
      x = 16.657311
      y = -7.5988436
      z = 0
      irot = 360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 361
      theta1 = 90.30978
      phi1 = -21.818182
      theta2 = 83.530825
      phi2 = 68.146692
      theta3 = 6.4766511
      phi3 = -109.08833
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 129
      chmoth = 'DCLS'
      x = 17.304201
      y = -5.9810574
      z = 0
      irot = 361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 362
      theta1 = 90.30978
      phi1 = -16.363636
      theta2 = 83.530825
      phi2 = 73.601237
      theta3 = 6.4766511
      phi3 = -103.63379
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 130
      chmoth = 'DCLS'
      x = 17.794382
      y = -4.3091058
      z = 0
      irot = 362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 363
      theta1 = 90.30978
      phi1 = -10.909091
      theta2 = 83.530825
      phi2 = 79.055783
      theta3 = 6.4766511
      phi3 = -98.179241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 131
      chmoth = 'DCLS'
      x = 18.123414
      y = -2.5981303
      z = 0
      irot = 363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 364
      theta1 = 90.30978
      phi1 = -5.4545455
      theta2 = 83.530825
      phi2 = 84.510328
      theta3 = 6.4766511
      phi3 = -92.724696
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 132
      chmoth = 'DCLS'
      x = 18.288318
      y = -0.86362572
      z = 0
      irot = 364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 365
      theta1 = 90
      phi1 = -0.923
      theta2 = 84.001132
      phi2 = 89.077
      theta3 = 5.998868
      phi3 = -90.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 133
      chmoth = 'DCLS'
      x = 20.518637
      y = -0.33057131
      z = 0
      irot = 365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 366
      theta1 = 90
      phi1 = 3.577
      theta2 = 84.001132
      phi2 = 93.577
      theta3 = 5.998868
      phi3 = -86.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 134
      chmoth = 'DCLS'
      x = 20.481322
      y = 1.2803215
      z = 0
      irot = 366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 367
      theta1 = 90
      phi1 = 8.077
      theta2 = 84.001132
      phi2 = 98.077
      theta3 = 5.998868
      phi3 = -81.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 135
      chmoth = 'DCLS'
      x = 20.317732
      y = 2.8833206
      z = 0
      irot = 367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 368
      theta1 = 90
      phi1 = 12.577
      theta2 = 84.001132
      phi2 = 102.577
      theta3 = 5.998868
      phi3 = -77.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 136
      chmoth = 'DCLS'
      x = 20.028876
      y = 4.4685432
      z = 0
      irot = 368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 369
      theta1 = 90
      phi1 = 17.077
      theta2 = 84.001132
      phi2 = 107.077
      theta3 = 5.998868
      phi3 = -72.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 137
      chmoth = 'DCLS'
      x = 19.616536
      y = 6.0262156
      z = 0
      irot = 369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 370
      theta1 = 90
      phi1 = 21.577
      theta2 = 84.001132
      phi2 = 111.577
      theta3 = 5.998868
      phi3 = -68.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 138
      chmoth = 'DCLS'
      x = 19.083253
      y = 7.5467345
      z = 0
      irot = 370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 371
      theta1 = 90
      phi1 = 26.077
      theta2 = 84.001132
      phi2 = 116.077
      theta3 = 5.998868
      phi3 = -63.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 139
      chmoth = 'DCLS'
      x = 18.432316
      y = 9.0207252
      z = 0
      irot = 371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 372
      theta1 = 90
      phi1 = 30.577
      theta2 = 84.001132
      phi2 = 120.577
      theta3 = 5.998868
      phi3 = -59.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 140
      chmoth = 'DCLS'
      x = 17.667737
      y = 10.4391
      z = 0
      irot = 372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 373
      theta1 = 90
      phi1 = 35.077
      theta2 = 84.001132
      phi2 = 125.077
      theta3 = 5.998868
      phi3 = -54.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 141
      chmoth = 'DCLS'
      x = 16.794231
      y = 11.793115
      z = 0
      irot = 373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 374
      theta1 = 90
      phi1 = 39.577
      theta2 = 84.001132
      phi2 = 129.577
      theta3 = 5.998868
      phi3 = -50.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 142
      chmoth = 'DCLS'
      x = 15.817183
      y = 13.074421
      z = 0
      irot = 374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 375
      theta1 = 90
      phi1 = 44.077
      theta2 = 84.001132
      phi2 = 134.077
      theta3 = 5.998868
      phi3 = -45.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 143
      chmoth = 'DCLS'
      x = 14.742617
      y = 14.275118
      z = 0
      irot = 375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 376
      theta1 = 90
      phi1 = 48.577
      theta2 = 84.001132
      phi2 = 138.577
      theta3 = 5.998868
      phi3 = -41.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 144
      chmoth = 'DCLS'
      x = 13.577157
      y = 15.387805
      z = 0
      irot = 376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 377
      theta1 = 90
      phi1 = 53.077
      theta2 = 84.001132
      phi2 = 143.077
      theta3 = 5.998868
      phi3 = -36.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 145
      chmoth = 'DCLS'
      x = 12.32799
      y = 16.405621
      z = 0
      irot = 377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 378
      theta1 = 90
      phi1 = 57.577
      theta2 = 84.001132
      phi2 = 147.577
      theta3 = 5.998868
      phi3 = -32.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 146
      chmoth = 'DCLS'
      x = 11.002817
      y = 17.322291
      z = 0
      irot = 378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 379
      theta1 = 90
      phi1 = 62.077
      theta2 = 84.001132
      phi2 = 152.077
      theta3 = 5.998868
      phi3 = -27.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 147
      chmoth = 'DCLS'
      x = 9.6098076
      y = 18.132163
      z = 0
      irot = 379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 380
      theta1 = 90
      phi1 = 66.577
      theta2 = 84.001132
      phi2 = 156.577
      theta3 = 5.998868
      phi3 = -23.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 148
      chmoth = 'DCLS'
      x = 8.1575506
      y = 18.830245
      z = 0
      irot = 380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 381
      theta1 = 90
      phi1 = 71.077
      theta2 = 84.001132
      phi2 = 161.077
      theta3 = 5.998868
      phi3 = -18.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 149
      chmoth = 'DCLS'
      x = 6.6549996
      y = 19.412232
      z = 0
      irot = 381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 382
      theta1 = 90
      phi1 = 75.577
      theta2 = 84.001132
      phi2 = 165.577
      theta3 = 5.998868
      phi3 = -14.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 150
      chmoth = 'DCLS'
      x = 5.1114183
      y = 19.874535
      z = 0
      irot = 382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 383
      theta1 = 90
      phi1 = 80.077
      theta2 = 84.001132
      phi2 = 170.077
      theta3 = 5.998868
      phi3 = -9.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 151
      chmoth = 'DCLS'
      x = 3.5363235
      y = 20.214306
      z = 0
      irot = 383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 384
      theta1 = 90
      phi1 = 84.577
      theta2 = 84.001132
      phi2 = 174.577
      theta3 = 5.998868
      phi3 = -5.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 152
      chmoth = 'DCLS'
      x = 1.939426
      y = 20.429449
      z = 0
      irot = 384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 385
      theta1 = 90
      phi1 = 89.077
      theta2 = 84.001132
      phi2 = 179.077
      theta3 = 5.998868
      phi3 = -0.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 153
      chmoth = 'DCLS'
      x = 0.33057131
      y = 20.518637
      z = 0
      irot = 385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 386
      theta1 = 90
      phi1 = 93.577
      theta2 = 84.001132
      phi2 = -176.423
      theta3 = 5.998868
      phi3 = 3.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 154
      chmoth = 'DCLS'
      x = -1.2803215
      y = 20.481322
      z = 0
      irot = 386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 387
      theta1 = 90
      phi1 = 98.077
      theta2 = 84.001132
      phi2 = -171.923
      theta3 = 5.998868
      phi3 = 8.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 155
      chmoth = 'DCLS'
      x = -2.8833206
      y = 20.317732
      z = 0
      irot = 387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 388
      theta1 = 90
      phi1 = 102.577
      theta2 = 84.001132
      phi2 = -167.423
      theta3 = 5.998868
      phi3 = 12.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 156
      chmoth = 'DCLS'
      x = -4.4685432
      y = 20.028876
      z = 0
      irot = 388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 389
      theta1 = 90
      phi1 = 107.077
      theta2 = 84.001132
      phi2 = -162.923
      theta3 = 5.998868
      phi3 = 17.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 157
      chmoth = 'DCLS'
      x = -6.0262156
      y = 19.616536
      z = 0
      irot = 389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 390
      theta1 = 90
      phi1 = 111.577
      theta2 = 84.001132
      phi2 = -158.423
      theta3 = 5.998868
      phi3 = 21.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 158
      chmoth = 'DCLS'
      x = -7.5467345
      y = 19.083253
      z = 0
      irot = 390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 391
      theta1 = 90
      phi1 = 116.077
      theta2 = 84.001132
      phi2 = -153.923
      theta3 = 5.998868
      phi3 = 26.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 159
      chmoth = 'DCLS'
      x = -9.0207252
      y = 18.432316
      z = 0
      irot = 391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 392
      theta1 = 90
      phi1 = 120.577
      theta2 = 84.001132
      phi2 = -149.423
      theta3 = 5.998868
      phi3 = 30.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 160
      chmoth = 'DCLS'
      x = -10.4391
      y = 17.667737
      z = 0
      irot = 392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 393
      theta1 = 90
      phi1 = 125.077
      theta2 = 84.001132
      phi2 = -144.923
      theta3 = 5.998868
      phi3 = 35.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 161
      chmoth = 'DCLS'
      x = -11.793115
      y = 16.794231
      z = 0
      irot = 393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 394
      theta1 = 90
      phi1 = 129.577
      theta2 = 84.001132
      phi2 = -140.423
      theta3 = 5.998868
      phi3 = 39.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 162
      chmoth = 'DCLS'
      x = -13.074421
      y = 15.817183
      z = 0
      irot = 394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 395
      theta1 = 90
      phi1 = 134.077
      theta2 = 84.001132
      phi2 = -135.923
      theta3 = 5.998868
      phi3 = 44.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 163
      chmoth = 'DCLS'
      x = -14.275118
      y = 14.742617
      z = 0
      irot = 395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 396
      theta1 = 90
      phi1 = 138.577
      theta2 = 84.001132
      phi2 = -131.423
      theta3 = 5.998868
      phi3 = 48.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 164
      chmoth = 'DCLS'
      x = -15.387805
      y = 13.577157
      z = 0
      irot = 396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 397
      theta1 = 90
      phi1 = 143.077
      theta2 = 84.001132
      phi2 = -126.923
      theta3 = 5.998868
      phi3 = 53.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 165
      chmoth = 'DCLS'
      x = -16.405621
      y = 12.32799
      z = 0
      irot = 397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 398
      theta1 = 90
      phi1 = 147.577
      theta2 = 84.001132
      phi2 = -122.423
      theta3 = 5.998868
      phi3 = 57.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 166
      chmoth = 'DCLS'
      x = -17.322291
      y = 11.002817
      z = 0
      irot = 398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 399
      theta1 = 90
      phi1 = 152.077
      theta2 = 84.001132
      phi2 = -117.923
      theta3 = 5.998868
      phi3 = 62.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 167
      chmoth = 'DCLS'
      x = -18.132163
      y = 9.6098076
      z = 0
      irot = 399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 400
      theta1 = 90
      phi1 = 156.577
      theta2 = 84.001132
      phi2 = -113.423
      theta3 = 5.998868
      phi3 = 66.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 168
      chmoth = 'DCLS'
      x = -18.830245
      y = 8.1575506
      z = 0
      irot = 400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 401
      theta1 = 90
      phi1 = 161.077
      theta2 = 84.001132
      phi2 = -108.923
      theta3 = 5.998868
      phi3 = 71.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 169
      chmoth = 'DCLS'
      x = -19.412232
      y = 6.6549996
      z = 0
      irot = 401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 402
      theta1 = 90
      phi1 = 165.577
      theta2 = 84.001132
      phi2 = -104.423
      theta3 = 5.998868
      phi3 = 75.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 170
      chmoth = 'DCLS'
      x = -19.874535
      y = 5.1114183
      z = 0
      irot = 402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 403
      theta1 = 90
      phi1 = 170.077
      theta2 = 84.001132
      phi2 = -99.923
      theta3 = 5.998868
      phi3 = 80.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 171
      chmoth = 'DCLS'
      x = -20.214306
      y = 3.5363235
      z = 0
      irot = 403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 404
      theta1 = 90
      phi1 = 174.577
      theta2 = 84.001132
      phi2 = -95.423
      theta3 = 5.998868
      phi3 = 84.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 172
      chmoth = 'DCLS'
      x = -20.429449
      y = 1.939426
      z = 0
      irot = 404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 405
      theta1 = 90
      phi1 = 179.077
      theta2 = 84.001132
      phi2 = -90.923
      theta3 = 5.998868
      phi3 = 89.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 173
      chmoth = 'DCLS'
      x = -20.518637
      y = 0.33057131
      z = 0
      irot = 405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 406
      theta1 = 90
      phi1 = -176.423
      theta2 = 84.001132
      phi2 = -86.423
      theta3 = 5.998868
      phi3 = 93.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 174
      chmoth = 'DCLS'
      x = -20.481322
      y = -1.2803215
      z = 0
      irot = 406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 407
      theta1 = 90
      phi1 = -171.923
      theta2 = 84.001132
      phi2 = -81.923
      theta3 = 5.998868
      phi3 = 98.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 175
      chmoth = 'DCLS'
      x = -20.317732
      y = -2.8833206
      z = 0
      irot = 407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 408
      theta1 = 90
      phi1 = -167.423
      theta2 = 84.001132
      phi2 = -77.423
      theta3 = 5.998868
      phi3 = 102.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 176
      chmoth = 'DCLS'
      x = -20.028876
      y = -4.4685432
      z = 0
      irot = 408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 409
      theta1 = 90
      phi1 = -162.923
      theta2 = 84.001132
      phi2 = -72.923
      theta3 = 5.998868
      phi3 = 107.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 177
      chmoth = 'DCLS'
      x = -19.616536
      y = -6.0262156
      z = 0
      irot = 409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 410
      theta1 = 90
      phi1 = -158.423
      theta2 = 84.001132
      phi2 = -68.423
      theta3 = 5.998868
      phi3 = 111.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 178
      chmoth = 'DCLS'
      x = -19.083253
      y = -7.5467345
      z = 0
      irot = 410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 411
      theta1 = 90
      phi1 = -153.923
      theta2 = 84.001132
      phi2 = -63.923
      theta3 = 5.998868
      phi3 = 116.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 179
      chmoth = 'DCLS'
      x = -18.432316
      y = -9.0207252
      z = 0
      irot = 411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 412
      theta1 = 90
      phi1 = -149.423
      theta2 = 84.001132
      phi2 = -59.423
      theta3 = 5.998868
      phi3 = 120.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 180
      chmoth = 'DCLS'
      x = -17.667737
      y = -10.4391
      z = 0
      irot = 412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 413
      theta1 = 90
      phi1 = -144.923
      theta2 = 84.001132
      phi2 = -54.923
      theta3 = 5.998868
      phi3 = 125.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 181
      chmoth = 'DCLS'
      x = -16.794231
      y = -11.793115
      z = 0
      irot = 413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 414
      theta1 = 90
      phi1 = -140.423
      theta2 = 84.001132
      phi2 = -50.423
      theta3 = 5.998868
      phi3 = 129.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 182
      chmoth = 'DCLS'
      x = -15.817183
      y = -13.074421
      z = 0
      irot = 414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 415
      theta1 = 90
      phi1 = -135.923
      theta2 = 84.001132
      phi2 = -45.923
      theta3 = 5.998868
      phi3 = 134.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 183
      chmoth = 'DCLS'
      x = -14.742617
      y = -14.275118
      z = 0
      irot = 415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 416
      theta1 = 90
      phi1 = -131.423
      theta2 = 84.001132
      phi2 = -41.423
      theta3 = 5.998868
      phi3 = 138.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 184
      chmoth = 'DCLS'
      x = -13.577157
      y = -15.387805
      z = 0
      irot = 416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 417
      theta1 = 90
      phi1 = -126.923
      theta2 = 84.001132
      phi2 = -36.923
      theta3 = 5.998868
      phi3 = 143.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 185
      chmoth = 'DCLS'
      x = -12.32799
      y = -16.405621
      z = 0
      irot = 417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 418
      theta1 = 90
      phi1 = -122.423
      theta2 = 84.001132
      phi2 = -32.423
      theta3 = 5.998868
      phi3 = 147.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 186
      chmoth = 'DCLS'
      x = -11.002817
      y = -17.322291
      z = 0
      irot = 418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 419
      theta1 = 90
      phi1 = -117.923
      theta2 = 84.001132
      phi2 = -27.923
      theta3 = 5.998868
      phi3 = 152.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 187
      chmoth = 'DCLS'
      x = -9.6098076
      y = -18.132163
      z = 0
      irot = 419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 420
      theta1 = 90
      phi1 = -113.423
      theta2 = 84.001132
      phi2 = -23.423
      theta3 = 5.998868
      phi3 = 156.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 188
      chmoth = 'DCLS'
      x = -8.1575506
      y = -18.830245
      z = 0
      irot = 420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 421
      theta1 = 90
      phi1 = -108.923
      theta2 = 84.001132
      phi2 = -18.923
      theta3 = 5.998868
      phi3 = 161.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 189
      chmoth = 'DCLS'
      x = -6.6549996
      y = -19.412232
      z = 0
      irot = 421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 422
      theta1 = 90
      phi1 = -104.423
      theta2 = 84.001132
      phi2 = -14.423
      theta3 = 5.998868
      phi3 = 165.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 190
      chmoth = 'DCLS'
      x = -5.1114183
      y = -19.874535
      z = 0
      irot = 422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 423
      theta1 = 90
      phi1 = -99.923
      theta2 = 84.001132
      phi2 = -9.923
      theta3 = 5.998868
      phi3 = 170.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 191
      chmoth = 'DCLS'
      x = -3.5363235
      y = -20.214306
      z = 0
      irot = 423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 424
      theta1 = 90
      phi1 = -95.423
      theta2 = 84.001132
      phi2 = -5.423
      theta3 = 5.998868
      phi3 = 174.577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 192
      chmoth = 'DCLS'
      x = -1.939426
      y = -20.429449
      z = 0
      irot = 424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 425
      theta1 = 90
      phi1 = -90.923
      theta2 = 84.001132
      phi2 = -0.923
      theta3 = 5.998868
      phi3 = 179.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 193
      chmoth = 'DCLS'
      x = -0.33057131
      y = -20.518637
      z = 0
      irot = 425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 426
      theta1 = 90
      phi1 = -86.423
      theta2 = 84.001132
      phi2 = 3.577
      theta3 = 5.998868
      phi3 = -176.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 194
      chmoth = 'DCLS'
      x = 1.2803215
      y = -20.481322
      z = 0
      irot = 426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 427
      theta1 = 90
      phi1 = -81.923
      theta2 = 84.001132
      phi2 = 8.077
      theta3 = 5.998868
      phi3 = -171.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 195
      chmoth = 'DCLS'
      x = 2.8833206
      y = -20.317732
      z = 0
      irot = 427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 428
      theta1 = 90
      phi1 = -77.423
      theta2 = 84.001132
      phi2 = 12.577
      theta3 = 5.998868
      phi3 = -167.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 196
      chmoth = 'DCLS'
      x = 4.4685432
      y = -20.028876
      z = 0
      irot = 428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 429
      theta1 = 90
      phi1 = -72.923
      theta2 = 84.001132
      phi2 = 17.077
      theta3 = 5.998868
      phi3 = -162.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 197
      chmoth = 'DCLS'
      x = 6.0262156
      y = -19.616536
      z = 0
      irot = 429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 430
      theta1 = 90
      phi1 = -68.423
      theta2 = 84.001132
      phi2 = 21.577
      theta3 = 5.998868
      phi3 = -158.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 198
      chmoth = 'DCLS'
      x = 7.5467345
      y = -19.083253
      z = 0
      irot = 430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 431
      theta1 = 90
      phi1 = -63.923
      theta2 = 84.001132
      phi2 = 26.077
      theta3 = 5.998868
      phi3 = -153.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 199
      chmoth = 'DCLS'
      x = 9.0207252
      y = -18.432316
      z = 0
      irot = 431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 432
      theta1 = 90
      phi1 = -59.423
      theta2 = 84.001132
      phi2 = 30.577
      theta3 = 5.998868
      phi3 = -149.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 200
      chmoth = 'DCLS'
      x = 10.4391
      y = -17.667737
      z = 0
      irot = 432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 433
      theta1 = 90
      phi1 = -54.923
      theta2 = 84.001132
      phi2 = 35.077
      theta3 = 5.998868
      phi3 = -144.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 201
      chmoth = 'DCLS'
      x = 11.793115
      y = -16.794231
      z = 0
      irot = 433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 434
      theta1 = 90
      phi1 = -50.423
      theta2 = 84.001132
      phi2 = 39.577
      theta3 = 5.998868
      phi3 = -140.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 202
      chmoth = 'DCLS'
      x = 13.074421
      y = -15.817183
      z = 0
      irot = 434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 435
      theta1 = 90
      phi1 = -45.923
      theta2 = 84.001132
      phi2 = 44.077
      theta3 = 5.998868
      phi3 = -135.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 203
      chmoth = 'DCLS'
      x = 14.275118
      y = -14.742617
      z = 0
      irot = 435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 436
      theta1 = 90
      phi1 = -41.423
      theta2 = 84.001132
      phi2 = 48.577
      theta3 = 5.998868
      phi3 = -131.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 204
      chmoth = 'DCLS'
      x = 15.387805
      y = -13.577157
      z = 0
      irot = 436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 437
      theta1 = 90
      phi1 = -36.923
      theta2 = 84.001132
      phi2 = 53.077
      theta3 = 5.998868
      phi3 = -126.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 205
      chmoth = 'DCLS'
      x = 16.405621
      y = -12.32799
      z = 0
      irot = 437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 438
      theta1 = 90
      phi1 = -32.423
      theta2 = 84.001132
      phi2 = 57.577
      theta3 = 5.998868
      phi3 = -122.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 206
      chmoth = 'DCLS'
      x = 17.322291
      y = -11.002817
      z = 0
      irot = 438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 439
      theta1 = 90
      phi1 = -27.923
      theta2 = 84.001132
      phi2 = 62.077
      theta3 = 5.998868
      phi3 = -117.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 207
      chmoth = 'DCLS'
      x = 18.132163
      y = -9.6098076
      z = 0
      irot = 439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 440
      theta1 = 90
      phi1 = -23.423
      theta2 = 84.001132
      phi2 = 66.577
      theta3 = 5.998868
      phi3 = -113.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 208
      chmoth = 'DCLS'
      x = 18.830245
      y = -8.1575506
      z = 0
      irot = 440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 441
      theta1 = 90
      phi1 = -18.923
      theta2 = 84.001132
      phi2 = 71.077
      theta3 = 5.998868
      phi3 = -108.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 209
      chmoth = 'DCLS'
      x = 19.412232
      y = -6.6549996
      z = 0
      irot = 441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 442
      theta1 = 90
      phi1 = -14.423
      theta2 = 84.001132
      phi2 = 75.577
      theta3 = 5.998868
      phi3 = -104.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 210
      chmoth = 'DCLS'
      x = 19.874535
      y = -5.1114183
      z = 0
      irot = 442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 443
      theta1 = 90
      phi1 = -9.923
      theta2 = 84.001132
      phi2 = 80.077
      theta3 = 5.998868
      phi3 = -99.923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 211
      chmoth = 'DCLS'
      x = 20.214306
      y = -3.5363235
      z = 0
      irot = 443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 444
      theta1 = 90
      phi1 = -5.423
      theta2 = 84.001132
      phi2 = 84.577
      theta3 = 5.998868
      phi3 = -95.423
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 212
      chmoth = 'DCLS'
      x = 20.429449
      y = -1.939426
      z = 0
      irot = 444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 445
      theta1 = 90.14883
      phi1 = 0
      theta2 = 83.602812
      phi2 = 89.983313
      theta3 = 6.3989338
      phi3 = -88.672806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 213
      chmoth = 'DCLS'
      x = 21.8951
      y = 0.5072
      z = 0
      irot = 445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 446
      theta1 = 90.14883
      phi1 = 4.5
      theta2 = 83.602812
      phi2 = 94.483313
      theta3 = 6.3989338
      phi3 = -84.172806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 214
      chmoth = 'DCLS'
      x = 21.78781
      y = 2.2235062
      z = 0
      irot = 446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 447
      theta1 = 90.14883
      phi1 = 9
      theta2 = 83.602812
      phi2 = 98.983313
      theta3 = 6.3989338
      phi3 = -79.672806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 215
      chmoth = 'DCLS'
      x = 21.546191
      y = 3.9261038
      z = 0
      irot = 447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 448
      theta1 = 90.14883
      phi1 = 13.5
      theta2 = 83.602812
      phi2 = 103.48331
      theta3 = 6.3989338
      phi3 = -75.172806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 216
      chmoth = 'DCLS'
      x = 21.171733
      y = 5.6044956
      z = 0
      irot = 448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 449
      theta1 = 90.14883
      phi1 = 18
      theta2 = 83.602812
      phi2 = 107.98331
      theta3 = 6.3989338
      phi3 = -70.672806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 217
      chmoth = 'DCLS'
      x = 20.666744
      y = 7.2483339
      z = 0
      irot = 449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 450
      theta1 = 90.14883
      phi1 = 22.5
      theta2 = 83.602812
      phi2 = 112.48331
      theta3 = 6.3989338
      phi3 = -66.172806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 218
      chmoth = 'DCLS'
      x = 20.034338
      y = 8.8474837
      z = 0
      irot = 450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 451
      theta1 = 90.14883
      phi1 = 27
      theta2 = 83.602812
      phi2 = 116.98331
      theta3 = 6.3989338
      phi3 = -61.672806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 219
      chmoth = 'DCLS'
      x = 19.278413
      y = 10.392086
      z = 0
      irot = 451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 452
      theta1 = 90.14883
      phi1 = 31.5
      theta2 = 83.602812
      phi2 = 121.48331
      theta3 = 6.3989338
      phi3 = -57.172806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 220
      chmoth = 'DCLS'
      x = 18.40363
      y = 11.872617
      z = 0
      irot = 452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 453
      theta1 = 90.14883
      phi1 = 36
      theta2 = 83.602812
      phi2 = 125.98331
      theta3 = 6.3989338
      phi3 = -52.672806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 221
      chmoth = 'DCLS'
      x = 17.415383
      y = 13.27995
      z = 0
      irot = 453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 454
      theta1 = 90.14883
      phi1 = 40.5
      theta2 = 83.602812
      phi2 = 130.48331
      theta3 = 6.3989338
      phi3 = -48.172806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 222
      chmoth = 'DCLS'
      x = 16.319765
      y = 14.605408
      z = 0
      irot = 454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 455
      theta1 = 90.14883
      phi1 = 45
      theta2 = 83.602812
      phi2 = 134.98331
      theta3 = 6.3989338
      phi3 = -43.672806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 223
      chmoth = 'DCLS'
      x = 15.123529
      y = 15.840818
      z = 0
      irot = 455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 456
      theta1 = 90.14883
      phi1 = 49.5
      theta2 = 83.602812
      phi2 = 139.48331
      theta3 = 6.3989338
      phi3 = -39.172806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 224
      chmoth = 'DCLS'
      x = 13.834052
      y = 16.978565
      z = 0
      irot = 456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 457
      theta1 = 90.14883
      phi1 = 54
      theta2 = 83.602812
      phi2 = 143.98331
      theta3 = 6.3989338
      phi3 = -34.672806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 225
      chmoth = 'DCLS'
      x = 12.459283
      y = 18.011633
      z = 0
      irot = 457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 458
      theta1 = 90.14883
      phi1 = 58.5
      theta2 = 83.602812
      phi2 = 148.48331
      theta3 = 6.3989338
      phi3 = -30.172806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 226
      chmoth = 'DCLS'
      x = 11.007699
      y = 18.933653
      z = 0
      irot = 458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 459
      theta1 = 90.14883
      phi1 = 63
      theta2 = 83.602812
      phi2 = 152.98331
      theta3 = 6.3989338
      phi3 = -25.672806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 227
      chmoth = 'DCLS'
      x = 9.4882489
      y = 19.738941
      z = 0
      irot = 459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 460
      theta1 = 90.14883
      phi1 = 67.5
      theta2 = 83.602812
      phi2 = 157.48331
      theta3 = 6.3989338
      phi3 = -21.172806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 228
      chmoth = 'DCLS'
      x = 7.9103003
      y = 20.422532
      z = 0
      irot = 460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 461
      theta1 = 90.14883
      phi1 = 72
      theta2 = 83.602812
      phi2 = 161.98331
      theta3 = 6.3989338
      phi3 = -16.672806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 229
      chmoth = 'DCLS'
      x = 6.2835821
      y = 20.980211
      z = 0
      irot = 461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 462
      theta1 = 90.14883
      phi1 = 76.5
      theta2 = 83.602812
      phi2 = 166.48331
      theta3 = 6.3989338
      phi3 = -12.172806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 230
      chmoth = 'DCLS'
      x = 4.6181236
      y = 21.40854
      z = 0
      irot = 462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 463
      theta1 = 90.14883
      phi1 = 81
      theta2 = 83.602812
      phi2 = 170.98331
      theta3 = 6.3989338
      phi3 = -7.6728061
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 231
      chmoth = 'DCLS'
      x = 2.9241927
      y = 21.704879
      z = 0
      irot = 463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 464
      theta1 = 90.14883
      phi1 = 85.5
      theta2 = 83.602812
      phi2 = 175.48331
      theta3 = 6.3989338
      phi3 = -3.1728061
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 232
      chmoth = 'DCLS'
      x = 1.2122333
      y = 21.867399
      z = 0
      irot = 464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 465
      theta1 = 90.14883
      phi1 = 90
      theta2 = 83.602812
      phi2 = 179.98331
      theta3 = 6.3989338
      phi3 = 1.3271939
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 233
      chmoth = 'DCLS'
      x = -0.5072
      y = 21.8951
      z = 0
      irot = 465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 466
      theta1 = 90.14883
      phi1 = 94.5
      theta2 = 83.602812
      phi2 = -175.51669
      theta3 = 6.3989338
      phi3 = 5.8271939
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 234
      chmoth = 'DCLS'
      x = -2.2235062
      y = 21.78781
      z = 0
      irot = 466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 467
      theta1 = 90.14883
      phi1 = 99
      theta2 = 83.602812
      phi2 = -171.01669
      theta3 = 6.3989338
      phi3 = 10.327194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 235
      chmoth = 'DCLS'
      x = -3.9261038
      y = 21.546191
      z = 0
      irot = 467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 468
      theta1 = 90.14883
      phi1 = 103.5
      theta2 = 83.602812
      phi2 = -166.51669
      theta3 = 6.3989338
      phi3 = 14.827194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 236
      chmoth = 'DCLS'
      x = -5.6044956
      y = 21.171733
      z = 0
      irot = 468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 469
      theta1 = 90.14883
      phi1 = 108
      theta2 = 83.602812
      phi2 = -162.01669
      theta3 = 6.3989338
      phi3 = 19.327194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 237
      chmoth = 'DCLS'
      x = -7.2483339
      y = 20.666744
      z = 0
      irot = 469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 470
      theta1 = 90.14883
      phi1 = 112.5
      theta2 = 83.602812
      phi2 = -157.51669
      theta3 = 6.3989338
      phi3 = 23.827194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 238
      chmoth = 'DCLS'
      x = -8.8474837
      y = 20.034338
      z = 0
      irot = 470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 471
      theta1 = 90.14883
      phi1 = 117
      theta2 = 83.602812
      phi2 = -153.01669
      theta3 = 6.3989338
      phi3 = 28.327194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 239
      chmoth = 'DCLS'
      x = -10.392086
      y = 19.278413
      z = 0
      irot = 471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 472
      theta1 = 90.14883
      phi1 = 121.5
      theta2 = 83.602812
      phi2 = -148.51669
      theta3 = 6.3989338
      phi3 = 32.827194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 240
      chmoth = 'DCLS'
      x = -11.872617
      y = 18.40363
      z = 0
      irot = 472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 473
      theta1 = 90.14883
      phi1 = 126
      theta2 = 83.602812
      phi2 = -144.01669
      theta3 = 6.3989338
      phi3 = 37.327194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 241
      chmoth = 'DCLS'
      x = -13.27995
      y = 17.415383
      z = 0
      irot = 473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 474
      theta1 = 90.14883
      phi1 = 130.5
      theta2 = 83.602812
      phi2 = -139.51669
      theta3 = 6.3989338
      phi3 = 41.827194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 242
      chmoth = 'DCLS'
      x = -14.605408
      y = 16.319765
      z = 0
      irot = 474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 475
      theta1 = 90.14883
      phi1 = 135
      theta2 = 83.602812
      phi2 = -135.01669
      theta3 = 6.3989338
      phi3 = 46.327194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 243
      chmoth = 'DCLS'
      x = -15.840818
      y = 15.123529
      z = 0
      irot = 475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 476
      theta1 = 90.14883
      phi1 = 139.5
      theta2 = 83.602812
      phi2 = -130.51669
      theta3 = 6.3989338
      phi3 = 50.827194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 244
      chmoth = 'DCLS'
      x = -16.978565
      y = 13.834052
      z = 0
      irot = 476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 477
      theta1 = 90.14883
      phi1 = 144
      theta2 = 83.602812
      phi2 = -126.01669
      theta3 = 6.3989338
      phi3 = 55.327194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 245
      chmoth = 'DCLS'
      x = -18.011633
      y = 12.459283
      z = 0
      irot = 477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 478
      theta1 = 90.14883
      phi1 = 148.5
      theta2 = 83.602812
      phi2 = -121.51669
      theta3 = 6.3989338
      phi3 = 59.827194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 246
      chmoth = 'DCLS'
      x = -18.933653
      y = 11.007699
      z = 0
      irot = 478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 479
      theta1 = 90.14883
      phi1 = 153
      theta2 = 83.602812
      phi2 = -117.01669
      theta3 = 6.3989338
      phi3 = 64.327194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 247
      chmoth = 'DCLS'
      x = -19.738941
      y = 9.4882489
      z = 0
      irot = 479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 480
      theta1 = 90.14883
      phi1 = 157.5
      theta2 = 83.602812
      phi2 = -112.51669
      theta3 = 6.3989338
      phi3 = 68.827194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 248
      chmoth = 'DCLS'
      x = -20.422532
      y = 7.9103003
      z = 0
      irot = 480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 481
      theta1 = 90.14883
      phi1 = 162
      theta2 = 83.602812
      phi2 = -108.01669
      theta3 = 6.3989338
      phi3 = 73.327194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 249
      chmoth = 'DCLS'
      x = -20.980211
      y = 6.2835821
      z = 0
      irot = 481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 482
      theta1 = 90.14883
      phi1 = 166.5
      theta2 = 83.602812
      phi2 = -103.51669
      theta3 = 6.3989338
      phi3 = 77.827194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 250
      chmoth = 'DCLS'
      x = -21.40854
      y = 4.6181236
      z = 0
      irot = 482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 483
      theta1 = 90.14883
      phi1 = 171
      theta2 = 83.602812
      phi2 = -99.016687
      theta3 = 6.3989338
      phi3 = 82.327194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 251
      chmoth = 'DCLS'
      x = -21.704879
      y = 2.9241927
      z = 0
      irot = 483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 484
      theta1 = 90.14883
      phi1 = 175.5
      theta2 = 83.602812
      phi2 = -94.516687
      theta3 = 6.3989338
      phi3 = 86.827194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 252
      chmoth = 'DCLS'
      x = -21.867399
      y = 1.2122333
      z = 0
      irot = 484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 485
      theta1 = 90.14883
      phi1 = 180
      theta2 = 83.602812
      phi2 = -90.016687
      theta3 = 6.3989338
      phi3 = 91.327194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 253
      chmoth = 'DCLS'
      x = -21.8951
      y = -0.5072
      z = 0
      irot = 485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 486
      theta1 = 90.14883
      phi1 = -175.5
      theta2 = 83.602812
      phi2 = -85.516687
      theta3 = 6.3989338
      phi3 = 95.827194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 254
      chmoth = 'DCLS'
      x = -21.78781
      y = -2.2235062
      z = 0
      irot = 486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 487
      theta1 = 90.14883
      phi1 = -171
      theta2 = 83.602812
      phi2 = -81.016687
      theta3 = 6.3989338
      phi3 = 100.32719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 255
      chmoth = 'DCLS'
      x = -21.546191
      y = -3.9261038
      z = 0
      irot = 487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 488
      theta1 = 90.14883
      phi1 = -166.5
      theta2 = 83.602812
      phi2 = -76.516687
      theta3 = 6.3989338
      phi3 = 104.82719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 256
      chmoth = 'DCLS'
      x = -21.171733
      y = -5.6044956
      z = 0
      irot = 488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 489
      theta1 = 90.14883
      phi1 = -162
      theta2 = 83.602812
      phi2 = -72.016687
      theta3 = 6.3989338
      phi3 = 109.32719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 257
      chmoth = 'DCLS'
      x = -20.666744
      y = -7.2483339
      z = 0
      irot = 489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 490
      theta1 = 90.14883
      phi1 = -157.5
      theta2 = 83.602812
      phi2 = -67.516687
      theta3 = 6.3989338
      phi3 = 113.82719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 258
      chmoth = 'DCLS'
      x = -20.034338
      y = -8.8474837
      z = 0
      irot = 490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 491
      theta1 = 90.14883
      phi1 = -153
      theta2 = 83.602812
      phi2 = -63.016687
      theta3 = 6.3989338
      phi3 = 118.32719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 259
      chmoth = 'DCLS'
      x = -19.278413
      y = -10.392086
      z = 0
      irot = 491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 492
      theta1 = 90.14883
      phi1 = -148.5
      theta2 = 83.602812
      phi2 = -58.516687
      theta3 = 6.3989338
      phi3 = 122.82719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 260
      chmoth = 'DCLS'
      x = -18.40363
      y = -11.872617
      z = 0
      irot = 492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 493
      theta1 = 90.14883
      phi1 = -144
      theta2 = 83.602812
      phi2 = -54.016687
      theta3 = 6.3989338
      phi3 = 127.32719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 261
      chmoth = 'DCLS'
      x = -17.415383
      y = -13.27995
      z = 0
      irot = 493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 494
      theta1 = 90.14883
      phi1 = -139.5
      theta2 = 83.602812
      phi2 = -49.516687
      theta3 = 6.3989338
      phi3 = 131.82719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 262
      chmoth = 'DCLS'
      x = -16.319765
      y = -14.605408
      z = 0
      irot = 494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 495
      theta1 = 90.14883
      phi1 = -135
      theta2 = 83.602812
      phi2 = -45.016687
      theta3 = 6.3989338
      phi3 = 136.32719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 263
      chmoth = 'DCLS'
      x = -15.123529
      y = -15.840818
      z = 0
      irot = 495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 496
      theta1 = 90.14883
      phi1 = -130.5
      theta2 = 83.602812
      phi2 = -40.516687
      theta3 = 6.3989338
      phi3 = 140.82719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 264
      chmoth = 'DCLS'
      x = -13.834052
      y = -16.978565
      z = 0
      irot = 496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 497
      theta1 = 90.14883
      phi1 = -126
      theta2 = 83.602812
      phi2 = -36.016687
      theta3 = 6.3989338
      phi3 = 145.32719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 265
      chmoth = 'DCLS'
      x = -12.459283
      y = -18.011633
      z = 0
      irot = 497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 498
      theta1 = 90.14883
      phi1 = -121.5
      theta2 = 83.602812
      phi2 = -31.516687
      theta3 = 6.3989338
      phi3 = 149.82719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 266
      chmoth = 'DCLS'
      x = -11.007699
      y = -18.933653
      z = 0
      irot = 498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 499
      theta1 = 90.14883
      phi1 = -117
      theta2 = 83.602812
      phi2 = -27.016687
      theta3 = 6.3989338
      phi3 = 154.32719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 267
      chmoth = 'DCLS'
      x = -9.4882489
      y = -19.738941
      z = 0
      irot = 499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 500
      theta1 = 90.14883
      phi1 = -112.5
      theta2 = 83.602812
      phi2 = -22.516687
      theta3 = 6.3989338
      phi3 = 158.82719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 268
      chmoth = 'DCLS'
      x = -7.9103003
      y = -20.422532
      z = 0
      irot = 500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 501
      theta1 = 90.14883
      phi1 = -108
      theta2 = 83.602812
      phi2 = -18.016687
      theta3 = 6.3989338
      phi3 = 163.32719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 269
      chmoth = 'DCLS'
      x = -6.2835821
      y = -20.980211
      z = 0
      irot = 501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 502
      theta1 = 90.14883
      phi1 = -103.5
      theta2 = 83.602812
      phi2 = -13.516687
      theta3 = 6.3989338
      phi3 = 167.82719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 270
      chmoth = 'DCLS'
      x = -4.6181236
      y = -21.40854
      z = 0
      irot = 502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 503
      theta1 = 90.14883
      phi1 = -99
      theta2 = 83.602812
      phi2 = -9.0166866
      theta3 = 6.3989338
      phi3 = 172.32719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 271
      chmoth = 'DCLS'
      x = -2.9241927
      y = -21.704879
      z = 0
      irot = 503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 504
      theta1 = 90.14883
      phi1 = -94.5
      theta2 = 83.602812
      phi2 = -4.5166866
      theta3 = 6.3989338
      phi3 = 176.82719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 272
      chmoth = 'DCLS'
      x = -1.2122333
      y = -21.867399
      z = 0
      irot = 504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 505
      theta1 = 90.14883
      phi1 = -90
      theta2 = 83.602812
      phi2 = -0.016686602
      theta3 = 6.3989338
      phi3 = -178.67281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 273
      chmoth = 'DCLS'
      x = 0.5072
      y = -21.8951
      z = 0
      irot = 505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 506
      theta1 = 90.14883
      phi1 = -85.5
      theta2 = 83.602812
      phi2 = 4.4833134
      theta3 = 6.3989338
      phi3 = -174.17281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 274
      chmoth = 'DCLS'
      x = 2.2235062
      y = -21.78781
      z = 0
      irot = 506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 507
      theta1 = 90.14883
      phi1 = -81
      theta2 = 83.602812
      phi2 = 8.9833134
      theta3 = 6.3989338
      phi3 = -169.67281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 275
      chmoth = 'DCLS'
      x = 3.9261038
      y = -21.546191
      z = 0
      irot = 507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 508
      theta1 = 90.14883
      phi1 = -76.5
      theta2 = 83.602812
      phi2 = 13.483313
      theta3 = 6.3989338
      phi3 = -165.17281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 276
      chmoth = 'DCLS'
      x = 5.6044956
      y = -21.171733
      z = 0
      irot = 508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 509
      theta1 = 90.14883
      phi1 = -72
      theta2 = 83.602812
      phi2 = 17.983313
      theta3 = 6.3989338
      phi3 = -160.67281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 277
      chmoth = 'DCLS'
      x = 7.2483339
      y = -20.666744
      z = 0
      irot = 509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 510
      theta1 = 90.14883
      phi1 = -67.5
      theta2 = 83.602812
      phi2 = 22.483313
      theta3 = 6.3989338
      phi3 = -156.17281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 278
      chmoth = 'DCLS'
      x = 8.8474837
      y = -20.034338
      z = 0
      irot = 510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 511
      theta1 = 90.14883
      phi1 = -63
      theta2 = 83.602812
      phi2 = 26.983313
      theta3 = 6.3989338
      phi3 = -151.67281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 279
      chmoth = 'DCLS'
      x = 10.392086
      y = -19.278413
      z = 0
      irot = 511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 512
      theta1 = 90.14883
      phi1 = -58.5
      theta2 = 83.602812
      phi2 = 31.483313
      theta3 = 6.3989338
      phi3 = -147.17281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 280
      chmoth = 'DCLS'
      x = 11.872617
      y = -18.40363
      z = 0
      irot = 512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 513
      theta1 = 90.14883
      phi1 = -54
      theta2 = 83.602812
      phi2 = 35.983313
      theta3 = 6.3989338
      phi3 = -142.67281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 281
      chmoth = 'DCLS'
      x = 13.27995
      y = -17.415383
      z = 0
      irot = 513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 514
      theta1 = 90.14883
      phi1 = -49.5
      theta2 = 83.602812
      phi2 = 40.483313
      theta3 = 6.3989338
      phi3 = -138.17281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 282
      chmoth = 'DCLS'
      x = 14.605408
      y = -16.319765
      z = 0
      irot = 514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 515
      theta1 = 90.14883
      phi1 = -45
      theta2 = 83.602812
      phi2 = 44.983313
      theta3 = 6.3989338
      phi3 = -133.67281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 283
      chmoth = 'DCLS'
      x = 15.840818
      y = -15.123529
      z = 0
      irot = 515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 516
      theta1 = 90.14883
      phi1 = -40.5
      theta2 = 83.602812
      phi2 = 49.483313
      theta3 = 6.3989338
      phi3 = -129.17281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 284
      chmoth = 'DCLS'
      x = 16.978565
      y = -13.834052
      z = 0
      irot = 516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 517
      theta1 = 90.14883
      phi1 = -36
      theta2 = 83.602812
      phi2 = 53.983313
      theta3 = 6.3989338
      phi3 = -124.67281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 285
      chmoth = 'DCLS'
      x = 18.011633
      y = -12.459283
      z = 0
      irot = 517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 518
      theta1 = 90.14883
      phi1 = -31.5
      theta2 = 83.602812
      phi2 = 58.483313
      theta3 = 6.3989338
      phi3 = -120.17281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 286
      chmoth = 'DCLS'
      x = 18.933653
      y = -11.007699
      z = 0
      irot = 518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 519
      theta1 = 90.14883
      phi1 = -27
      theta2 = 83.602812
      phi2 = 62.983313
      theta3 = 6.3989338
      phi3 = -115.67281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 287
      chmoth = 'DCLS'
      x = 19.738941
      y = -9.4882489
      z = 0
      irot = 519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 520
      theta1 = 90.14883
      phi1 = -22.5
      theta2 = 83.602812
      phi2 = 67.483313
      theta3 = 6.3989338
      phi3 = -111.17281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 288
      chmoth = 'DCLS'
      x = 20.422532
      y = -7.9103003
      z = 0
      irot = 520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 521
      theta1 = 90.14883
      phi1 = -18
      theta2 = 83.602812
      phi2 = 71.983313
      theta3 = 6.3989338
      phi3 = -106.67281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 289
      chmoth = 'DCLS'
      x = 20.980211
      y = -6.2835821
      z = 0
      irot = 521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 522
      theta1 = 90.14883
      phi1 = -13.5
      theta2 = 83.602812
      phi2 = 76.483313
      theta3 = 6.3989338
      phi3 = -102.17281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 290
      chmoth = 'DCLS'
      x = 21.40854
      y = -4.6181236
      z = 0
      irot = 522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 523
      theta1 = 90.14883
      phi1 = -9
      theta2 = 83.602812
      phi2 = 80.983313
      theta3 = 6.3989338
      phi3 = -97.672806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 291
      chmoth = 'DCLS'
      x = 21.704879
      y = -2.9241927
      z = 0
      irot = 523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 524
      theta1 = 90.14883
      phi1 = -4.5
      theta2 = 83.602812
      phi2 = 85.483313
      theta3 = 6.3989338
      phi3 = -93.172806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 292
      chmoth = 'DCLS'
      x = 21.867399
      y = -1.2122333
      z = 0
      irot = 524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 525
      theta1 = 90
      phi1 = 0
      theta2 = 95.998868
      phi2 = 90
      theta3 = 5.998868
      phi3 = 90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 293
      chmoth = 'DCLS'
      x = 23.8544
      y = 0
      z = 0
      irot = 525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 526
      theta1 = 90
      phi1 = 3.8709677
      theta2 = 95.998868
      phi2 = 93.870968
      theta3 = 5.998868
      phi3 = 93.870968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 294
      chmoth = 'DCLS'
      x = 23.799979
      y = 1.6104045
      z = 0
      irot = 526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 527
      theta1 = 90
      phi1 = 7.7419355
      theta2 = 95.998868
      phi2 = 97.741935
      theta3 = 5.998868
      phi3 = 97.741935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 295
      chmoth = 'DCLS'
      x = 23.636964
      y = 3.2134611
      z = 0
      irot = 527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 528
      theta1 = 90
      phi1 = 11.612903
      theta2 = 95.998868
      phi2 = 101.6129
      theta3 = 5.998868
      phi3 = 101.6129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 296
      chmoth = 'DCLS'
      x = 23.366099
      y = 4.8018554
      z = 0
      irot = 528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 529
      theta1 = 90
      phi1 = 15.483871
      theta2 = 95.998868
      phi2 = 105.48387
      theta3 = 5.998868
      phi3 = 105.48387
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 297
      chmoth = 'DCLS'
      x = 22.98862
      y = 6.36834
      z = 0
      irot = 529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 530
      theta1 = 90
      phi1 = 19.354839
      theta2 = 95.998868
      phi2 = 109.35484
      theta3 = 5.998868
      phi3 = 109.35484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 298
      chmoth = 'DCLS'
      x = 22.506249
      y = 7.9057672
      z = 0
      irot = 530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 531
      theta1 = 90
      phi1 = 23.225806
      theta2 = 95.998868
      phi2 = 113.22581
      theta3 = 5.998868
      phi3 = 113.22581
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 299
      chmoth = 'DCLS'
      x = 21.921187
      y = 9.4071223
      z = 0
      irot = 531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 532
      theta1 = 90
      phi1 = 27.096774
      theta2 = 95.998868
      phi2 = 117.09677
      theta3 = 5.998868
      phi3 = 117.09677
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 300
      chmoth = 'DCLS'
      x = 21.236104
      y = 10.865555
      z = 0
      irot = 532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 533
      theta1 = 90
      phi1 = 30.967742
      theta2 = 95.998868
      phi2 = 120.96774
      theta3 = 5.998868
      phi3 = 120.96774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 301
      chmoth = 'DCLS'
      x = 20.454126
      y = 12.27441
      z = 0
      irot = 533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 534
      theta1 = 90
      phi1 = 34.83871
      theta2 = 95.998868
      phi2 = 124.83871
      theta3 = 5.998868
      phi3 = 124.83871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 302
      chmoth = 'DCLS'
      x = 19.578819
      y = 13.627261
      z = 0
      irot = 534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 535
      theta1 = 90
      phi1 = 38.709677
      theta2 = 95.998868
      phi2 = 128.70968
      theta3 = 5.998868
      phi3 = 128.70968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 303
      chmoth = 'DCLS'
      x = 18.61418
      y = 14.917933
      z = 0
      irot = 535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 536
      theta1 = 90
      phi1 = 42.580645
      theta2 = 95.998868
      phi2 = 132.58065
      theta3 = 5.998868
      phi3 = 132.58065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 304
      chmoth = 'DCLS'
      x = 17.564608
      y = 16.140538
      z = 0
      irot = 536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 537
      theta1 = 90
      phi1 = 46.451613
      theta2 = 95.998868
      phi2 = 136.45161
      theta3 = 5.998868
      phi3 = 136.45161
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 305
      chmoth = 'DCLS'
      x = 16.434892
      y = 17.289497
      z = 0
      irot = 537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 538
      theta1 = 90
      phi1 = 50.322581
      theta2 = 95.998868
      phi2 = 140.32258
      theta3 = 5.998868
      phi3 = 140.32258
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 306
      chmoth = 'DCLS'
      x = 15.230189
      y = 18.359568
      z = 0
      irot = 538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 539
      theta1 = 90
      phi1 = 54.193548
      theta2 = 95.998868
      phi2 = 144.19355
      theta3 = 5.998868
      phi3 = 144.19355
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 307
      chmoth = 'DCLS'
      x = 13.955993
      y = 19.345869
      z = 0
      irot = 539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 540
      theta1 = 90
      phi1 = 58.064516
      theta2 = 95.998868
      phi2 = 148.06452
      theta3 = 5.998868
      phi3 = 148.06452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 308
      chmoth = 'DCLS'
      x = 12.618119
      y = 20.2439
      z = 0
      irot = 540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 541
      theta1 = 90
      phi1 = 61.935484
      theta2 = 95.998868
      phi2 = 151.93548
      theta3 = 5.998868
      phi3 = 151.93548
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 309
      chmoth = 'DCLS'
      x = 11.222672
      y = 21.049561
      z = 0
      irot = 541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 542
      theta1 = 90
      phi1 = 65.806452
      theta2 = 95.998868
      phi2 = 155.80645
      theta3 = 5.998868
      phi3 = 155.80645
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 310
      chmoth = 'DCLS'
      x = 9.776018
      y = 21.759179
      z = 0
      irot = 542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 543
      theta1 = 90
      phi1 = 69.677419
      theta2 = 95.998868
      phi2 = 159.67742
      theta3 = 5.998868
      phi3 = 159.67742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 311
      chmoth = 'DCLS'
      x = 8.2847584
      y = 22.369514
      z = 0
      irot = 543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 544
      theta1 = 90
      phi1 = 73.548387
      theta2 = 95.998868
      phi2 = 163.54839
      theta3 = 5.998868
      phi3 = 163.54839
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 312
      chmoth = 'DCLS'
      x = 6.7556974
      y = 22.877783
      z = 0
      irot = 544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 545
      theta1 = 90
      phi1 = 77.419355
      theta2 = 95.998868
      phi2 = 167.41935
      theta3 = 5.998868
      phi3 = 167.41935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 313
      chmoth = 'DCLS'
      x = 5.1958118
      y = 23.281665
      z = 0
      irot = 545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 546
      theta1 = 90
      phi1 = 81.290323
      theta2 = 95.998868
      phi2 = 171.29032
      theta3 = 5.998868
      phi3 = 171.29032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 314
      chmoth = 'DCLS'
      x = 3.6122188
      y = 23.579319
      z = 0
      irot = 546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 547
      theta1 = 90
      phi1 = 85.16129
      theta2 = 95.998868
      phi2 = 175.16129
      theta3 = 5.998868
      phi3 = 175.16129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 315
      chmoth = 'DCLS'
      x = 2.0121441
      y = 23.769385
      z = 0
      irot = 547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 548
      theta1 = 90
      phi1 = 89.032258
      theta2 = 95.998868
      phi2 = 179.03226
      theta3 = 5.998868
      phi3 = 179.03226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 316
      chmoth = 'DCLS'
      x = 0.40288841
      y = 23.850997
      z = 0
      irot = 548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 549
      theta1 = 90
      phi1 = 92.903226
      theta2 = 95.998868
      phi2 = -177.09677
      theta3 = 5.998868
      phi3 = -177.09677
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 317
      chmoth = 'DCLS'
      x = -1.2082055
      y = 23.823783
      z = 0
      irot = 549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 550
      theta1 = 90
      phi1 = 96.774194
      theta2 = 95.998868
      phi2 = -173.22581
      theta3 = 5.998868
      phi3 = -173.22581
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 318
      chmoth = 'DCLS'
      x = -2.8137867
      y = 23.687866
      z = 0
      irot = 550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 551
      theta1 = 90
      phi1 = 100.64516
      theta2 = 95.998868
      phi2 = -169.35484
      theta3 = 5.998868
      phi3 = -169.35484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 319
      chmoth = 'DCLS'
      x = -4.4065292
      y = 23.443867
      z = 0
      irot = 551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 552
      theta1 = 90
      phi1 = 104.51613
      theta2 = 95.998868
      phi2 = -165.48387
      theta3 = 5.998868
      phi3 = -165.48387
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 320
      chmoth = 'DCLS'
      x = -5.9791658
      y = 23.092899
      z = 0
      irot = 552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 553
      theta1 = 90
      phi1 = 108.3871
      theta2 = 95.998868
      phi2 = -161.6129
      theta3 = 5.998868
      phi3 = -161.6129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 321
      chmoth = 'DCLS'
      x = -7.5245207
      y = 22.636563
      z = 0
      irot = 553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 554
      theta1 = 90
      phi1 = 112.25806
      theta2 = 95.998868
      phi2 = -157.74194
      theta3 = 5.998868
      phi3 = -157.74194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 322
      chmoth = 'DCLS'
      x = -9.035543
      y = 22.076942
      z = 0
      irot = 554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 555
      theta1 = 90
      phi1 = 116.12903
      theta2 = 95.998868
      phi2 = -153.87097
      theta3 = 5.998868
      phi3 = -153.87097
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 323
      chmoth = 'DCLS'
      x = -10.505338
      y = 21.416589
      z = 0
      irot = 555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 556
      theta1 = 90
      phi1 = 120
      theta2 = 95.998868
      phi2 = -150
      theta3 = 5.998868
      phi3 = -150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 324
      chmoth = 'DCLS'
      x = -11.9272
      y = 20.658516
      z = 0
      irot = 556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 557
      theta1 = 90
      phi1 = 123.87097
      theta2 = 95.998868
      phi2 = -146.12903
      theta3 = 5.998868
      phi3 = -146.12903
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 325
      chmoth = 'DCLS'
      x = -13.294641
      y = 19.806184
      z = 0
      irot = 557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 558
      theta1 = 90
      phi1 = 127.74194
      theta2 = 95.998868
      phi2 = -142.25806
      theta3 = 5.998868
      phi3 = -142.25806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 326
      chmoth = 'DCLS'
      x = -14.601421
      y = 18.863481
      z = 0
      irot = 558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 559
      theta1 = 90
      phi1 = 131.6129
      theta2 = 95.998868
      phi2 = -138.3871
      theta3 = 5.998868
      phi3 = -138.3871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 327
      chmoth = 'DCLS'
      x = -15.841578
      y = 17.834708
      z = 0
      irot = 559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 560
      theta1 = 90
      phi1 = 135.48387
      theta2 = 95.998868
      phi2 = -134.51613
      theta3 = 5.998868
      phi3 = -134.51613
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 328
      chmoth = 'DCLS'
      x = -17.009454
      y = 16.724559
      z = 0
      irot = 560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 561
      theta1 = 90
      phi1 = 139.35484
      theta2 = 95.998868
      phi2 = -130.64516
      theta3 = 5.998868
      phi3 = -130.64516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 329
      chmoth = 'DCLS'
      x = -18.09972
      y = 15.5381
      z = 0
      irot = 561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 562
      theta1 = 90
      phi1 = 143.22581
      theta2 = 95.998868
      phi2 = -126.77419
      theta3 = 5.998868
      phi3 = -126.77419
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 330
      chmoth = 'DCLS'
      x = -19.107401
      y = 14.280744
      z = 0
      irot = 562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 563
      theta1 = 90
      phi1 = 147.09677
      theta2 = 95.998868
      phi2 = -122.90323
      theta3 = 5.998868
      phi3 = -122.90323
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 331
      chmoth = 'DCLS'
      x = -20.027899
      y = 12.958228
      z = 0
      irot = 563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 564
      theta1 = 90
      phi1 = 150.96774
      theta2 = 95.998868
      phi2 = -119.03226
      theta3 = 5.998868
      phi3 = -119.03226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 332
      chmoth = 'DCLS'
      x = -20.857014
      y = 11.576587
      z = 0
      irot = 564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 565
      theta1 = 90
      phi1 = 154.83871
      theta2 = 95.998868
      phi2 = -115.16129
      theta3 = 5.998868
      phi3 = -115.16129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 333
      chmoth = 'DCLS'
      x = -21.590964
      y = 10.142125
      z = 0
      irot = 565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 566
      theta1 = 90
      phi1 = 158.70968
      theta2 = 95.998868
      phi2 = -111.29032
      theta3 = 5.998868
      phi3 = -111.29032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 334
      chmoth = 'DCLS'
      x = -22.226398
      y = 8.6613862
      z = 0
      irot = 566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 567
      theta1 = 90
      phi1 = 162.58065
      theta2 = 95.998868
      phi2 = -107.41935
      theta3 = 5.998868
      phi3 = -107.41935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 335
      chmoth = 'DCLS'
      x = -22.760419
      y = 7.1411277
      z = 0
      irot = 567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 568
      theta1 = 90
      phi1 = 166.45161
      theta2 = 95.998868
      phi2 = -103.54839
      theta3 = 5.998868
      phi3 = -103.54839
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 336
      chmoth = 'DCLS'
      x = -23.19059
      y = 5.5882859
      z = 0
      irot = 568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 569
      theta1 = 90
      phi1 = 170.32258
      theta2 = 95.998868
      phi2 = -99.677419
      theta3 = 5.998868
      phi3 = -99.677419
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 337
      chmoth = 'DCLS'
      x = -23.514947
      y = 4.009946
      z = 0
      irot = 569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 570
      theta1 = 90
      phi1 = 174.19355
      theta2 = 95.998868
      phi2 = -95.806452
      theta3 = 5.998868
      phi3 = -95.806452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 338
      chmoth = 'DCLS'
      x = -23.732011
      y = 2.4133096
      z = 0
      irot = 570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 571
      theta1 = 90
      phi1 = 178.06452
      theta2 = 95.998868
      phi2 = -91.935484
      theta3 = 5.998868
      phi3 = -91.935484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 339
      chmoth = 'DCLS'
      x = -23.840791
      y = 0.80566189
      z = 0
      irot = 571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 572
      theta1 = 90
      phi1 = -178.06452
      theta2 = 95.998868
      phi2 = -88.064516
      theta3 = 5.998868
      phi3 = -88.064516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 340
      chmoth = 'DCLS'
      x = -23.840791
      y = -0.80566189
      z = 0
      irot = 572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 573
      theta1 = 90
      phi1 = -174.19355
      theta2 = 95.998868
      phi2 = -84.193548
      theta3 = 5.998868
      phi3 = -84.193548
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 341
      chmoth = 'DCLS'
      x = -23.732011
      y = -2.4133096
      z = 0
      irot = 573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 574
      theta1 = 90
      phi1 = -170.32258
      theta2 = 95.998868
      phi2 = -80.322581
      theta3 = 5.998868
      phi3 = -80.322581
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 342
      chmoth = 'DCLS'
      x = -23.514947
      y = -4.009946
      z = 0
      irot = 574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 575
      theta1 = 90
      phi1 = -166.45161
      theta2 = 95.998868
      phi2 = -76.451613
      theta3 = 5.998868
      phi3 = -76.451613
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 343
      chmoth = 'DCLS'
      x = -23.19059
      y = -5.5882859
      z = 0
      irot = 575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 576
      theta1 = 90
      phi1 = -162.58065
      theta2 = 95.998868
      phi2 = -72.580645
      theta3 = 5.998868
      phi3 = -72.580645
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 344
      chmoth = 'DCLS'
      x = -22.760419
      y = -7.1411277
      z = 0
      irot = 576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 577
      theta1 = 90
      phi1 = -158.70968
      theta2 = 95.998868
      phi2 = -68.709677
      theta3 = 5.998868
      phi3 = -68.709677
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 345
      chmoth = 'DCLS'
      x = -22.226398
      y = -8.6613862
      z = 0
      irot = 577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 578
      theta1 = 90
      phi1 = -154.83871
      theta2 = 95.998868
      phi2 = -64.83871
      theta3 = 5.998868
      phi3 = -64.83871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 346
      chmoth = 'DCLS'
      x = -21.590964
      y = -10.142125
      z = 0
      irot = 578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 579
      theta1 = 90
      phi1 = -150.96774
      theta2 = 95.998868
      phi2 = -60.967742
      theta3 = 5.998868
      phi3 = -60.967742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 347
      chmoth = 'DCLS'
      x = -20.857014
      y = -11.576587
      z = 0
      irot = 579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 580
      theta1 = 90
      phi1 = -147.09677
      theta2 = 95.998868
      phi2 = -57.096774
      theta3 = 5.998868
      phi3 = -57.096774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 348
      chmoth = 'DCLS'
      x = -20.027899
      y = -12.958228
      z = 0
      irot = 580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 581
      theta1 = 90
      phi1 = -143.22581
      theta2 = 95.998868
      phi2 = -53.225806
      theta3 = 5.998868
      phi3 = -53.225806
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 349
      chmoth = 'DCLS'
      x = -19.107401
      y = -14.280744
      z = 0
      irot = 581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 582
      theta1 = 90
      phi1 = -139.35484
      theta2 = 95.998868
      phi2 = -49.354839
      theta3 = 5.998868
      phi3 = -49.354839
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 350
      chmoth = 'DCLS'
      x = -18.09972
      y = -15.5381
      z = 0
      irot = 582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 583
      theta1 = 90
      phi1 = -135.48387
      theta2 = 95.998868
      phi2 = -45.483871
      theta3 = 5.998868
      phi3 = -45.483871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 351
      chmoth = 'DCLS'
      x = -17.009454
      y = -16.724559
      z = 0
      irot = 583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 584
      theta1 = 90
      phi1 = -131.6129
      theta2 = 95.998868
      phi2 = -41.612903
      theta3 = 5.998868
      phi3 = -41.612903
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 352
      chmoth = 'DCLS'
      x = -15.841578
      y = -17.834708
      z = 0
      irot = 584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 585
      theta1 = 90
      phi1 = -127.74194
      theta2 = 95.998868
      phi2 = -37.741935
      theta3 = 5.998868
      phi3 = -37.741935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 353
      chmoth = 'DCLS'
      x = -14.601421
      y = -18.863481
      z = 0
      irot = 585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 586
      theta1 = 90
      phi1 = -123.87097
      theta2 = 95.998868
      phi2 = -33.870968
      theta3 = 5.998868
      phi3 = -33.870968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 354
      chmoth = 'DCLS'
      x = -13.294641
      y = -19.806184
      z = 0
      irot = 586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 587
      theta1 = 90
      phi1 = -120
      theta2 = 95.998868
      phi2 = -30
      theta3 = 5.998868
      phi3 = -30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 355
      chmoth = 'DCLS'
      x = -11.9272
      y = -20.658516
      z = 0
      irot = 587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 588
      theta1 = 90
      phi1 = -116.12903
      theta2 = 95.998868
      phi2 = -26.129032
      theta3 = 5.998868
      phi3 = -26.129032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 356
      chmoth = 'DCLS'
      x = -10.505338
      y = -21.416589
      z = 0
      irot = 588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 589
      theta1 = 90
      phi1 = -112.25806
      theta2 = 95.998868
      phi2 = -22.258065
      theta3 = 5.998868
      phi3 = -22.258065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 357
      chmoth = 'DCLS'
      x = -9.035543
      y = -22.076942
      z = 0
      irot = 589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 590
      theta1 = 90
      phi1 = -108.3871
      theta2 = 95.998868
      phi2 = -18.387097
      theta3 = 5.998868
      phi3 = -18.387097
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 358
      chmoth = 'DCLS'
      x = -7.5245207
      y = -22.636563
      z = 0
      irot = 590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 591
      theta1 = 90
      phi1 = -104.51613
      theta2 = 95.998868
      phi2 = -14.516129
      theta3 = 5.998868
      phi3 = -14.516129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 359
      chmoth = 'DCLS'
      x = -5.9791658
      y = -23.092899
      z = 0
      irot = 591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 592
      theta1 = 90
      phi1 = -100.64516
      theta2 = 95.998868
      phi2 = -10.645161
      theta3 = 5.998868
      phi3 = -10.645161
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 360
      chmoth = 'DCLS'
      x = -4.4065292
      y = -23.443867
      z = 0
      irot = 592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 593
      theta1 = 90
      phi1 = -96.774194
      theta2 = 95.998868
      phi2 = -6.7741935
      theta3 = 5.998868
      phi3 = -6.7741935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 361
      chmoth = 'DCLS'
      x = -2.8137867
      y = -23.687866
      z = 0
      irot = 593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 594
      theta1 = 90
      phi1 = -92.903226
      theta2 = 95.998868
      phi2 = -2.9032258
      theta3 = 5.998868
      phi3 = -2.9032258
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 362
      chmoth = 'DCLS'
      x = -1.2082055
      y = -23.823783
      z = 0
      irot = 594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 595
      theta1 = 90
      phi1 = -89.032258
      theta2 = 95.998868
      phi2 = 0.96774194
      theta3 = 5.998868
      phi3 = 0.96774194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 363
      chmoth = 'DCLS'
      x = 0.40288841
      y = -23.850997
      z = 0
      irot = 595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 596
      theta1 = 90
      phi1 = -85.16129
      theta2 = 95.998868
      phi2 = 4.8387097
      theta3 = 5.998868
      phi3 = 4.8387097
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 364
      chmoth = 'DCLS'
      x = 2.0121441
      y = -23.769385
      z = 0
      irot = 596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 597
      theta1 = 90
      phi1 = -81.290323
      theta2 = 95.998868
      phi2 = 8.7096774
      theta3 = 5.998868
      phi3 = 8.7096774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 365
      chmoth = 'DCLS'
      x = 3.6122188
      y = -23.579319
      z = 0
      irot = 597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 598
      theta1 = 90
      phi1 = -77.419355
      theta2 = 95.998868
      phi2 = 12.580645
      theta3 = 5.998868
      phi3 = 12.580645
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 366
      chmoth = 'DCLS'
      x = 5.1958118
      y = -23.281665
      z = 0
      irot = 598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 599
      theta1 = 90
      phi1 = -73.548387
      theta2 = 95.998868
      phi2 = 16.451613
      theta3 = 5.998868
      phi3 = 16.451613
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 367
      chmoth = 'DCLS'
      x = 6.7556974
      y = -22.877783
      z = 0
      irot = 599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 600
      theta1 = 90
      phi1 = -69.677419
      theta2 = 95.998868
      phi2 = 20.322581
      theta3 = 5.998868
      phi3 = 20.322581
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 368
      chmoth = 'DCLS'
      x = 8.2847584
      y = -22.369514
      z = 0
      irot = 600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 601
      theta1 = 90
      phi1 = -65.806452
      theta2 = 95.998868
      phi2 = 24.193548
      theta3 = 5.998868
      phi3 = 24.193548
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 369
      chmoth = 'DCLS'
      x = 9.776018
      y = -21.759179
      z = 0
      irot = 601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 602
      theta1 = 90
      phi1 = -61.935484
      theta2 = 95.998868
      phi2 = 28.064516
      theta3 = 5.998868
      phi3 = 28.064516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 370
      chmoth = 'DCLS'
      x = 11.222672
      y = -21.049561
      z = 0
      irot = 602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 603
      theta1 = 90
      phi1 = -58.064516
      theta2 = 95.998868
      phi2 = 31.935484
      theta3 = 5.998868
      phi3 = 31.935484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 371
      chmoth = 'DCLS'
      x = 12.618119
      y = -20.2439
      z = 0
      irot = 603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 604
      theta1 = 90
      phi1 = -54.193548
      theta2 = 95.998868
      phi2 = 35.806452
      theta3 = 5.998868
      phi3 = 35.806452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 372
      chmoth = 'DCLS'
      x = 13.955993
      y = -19.345869
      z = 0
      irot = 604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 605
      theta1 = 90
      phi1 = -50.322581
      theta2 = 95.998868
      phi2 = 39.677419
      theta3 = 5.998868
      phi3 = 39.677419
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 373
      chmoth = 'DCLS'
      x = 15.230189
      y = -18.359568
      z = 0
      irot = 605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 606
      theta1 = 90
      phi1 = -46.451613
      theta2 = 95.998868
      phi2 = 43.548387
      theta3 = 5.998868
      phi3 = 43.548387
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 374
      chmoth = 'DCLS'
      x = 16.434892
      y = -17.289497
      z = 0
      irot = 606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 607
      theta1 = 90
      phi1 = -42.580645
      theta2 = 95.998868
      phi2 = 47.419355
      theta3 = 5.998868
      phi3 = 47.419355
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 375
      chmoth = 'DCLS'
      x = 17.564608
      y = -16.140538
      z = 0
      irot = 607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 608
      theta1 = 90
      phi1 = -38.709677
      theta2 = 95.998868
      phi2 = 51.290323
      theta3 = 5.998868
      phi3 = 51.290323
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 376
      chmoth = 'DCLS'
      x = 18.61418
      y = -14.917933
      z = 0
      irot = 608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 609
      theta1 = 90
      phi1 = -34.83871
      theta2 = 95.998868
      phi2 = 55.16129
      theta3 = 5.998868
      phi3 = 55.16129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 377
      chmoth = 'DCLS'
      x = 19.578819
      y = -13.627261
      z = 0
      irot = 609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 610
      theta1 = 90
      phi1 = -30.967742
      theta2 = 95.998868
      phi2 = 59.032258
      theta3 = 5.998868
      phi3 = 59.032258
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 378
      chmoth = 'DCLS'
      x = 20.454126
      y = -12.27441
      z = 0
      irot = 610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 611
      theta1 = 90
      phi1 = -27.096774
      theta2 = 95.998868
      phi2 = 62.903226
      theta3 = 5.998868
      phi3 = 62.903226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 379
      chmoth = 'DCLS'
      x = 21.236104
      y = -10.865555
      z = 0
      irot = 611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 612
      theta1 = 90
      phi1 = -23.225806
      theta2 = 95.998868
      phi2 = 66.774194
      theta3 = 5.998868
      phi3 = 66.774194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 380
      chmoth = 'DCLS'
      x = 21.921187
      y = -9.4071223
      z = 0
      irot = 612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 613
      theta1 = 90
      phi1 = -19.354839
      theta2 = 95.998868
      phi2 = 70.645161
      theta3 = 5.998868
      phi3 = 70.645161
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 381
      chmoth = 'DCLS'
      x = 22.506249
      y = -7.9057672
      z = 0
      irot = 613
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 614
      theta1 = 90
      phi1 = -15.483871
      theta2 = 95.998868
      phi2 = 74.516129
      theta3 = 5.998868
      phi3 = 74.516129
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 382
      chmoth = 'DCLS'
      x = 22.98862
      y = -6.36834
      z = 0
      irot = 614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 615
      theta1 = 90
      phi1 = -11.612903
      theta2 = 95.998868
      phi2 = 78.387097
      theta3 = 5.998868
      phi3 = 78.387097
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 383
      chmoth = 'DCLS'
      x = 23.366099
      y = -4.8018554
      z = 0
      irot = 615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 616
      theta1 = 90
      phi1 = -7.7419355
      theta2 = 95.998868
      phi2 = 82.258065
      theta3 = 5.998868
      phi3 = 82.258065
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 384
      chmoth = 'DCLS'
      x = 23.636964
      y = -3.2134611
      z = 0
      irot = 616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 617
      theta1 = 90
      phi1 = -3.8709677
      theta2 = 95.998868
      phi2 = 86.129032
      theta3 = 5.998868
      phi3 = 86.129032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 385
      chmoth = 'DCLS'
      x = 23.799979
      y = -1.6104045
      z = 0
      irot = 617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 618
      theta1 = 89.78491
      phi1 = 0
      theta2 = 96.339935
      phi2 = 89.976102
      theta3 = 6.3436126
      phi3 = 91.935134
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 386
      chmoth = 'DCLS'
      x = 25.2218
      y = 0.8523
      z = 0
      irot = 618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 619
      theta1 = 89.78491
      phi1 = 3.8709677
      theta2 = 96.339935
      phi2 = 93.84707
      theta3 = 6.3436126
      phi3 = 95.806102
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 387
      chmoth = 'DCLS'
      x = 25.106721
      y = 2.5530729
      z = 0
      irot = 619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 620
      theta1 = 89.78491
      phi1 = 7.7419355
      theta2 = 96.339935
      phi2 = 97.718037
      theta3 = 6.3436126
      phi3 = 99.67707
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 388
      chmoth = 'DCLS'
      x = 24.877085
      y = 4.2421967
      z = 0
      irot = 620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 621
      theta1 = 89.78491
      phi1 = 11.612903
      theta2 = 96.339935
      phi2 = 101.58901
      theta3 = 6.3436126
      phi3 = 103.54804
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 389
      chmoth = 'DCLS'
      x = 24.533942
      y = 5.9119644
      z = 0
      irot = 621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 622
      theta1 = 89.78491
      phi1 = 15.483871
      theta2 = 96.339935
      phi2 = 105.45997
      theta3 = 6.3436126
      phi3 = 107.41901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 390
      chmoth = 'DCLS'
      x = 24.078855
      y = 7.5547571
      z = 0
      irot = 622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 623
      theta1 = 89.78491
      phi1 = 19.354839
      theta2 = 96.339935
      phi2 = 109.33094
      theta3 = 6.3436126
      phi3 = 111.28997
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 391
      chmoth = 'DCLS'
      x = 23.513902
      y = 9.1630792
      z = 0
      irot = 623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 624
      theta1 = 89.78491
      phi1 = 23.225806
      theta2 = 96.339935
      phi2 = 113.20191
      theta3 = 6.3436126
      phi3 = 115.16094
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 392
      chmoth = 'DCLS'
      x = 22.841661
      y = 10.729592
      z = 0
      irot = 624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 625
      theta1 = 89.78491
      phi1 = 27.096774
      theta2 = 96.339935
      phi2 = 117.07288
      theta3 = 6.3436126
      phi3 = 119.03191
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 393
      chmoth = 'DCLS'
      x = 22.065198
      y = 12.247149
      z = 0
      irot = 625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 626
      theta1 = 89.78491
      phi1 = 30.967742
      theta2 = 96.339935
      phi2 = 120.94384
      theta3 = 6.3436126
      phi3 = 122.90288
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 394
      chmoth = 'DCLS'
      x = 21.188057
      y = 13.708824
      z = 0
      irot = 626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 627
      theta1 = 89.78491
      phi1 = 34.83871
      theta2 = 96.339935
      phi2 = 124.81481
      theta3 = 6.3436126
      phi3 = 126.77384
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 395
      chmoth = 'DCLS'
      x = 20.214239
      y = 15.107949
      z = 0
      irot = 627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 628
      theta1 = 89.78491
      phi1 = 38.709677
      theta2 = 96.339935
      phi2 = 128.68578
      theta3 = 6.3436126
      phi3 = 130.64481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 396
      chmoth = 'DCLS'
      x = 19.148189
      y = 16.43814
      z = 0
      irot = 628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 629
      theta1 = 89.78491
      phi1 = 42.580645
      theta2 = 96.339935
      phi2 = 132.55675
      theta3 = 6.3436126
      phi3 = 134.51578
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 397
      chmoth = 'DCLS'
      x = 17.99477
      y = 17.693328
      z = 0
      irot = 629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 630
      theta1 = 89.78491
      phi1 = 46.451613
      theta2 = 96.339935
      phi2 = 136.42771
      theta3 = 6.3436126
      phi3 = 138.38675
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 398
      chmoth = 'DCLS'
      x = 16.759245
      y = 18.867785
      z = 0
      irot = 630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 631
      theta1 = 89.78491
      phi1 = 50.322581
      theta2 = 96.339935
      phi2 = 140.29868
      theta3 = 6.3436126
      phi3 = 142.25772
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 399
      chmoth = 'DCLS'
      x = 15.447251
      y = 19.956153
      z = 0
      irot = 631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 632
      theta1 = 89.78491
      phi1 = 54.193548
      theta2 = 96.339935
      phi2 = 144.16965
      theta3 = 6.3436126
      phi3 = 146.12868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 400
      chmoth = 'DCLS'
      x = 14.064775
      y = 20.953465
      z = 0
      irot = 632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 633
      theta1 = 89.78491
      phi1 = 58.064516
      theta2 = 96.339935
      phi2 = 148.04062
      theta3 = 6.3436126
      phi3 = 149.99965
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 401
      chmoth = 'DCLS'
      x = 12.618125
      y = 21.855172
      z = 0
      irot = 633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 634
      theta1 = 89.78491
      phi1 = 61.935484
      theta2 = 96.339935
      phi2 = 151.91159
      theta3 = 6.3436126
      phi3 = 153.87062
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 402
      chmoth = 'DCLS'
      x = 11.113901
      y = 22.657158
      z = 0
      irot = 634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 635
      theta1 = 89.78491
      phi1 = 65.806452
      theta2 = 96.339935
      phi2 = 155.78255
      theta3 = 6.3436126
      phi3 = 157.74159
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 403
      chmoth = 'DCLS'
      x = 9.558967
      y = 23.355765
      z = 0
      irot = 635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 636
      theta1 = 89.78491
      phi1 = 69.677419
      theta2 = 96.339935
      phi2 = 159.65352
      theta3 = 6.3436126
      phi3 = 161.61255
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 404
      chmoth = 'DCLS'
      x = 7.9604175
      y = 23.947805
      z = 0
      irot = 636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 637
      theta1 = 89.78491
      phi1 = 73.548387
      theta2 = 96.339935
      phi2 = 163.52449
      theta3 = 6.3436126
      phi3 = 165.48352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 405
      chmoth = 'DCLS'
      x = 6.3255465
      y = 24.430577
      z = 0
      irot = 637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 638
      theta1 = 89.78491
      phi1 = 77.419355
      theta2 = 96.339935
      phi2 = 167.39546
      theta3 = 6.3436126
      phi3 = 169.35449
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 406
      chmoth = 'DCLS'
      x = 4.6618134
      y = 24.801877
      z = 0
      irot = 638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 639
      theta1 = 89.78491
      phi1 = 81.290323
      theta2 = 96.339935
      phi2 = 171.26642
      theta3 = 6.3436126
      phi3 = 173.22546
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 407
      chmoth = 'DCLS'
      x = 2.9768096
      y = 25.060012
      z = 0
      irot = 639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 640
      theta1 = 89.78491
      phi1 = 85.16129
      theta2 = 96.339935
      phi2 = 175.13739
      theta3 = 6.3436126
      phi3 = 177.09642
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 408
      chmoth = 'DCLS'
      x = 1.2782232
      y = 25.203804
      z = 0
      irot = 640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 641
      theta1 = 89.78491
      phi1 = 89.032258
      theta2 = 96.339935
      phi2 = 179.00836
      theta3 = 6.3436126
      phi3 = -179.03261
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 409
      chmoth = 'DCLS'
      x = -0.42619534
      y = 25.232597
      z = 0
      irot = 641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 642
      theta1 = 89.78491
      phi1 = 92.903226
      theta2 = 96.339935
      phi2 = -177.12067
      theta3 = 6.3436126
      phi3 = -175.16164
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 410
      chmoth = 'DCLS'
      x = -2.1286693
      y = 25.14626
      z = 0
      irot = 642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 643
      theta1 = 89.78491
      phi1 = 96.774194
      theta2 = 96.339935
      phi2 = -173.2497
      theta3 = 6.3436126
      phi3 = -171.29067
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 411
      chmoth = 'DCLS'
      x = -3.8214306
      y = 24.945185
      z = 0
      irot = 643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 644
      theta1 = 89.78491
      phi1 = 100.64516
      theta2 = 96.339935
      phi2 = -169.37874
      theta3 = 6.3436126
      phi3 = -167.4197
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 412
      chmoth = 'DCLS'
      x = -5.4967556
      y = 24.630292
      z = 0
      irot = 644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 645
      theta1 = 89.78491
      phi1 = 104.51613
      theta2 = 96.339935
      phi2 = -165.50777
      theta3 = 6.3436126
      phi3 = -163.54874
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 413
      chmoth = 'DCLS'
      x = -7.1470002
      y = 24.203016
      z = 0
      irot = 645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 646
      theta1 = 89.78491
      phi1 = 108.3871
      theta2 = 96.339935
      phi2 = -161.6368
      theta3 = 6.3436126
      phi3 = -159.67777
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 414
      chmoth = 'DCLS'
      x = -8.7646346
      y = 23.665308
      z = 0
      irot = 646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 647
      theta1 = 89.78491
      phi1 = 112.25806
      theta2 = 96.339935
      phi2 = -157.76583
      theta3 = 6.3436126
      phi3 = -155.8068
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 415
      chmoth = 'DCLS'
      x = -10.342278
      y = 23.01962
      z = 0
      irot = 647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 648
      theta1 = 89.78491
      phi1 = 116.12903
      theta2 = 96.339935
      phi2 = -153.89487
      theta3 = 6.3436126
      phi3 = -151.93583
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 416
      chmoth = 'DCLS'
      x = -11.872732
      y = 22.268899
      z = 0
      irot = 648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 649
      theta1 = 89.78491
      phi1 = 120
      theta2 = 96.339935
      phi2 = -150.0239
      theta3 = 6.3436126
      phi3 = -148.06487
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 417
      chmoth = 'DCLS'
      x = -13.349013
      y = 21.41657
      z = 0
      irot = 649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 650
      theta1 = 89.78491
      phi1 = 123.87097
      theta2 = 96.339935
      phi2 = -146.15293
      theta3 = 6.3436126
      phi3 = -144.1939
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 418
      chmoth = 'DCLS'
      x = -14.764386
      y = 20.466522
      z = 0
      irot = 650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 651
      theta1 = 89.78491
      phi1 = 127.74194
      theta2 = 96.339935
      phi2 = -142.28196
      theta3 = 6.3436126
      phi3 = -140.32293
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 419
      chmoth = 'DCLS'
      x = -16.112393
      y = 19.42309
      z = 0
      irot = 651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 652
      theta1 = 89.78491
      phi1 = 131.6129
      theta2 = 96.339935
      phi2 = -138.41099
      theta3 = 6.3436126
      phi3 = -136.45196
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 420
      chmoth = 'DCLS'
      x = -17.386882
      y = 18.291034
      z = 0
      irot = 652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 653
      theta1 = 89.78491
      phi1 = 135.48387
      theta2 = 96.339935
      phi2 = -134.54003
      theta3 = 6.3436126
      phi3 = -132.58099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 421
      chmoth = 'DCLS'
      x = -18.582039
      y = 17.075522
      z = 0
      irot = 653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 654
      theta1 = 89.78491
      phi1 = 139.35484
      theta2 = 96.339935
      phi2 = -130.66906
      theta3 = 6.3436126
      phi3 = -128.71003
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 422
      chmoth = 'DCLS'
      x = -19.69241
      y = 15.782097
      z = 0
      irot = 654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 655
      theta1 = 89.78491
      phi1 = 143.22581
      theta2 = 96.339935
      phi2 = -126.79809
      theta3 = 6.3436126
      phi3 = -124.83906
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 423
      chmoth = 'DCLS'
      x = -20.71293
      y = 14.416662
      z = 0
      irot = 655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 656
      theta1 = 89.78491
      phi1 = 147.09677
      theta2 = 96.339935
      phi2 = -122.92712
      theta3 = 6.3436126
      phi3 = -120.96809
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 424
      chmoth = 'DCLS'
      x = -21.638941
      y = 12.985448
      z = 0
      irot = 656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 657
      theta1 = 89.78491
      phi1 = 150.96774
      theta2 = 96.339935
      phi2 = -119.05616
      theta3 = 6.3436126
      phi3 = -117.09712
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 425
      chmoth = 'DCLS'
      x = -22.466218
      y = 11.494983
      z = 0
      irot = 657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 658
      theta1 = 89.78491
      phi1 = 154.83871
      theta2 = 96.339935
      phi2 = -115.18519
      theta3 = 6.3436126
      phi3 = -113.22616
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 426
      chmoth = 'DCLS'
      x = -23.190988
      y = 9.9520702
      z = 0
      irot = 658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 659
      theta1 = 89.78491
      phi1 = 158.70968
      theta2 = 96.339935
      phi2 = -111.31422
      theta3 = 6.3436126
      phi3 = -109.35519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 427
      chmoth = 'DCLS'
      x = -23.809942
      y = 8.363748
      z = 0
      irot = 659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 660
      theta1 = 89.78491
      phi1 = 162.58065
      theta2 = 96.339935
      phi2 = -107.44325
      theta3 = 6.3436126
      phi3 = -105.48422
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 428
      chmoth = 'DCLS'
      x = -24.320257
      y = 6.7372639
      z = 0
      irot = 660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 661
      theta1 = 89.78491
      phi1 = 166.45161
      theta2 = 96.339935
      phi2 = -103.57229
      theta3 = 6.3436126
      phi3 = -101.61325
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 429
      chmoth = 'DCLS'
      x = -24.719604
      y = 5.0800393
      z = 0
      irot = 661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 662
      theta1 = 89.78491
      phi1 = 170.32258
      theta2 = 96.339935
      phi2 = -99.701317
      theta3 = 6.3436126
      phi3 = -97.742285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 430
      chmoth = 'DCLS'
      x = -25.006161
      y = 3.3996355
      z = 0
      irot = 662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 663
      theta1 = 89.78491
      phi1 = 174.19355
      theta2 = 96.339935
      phi2 = -95.83035
      theta3 = 6.3436126
      phi3 = -93.871317
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 431
      chmoth = 'DCLS'
      x = -25.178621
      y = 1.7037201
      z = 0
      irot = 663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 664
      theta1 = 89.78491
      phi1 = 178.06452
      theta2 = 96.339935
      phi2 = -91.959382
      theta3 = 6.3436126
      phi3 = -90.000349
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 432
      chmoth = 'DCLS'
      x = -25.236196
      y = 3.0896637e-05
      z = 0
      irot = 664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 665
      theta1 = 89.78491
      phi1 = -178.06452
      theta2 = 96.339935
      phi2 = -88.088414
      theta3 = 6.3436126
      phi3 = -86.129382
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 433
      chmoth = 'DCLS'
      x = -25.178625
      y = -1.7036584
      z = 0
      irot = 665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 666
      theta1 = 89.78491
      phi1 = -174.19355
      theta2 = 96.339935
      phi2 = -84.217446
      theta3 = 6.3436126
      phi3 = -82.258414
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 434
      chmoth = 'DCLS'
      x = -25.006169
      y = -3.3995743
      z = 0
      irot = 666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 667
      theta1 = 89.78491
      phi1 = -170.32258
      theta2 = 96.339935
      phi2 = -80.346479
      theta3 = 6.3436126
      phi3 = -78.387446
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 435
      chmoth = 'DCLS'
      x = -24.719616
      y = -5.0799787
      z = 0
      irot = 667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 668
      theta1 = 89.78491
      phi1 = -166.45161
      theta2 = 96.339935
      phi2 = -76.475511
      theta3 = 6.3436126
      phi3 = -74.516478
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 436
      chmoth = 'DCLS'
      x = -24.320273
      y = -6.7372044
      z = 0
      irot = 668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 669
      theta1 = 89.78491
      phi1 = -162.58065
      theta2 = 96.339935
      phi2 = -72.604543
      theta3 = 6.3436126
      phi3 = -70.645511
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 437
      chmoth = 'DCLS'
      x = -23.809962
      y = -8.3636897
      z = 0
      irot = 669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 670
      theta1 = 89.78491
      phi1 = -158.70968
      theta2 = 96.339935
      phi2 = -68.733575
      theta3 = 6.3436126
      phi3 = -66.774543
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 438
      chmoth = 'DCLS'
      x = -23.191012
      y = -9.9520134
      z = 0
      irot = 670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 671
      theta1 = 89.78491
      phi1 = -154.83871
      theta2 = 96.339935
      phi2 = -64.862608
      theta3 = 6.3436126
      phi3 = -62.903575
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 439
      chmoth = 'DCLS'
      x = -22.466246
      y = -11.494928
      z = 0
      irot = 671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 672
      theta1 = 89.78491
      phi1 = -150.96774
      theta2 = 96.339935
      phi2 = -60.99164
      theta3 = 6.3436126
      phi3 = -59.032607
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 440
      chmoth = 'DCLS'
      x = -21.638973
      y = -12.985395
      z = 0
      irot = 672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 673
      theta1 = 89.78491
      phi1 = -147.09677
      theta2 = 96.339935
      phi2 = -57.120672
      theta3 = 6.3436126
      phi3 = -55.16164
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 441
      chmoth = 'DCLS'
      x = -20.712965
      y = -14.416612
      z = 0
      irot = 673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 674
      theta1 = 89.78491
      phi1 = -143.22581
      theta2 = 96.339935
      phi2 = -53.249704
      theta3 = 6.3436126
      phi3 = -51.290672
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 442
      chmoth = 'DCLS'
      x = -19.692449
      y = -15.782049
      z = 0
      irot = 674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 675
      theta1 = 89.78491
      phi1 = -139.35484
      theta2 = 96.339935
      phi2 = -49.378737
      theta3 = 6.3436126
      phi3 = -47.419704
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 443
      chmoth = 'DCLS'
      x = -18.582081
      y = -17.075476
      z = 0
      irot = 675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 676
      theta1 = 89.78491
      phi1 = -135.48387
      theta2 = 96.339935
      phi2 = -45.507769
      theta3 = 6.3436126
      phi3 = -43.548736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 444
      chmoth = 'DCLS'
      x = -17.386927
      y = -18.290992
      z = 0
      irot = 676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 677
      theta1 = 89.78491
      phi1 = -131.6129
      theta2 = 96.339935
      phi2 = -41.636801
      theta3 = 6.3436126
      phi3 = -39.677769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 445
      chmoth = 'DCLS'
      x = -16.11244
      y = -19.42305
      z = 0
      irot = 677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 678
      theta1 = 89.78491
      phi1 = -127.74194
      theta2 = 96.339935
      phi2 = -37.765834
      theta3 = 6.3436126
      phi3 = -35.806801
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 446
      chmoth = 'DCLS'
      x = -14.764437
      y = -20.466485
      z = 0
      irot = 678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 679
      theta1 = 89.78491
      phi1 = -123.87097
      theta2 = 96.339935
      phi2 = -33.894866
      theta3 = 6.3436126
      phi3 = -31.935833
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 447
      chmoth = 'DCLS'
      x = -13.349066
      y = -21.416537
      z = 0
      irot = 679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 680
      theta1 = 89.78491
      phi1 = -120
      theta2 = 96.339935
      phi2 = -30.023898
      theta3 = 6.3436126
      phi3 = -28.064866
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 448
      chmoth = 'DCLS'
      x = -11.872787
      y = -22.26887
      z = 0
      irot = 680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 681
      theta1 = 89.78491
      phi1 = -116.12903
      theta2 = 96.339935
      phi2 = -26.15293
      theta3 = 6.3436126
      phi3 = -24.193898
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 449
      chmoth = 'DCLS'
      x = -10.342334
      y = -23.019594
      z = 0
      irot = 681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 682
      theta1 = 89.78491
      phi1 = -112.25806
      theta2 = 96.339935
      phi2 = -22.281963
      theta3 = 6.3436126
      phi3 = -20.32293
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 450
      chmoth = 'DCLS'
      x = -8.7646926
      y = -23.665286
      z = 0
      irot = 682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 683
      theta1 = 89.78491
      phi1 = -108.3871
      theta2 = 96.339935
      phi2 = -18.410995
      theta3 = 6.3436126
      phi3 = -16.451962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 451
      chmoth = 'DCLS'
      x = -7.1470594
      y = -24.202999
      z = 0
      irot = 683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 684
      theta1 = 89.78491
      phi1 = -104.51613
      theta2 = 96.339935
      phi2 = -14.540027
      theta3 = 6.3436126
      phi3 = -12.580995
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 452
      chmoth = 'DCLS'
      x = -5.4968159
      y = -24.630279
      z = 0
      irot = 684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 685
      theta1 = 89.78491
      phi1 = -100.64516
      theta2 = 96.339935
      phi2 = -10.669059
      theta3 = 6.3436126
      phi3 = -8.7100268
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 453
      chmoth = 'DCLS'
      x = -3.8214917
      y = -24.945176
      z = 0
      irot = 685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 686
      theta1 = 89.78491
      phi1 = -96.774194
      theta2 = 96.339935
      phi2 = -6.7980916
      theta3 = 6.3436126
      phi3 = -4.8390591
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 454
      chmoth = 'DCLS'
      x = -2.1287309
      y = -25.146255
      z = 0
      irot = 686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 687
      theta1 = 89.78491
      phi1 = -92.903226
      theta2 = 96.339935
      phi2 = -2.9271238
      theta3 = 6.3436126
      phi3 = -0.96809132
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 455
      chmoth = 'DCLS'
      x = -0.42625713
      y = -25.232596
      z = 0
      irot = 687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 688
      theta1 = 89.78491
      phi1 = -89.032258
      theta2 = 96.339935
      phi2 = 0.94384391
      theta3 = 6.3436126
      phi3 = 2.9028764
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 456
      chmoth = 'DCLS'
      x = 1.2781615
      y = -25.203808
      z = 0
      irot = 688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 689
      theta1 = 89.78491
      phi1 = -85.16129
      theta2 = 96.339935
      phi2 = 4.8148117
      theta3 = 6.3436126
      phi3 = 6.7738442
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 457
      chmoth = 'DCLS'
      x = 2.9767482
      y = -25.06002
      z = 0
      irot = 689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 690
      theta1 = 89.78491
      phi1 = -81.290323
      theta2 = 96.339935
      phi2 = 8.6857794
      theta3 = 6.3436126
      phi3 = 10.644812
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 458
      chmoth = 'DCLS'
      x = 4.6617527
      y = -24.801888
      z = 0
      irot = 690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 691
      theta1 = 89.78491
      phi1 = -77.419355
      theta2 = 96.339935
      phi2 = 12.556747
      theta3 = 6.3436126
      phi3 = 14.51578
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 459
      chmoth = 'DCLS'
      x = 6.3254866
      y = -24.430592
      z = 0
      irot = 691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 692
      theta1 = 89.78491
      phi1 = -73.548387
      theta2 = 96.339935
      phi2 = 16.427715
      theta3 = 6.3436126
      phi3 = 18.386747
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 460
      chmoth = 'DCLS'
      x = 7.9603588
      y = -23.947824
      z = 0
      irot = 692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 693
      theta1 = 89.78491
      phi1 = -69.677419
      theta2 = 96.339935
      phi2 = 20.298683
      theta3 = 6.3436126
      phi3 = 22.257715
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 461
      chmoth = 'DCLS'
      x = 9.5589098
      y = -23.355788
      z = 0
      irot = 693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 694
      theta1 = 89.78491
      phi1 = -65.806452
      theta2 = 96.339935
      phi2 = 24.16965
      theta3 = 6.3436126
      phi3 = 26.128683
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 462
      chmoth = 'DCLS'
      x = 11.113846
      y = -22.657185
      z = 0
      irot = 694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 695
      theta1 = 89.78491
      phi1 = -61.935484
      theta2 = 96.339935
      phi2 = 28.040618
      theta3 = 6.3436126
      phi3 = 29.999651
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 463
      chmoth = 'DCLS'
      x = 12.618071
      y = -21.855203
      z = 0
      irot = 695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 696
      theta1 = 89.78491
      phi1 = -58.064516
      theta2 = 96.339935
      phi2 = 31.911586
      theta3 = 6.3436126
      phi3 = 33.870618
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 464
      chmoth = 'DCLS'
      x = 14.064724
      y = -20.9535
      z = 0
      irot = 696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 697
      theta1 = 89.78491
      phi1 = -54.193548
      theta2 = 96.339935
      phi2 = 35.782554
      theta3 = 6.3436126
      phi3 = 37.741586
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 465
      chmoth = 'DCLS'
      x = 15.447202
      y = -19.956191
      z = 0
      irot = 697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 698
      theta1 = 89.78491
      phi1 = -50.322581
      theta2 = 96.339935
      phi2 = 39.653521
      theta3 = 6.3436126
      phi3 = 41.612554
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 466
      chmoth = 'DCLS'
      x = 16.759199
      y = -18.867826
      z = 0
      irot = 698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 699
      theta1 = 89.78491
      phi1 = -46.451613
      theta2 = 96.339935
      phi2 = 43.524489
      theta3 = 6.3436126
      phi3 = 45.483522
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 467
      chmoth = 'DCLS'
      x = 17.994727
      y = -17.693372
      z = 0
      irot = 699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 700
      theta1 = 89.78491
      phi1 = -42.580645
      theta2 = 96.339935
      phi2 = 47.395457
      theta3 = 6.3436126
      phi3 = 49.354489
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 468
      chmoth = 'DCLS'
      x = 19.148149
      y = -16.438187
      z = 0
      irot = 700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 701
      theta1 = 89.78491
      phi1 = -38.709677
      theta2 = 96.339935
      phi2 = 51.266425
      theta3 = 6.3436126
      phi3 = 53.225457
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 469
      chmoth = 'DCLS'
      x = 20.214202
      y = -15.107999
      z = 0
      irot = 701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 702
      theta1 = 89.78491
      phi1 = -34.83871
      theta2 = 96.339935
      phi2 = 55.137392
      theta3 = 6.3436126
      phi3 = 57.096425
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 470
      chmoth = 'DCLS'
      x = 21.188023
      y = -13.708876
      z = 0
      irot = 702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 703
      theta1 = 89.78491
      phi1 = -30.967742
      theta2 = 96.339935
      phi2 = 59.00836
      theta3 = 6.3436126
      phi3 = 60.967393
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 471
      chmoth = 'DCLS'
      x = 22.065168
      y = -12.247203
      z = 0
      irot = 703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 704
      theta1 = 89.78491
      phi1 = -27.096774
      theta2 = 96.339935
      phi2 = 62.879328
      theta3 = 6.3436126
      phi3 = 64.83836
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 472
      chmoth = 'DCLS'
      x = 22.841634
      y = -10.729648
      z = 0
      irot = 704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 705
      theta1 = 89.78491
      phi1 = -23.225806
      theta2 = 96.339935
      phi2 = 66.750296
      theta3 = 6.3436126
      phi3 = 68.709328
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 473
      chmoth = 'DCLS'
      x = 23.51388
      y = -9.1631368
      z = 0
      irot = 705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 706
      theta1 = 89.78491
      phi1 = -19.354839
      theta2 = 96.339935
      phi2 = 70.621263
      theta3 = 6.3436126
      phi3 = 72.580296
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 474
      chmoth = 'DCLS'
      x = 24.078836
      y = -7.5548161
      z = 0
      irot = 706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 707
      theta1 = 89.78491
      phi1 = -15.483871
      theta2 = 96.339935
      phi2 = 74.492231
      theta3 = 6.3436126
      phi3 = 76.451264
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 475
      chmoth = 'DCLS'
      x = 24.533927
      y = -5.9120245
      z = 0
      irot = 707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 708
      theta1 = 89.78491
      phi1 = -11.612903
      theta2 = 96.339935
      phi2 = 78.363199
      theta3 = 6.3436126
      phi3 = 80.322231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 476
      chmoth = 'DCLS'
      x = 24.877075
      y = -4.2422576
      z = 0
      irot = 708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 709
      theta1 = 89.78491
      phi1 = -7.7419355
      theta2 = 96.339935
      phi2 = 82.234166
      theta3 = 6.3436126
      phi3 = 84.193199
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 477
      chmoth = 'DCLS'
      x = 25.106715
      y = -2.5531344
      z = 0
      irot = 709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 710
      theta1 = 89.78491
      phi1 = -3.8709677
      theta2 = 96.339935
      phi2 = 86.105134
      theta3 = 6.3436126
      phi3 = 88.064167
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 478
      chmoth = 'DCLS'
      x = 25.221798
      y = -0.85236176
      z = 0
      irot = 710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 711
      theta1 = 90
      phi1 = -0.5041
      theta2 = 95.998868
      phi2 = 89.4959
      theta3 = 5.998868
      phi3 = 89.4959
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 479
      chmoth = 'DCLS'
      x = 27.186548
      y = -0.23919899
      z = 0
      irot = 711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 712
      theta1 = 90
      phi1 = 2.8921264
      theta2 = 95.998868
      phi2 = 92.892126
      theta3 = 5.998868
      phi3 = 92.892126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 480
      chmoth = 'DCLS'
      x = 27.152971
      y = 1.3717693
      z = 0
      irot = 712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 713
      theta1 = 90
      phi1 = 6.2883528
      theta2 = 95.998868
      phi2 = 96.288353
      theta3 = 5.998868
      phi3 = 96.288353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 481
      chmoth = 'DCLS'
      x = 27.024019
      y = 2.9779191
      z = 0
      irot = 713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 714
      theta1 = 90
      phi1 = 9.6845792
      theta2 = 95.998868
      phi2 = 99.684579
      theta3 = 5.998868
      phi3 = 99.684579
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 482
      chmoth = 'DCLS'
      x = 26.800144
      y = 4.573609
      z = 0
      irot = 714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 715
      theta1 = 90
      phi1 = 13.080806
      theta2 = 95.998868
      phi2 = 103.08081
      theta3 = 5.998868
      phi3 = 103.08081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 483
      chmoth = 'DCLS'
      x = 26.482132
      y = 6.1532338
      z = 0
      irot = 715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 716
      theta1 = 90
      phi1 = 16.477032
      theta2 = 95.998868
      phi2 = 106.47703
      theta3 = 5.998868
      phi3 = 106.47703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 484
      chmoth = 'DCLS'
      x = 26.071101
      y = 7.7112452
      z = 0
      irot = 716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 717
      theta1 = 90
      phi1 = 19.873258
      theta2 = 95.998868
      phi2 = 109.87326
      theta3 = 5.998868
      phi3 = 109.87326
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 485
      chmoth = 'DCLS'
      x = 25.568494
      y = 9.2421706
      z = 0
      irot = 717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 718
      theta1 = 90
      phi1 = 23.269485
      theta2 = 95.998868
      phi2 = 113.26948
      theta3 = 5.998868
      phi3 = 113.26948
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 486
      chmoth = 'DCLS'
      x = 24.976077
      y = 10.740632
      z = 0
      irot = 718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 719
      theta1 = 90
      phi1 = 26.665711
      theta2 = 95.998868
      phi2 = 116.66571
      theta3 = 5.998868
      phi3 = 116.66571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 487
      chmoth = 'DCLS'
      x = 24.29593
      y = 12.201367
      z = 0
      irot = 719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 720
      theta1 = 90
      phi1 = 30.061938
      theta2 = 95.998868
      phi2 = 120.06194
      theta3 = 5.998868
      phi3 = 120.06194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 488
      chmoth = 'DCLS'
      x = 23.530443
      y = 13.619245
      z = 0
      irot = 720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 721
      theta1 = 90
      phi1 = 33.458164
      theta2 = 95.998868
      phi2 = 123.45816
      theta3 = 5.998868
      phi3 = 123.45816
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 489
      chmoth = 'DCLS'
      x = 22.682305
      y = 14.989284
      z = 0
      irot = 721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 722
      theta1 = 90
      phi1 = 36.854391
      theta2 = 95.998868
      phi2 = 126.85439
      theta3 = 5.998868
      phi3 = 126.85439
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 490
      chmoth = 'DCLS'
      x = 21.754494
      y = 16.306673
      z = 0
      irot = 722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 723
      theta1 = 90
      phi1 = 40.250617
      theta2 = 95.998868
      phi2 = 130.25062
      theta3 = 5.998868
      phi3 = 130.25062
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 491
      chmoth = 'DCLS'
      x = 20.75027
      y = 17.566784
      z = 0
      irot = 723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 724
      theta1 = 90
      phi1 = 43.646843
      theta2 = 95.998868
      phi2 = 133.64684
      theta3 = 5.998868
      phi3 = 133.64684
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 492
      chmoth = 'DCLS'
      x = 19.67316
      y = 18.765191
      z = 0
      irot = 724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 725
      theta1 = 90
      phi1 = 47.04307
      theta2 = 95.998868
      phi2 = 137.04307
      theta3 = 5.998868
      phi3 = 137.04307
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 493
      chmoth = 'DCLS'
      x = 18.526947
      y = 19.897684
      z = 0
      irot = 725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 726
      theta1 = 90
      phi1 = 50.439296
      theta2 = 95.998868
      phi2 = 140.4393
      theta3 = 5.998868
      phi3 = 140.4393
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 494
      chmoth = 'DCLS'
      x = 17.315657
      y = 20.960287
      z = 0
      irot = 726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 727
      theta1 = 90
      phi1 = 53.835523
      theta2 = 95.998868
      phi2 = 143.83552
      theta3 = 5.998868
      phi3 = 143.83552
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 495
      chmoth = 'DCLS'
      x = 16.043545
      y = 21.949265
      z = 0
      irot = 727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 728
      theta1 = 90
      phi1 = 57.231749
      theta2 = 95.998868
      phi2 = 147.23175
      theta3 = 5.998868
      phi3 = 147.23175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 496
      chmoth = 'DCLS'
      x = 14.71508
      y = 22.861146
      z = 0
      irot = 728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 729
      theta1 = 90
      phi1 = 60.627975
      theta2 = 95.998868
      phi2 = 150.62798
      theta3 = 5.998868
      phi3 = 150.62798
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 497
      chmoth = 'DCLS'
      x = 13.334928
      y = 23.692726
      z = 0
      irot = 729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 730
      theta1 = 90
      phi1 = 64.024202
      theta2 = 95.998868
      phi2 = 154.0242
      theta3 = 5.998868
      phi3 = 154.0242
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 498
      chmoth = 'DCLS'
      x = 11.907936
      y = 24.441085
      z = 0
      irot = 730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 731
      theta1 = 90
      phi1 = 67.420428
      theta2 = 95.998868
      phi2 = 157.42043
      theta3 = 5.998868
      phi3 = 157.42043
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 499
      chmoth = 'DCLS'
      x = 10.439118
      y = 25.103594
      z = 0
      irot = 731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 732
      theta1 = 90
      phi1 = 70.816655
      theta2 = 95.998868
      phi2 = 160.81665
      theta3 = 5.998868
      phi3 = 160.81665
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 500
      chmoth = 'DCLS'
      x = 8.9336312
      y = 25.677925
      z = 0
      irot = 732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 733
      theta1 = 90
      phi1 = 74.212881
      theta2 = 95.998868
      phi2 = 164.21288
      theta3 = 5.998868
      phi3 = 164.21288
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 501
      chmoth = 'DCLS'
      x = 7.3967649
      y = 26.162062
      z = 0
      irot = 733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 734
      theta1 = 90
      phi1 = 77.609108
      theta2 = 95.998868
      phi2 = 167.60911
      theta3 = 5.998868
      phi3 = 167.60911
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 502
      chmoth = 'DCLS'
      x = 5.8339173
      y = 26.554303
      z = 0
      irot = 734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 735
      theta1 = 90
      phi1 = 81.005334
      theta2 = 95.998868
      phi2 = 171.00533
      theta3 = 5.998868
      phi3 = 171.00533
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 503
      chmoth = 'DCLS'
      x = 4.2505778
      y = 26.853271
      z = 0
      irot = 735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 736
      theta1 = 90
      phi1 = 84.40156
      theta2 = 95.998868
      phi2 = 174.40156
      theta3 = 5.998868
      phi3 = 174.40156
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 504
      chmoth = 'DCLS'
      x = 2.652308
      y = 27.057917
      z = 0
      irot = 736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 737
      theta1 = 90
      phi1 = 87.797787
      theta2 = 95.998868
      phi2 = 177.79779
      theta3 = 5.998868
      phi3 = 177.79779
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 505
      chmoth = 'DCLS'
      x = 1.0447218
      y = 27.16752
      z = 0
      irot = 737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 738
      theta1 = 90
      phi1 = 91.194013
      theta2 = 95.998868
      phi2 = -178.80599
      theta3 = 5.998868
      phi3 = -178.80599
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 506
      chmoth = 'DCLS'
      x = -0.56653394
      y = 27.181697
      z = 0
      irot = 738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 739
      theta1 = 90
      phi1 = 94.59024
      theta2 = 95.998868
      phi2 = -175.40976
      theta3 = 5.998868
      phi3 = -175.40976
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 507
      chmoth = 'DCLS'
      x = -2.1757997
      y = 27.100396
      z = 0
      irot = 739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 740
      theta1 = 90
      phi1 = 97.986466
      theta2 = 95.998868
      phi2 = -172.01353
      theta3 = 5.998868
      phi3 = -172.01353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 508
      chmoth = 'DCLS'
      x = -3.777423
      y = 26.923905
      z = 0
      irot = 740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 741
      theta1 = 90
      phi1 = 101.38269
      theta2 = 95.998868
      phi2 = -168.61731
      theta3 = 5.998868
      phi3 = -168.61731
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 509
      chmoth = 'DCLS'
      x = -5.3657778
      y = 26.652843
      z = 0
      irot = 741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 742
      theta1 = 90
      phi1 = 104.77892
      theta2 = 95.998868
      phi2 = -165.22108
      theta3 = 5.998868
      phi3 = -165.22108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 510
      chmoth = 'DCLS'
      x = -6.9352852
      y = 26.288161
      z = 0
      irot = 742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 743
      theta1 = 90
      phi1 = 108.17515
      theta2 = 95.998868
      phi2 = -161.82485
      theta3 = 5.998868
      phi3 = -161.82485
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 511
      chmoth = 'DCLS'
      x = -8.4804322
      y = 25.831141
      z = 0
      irot = 743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 744
      theta1 = 90
      phi1 = 111.57137
      theta2 = 95.998868
      phi2 = -158.42863
      theta3 = 5.998868
      phi3 = -158.42863
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 512
      chmoth = 'DCLS'
      x = -9.9957913
      y = 25.283389
      z = 0
      irot = 744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 745
      theta1 = 90
      phi1 = 114.9676
      theta2 = 95.998868
      phi2 = -155.0324
      theta3 = 5.998868
      phi3 = -155.0324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 513
      chmoth = 'DCLS'
      x = -11.47604
      y = 24.646827
      z = 0
      irot = 745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 746
      theta1 = 90
      phi1 = 118.36382
      theta2 = 95.998868
      phi2 = -151.63618
      theta3 = 5.998868
      phi3 = -151.63618
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 514
      chmoth = 'DCLS'
      x = -12.915978
      y = 23.923693
      z = 0
      irot = 746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 747
      theta1 = 90
      phi1 = 121.76005
      theta2 = 95.998868
      phi2 = -148.23995
      theta3 = 5.998868
      phi3 = -148.23995
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 515
      chmoth = 'DCLS'
      x = -14.310549
      y = 23.116526
      z = 0
      irot = 747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 748
      theta1 = 90
      phi1 = 125.15628
      theta2 = 95.998868
      phi2 = -144.84372
      theta3 = 5.998868
      phi3 = -144.84372
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 516
      chmoth = 'DCLS'
      x = -15.654853
      y = 22.228161
      z = 0
      irot = 748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 749
      theta1 = 90
      phi1 = 128.5525
      theta2 = 95.998868
      phi2 = -141.4475
      theta3 = 5.998868
      phi3 = -141.4475
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 517
      chmoth = 'DCLS'
      x = -16.94417
      y = 21.261719
      z = 0
      irot = 749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 750
      theta1 = 90
      phi1 = 131.94873
      theta2 = 95.998868
      phi2 = -138.05127
      theta3 = 5.998868
      phi3 = -138.05127
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 518
      chmoth = 'DCLS'
      x = -18.173969
      y = 20.220595
      z = 0
      irot = 750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 751
      theta1 = 90
      phi1 = 135.34496
      theta2 = 95.998868
      phi2 = -134.65504
      theta3 = 5.998868
      phi3 = -134.65504
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 519
      chmoth = 'DCLS'
      x = -19.339931
      y = 19.108445
      z = 0
      irot = 751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 752
      theta1 = 90
      phi1 = 138.74118
      theta2 = 95.998868
      phi2 = -131.25882
      theta3 = 5.998868
      phi3 = -131.25882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 520
      chmoth = 'DCLS'
      x = -20.437961
      y = 17.929176
      z = 0
      irot = 752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 753
      theta1 = 90
      phi1 = 142.13741
      theta2 = 95.998868
      phi2 = -127.86259
      theta3 = 5.998868
      phi3 = -127.86259
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 521
      chmoth = 'DCLS'
      x = -21.464202
      y = 16.68693
      z = 0
      irot = 753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 754
      theta1 = 90
      phi1 = 145.53364
      theta2 = 95.998868
      phi2 = -124.46636
      theta3 = 5.998868
      phi3 = -124.46636
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 522
      chmoth = 'DCLS'
      x = -22.41505
      y = 15.38607
      z = 0
      irot = 754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 755
      theta1 = 90
      phi1 = 148.92986
      theta2 = 95.998868
      phi2 = -121.07014
      theta3 = 5.998868
      phi3 = -121.07014
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 523
      chmoth = 'DCLS'
      x = -23.287163
      y = 14.031166
      z = 0
      irot = 755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 756
      theta1 = 90
      phi1 = 152.32609
      theta2 = 95.998868
      phi2 = -117.67391
      theta3 = 5.998868
      phi3 = -117.67391
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 524
      chmoth = 'DCLS'
      x = -24.07748
      y = 12.626978
      z = 0
      irot = 756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 757
      theta1 = 90
      phi1 = 155.72232
      theta2 = 95.998868
      phi2 = -114.27768
      theta3 = 5.998868
      phi3 = -114.27768
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 525
      chmoth = 'DCLS'
      x = -24.783223
      y = 11.178436
      z = 0
      irot = 757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 758
      theta1 = 90
      phi1 = 159.11854
      theta2 = 95.998868
      phi2 = -110.88146
      theta3 = 5.998868
      phi3 = -110.88146
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 526
      chmoth = 'DCLS'
      x = -25.401915
      y = 9.6906302
      z = 0
      irot = 758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 759
      theta1 = 90
      phi1 = 162.51477
      theta2 = 95.998868
      phi2 = -107.48523
      theta3 = 5.998868
      phi3 = -107.48523
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 527
      chmoth = 'DCLS'
      x = -25.931381
      y = 8.1687855
      z = 0
      irot = 759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 760
      theta1 = 90
      phi1 = 165.91099
      theta2 = 95.998868
      phi2 = -104.08901
      theta3 = 5.998868
      phi3 = -104.08901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 528
      chmoth = 'DCLS'
      x = -26.369763
      y = 6.6182476
      z = 0
      irot = 760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 761
      theta1 = 90
      phi1 = 169.30722
      theta2 = 95.998868
      phi2 = -100.69278
      theta3 = 5.998868
      phi3 = -100.69278
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 529
      chmoth = 'DCLS'
      x = -26.71552
      y = 5.0444629
      z = 0
      irot = 761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 762
      theta1 = 90
      phi1 = 172.70345
      theta2 = 95.998868
      phi2 = -97.296553
      theta3 = 5.998868
      phi3 = -97.296553
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 530
      chmoth = 'DCLS'
      x = -26.967437
      y = 3.4529593
      z = 0
      irot = 762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 763
      theta1 = 90
      phi1 = 176.09967
      theta2 = 95.998868
      phi2 = -93.900326
      theta3 = 5.998868
      phi3 = -93.900326
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 531
      chmoth = 'DCLS'
      x = -27.124631
      y = 1.849327
      z = 0
      irot = 763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 764
      theta1 = 90
      phi1 = 179.4959
      theta2 = 95.998868
      phi2 = -90.5041
      theta3 = 5.998868
      phi3 = -90.5041
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 532
      chmoth = 'DCLS'
      x = -27.186548
      y = 0.23919899
      z = 0
      irot = 764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 765
      theta1 = 90
      phi1 = -177.10787
      theta2 = 95.998868
      phi2 = -87.107874
      theta3 = 5.998868
      phi3 = -87.107874
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 533
      chmoth = 'DCLS'
      x = -27.152971
      y = -1.3717693
      z = 0
      irot = 765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 766
      theta1 = 90
      phi1 = -173.71165
      theta2 = 95.998868
      phi2 = -83.711647
      theta3 = 5.998868
      phi3 = -83.711647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 534
      chmoth = 'DCLS'
      x = -27.024019
      y = -2.9779191
      z = 0
      irot = 766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 767
      theta1 = 90
      phi1 = -170.31542
      theta2 = 95.998868
      phi2 = -80.315421
      theta3 = 5.998868
      phi3 = -80.315421
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 535
      chmoth = 'DCLS'
      x = -26.800144
      y = -4.573609
      z = 0
      irot = 767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 768
      theta1 = 90
      phi1 = -166.91919
      theta2 = 95.998868
      phi2 = -76.919194
      theta3 = 5.998868
      phi3 = -76.919194
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 536
      chmoth = 'DCLS'
      x = -26.482132
      y = -6.1532338
      z = 0
      irot = 768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 769
      theta1 = 90
      phi1 = -163.52297
      theta2 = 95.998868
      phi2 = -73.522968
      theta3 = 5.998868
      phi3 = -73.522968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 537
      chmoth = 'DCLS'
      x = -26.071101
      y = -7.7112452
      z = 0
      irot = 769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 770
      theta1 = 90
      phi1 = -160.12674
      theta2 = 95.998868
      phi2 = -70.126742
      theta3 = 5.998868
      phi3 = -70.126742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 538
      chmoth = 'DCLS'
      x = -25.568494
      y = -9.2421706
      z = 0
      irot = 770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 771
      theta1 = 90
      phi1 = -156.73052
      theta2 = 95.998868
      phi2 = -66.730515
      theta3 = 5.998868
      phi3 = -66.730515
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 539
      chmoth = 'DCLS'
      x = -24.976077
      y = -10.740632
      z = 0
      irot = 771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 772
      theta1 = 90
      phi1 = -153.33429
      theta2 = 95.998868
      phi2 = -63.334289
      theta3 = 5.998868
      phi3 = -63.334289
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 540
      chmoth = 'DCLS'
      x = -24.29593
      y = -12.201367
      z = 0
      irot = 772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 773
      theta1 = 90
      phi1 = -149.93806
      theta2 = 95.998868
      phi2 = -59.938062
      theta3 = 5.998868
      phi3 = -59.938062
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 541
      chmoth = 'DCLS'
      x = -23.530443
      y = -13.619245
      z = 0
      irot = 773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 774
      theta1 = 90
      phi1 = -146.54184
      theta2 = 95.998868
      phi2 = -56.541836
      theta3 = 5.998868
      phi3 = -56.541836
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 542
      chmoth = 'DCLS'
      x = -22.682305
      y = -14.989284
      z = 0
      irot = 774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 775
      theta1 = 90
      phi1 = -143.14561
      theta2 = 95.998868
      phi2 = -53.145609
      theta3 = 5.998868
      phi3 = -53.145609
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 543
      chmoth = 'DCLS'
      x = -21.754494
      y = -16.306673
      z = 0
      irot = 775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 776
      theta1 = 90
      phi1 = -139.74938
      theta2 = 95.998868
      phi2 = -49.749383
      theta3 = 5.998868
      phi3 = -49.749383
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 544
      chmoth = 'DCLS'
      x = -20.75027
      y = -17.566784
      z = 0
      irot = 776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 777
      theta1 = 90
      phi1 = -136.35316
      theta2 = 95.998868
      phi2 = -46.353157
      theta3 = 5.998868
      phi3 = -46.353157
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 545
      chmoth = 'DCLS'
      x = -19.67316
      y = -18.765191
      z = 0
      irot = 777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 778
      theta1 = 90
      phi1 = -132.95693
      theta2 = 95.998868
      phi2 = -42.95693
      theta3 = 5.998868
      phi3 = -42.95693
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 546
      chmoth = 'DCLS'
      x = -18.526947
      y = -19.897684
      z = 0
      irot = 778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 779
      theta1 = 90
      phi1 = -129.5607
      theta2 = 95.998868
      phi2 = -39.560704
      theta3 = 5.998868
      phi3 = -39.560704
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 547
      chmoth = 'DCLS'
      x = -17.315657
      y = -20.960287
      z = 0
      irot = 779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 780
      theta1 = 90
      phi1 = -126.16448
      theta2 = 95.998868
      phi2 = -36.164477
      theta3 = 5.998868
      phi3 = -36.164477
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 548
      chmoth = 'DCLS'
      x = -16.043545
      y = -21.949265
      z = 0
      irot = 780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 781
      theta1 = 90
      phi1 = -122.76825
      theta2 = 95.998868
      phi2 = -32.768251
      theta3 = 5.998868
      phi3 = -32.768251
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 549
      chmoth = 'DCLS'
      x = -14.71508
      y = -22.861146
      z = 0
      irot = 781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 782
      theta1 = 90
      phi1 = -119.37202
      theta2 = 95.998868
      phi2 = -29.372025
      theta3 = 5.998868
      phi3 = -29.372025
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 550
      chmoth = 'DCLS'
      x = -13.334928
      y = -23.692726
      z = 0
      irot = 782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 783
      theta1 = 90
      phi1 = -115.9758
      theta2 = 95.998868
      phi2 = -25.975798
      theta3 = 5.998868
      phi3 = -25.975798
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 551
      chmoth = 'DCLS'
      x = -11.907936
      y = -24.441085
      z = 0
      irot = 783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 784
      theta1 = 90
      phi1 = -112.57957
      theta2 = 95.998868
      phi2 = -22.579572
      theta3 = 5.998868
      phi3 = -22.579572
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 552
      chmoth = 'DCLS'
      x = -10.439118
      y = -25.103594
      z = 0
      irot = 784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 785
      theta1 = 90
      phi1 = -109.18335
      theta2 = 95.998868
      phi2 = -19.183345
      theta3 = 5.998868
      phi3 = -19.183345
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 553
      chmoth = 'DCLS'
      x = -8.9336312
      y = -25.677925
      z = 0
      irot = 785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 786
      theta1 = 90
      phi1 = -105.78712
      theta2 = 95.998868
      phi2 = -15.787119
      theta3 = 5.998868
      phi3 = -15.787119
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 554
      chmoth = 'DCLS'
      x = -7.3967649
      y = -26.162062
      z = 0
      irot = 786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 787
      theta1 = 90
      phi1 = -102.39089
      theta2 = 95.998868
      phi2 = -12.390892
      theta3 = 5.998868
      phi3 = -12.390892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 555
      chmoth = 'DCLS'
      x = -5.8339173
      y = -26.554303
      z = 0
      irot = 787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 788
      theta1 = 90
      phi1 = -98.994666
      theta2 = 95.998868
      phi2 = -8.994666
      theta3 = 5.998868
      phi3 = -8.994666
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 556
      chmoth = 'DCLS'
      x = -4.2505778
      y = -26.853271
      z = 0
      irot = 788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 789
      theta1 = 90
      phi1 = -95.59844
      theta2 = 95.998868
      phi2 = -5.5984396
      theta3 = 5.998868
      phi3 = -5.5984396
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 557
      chmoth = 'DCLS'
      x = -2.652308
      y = -27.057917
      z = 0
      irot = 789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 790
      theta1 = 90
      phi1 = -92.202213
      theta2 = 95.998868
      phi2 = -2.2022132
      theta3 = 5.998868
      phi3 = -2.2022132
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 558
      chmoth = 'DCLS'
      x = -1.0447218
      y = -27.16752
      z = 0
      irot = 790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 791
      theta1 = 90
      phi1 = -88.805987
      theta2 = 95.998868
      phi2 = 1.1940132
      theta3 = 5.998868
      phi3 = 1.1940132
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 559
      chmoth = 'DCLS'
      x = 0.56653394
      y = -27.181697
      z = 0
      irot = 791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 792
      theta1 = 90
      phi1 = -85.40976
      theta2 = 95.998868
      phi2 = 4.5902396
      theta3 = 5.998868
      phi3 = 4.5902396
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 560
      chmoth = 'DCLS'
      x = 2.1757997
      y = -27.100396
      z = 0
      irot = 792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 793
      theta1 = 90
      phi1 = -82.013534
      theta2 = 95.998868
      phi2 = 7.986466
      theta3 = 5.998868
      phi3 = 7.986466
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 561
      chmoth = 'DCLS'
      x = 3.777423
      y = -26.923905
      z = 0
      irot = 793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 794
      theta1 = 90
      phi1 = -78.617308
      theta2 = 95.998868
      phi2 = 11.382692
      theta3 = 5.998868
      phi3 = 11.382692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 562
      chmoth = 'DCLS'
      x = 5.3657778
      y = -26.652843
      z = 0
      irot = 794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 795
      theta1 = 90
      phi1 = -75.221081
      theta2 = 95.998868
      phi2 = 14.778919
      theta3 = 5.998868
      phi3 = 14.778919
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 563
      chmoth = 'DCLS'
      x = 6.9352852
      y = -26.288161
      z = 0
      irot = 795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 796
      theta1 = 90
      phi1 = -71.824855
      theta2 = 95.998868
      phi2 = 18.175145
      theta3 = 5.998868
      phi3 = 18.175145
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 564
      chmoth = 'DCLS'
      x = 8.4804322
      y = -25.831141
      z = 0
      irot = 796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 797
      theta1 = 90
      phi1 = -68.428628
      theta2 = 95.998868
      phi2 = 21.571372
      theta3 = 5.998868
      phi3 = 21.571372
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 565
      chmoth = 'DCLS'
      x = 9.9957913
      y = -25.283389
      z = 0
      irot = 797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 798
      theta1 = 90
      phi1 = -65.032402
      theta2 = 95.998868
      phi2 = 24.967598
      theta3 = 5.998868
      phi3 = 24.967598
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 566
      chmoth = 'DCLS'
      x = 11.47604
      y = -24.646827
      z = 0
      irot = 798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 799
      theta1 = 90
      phi1 = -61.636175
      theta2 = 95.998868
      phi2 = 28.363825
      theta3 = 5.998868
      phi3 = 28.363825
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 567
      chmoth = 'DCLS'
      x = 12.915978
      y = -23.923693
      z = 0
      irot = 799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 800
      theta1 = 90
      phi1 = -58.239949
      theta2 = 95.998868
      phi2 = 31.760051
      theta3 = 5.998868
      phi3 = 31.760051
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 568
      chmoth = 'DCLS'
      x = 14.310549
      y = -23.116526
      z = 0
      irot = 800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 801
      theta1 = 90
      phi1 = -54.843723
      theta2 = 95.998868
      phi2 = 35.156277
      theta3 = 5.998868
      phi3 = 35.156277
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 569
      chmoth = 'DCLS'
      x = 15.654853
      y = -22.228161
      z = 0
      irot = 801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 802
      theta1 = 90
      phi1 = -51.447496
      theta2 = 95.998868
      phi2 = 38.552504
      theta3 = 5.998868
      phi3 = 38.552504
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 570
      chmoth = 'DCLS'
      x = 16.94417
      y = -21.261719
      z = 0
      irot = 802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 803
      theta1 = 90
      phi1 = -48.05127
      theta2 = 95.998868
      phi2 = 41.94873
      theta3 = 5.998868
      phi3 = 41.94873
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 571
      chmoth = 'DCLS'
      x = 18.173969
      y = -20.220595
      z = 0
      irot = 803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 804
      theta1 = 90
      phi1 = -44.655043
      theta2 = 95.998868
      phi2 = 45.344957
      theta3 = 5.998868
      phi3 = 45.344957
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 572
      chmoth = 'DCLS'
      x = 19.339931
      y = -19.108445
      z = 0
      irot = 804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 805
      theta1 = 90
      phi1 = -41.258817
      theta2 = 95.998868
      phi2 = 48.741183
      theta3 = 5.998868
      phi3 = 48.741183
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 573
      chmoth = 'DCLS'
      x = 20.437961
      y = -17.929176
      z = 0
      irot = 805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 806
      theta1 = 90
      phi1 = -37.862591
      theta2 = 95.998868
      phi2 = 52.137409
      theta3 = 5.998868
      phi3 = 52.137409
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 574
      chmoth = 'DCLS'
      x = 21.464202
      y = -16.68693
      z = 0
      irot = 806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 807
      theta1 = 90
      phi1 = -34.466364
      theta2 = 95.998868
      phi2 = 55.533636
      theta3 = 5.998868
      phi3 = 55.533636
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 575
      chmoth = 'DCLS'
      x = 22.41505
      y = -15.38607
      z = 0
      irot = 807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 808
      theta1 = 90
      phi1 = -31.070138
      theta2 = 95.998868
      phi2 = 58.929862
      theta3 = 5.998868
      phi3 = 58.929862
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 576
      chmoth = 'DCLS'
      x = 23.287163
      y = -14.031166
      z = 0
      irot = 808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 809
      theta1 = 90
      phi1 = -27.673911
      theta2 = 95.998868
      phi2 = 62.326089
      theta3 = 5.998868
      phi3 = 62.326089
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 577
      chmoth = 'DCLS'
      x = 24.07748
      y = -12.626978
      z = 0
      irot = 809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 810
      theta1 = 90
      phi1 = -24.277685
      theta2 = 95.998868
      phi2 = 65.722315
      theta3 = 5.998868
      phi3 = 65.722315
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 578
      chmoth = 'DCLS'
      x = 24.783223
      y = -11.178436
      z = 0
      irot = 810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 811
      theta1 = 90
      phi1 = -20.881458
      theta2 = 95.998868
      phi2 = 69.118542
      theta3 = 5.998868
      phi3 = 69.118542
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 579
      chmoth = 'DCLS'
      x = 25.401915
      y = -9.6906302
      z = 0
      irot = 811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 812
      theta1 = 90
      phi1 = -17.485232
      theta2 = 95.998868
      phi2 = 72.514768
      theta3 = 5.998868
      phi3 = 72.514768
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 580
      chmoth = 'DCLS'
      x = 25.931381
      y = -8.1687855
      z = 0
      irot = 812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 813
      theta1 = 90
      phi1 = -14.089006
      theta2 = 95.998868
      phi2 = 75.910994
      theta3 = 5.998868
      phi3 = 75.910994
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 581
      chmoth = 'DCLS'
      x = 26.369763
      y = -6.6182476
      z = 0
      irot = 813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 814
      theta1 = 90
      phi1 = -10.692779
      theta2 = 95.998868
      phi2 = 79.307221
      theta3 = 5.998868
      phi3 = 79.307221
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 582
      chmoth = 'DCLS'
      x = 26.71552
      y = -5.0444629
      z = 0
      irot = 814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 815
      theta1 = 90
      phi1 = -7.2965528
      theta2 = 95.998868
      phi2 = 82.703447
      theta3 = 5.998868
      phi3 = 82.703447
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 583
      chmoth = 'DCLS'
      x = 26.967437
      y = -3.4529593
      z = 0
      irot = 815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 816
      theta1 = 90
      phi1 = -3.9003264
      theta2 = 95.998868
      phi2 = 86.099674
      theta3 = 5.998868
      phi3 = 86.099674
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 584
      chmoth = 'DCLS'
      x = 27.124631
      y = -1.849327
      z = 0
      irot = 816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 817
      theta1 = 89.86815
      phi1 = 0
      theta2 = 96.300303
      phi2 = 89.985443
      theta3 = 6.3016939
      phi3 = 91.194047
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 585
      chmoth = 'DCLS'
      x = 28.565
      y = 0.5952
      z = 0
      irot = 817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 818
      theta1 = 89.86815
      phi1 = 3.3962264
      theta2 = 96.300303
      phi2 = 93.381669
      theta3 = 6.3016939
      phi3 = 94.590274
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 586
      chmoth = 'DCLS'
      x = 28.479572
      y = 2.2863632
      z = 0
      irot = 818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 819
      theta1 = 89.86815
      phi1 = 6.7924528
      theta2 = 96.300303
      phi2 = 96.777896
      theta3 = 6.3016939
      phi3 = 97.9865
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 587
      chmoth = 'DCLS'
      x = 28.294109
      y = 3.9694955
      z = 0
      irot = 819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 820
      theta1 = 89.86815
      phi1 = 10.188679
      theta2 = 96.300303
      phi2 = 100.17412
      theta3 = 6.3016939
      phi3 = 101.38273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 588
      chmoth = 'DCLS'
      x = 28.009261
      y = 5.6386847
      z = 0
      irot = 820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 821
      theta1 = 89.86815
      phi1 = 13.584906
      theta2 = 96.300303
      phi2 = 103.57035
      theta3 = 6.3016939
      phi3 = 104.77895
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 589
      chmoth = 'DCLS'
      x = 27.62603
      y = 7.2880679
      z = 0
      irot = 821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 822
      theta1 = 89.86815
      phi1 = 16.981132
      theta2 = 96.300303
      phi2 = 106.96657
      theta3 = 6.3016939
      phi3 = 108.17518
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 590
      chmoth = 'DCLS'
      x = 27.145762
      y = 8.9118515
      z = 0
      irot = 822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 823
      theta1 = 89.86815
      phi1 = 20.377358
      theta2 = 96.300303
      phi2 = 110.3628
      theta3 = 6.3016939
      phi3 = 111.57141
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 591
      chmoth = 'DCLS'
      x = 26.570143
      y = 10.504332
      z = 0
      irot = 823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 824
      theta1 = 89.86815
      phi1 = 23.773585
      theta2 = 96.300303
      phi2 = 113.75903
      theta3 = 6.3016939
      phi3 = 114.96763
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 592
      chmoth = 'DCLS'
      x = 25.901195
      y = 12.059915
      z = 0
      irot = 824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 825
      theta1 = 89.86815
      phi1 = 27.169811
      theta2 = 96.300303
      phi2 = 117.15525
      theta3 = 6.3016939
      phi3 = 118.36386
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 593
      chmoth = 'DCLS'
      x = 25.141269
      y = 13.573138
      z = 0
      irot = 825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 826
      theta1 = 89.86815
      phi1 = 30.566038
      theta2 = 96.300303
      phi2 = 120.55148
      theta3 = 6.3016939
      phi3 = 121.76008
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 594
      chmoth = 'DCLS'
      x = 24.293033
      y = 15.038685
      z = 0
      irot = 826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 827
      theta1 = 89.86815
      phi1 = 33.962264
      theta2 = 96.300303
      phi2 = 123.94771
      theta3 = 6.3016939
      phi3 = 125.15631
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 595
      chmoth = 'DCLS'
      x = 23.359467
      y = 16.451407
      z = 0
      irot = 827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 828
      theta1 = 89.86815
      phi1 = 37.358491
      theta2 = 96.300303
      phi2 = 127.34393
      theta3 = 6.3016939
      phi3 = 128.55254
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 596
      chmoth = 'DCLS'
      x = 22.34385
      y = 17.806344
      z = 0
      irot = 828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 829
      theta1 = 89.86815
      phi1 = 40.754717
      theta2 = 96.300303
      phi2 = 130.74016
      theta3 = 6.3016939
      phi3 = 131.94876
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 597
      chmoth = 'DCLS'
      x = 21.249749
      y = 19.098734
      z = 0
      irot = 829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 830
      theta1 = 89.86815
      phi1 = 44.150943
      theta2 = 96.300303
      phi2 = 134.13639
      theta3 = 6.3016939
      phi3 = 135.34499
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 598
      chmoth = 'DCLS'
      x = 20.081008
      y = 20.32404
      z = 0
      irot = 830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 831
      theta1 = 89.86815
      phi1 = 47.54717
      theta2 = 96.300303
      phi2 = 137.53261
      theta3 = 6.3016939
      phi3 = 138.74122
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 599
      chmoth = 'DCLS'
      x = 18.841731
      y = 21.477957
      z = 0
      irot = 831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 832
      theta1 = 89.86815
      phi1 = 50.943396
      theta2 = 96.300303
      phi2 = 140.92884
      theta3 = 6.3016939
      phi3 = 142.13744
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 600
      chmoth = 'DCLS'
      x = 17.536272
      y = 22.556432
      z = 0
      irot = 832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 833
      theta1 = 89.86815
      phi1 = 54.339623
      theta2 = 96.300303
      phi2 = 144.32507
      theta3 = 6.3016939
      phi3 = 145.53367
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 601
      chmoth = 'DCLS'
      x = 16.169217
      y = 23.555677
      z = 0
      irot = 833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 834
      theta1 = 89.86815
      phi1 = 57.735849
      theta2 = 96.300303
      phi2 = 147.72129
      theta3 = 6.3016939
      phi3 = 148.9299
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 602
      chmoth = 'DCLS'
      x = 14.745366
      y = 24.472182
      z = 0
      irot = 834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 835
      theta1 = 89.86815
      phi1 = 61.132075
      theta2 = 96.300303
      phi2 = 151.11752
      theta3 = 6.3016939
      phi3 = 152.32612
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 603
      chmoth = 'DCLS'
      x = 13.269722
      y = 25.302727
      z = 0
      irot = 835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 836
      theta1 = 89.86815
      phi1 = 64.528302
      theta2 = 96.300303
      phi2 = 154.51374
      theta3 = 6.3016939
      phi3 = 155.72235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 604
      chmoth = 'DCLS'
      x = 11.747467
      y = 26.044395
      z = 0
      irot = 836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 837
      theta1 = 89.86815
      phi1 = 67.924528
      theta2 = 96.300303
      phi2 = 157.90997
      theta3 = 6.3016939
      phi3 = 159.11858
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 605
      chmoth = 'DCLS'
      x = 10.183949
      y = 26.694581
      z = 0
      irot = 837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 838
      theta1 = 89.86815
      phi1 = 71.320755
      theta2 = 96.300303
      phi2 = 161.3062
      theta3 = 6.3016939
      phi3 = 162.5148
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 606
      chmoth = 'DCLS'
      x = 8.5846597
      y = 27.251002
      z = 0
      irot = 838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 839
      theta1 = 89.86815
      phi1 = 74.716981
      theta2 = 96.300303
      phi2 = 164.70242
      theta3 = 6.3016939
      phi3 = 165.91103
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 607
      chmoth = 'DCLS'
      x = 6.9552163
      y = 27.711702
      z = 0
      irot = 839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 840
      theta1 = 89.86815
      phi1 = 78.113208
      theta2 = 96.300303
      phi2 = 168.09865
      theta3 = 6.3016939
      phi3 = 169.30725
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 608
      chmoth = 'DCLS'
      x = 5.3013424
      y = 28.075065
      z = 0
      irot = 840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 841
      theta1 = 89.86815
      phi1 = 81.509434
      theta2 = 96.300303
      phi2 = 171.49488
      theta3 = 6.3016939
      phi3 = 172.70348
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 609
      chmoth = 'DCLS'
      x = 3.6288474
      y = 28.339812
      z = 0
      irot = 841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 842
      theta1 = 89.86815
      phi1 = 84.90566
      theta2 = 96.300303
      phi2 = 174.8911
      theta3 = 6.3016939
      phi3 = 176.09971
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 610
      chmoth = 'DCLS'
      x = 1.9436059
      y = 28.505015
      z = 0
      irot = 842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 843
      theta1 = 89.86815
      phi1 = 88.301887
      theta2 = 96.300303
      phi2 = 178.28733
      theta3 = 6.3016939
      phi3 = 179.49593
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 611
      chmoth = 'DCLS'
      x = 0.2515374
      y = 28.570093
      z = 0
      irot = 843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 844
      theta1 = 89.86815
      phi1 = 91.698113
      theta2 = 96.300303
      phi2 = -178.31644
      theta3 = 6.3016939
      phi3 = -177.10784
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 612
      chmoth = 'DCLS'
      x = -1.4414146
      y = 28.534818
      z = 0
      irot = 844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 845
      theta1 = 89.86815
      phi1 = 95.09434
      theta2 = 96.300303
      phi2 = -174.92022
      theta3 = 6.3016939
      phi3 = -173.71161
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 613
      chmoth = 'DCLS'
      x = -3.1293036
      y = 28.399312
      z = 0
      irot = 845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 846
      theta1 = 89.86815
      phi1 = 98.490566
      theta2 = 96.300303
      phi2 = -171.52399
      theta3 = 6.3016939
      phi3 = -170.31539
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 614
      chmoth = 'DCLS'
      x = -4.8062008
      y = 28.164054
      z = 0
      irot = 846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 847
      theta1 = 89.86815
      phi1 = 101.88679
      theta2 = 96.300303
      phi2 = -168.12776
      theta3 = 6.3016939
      phi3 = -166.91916
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 615
      chmoth = 'DCLS'
      x = -6.4662161
      y = 27.829868
      z = 0
      irot = 847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 848
      theta1 = 89.86815
      phi1 = 105.28302
      theta2 = 96.300303
      phi2 = -164.73154
      theta3 = 6.3016939
      phi3 = -163.52293
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 616
      chmoth = 'DCLS'
      x = -8.1035185
      y = 27.397928
      z = 0
      irot = 848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 849
      theta1 = 89.86815
      phi1 = 108.67925
      theta2 = 96.300303
      phi2 = -161.33531
      theta3 = 6.3016939
      phi3 = -160.12671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 617
      chmoth = 'DCLS'
      x = -9.712357
      y = 26.869753
      z = 0
      irot = 849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 850
      theta1 = 89.86815
      phi1 = 112.07547
      theta2 = 96.300303
      phi2 = -157.93909
      theta3 = 6.3016939
      phi3 = -156.73048
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 618
      chmoth = 'DCLS'
      x = -11.287081
      y = 26.247196
      z = 0
      irot = 850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 851
      theta1 = 89.86815
      phi1 = 115.4717
      theta2 = 96.300303
      phi2 = -154.54286
      theta3 = 6.3016939
      phi3 = -153.33425
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 619
      chmoth = 'DCLS'
      x = -12.822158
      y = 25.532445
      z = 0
      irot = 851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 852
      theta1 = 89.86815
      phi1 = 118.86792
      theta2 = 96.300303
      phi2 = -151.14663
      theta3 = 6.3016939
      phi3 = -149.93803
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 620
      chmoth = 'DCLS'
      x = -14.312197
      y = 24.728011
      z = 0
      irot = 852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 853
      theta1 = 89.86815
      phi1 = 122.26415
      theta2 = 96.300303
      phi2 = -147.75041
      theta3 = 6.3016939
      phi3 = -146.5418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 621
      chmoth = 'DCLS'
      x = -15.751964
      y = 23.836718
      z = 0
      irot = 853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 854
      theta1 = 89.86815
      phi1 = 125.66038
      theta2 = 96.300303
      phi2 = -144.35418
      theta3 = 6.3016939
      phi3 = -143.14558
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 622
      chmoth = 'DCLS'
      x = -17.136401
      y = 22.861698
      z = 0
      irot = 854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 855
      theta1 = 89.86815
      phi1 = 129.0566
      theta2 = 96.300303
      phi2 = -140.95795
      theta3 = 6.3016939
      phi3 = -139.74935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 623
      chmoth = 'DCLS'
      x = -18.460646
      y = 21.806376
      z = 0
      irot = 855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 856
      theta1 = 89.86815
      phi1 = 132.45283
      theta2 = 96.300303
      phi2 = -137.56173
      theta3 = 6.3016939
      phi3 = -136.35312
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 624
      chmoth = 'DCLS'
      x = -19.720048
      y = 20.674458
      z = 0
      irot = 856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 857
      theta1 = 89.86815
      phi1 = 135.84906
      theta2 = 96.300303
      phi2 = -134.1655
      theta3 = 6.3016939
      phi3 = -132.9569
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 625
      chmoth = 'DCLS'
      x = -20.910182
      y = 19.46992
      z = 0
      irot = 857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 858
      theta1 = 89.86815
      phi1 = 139.24528
      theta2 = 96.300303
      phi2 = -130.76927
      theta3 = 6.3016939
      phi3 = -129.56067
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 626
      chmoth = 'DCLS'
      x = -22.026868
      y = 18.196993
      z = 0
      irot = 858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 859
      theta1 = 89.86815
      phi1 = 142.64151
      theta2 = 96.300303
      phi2 = -127.37305
      theta3 = 6.3016939
      phi3 = -126.16444
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 627
      chmoth = 'DCLS'
      x = -23.066185
      y = 16.860149
      z = 0
      irot = 859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 860
      theta1 = 89.86815
      phi1 = 146.03774
      theta2 = 96.300303
      phi2 = -123.97682
      theta3 = 6.3016939
      phi3 = -122.76822
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 628
      chmoth = 'DCLS'
      x = -24.02448
      y = 15.464083
      z = 0
      irot = 860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 861
      theta1 = 89.86815
      phi1 = 149.43396
      theta2 = 96.300303
      phi2 = -120.58059
      theta3 = 6.3016939
      phi3 = -119.37199
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 629
      chmoth = 'DCLS'
      x = -24.898388
      y = 14.013698
      z = 0
      irot = 861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 862
      theta1 = 89.86815
      phi1 = 152.83019
      theta2 = 96.300303
      phi2 = -117.18437
      theta3 = 6.3016939
      phi3 = -115.97576
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 630
      chmoth = 'DCLS'
      x = -25.684841
      y = 12.51409
      z = 0
      irot = 862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 863
      theta1 = 89.86815
      phi1 = 156.22642
      theta2 = 96.300303
      phi2 = -113.78814
      theta3 = 6.3016939
      phi3 = -112.57954
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 631
      chmoth = 'DCLS'
      x = -26.381074
      y = 10.970526
      z = 0
      irot = 863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 864
      theta1 = 89.86815
      phi1 = 159.62264
      theta2 = 96.300303
      phi2 = -110.39192
      theta3 = 6.3016939
      phi3 = -109.18331
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 632
      chmoth = 'DCLS'
      x = -26.984642
      y = 9.3884275
      z = 0
      irot = 864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 865
      theta1 = 89.86815
      phi1 = 163.01887
      theta2 = 96.300303
      phi2 = -106.99569
      theta3 = 6.3016939
      phi3 = -105.78708
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 633
      chmoth = 'DCLS'
      x = -27.493426
      y = 7.7733518
      z = 0
      irot = 865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 866
      theta1 = 89.86815
      phi1 = 166.41509
      theta2 = 96.300303
      phi2 = -103.59946
      theta3 = 6.3016939
      phi3 = -102.39086
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 634
      chmoth = 'DCLS'
      x = -27.905639
      y = 6.1309719
      z = 0
      irot = 866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 867
      theta1 = 89.86815
      phi1 = 169.81132
      theta2 = 96.300303
      phi2 = -100.20324
      theta3 = 6.3016939
      phi3 = -98.994632
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 635
      chmoth = 'DCLS'
      x = -28.219832
      y = 4.4670567
      z = 0
      irot = 867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 868
      theta1 = 89.86815
      phi1 = 173.20755
      theta2 = 96.300303
      phi2 = -96.80701
      theta3 = 6.3016939
      phi3 = -95.598406
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 636
      chmoth = 'DCLS'
      x = -28.434901
      y = 2.7874508
      z = 0
      irot = 868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 869
      theta1 = 89.86815
      phi1 = 176.60377
      theta2 = 96.300303
      phi2 = -93.410784
      theta3 = 6.3016939
      phi3 = -92.202179
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 637
      chmoth = 'DCLS'
      x = -28.550092
      y = 1.0980539
      z = 0
      irot = 869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 870
      theta1 = 89.86815
      phi1 = -180
      theta2 = 96.300303
      phi2 = -90.014557
      theta3 = 6.3016939
      phi3 = -88.805953
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 638
      chmoth = 'DCLS'
      x = -28.565
      y = -0.5952
      z = 0
      irot = 870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 871
      theta1 = 89.86815
      phi1 = -176.60377
      theta2 = 96.300303
      phi2 = -86.618331
      theta3 = 6.3016939
      phi3 = -85.409726
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 639
      chmoth = 'DCLS'
      x = -28.479572
      y = -2.2863632
      z = 0
      irot = 871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 872
      theta1 = 89.86815
      phi1 = -173.20755
      theta2 = 96.300303
      phi2 = -83.222104
      theta3 = 6.3016939
      phi3 = -82.0135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 640
      chmoth = 'DCLS'
      x = -28.294109
      y = -3.9694955
      z = 0
      irot = 872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 873
      theta1 = 89.86815
      phi1 = -169.81132
      theta2 = 96.300303
      phi2 = -79.825878
      theta3 = 6.3016939
      phi3 = -78.617273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 641
      chmoth = 'DCLS'
      x = -28.009261
      y = -5.6386847
      z = 0
      irot = 873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 874
      theta1 = 89.86815
      phi1 = -166.41509
      theta2 = 96.300303
      phi2 = -76.429651
      theta3 = 6.3016939
      phi3 = -75.221047
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 642
      chmoth = 'DCLS'
      x = -27.62603
      y = -7.2880679
      z = 0
      irot = 874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 875
      theta1 = 89.86815
      phi1 = -163.01887
      theta2 = 96.300303
      phi2 = -73.033425
      theta3 = 6.3016939
      phi3 = -71.824821
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 643
      chmoth = 'DCLS'
      x = -27.145762
      y = -8.9118515
      z = 0
      irot = 875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 876
      theta1 = 89.86815
      phi1 = -159.62264
      theta2 = 96.300303
      phi2 = -69.637199
      theta3 = 6.3016939
      phi3 = -68.428594
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 644
      chmoth = 'DCLS'
      x = -26.570143
      y = -10.504332
      z = 0
      irot = 876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 877
      theta1 = 89.86815
      phi1 = -156.22642
      theta2 = 96.300303
      phi2 = -66.240972
      theta3 = 6.3016939
      phi3 = -65.032368
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 645
      chmoth = 'DCLS'
      x = -25.901195
      y = -12.059915
      z = 0
      irot = 877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 878
      theta1 = 89.86815
      phi1 = -152.83019
      theta2 = 96.300303
      phi2 = -62.844746
      theta3 = 6.3016939
      phi3 = -61.636141
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 646
      chmoth = 'DCLS'
      x = -25.141269
      y = -13.573138
      z = 0
      irot = 878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 879
      theta1 = 89.86815
      phi1 = -149.43396
      theta2 = 96.300303
      phi2 = -59.448519
      theta3 = 6.3016939
      phi3 = -58.239915
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 647
      chmoth = 'DCLS'
      x = -24.293033
      y = -15.038685
      z = 0
      irot = 879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 880
      theta1 = 89.86815
      phi1 = -146.03774
      theta2 = 96.300303
      phi2 = -56.052293
      theta3 = 6.3016939
      phi3 = -54.843689
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 648
      chmoth = 'DCLS'
      x = -23.359467
      y = -16.451407
      z = 0
      irot = 880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 881
      theta1 = 89.86815
      phi1 = -142.64151
      theta2 = 96.300303
      phi2 = -52.656067
      theta3 = 6.3016939
      phi3 = -51.447462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 649
      chmoth = 'DCLS'
      x = -22.34385
      y = -17.806344
      z = 0
      irot = 881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 882
      theta1 = 89.86815
      phi1 = -139.24528
      theta2 = 96.300303
      phi2 = -49.25984
      theta3 = 6.3016939
      phi3 = -48.051236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 650
      chmoth = 'DCLS'
      x = -21.249749
      y = -19.098734
      z = 0
      irot = 882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 883
      theta1 = 89.86815
      phi1 = -135.84906
      theta2 = 96.300303
      phi2 = -45.863614
      theta3 = 6.3016939
      phi3 = -44.655009
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 651
      chmoth = 'DCLS'
      x = -20.081008
      y = -20.32404
      z = 0
      irot = 883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 884
      theta1 = 89.86815
      phi1 = -132.45283
      theta2 = 96.300303
      phi2 = -42.467387
      theta3 = 6.3016939
      phi3 = -41.258783
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 652
      chmoth = 'DCLS'
      x = -18.841731
      y = -21.477957
      z = 0
      irot = 884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 885
      theta1 = 89.86815
      phi1 = -129.0566
      theta2 = 96.300303
      phi2 = -39.071161
      theta3 = 6.3016939
      phi3 = -37.862557
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 653
      chmoth = 'DCLS'
      x = -17.536272
      y = -22.556432
      z = 0
      irot = 885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 886
      theta1 = 89.86815
      phi1 = -125.66038
      theta2 = 96.300303
      phi2 = -35.674934
      theta3 = 6.3016939
      phi3 = -34.46633
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 654
      chmoth = 'DCLS'
      x = -16.169217
      y = -23.555677
      z = 0
      irot = 886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 887
      theta1 = 89.86815
      phi1 = -122.26415
      theta2 = 96.300303
      phi2 = -32.278708
      theta3 = 6.3016939
      phi3 = -31.070104
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 655
      chmoth = 'DCLS'
      x = -14.745366
      y = -24.472182
      z = 0
      irot = 887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 888
      theta1 = 89.86815
      phi1 = -118.86792
      theta2 = 96.300303
      phi2 = -28.882482
      theta3 = 6.3016939
      phi3 = -27.673877
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 656
      chmoth = 'DCLS'
      x = -13.269722
      y = -25.302727
      z = 0
      irot = 888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 889
      theta1 = 89.86815
      phi1 = -115.4717
      theta2 = 96.300303
      phi2 = -25.486255
      theta3 = 6.3016939
      phi3 = -24.277651
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 657
      chmoth = 'DCLS'
      x = -11.747467
      y = -26.044395
      z = 0
      irot = 889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 890
      theta1 = 89.86815
      phi1 = -112.07547
      theta2 = 96.300303
      phi2 = -22.090029
      theta3 = 6.3016939
      phi3 = -20.881424
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 658
      chmoth = 'DCLS'
      x = -10.183949
      y = -26.694581
      z = 0
      irot = 890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 891
      theta1 = 89.86815
      phi1 = -108.67925
      theta2 = 96.300303
      phi2 = -18.693802
      theta3 = 6.3016939
      phi3 = -17.485198
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 659
      chmoth = 'DCLS'
      x = -8.5846597
      y = -27.251002
      z = 0
      irot = 891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 892
      theta1 = 89.86815
      phi1 = -105.28302
      theta2 = 96.300303
      phi2 = -15.297576
      theta3 = 6.3016939
      phi3 = -14.088972
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 660
      chmoth = 'DCLS'
      x = -6.9552163
      y = -27.711702
      z = 0
      irot = 892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 893
      theta1 = 89.86815
      phi1 = -101.88679
      theta2 = 96.300303
      phi2 = -11.90135
      theta3 = 6.3016939
      phi3 = -10.692745
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 661
      chmoth = 'DCLS'
      x = -5.3013424
      y = -28.075065
      z = 0
      irot = 893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 894
      theta1 = 89.86815
      phi1 = -98.490566
      theta2 = 96.300303
      phi2 = -8.5051231
      theta3 = 6.3016939
      phi3 = -7.2965188
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 662
      chmoth = 'DCLS'
      x = -3.6288474
      y = -28.339812
      z = 0
      irot = 894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 895
      theta1 = 89.86815
      phi1 = -95.09434
      theta2 = 96.300303
      phi2 = -5.1088967
      theta3 = 6.3016939
      phi3 = -3.9002924
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 663
      chmoth = 'DCLS'
      x = -1.9436059
      y = -28.505015
      z = 0
      irot = 895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 896
      theta1 = 89.86815
      phi1 = -91.698113
      theta2 = 96.300303
      phi2 = -1.7126703
      theta3 = 6.3016939
      phi3 = -0.50406594
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 664
      chmoth = 'DCLS'
      x = -0.2515374
      y = -28.570093
      z = 0
      irot = 896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 897
      theta1 = 89.86815
      phi1 = -88.301887
      theta2 = 96.300303
      phi2 = 1.6835561
      theta3 = 6.3016939
      phi3 = 2.8921605
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 665
      chmoth = 'DCLS'
      x = 1.4414146
      y = -28.534818
      z = 0
      irot = 897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 898
      theta1 = 89.86815
      phi1 = -84.90566
      theta2 = 96.300303
      phi2 = 5.0797825
      theta3 = 6.3016939
      phi3 = 6.2883869
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 666
      chmoth = 'DCLS'
      x = 3.1293036
      y = -28.399312
      z = 0
      irot = 898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 899
      theta1 = 89.86815
      phi1 = -81.509434
      theta2 = 96.300303
      phi2 = 8.4760089
      theta3 = 6.3016939
      phi3 = 9.6846133
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 667
      chmoth = 'DCLS'
      x = 4.8062008
      y = -28.164054
      z = 0
      irot = 899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 900
      theta1 = 89.86815
      phi1 = -78.113208
      theta2 = 96.300303
      phi2 = 11.872235
      theta3 = 6.3016939
      phi3 = 13.08084
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 668
      chmoth = 'DCLS'
      x = 6.4662161
      y = -27.829868
      z = 0
      irot = 900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 901
      theta1 = 89.86815
      phi1 = -74.716981
      theta2 = 96.300303
      phi2 = 15.268462
      theta3 = 6.3016939
      phi3 = 16.477066
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 669
      chmoth = 'DCLS'
      x = 8.1035185
      y = -27.397928
      z = 0
      irot = 901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 902
      theta1 = 89.86815
      phi1 = -71.320755
      theta2 = 96.300303
      phi2 = 18.664688
      theta3 = 6.3016939
      phi3 = 19.873293
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 670
      chmoth = 'DCLS'
      x = 9.712357
      y = -26.869753
      z = 0
      irot = 902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 903
      theta1 = 89.86815
      phi1 = -67.924528
      theta2 = 96.300303
      phi2 = 22.060915
      theta3 = 6.3016939
      phi3 = 23.269519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 671
      chmoth = 'DCLS'
      x = 11.287081
      y = -26.247196
      z = 0
      irot = 903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 904
      theta1 = 89.86815
      phi1 = -64.528302
      theta2 = 96.300303
      phi2 = 25.457141
      theta3 = 6.3016939
      phi3 = 26.665745
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 672
      chmoth = 'DCLS'
      x = 12.822158
      y = -25.532445
      z = 0
      irot = 904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 905
      theta1 = 89.86815
      phi1 = -61.132075
      theta2 = 96.300303
      phi2 = 28.853367
      theta3 = 6.3016939
      phi3 = 30.061972
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 673
      chmoth = 'DCLS'
      x = 14.312197
      y = -24.728011
      z = 0
      irot = 905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 906
      theta1 = 89.86815
      phi1 = -57.735849
      theta2 = 96.300303
      phi2 = 32.249594
      theta3 = 6.3016939
      phi3 = 33.458198
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 674
      chmoth = 'DCLS'
      x = 15.751964
      y = -23.836718
      z = 0
      irot = 906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 907
      theta1 = 89.86815
      phi1 = -54.339623
      theta2 = 96.300303
      phi2 = 35.64582
      theta3 = 6.3016939
      phi3 = 36.854425
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 675
      chmoth = 'DCLS'
      x = 17.136401
      y = -22.861698
      z = 0
      irot = 907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 908
      theta1 = 89.86815
      phi1 = -50.943396
      theta2 = 96.300303
      phi2 = 39.042047
      theta3 = 6.3016939
      phi3 = 40.250651
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 676
      chmoth = 'DCLS'
      x = 18.460646
      y = -21.806376
      z = 0
      irot = 908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 909
      theta1 = 89.86815
      phi1 = -47.54717
      theta2 = 96.300303
      phi2 = 42.438273
      theta3 = 6.3016939
      phi3 = 43.646877
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 677
      chmoth = 'DCLS'
      x = 19.720048
      y = -20.674458
      z = 0
      irot = 909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 910
      theta1 = 89.86815
      phi1 = -44.150943
      theta2 = 96.300303
      phi2 = 45.834499
      theta3 = 6.3016939
      phi3 = 47.043104
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 678
      chmoth = 'DCLS'
      x = 20.910182
      y = -19.46992
      z = 0
      irot = 910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 911
      theta1 = 89.86815
      phi1 = -40.754717
      theta2 = 96.300303
      phi2 = 49.230726
      theta3 = 6.3016939
      phi3 = 50.43933
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 679
      chmoth = 'DCLS'
      x = 22.026868
      y = -18.196993
      z = 0
      irot = 911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 912
      theta1 = 89.86815
      phi1 = -37.358491
      theta2 = 96.300303
      phi2 = 52.626952
      theta3 = 6.3016939
      phi3 = 53.835557
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 680
      chmoth = 'DCLS'
      x = 23.066185
      y = -16.860149
      z = 0
      irot = 912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 913
      theta1 = 89.86815
      phi1 = -33.962264
      theta2 = 96.300303
      phi2 = 56.023179
      theta3 = 6.3016939
      phi3 = 57.231783
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 681
      chmoth = 'DCLS'
      x = 24.02448
      y = -15.464083
      z = 0
      irot = 913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 914
      theta1 = 89.86815
      phi1 = -30.566038
      theta2 = 96.300303
      phi2 = 59.419405
      theta3 = 6.3016939
      phi3 = 60.62801
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 682
      chmoth = 'DCLS'
      x = 24.898388
      y = -14.013698
      z = 0
      irot = 914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 915
      theta1 = 89.86815
      phi1 = -27.169811
      theta2 = 96.300303
      phi2 = 62.815632
      theta3 = 6.3016939
      phi3 = 64.024236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 683
      chmoth = 'DCLS'
      x = 25.684841
      y = -12.51409
      z = 0
      irot = 915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 916
      theta1 = 89.86815
      phi1 = -23.773585
      theta2 = 96.300303
      phi2 = 66.211858
      theta3 = 6.3016939
      phi3 = 67.420462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 684
      chmoth = 'DCLS'
      x = 26.381074
      y = -10.970526
      z = 0
      irot = 916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 917
      theta1 = 89.86815
      phi1 = -20.377358
      theta2 = 96.300303
      phi2 = 69.608084
      theta3 = 6.3016939
      phi3 = 70.816689
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 685
      chmoth = 'DCLS'
      x = 26.984642
      y = -9.3884275
      z = 0
      irot = 917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 918
      theta1 = 89.86815
      phi1 = -16.981132
      theta2 = 96.300303
      phi2 = 73.004311
      theta3 = 6.3016939
      phi3 = 74.212915
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 686
      chmoth = 'DCLS'
      x = 27.493426
      y = -7.7733518
      z = 0
      irot = 918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 919
      theta1 = 89.86815
      phi1 = -13.584906
      theta2 = 96.300303
      phi2 = 76.400537
      theta3 = 6.3016939
      phi3 = 77.609142
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 687
      chmoth = 'DCLS'
      x = 27.905639
      y = -6.1309719
      z = 0
      irot = 919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 920
      theta1 = 89.86815
      phi1 = -10.188679
      theta2 = 96.300303
      phi2 = 79.796764
      theta3 = 6.3016939
      phi3 = 81.005368
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 688
      chmoth = 'DCLS'
      x = 28.219832
      y = -4.4670567
      z = 0
      irot = 920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 921
      theta1 = 89.86815
      phi1 = -6.7924528
      theta2 = 96.300303
      phi2 = 83.19299
      theta3 = 6.3016939
      phi3 = 84.401594
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 689
      chmoth = 'DCLS'
      x = 28.434901
      y = -2.7874508
      z = 0
      irot = 921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 922
      theta1 = 89.86815
      phi1 = -3.3962264
      theta2 = 96.300303
      phi2 = 86.589216
      theta3 = 6.3016939
      phi3 = 87.797821
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 690
      chmoth = 'DCLS'
      x = 28.550092
      y = -1.0980539
      z = 0
      irot = 922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 923
      theta1 = 90
      phi1 = -0.59503
      theta2 = 90
      phi2 = 89.40497
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 193
      chmoth = 'DCLS'
      x = 31.378208
      y = -0.3258817
      z = 0
      irot = 923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 924
      theta1 = 90
      phi1 = 2.331799
      theta2 = 90
      phi2 = 92.331799
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 194
      chmoth = 'DCLS'
      x = 31.353916
      y = 1.2767332
      z = 0
      irot = 924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 925
      theta1 = 90
      phi1 = 5.258628
      theta2 = 90
      phi2 = 95.258628
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 195
      chmoth = 'DCLS'
      x = 31.247826
      y = 2.8760172
      z = 0
      irot = 925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 926
      theta1 = 90
      phi1 = 8.185457
      theta2 = 90
      phi2 = 98.185457
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 196
      chmoth = 'DCLS'
      x = 31.060214
      y = 4.467798
      z = 0
      irot = 926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 927
      theta1 = 90
      phi1 = 11.112286
      theta2 = 90
      phi2 = 101.11229
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 197
      chmoth = 'DCLS'
      x = 30.79157
      y = 6.0479229
      z = 0
      irot = 927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 928
      theta1 = 90
      phi1 = 14.039115
      theta2 = 90
      phi2 = 104.03911
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 198
      chmoth = 'DCLS'
      x = 30.442593
      y = 7.6122694
      z = 0
      irot = 928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 929
      theta1 = 90
      phi1 = 16.965944
      theta2 = 90
      phi2 = 106.96594
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 199
      chmoth = 'DCLS'
      x = 30.014196
      y = 9.1567564
      z = 0
      irot = 929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 930
      theta1 = 90
      phi1 = 19.892773
      theta2 = 90
      phi2 = 109.89277
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 200
      chmoth = 'DCLS'
      x = 29.507494
      y = 10.677354
      z = 0
      irot = 930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 931
      theta1 = 90
      phi1 = 22.819602
      theta2 = 90
      phi2 = 112.8196
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 201
      chmoth = 'DCLS'
      x = 28.923812
      y = 12.170096
      z = 0
      irot = 931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 932
      theta1 = 90
      phi1 = 25.746431
      theta2 = 90
      phi2 = 115.74643
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 202
      chmoth = 'DCLS'
      x = 28.26467
      y = 13.631088
      z = 0
      irot = 932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 933
      theta1 = 90
      phi1 = 28.67326
      theta2 = 90
      phi2 = 118.67326
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 203
      chmoth = 'DCLS'
      x = 27.531789
      y = 15.056518
      z = 0
      irot = 933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 934
      theta1 = 90
      phi1 = 31.600089
      theta2 = 90
      phi2 = 121.60009
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 204
      chmoth = 'DCLS'
      x = 26.72708
      y = 16.442667
      z = 0
      irot = 934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 935
      theta1 = 90
      phi1 = 34.526918
      theta2 = 90
      phi2 = 124.52692
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 205
      chmoth = 'DCLS'
      x = 25.852644
      y = 17.785919
      z = 0
      irot = 935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 936
      theta1 = 90
      phi1 = 37.453747
      theta2 = 90
      phi2 = 127.45375
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 206
      chmoth = 'DCLS'
      x = 24.910761
      y = 19.082769
      z = 0
      irot = 936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 937
      theta1 = 90
      phi1 = 40.380576
      theta2 = 90
      phi2 = 130.38058
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 207
      chmoth = 'DCLS'
      x = 23.903889
      y = 20.329835
      z = 0
      irot = 937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 938
      theta1 = 90
      phi1 = 43.307405
      theta2 = 90
      phi2 = 133.30741
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 208
      chmoth = 'DCLS'
      x = 22.834655
      y = 21.523863
      z = 0
      irot = 938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 939
      theta1 = 90
      phi1 = 46.234234
      theta2 = 90
      phi2 = 136.23423
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 209
      chmoth = 'DCLS'
      x = 21.705847
      y = 22.661737
      z = 0
      irot = 939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 940
      theta1 = 90
      phi1 = 49.161063
      theta2 = 90
      phi2 = 139.16106
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 210
      chmoth = 'DCLS'
      x = 20.520411
      y = 23.740489
      z = 0
      irot = 940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 941
      theta1 = 90
      phi1 = 52.087892
      theta2 = 90
      phi2 = 142.08789
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 211
      chmoth = 'DCLS'
      x = 19.28144
      y = 24.757306
      z = 0
      irot = 941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 942
      theta1 = 90
      phi1 = 55.014721
      theta2 = 90
      phi2 = 145.01472
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 212
      chmoth = 'DCLS'
      x = 17.992166
      y = 25.709533
      z = 0
      irot = 942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 943
      theta1 = 90
      phi1 = 57.94155
      theta2 = 90
      phi2 = 147.94155
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 213
      chmoth = 'DCLS'
      x = 16.655953
      y = 26.594687
      z = 0
      irot = 943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 944
      theta1 = 90
      phi1 = 60.868379
      theta2 = 90
      phi2 = 150.86838
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 214
      chmoth = 'DCLS'
      x = 15.276286
      y = 27.410458
      z = 0
      irot = 944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 945
      theta1 = 90
      phi1 = 63.795208
      theta2 = 90
      phi2 = 153.79521
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 215
      chmoth = 'DCLS'
      x = 13.856764
      y = 28.154719
      z = 0
      irot = 945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 946
      theta1 = 90
      phi1 = 66.722037
      theta2 = 90
      phi2 = 156.72204
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 216
      chmoth = 'DCLS'
      x = 12.401092
      y = 28.825527
      z = 0
      irot = 946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 947
      theta1 = 90
      phi1 = 69.648866
      theta2 = 90
      phi2 = 159.64887
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 217
      chmoth = 'DCLS'
      x = 10.913067
      y = 29.421133
      z = 0
      irot = 947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 948
      theta1 = 90
      phi1 = 72.575695
      theta2 = 90
      phi2 = 162.5757
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 218
      chmoth = 'DCLS'
      x = 9.3965716
      y = 29.939983
      z = 0
      irot = 948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 949
      theta1 = 90
      phi1 = 75.502524
      theta2 = 90
      phi2 = 165.50252
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 219
      chmoth = 'DCLS'
      x = 7.8555612
      y = 30.380722
      z = 0
      irot = 949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 950
      theta1 = 90
      phi1 = 78.429353
      theta2 = 90
      phi2 = 168.42935
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 220
      chmoth = 'DCLS'
      x = 6.2940565
      y = 30.742202
      z = 0
      irot = 950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 951
      theta1 = 90
      phi1 = 81.356182
      theta2 = 90
      phi2 = 171.35618
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 221
      chmoth = 'DCLS'
      x = 4.7161313
      y = 31.023479
      z = 0
      irot = 951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 952
      theta1 = 90
      phi1 = 84.283011
      theta2 = 90
      phi2 = 174.28301
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 222
      chmoth = 'DCLS'
      x = 3.1259023
      y = 31.223819
      z = 0
      irot = 952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 953
      theta1 = 90
      phi1 = 87.20984
      theta2 = 90
      phi2 = 177.20984
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 223
      chmoth = 'DCLS'
      x = 1.5275181
      y = 31.3427
      z = 0
      irot = 953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 954
      theta1 = 90
      phi1 = 90.136669
      theta2 = 90
      phi2 = -179.86333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 224
      chmoth = 'DCLS'
      x = -0.074851159
      y = 31.379811
      z = 0
      irot = 954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 955
      theta1 = 90
      phi1 = 93.063498
      theta2 = 90
      phi2 = -176.9365
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 225
      chmoth = 'DCLS'
      x = -1.6770251
      y = 31.335056
      z = 0
      irot = 955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 956
      theta1 = 90
      phi1 = 95.990327
      theta2 = 90
      phi2 = -174.00967
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 226
      chmoth = 'DCLS'
      x = -3.274824
      y = 31.208551
      z = 0
      irot = 956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 957
      theta1 = 90
      phi1 = 98.917156
      theta2 = 90
      phi2 = -171.08284
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 227
      chmoth = 'DCLS'
      x = -4.8640791
      y = 31.000627
      z = 0
      irot = 957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 958
      theta1 = 90
      phi1 = 101.84399
      theta2 = 90
      phi2 = -168.15601
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 228
      chmoth = 'DCLS'
      x = -6.4406445
      y = 30.711825
      z = 0
      irot = 958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 959
      theta1 = 90
      phi1 = 104.77081
      theta2 = 90
      phi2 = -165.22919
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 229
      chmoth = 'DCLS'
      x = -8.000407
      y = 30.342901
      z = 0
      irot = 959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 960
      theta1 = 90
      phi1 = 107.69764
      theta2 = 90
      phi2 = -162.30236
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 230
      chmoth = 'DCLS'
      x = -9.5392973
      y = 29.894814
      z = 0
      irot = 960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 961
      theta1 = 90
      phi1 = 110.62447
      theta2 = 90
      phi2 = -159.37553
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 231
      chmoth = 'DCLS'
      x = -11.053301
      y = 29.368736
      z = 0
      irot = 961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 962
      theta1 = 90
      phi1 = 113.5513
      theta2 = 90
      phi2 = -156.4487
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 232
      chmoth = 'DCLS'
      x = -12.538467
      y = 28.766038
      z = 0
      irot = 962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 963
      theta1 = 90
      phi1 = 116.47813
      theta2 = 90
      phi2 = -153.52187
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 233
      chmoth = 'DCLS'
      x = -13.990922
      y = 28.088293
      z = 0
      irot = 963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 964
      theta1 = 90
      phi1 = 119.40496
      theta2 = 90
      phi2 = -150.59504
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 234
      chmoth = 'DCLS'
      x = -15.406877
      y = 27.337269
      z = 0
      irot = 964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 965
      theta1 = 90
      phi1 = 122.33179
      theta2 = 90
      phi2 = -147.66821
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 235
      chmoth = 'DCLS'
      x = -16.782636
      y = 26.514925
      z = 0
      irot = 965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 966
      theta1 = 90
      phi1 = 125.25862
      theta2 = 90
      phi2 = -144.74138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 236
      chmoth = 'DCLS'
      x = -18.114612
      y = 25.623406
      z = 0
      irot = 966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 967
      theta1 = 90
      phi1 = 128.18545
      theta2 = 90
      phi2 = -141.81455
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 237
      chmoth = 'DCLS'
      x = -19.399329
      y = 24.665039
      z = 0
      irot = 967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 968
      theta1 = 90
      phi1 = 131.11228
      theta2 = 90
      phi2 = -138.88772
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 238
      chmoth = 'DCLS'
      x = -20.633435
      y = 23.642324
      z = 0
      irot = 968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 969
      theta1 = 90
      phi1 = 134.0391
      theta2 = 90
      phi2 = -135.9609
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 239
      chmoth = 'DCLS'
      x = -21.813711
      y = 22.557929
      z = 0
      irot = 969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 970
      theta1 = 90
      phi1 = 136.96593
      theta2 = 90
      phi2 = -133.03407
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 240
      chmoth = 'DCLS'
      x = -22.937077
      y = 21.414682
      z = 0
      irot = 970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 971
      theta1 = 90
      phi1 = 139.89276
      theta2 = 90
      phi2 = -130.10724
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 241
      chmoth = 'DCLS'
      x = -24.000603
      y = 20.215567
      z = 0
      irot = 971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 972
      theta1 = 90
      phi1 = 142.81959
      theta2 = 90
      phi2 = -127.18041
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 242
      chmoth = 'DCLS'
      x = -25.001515
      y = 18.963712
      z = 0
      irot = 972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 973
      theta1 = 90
      phi1 = 145.74642
      theta2 = 90
      phi2 = -124.25358
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 243
      chmoth = 'DCLS'
      x = -25.9372
      y = 17.662383
      z = 0
      irot = 973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 974
      theta1 = 90
      phi1 = 148.67325
      theta2 = 90
      phi2 = -121.32675
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 244
      chmoth = 'DCLS'
      x = -26.805218
      y = 16.314975
      z = 0
      irot = 974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 975
      theta1 = 90
      phi1 = 151.60008
      theta2 = 90
      phi2 = -118.39992
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 245
      chmoth = 'DCLS'
      x = -27.603305
      y = 14.925003
      z = 0
      irot = 975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 976
      theta1 = 90
      phi1 = 154.52691
      theta2 = 90
      phi2 = -115.47309
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 246
      chmoth = 'DCLS'
      x = -28.329377
      y = 13.496093
      z = 0
      irot = 976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 977
      theta1 = 90
      phi1 = 157.45374
      theta2 = 90
      phi2 = -112.54626
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 247
      chmoth = 'DCLS'
      x = -28.981541
      y = 12.031973
      z = 0
      irot = 977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 978
      theta1 = 90
      phi1 = 160.38057
      theta2 = 90
      phi2 = -109.61943
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 248
      chmoth = 'DCLS'
      x = -29.558096
      y = 10.536464
      z = 0
      irot = 978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 979
      theta1 = 90
      phi1 = 163.30739
      theta2 = 90
      phi2 = -106.69261
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 249
      chmoth = 'DCLS'
      x = -30.057538
      y = 9.0134655
      z = 0
      irot = 979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 980
      theta1 = 90
      phi1 = 166.23422
      theta2 = 90
      phi2 = -103.76578
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 250
      chmoth = 'DCLS'
      x = -30.478562
      y = 7.4669524
      z = 0
      irot = 980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 981
      theta1 = 90
      phi1 = 169.16105
      theta2 = 90
      phi2 = -100.83895
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 251
      chmoth = 'DCLS'
      x = -30.820072
      y = 5.9009589
      z = 0
      irot = 981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 982
      theta1 = 90
      phi1 = 172.08788
      theta2 = 90
      phi2 = -97.912119
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 252
      chmoth = 'DCLS'
      x = -31.081175
      y = 4.3195704
      z = 0
      irot = 982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 983
      theta1 = 90
      phi1 = 175.01471
      theta2 = 90
      phi2 = -94.98529
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 253
      chmoth = 'DCLS'
      x = -31.261191
      y = 2.7269126
      z = 0
      irot = 983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 984
      theta1 = 90
      phi1 = 177.94154
      theta2 = 90
      phi2 = -92.058461
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 254
      chmoth = 'DCLS'
      x = -31.35965
      y = 1.1271407
      z = 0
      irot = 984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 985
      theta1 = 90
      phi1 = -179.13163
      theta2 = 90
      phi2 = -89.131632
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 255
      chmoth = 'DCLS'
      x = -31.376296
      y = -0.47557181
      z = 0
      irot = 985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 986
      theta1 = 90
      phi1 = -176.2048
      theta2 = 90
      phi2 = -86.204803
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 256
      chmoth = 'DCLS'
      x = -31.311085
      y = -2.0770436
      z = 0
      irot = 986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 987
      theta1 = 90
      phi1 = -173.27797
      theta2 = 90
      phi2 = -83.277974
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 257
      chmoth = 'DCLS'
      x = -31.164186
      y = -3.6730967
      z = 0
      irot = 987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 988
      theta1 = 90
      phi1 = -170.35114
      theta2 = 90
      phi2 = -80.351145
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 258
      chmoth = 'DCLS'
      x = -30.935984
      y = -5.259567
      z = 0
      irot = 988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 989
      theta1 = 90
      phi1 = -167.42432
      theta2 = 90
      phi2 = -77.424316
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 259
      chmoth = 'DCLS'
      x = -30.627073
      y = -6.8323158
      z = 0
      irot = 989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 990
      theta1 = 90
      phi1 = -164.49749
      theta2 = 90
      phi2 = -74.497487
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 260
      chmoth = 'DCLS'
      x = -30.238259
      y = -8.3872398
      z = 0
      irot = 990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 991
      theta1 = 90
      phi1 = -161.57066
      theta2 = 90
      phi2 = -71.570658
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 261
      chmoth = 'DCLS'
      x = -29.770558
      y = -9.9202824
      z = 0
      irot = 991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 992
      theta1 = 90
      phi1 = -158.64383
      theta2 = 90
      phi2 = -68.643829
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 262
      chmoth = 'DCLS'
      x = -29.225188
      y = -11.427444
      z = 0
      irot = 992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 993
      theta1 = 90
      phi1 = -155.717
      theta2 = 90
      phi2 = -65.717
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 263
      chmoth = 'DCLS'
      x = -28.603574
      y = -12.904793
      z = 0
      irot = 993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 994
      theta1 = 90
      phi1 = -152.79017
      theta2 = 90
      phi2 = -62.790171
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 264
      chmoth = 'DCLS'
      x = -27.907336
      y = -14.348475
      z = 0
      irot = 994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 995
      theta1 = 90
      phi1 = -149.86334
      theta2 = 90
      phi2 = -59.863342
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 265
      chmoth = 'DCLS'
      x = -27.138291
      y = -15.754723
      z = 0
      irot = 995
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 996
      theta1 = 90
      phi1 = -146.93651
      theta2 = 90
      phi2 = -56.936513
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 266
      chmoth = 'DCLS'
      x = -26.298445
      y = -17.119869
      z = 0
      irot = 996
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 997
      theta1 = 90
      phi1 = -144.00968
      theta2 = 90
      phi2 = -54.009684
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 267
      chmoth = 'DCLS'
      x = -25.389989
      y = -18.440351
      z = 0
      irot = 997
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 998
      theta1 = 90
      phi1 = -141.08285
      theta2 = 90
      phi2 = -51.082855
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 268
      chmoth = 'DCLS'
      x = -24.415294
      y = -19.712725
      z = 0
      irot = 998
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 999
      theta1 = 90
      phi1 = -138.15603
      theta2 = 90
      phi2 = -48.156026
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 269
      chmoth = 'DCLS'
      x = -23.376903
      y = -20.93367
      z = 0
      irot = 999
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1000
      theta1 = 90
      phi1 = -135.2292
      theta2 = 90
      phi2 = -45.229197
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 270
      chmoth = 'DCLS'
      x = -22.277523
      y = -22.100002
      z = 0
      irot = 1000
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1001
      theta1 = 90
      phi1 = -132.30237
      theta2 = 90
      phi2 = -42.302368
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 271
      chmoth = 'DCLS'
      x = -21.120025
      y = -23.208677
      z = 0
      irot = 1001
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1002
      theta1 = 90
      phi1 = -129.37554
      theta2 = 90
      phi2 = -39.375539
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 272
      chmoth = 'DCLS'
      x = -19.907426
      y = -24.256803
      z = 0
      irot = 1002
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1003
      theta1 = 90
      phi1 = -126.44871
      theta2 = 90
      phi2 = -36.44871
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 273
      chmoth = 'DCLS'
      x = -18.642891
      y = -25.241647
      z = 0
      irot = 1003
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1004
      theta1 = 90
      phi1 = -123.52188
      theta2 = 90
      phi2 = -33.521881
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 274
      chmoth = 'DCLS'
      x = -17.329719
      y = -26.160637
      z = 0
      irot = 1004
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1005
      theta1 = 90
      phi1 = -120.59505
      theta2 = 90
      phi2 = -30.595052
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 275
      chmoth = 'DCLS'
      x = -15.971336
      y = -27.011378
      z = 0
      irot = 1005
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1006
      theta1 = 90
      phi1 = -117.66822
      theta2 = 90
      phi2 = -27.668223
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 276
      chmoth = 'DCLS'
      x = -14.571286
      y = -27.791649
      z = 0
      irot = 1006
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1007
      theta1 = 90
      phi1 = -114.74139
      theta2 = 90
      phi2 = -24.741394
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 277
      chmoth = 'DCLS'
      x = -13.13322
      y = -28.499415
      z = 0
      irot = 1007
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1008
      theta1 = 90
      phi1 = -111.81457
      theta2 = 90
      phi2 = -21.814565
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 278
      chmoth = 'DCLS'
      x = -11.660892
      y = -29.132829
      z = 0
      irot = 1008
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1009
      theta1 = 90
      phi1 = -108.88774
      theta2 = 90
      phi2 = -18.887736
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 279
      chmoth = 'DCLS'
      x = -10.158141
      y = -29.690239
      z = 0
      irot = 1009
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1010
      theta1 = 90
      phi1 = -105.96091
      theta2 = 90
      phi2 = -15.960907
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 280
      chmoth = 'DCLS'
      x = -8.6288895
      y = -30.17019
      z = 0
      irot = 1010
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1011
      theta1 = 90
      phi1 = -103.03408
      theta2 = 90
      phi2 = -13.034078
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 281
      chmoth = 'DCLS'
      x = -7.0771259
      y = -30.571431
      z = 0
      irot = 1011
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1012
      theta1 = 90
      phi1 = -100.10725
      theta2 = 90
      phi2 = -10.107249
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 282
      chmoth = 'DCLS'
      x = -5.5068989
      y = -30.892915
      z = 0
      irot = 1012
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1013
      theta1 = 90
      phi1 = -97.18042
      theta2 = 90
      phi2 = -7.18042
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 283
      chmoth = 'DCLS'
      x = -3.922305
      y = -31.133802
      z = 0
      irot = 1013
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1014
      theta1 = 90
      phi1 = -94.253591
      theta2 = 90
      phi2 = -4.253591
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 284
      chmoth = 'DCLS'
      x = -2.3274783
      y = -31.293465
      z = 0
      irot = 1014
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1015
      theta1 = 90
      phi1 = -91.326762
      theta2 = 90
      phi2 = -1.326762
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 285
      chmoth = 'DCLS'
      x = -0.72657949
      y = -31.371487
      z = 0
      irot = 1015
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1016
      theta1 = 90
      phi1 = -88.399933
      theta2 = 90
      phi2 = 1.600067
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 286
      chmoth = 'DCLS'
      x = 0.87621491
      y = -31.367664
      z = 0
      irot = 1016
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1017
      theta1 = 90
      phi1 = -85.473104
      theta2 = 90
      phi2 = 4.526896
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 287
      chmoth = 'DCLS'
      x = 2.4767234
      y = -31.282007
      z = 0
      irot = 1017
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1018
      theta1 = 90
      phi1 = -82.546275
      theta2 = 90
      phi2 = 7.453725
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 288
      chmoth = 'DCLS'
      x = 4.0707703
      y = -31.114739
      z = 0
      irot = 1018
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1019
      theta1 = 90
      phi1 = -79.619446
      theta2 = 90
      phi2 = 10.380554
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 289
      chmoth = 'DCLS'
      x = 5.6541971
      y = -30.866295
      z = 0
      irot = 1019
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1020
      theta1 = 90
      phi1 = -76.692617
      theta2 = 90
      phi2 = 13.307383
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 290
      chmoth = 'DCLS'
      x = 7.2228728
      y = -30.537325
      z = 0
      irot = 1020
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1021
      theta1 = 90
      phi1 = -73.765788
      theta2 = 90
      phi2 = 16.234212
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 291
      chmoth = 'DCLS'
      x = 8.7727048
      y = -30.128687
      z = 0
      irot = 1021
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1022
      theta1 = 90
      phi1 = -70.838959
      theta2 = 90
      phi2 = 19.161041
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 292
      chmoth = 'DCLS'
      x = 10.29965
      y = -29.641446
      z = 0
      irot = 1022
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1023
      theta1 = 90
      phi1 = -67.91213
      theta2 = 90
      phi2 = 22.08787
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 293
      chmoth = 'DCLS'
      x = 11.799724
      y = -29.076875
      z = 0
      irot = 1023
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1024
      theta1 = 90
      phi1 = -64.985301
      theta2 = 90
      phi2 = 25.014699
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 294
      chmoth = 'DCLS'
      x = 13.269014
      y = -28.436445
      z = 0
      irot = 1024
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1025
      theta1 = 90
      phi1 = -62.058472
      theta2 = 90
      phi2 = 27.941528
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 295
      chmoth = 'DCLS'
      x = 14.703687
      y = -27.721827
      z = 0
      irot = 1025
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1026
      theta1 = 90
      phi1 = -59.131643
      theta2 = 90
      phi2 = 30.868357
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 296
      chmoth = 'DCLS'
      x = 16.1
      y = -26.934887
      z = 0
      irot = 1026
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1027
      theta1 = 90
      phi1 = -56.204814
      theta2 = 90
      phi2 = 33.795186
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 297
      chmoth = 'DCLS'
      x = 17.45431
      y = -26.077676
      z = 0
      irot = 1027
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1028
      theta1 = 90
      phi1 = -53.277985
      theta2 = 90
      phi2 = 36.722015
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 298
      chmoth = 'DCLS'
      x = 18.763083
      y = -25.152432
      z = 0
      irot = 1028
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1029
      theta1 = 90
      phi1 = -50.351156
      theta2 = 90
      phi2 = 39.648844
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 299
      chmoth = 'DCLS'
      x = 20.022906
      y = -24.161568
      z = 0
      irot = 1029
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1030
      theta1 = 90
      phi1 = -47.424327
      theta2 = 90
      phi2 = 42.575673
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 300
      chmoth = 'DCLS'
      x = 21.230491
      y = -23.107669
      z = 0
      irot = 1030
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1031
      theta1 = 90
      phi1 = -44.497498
      theta2 = 90
      phi2 = 45.502502
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 301
      chmoth = 'DCLS'
      x = 22.382688
      y = -21.993485
      z = 0
      irot = 1031
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1032
      theta1 = 90
      phi1 = -41.570669
      theta2 = 90
      phi2 = 48.429331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 302
      chmoth = 'DCLS'
      x = 23.476492
      y = -20.821923
      z = 0
      irot = 1032
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1033
      theta1 = 90
      phi1 = -38.64384
      theta2 = 90
      phi2 = 51.35616
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 303
      chmoth = 'DCLS'
      x = 24.509047
      y = -19.596038
      z = 0
      irot = 1033
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1034
      theta1 = 90
      phi1 = -35.717011
      theta2 = 90
      phi2 = 54.282989
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 304
      chmoth = 'DCLS'
      x = 25.477662
      y = -18.31903
      z = 0
      irot = 1034
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1035
      theta1 = 90
      phi1 = -32.790182
      theta2 = 90
      phi2 = 57.209818
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 305
      chmoth = 'DCLS'
      x = 26.379808
      y = -16.994229
      z = 0
      irot = 1035
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1036
      theta1 = 90
      phi1 = -29.863353
      theta2 = 90
      phi2 = 60.136647
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 306
      chmoth = 'DCLS'
      x = 27.213133
      y = -15.625093
      z = 0
      irot = 1036
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1037
      theta1 = 90
      phi1 = -26.936524
      theta2 = 90
      phi2 = 63.063476
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 307
      chmoth = 'DCLS'
      x = 27.975461
      y = -14.215192
      z = 0
      irot = 1037
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1038
      theta1 = 90
      phi1 = -24.009695
      theta2 = 90
      phi2 = 65.990305
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 308
      chmoth = 'DCLS'
      x = 28.664805
      y = -12.768206
      z = 0
      irot = 1038
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1039
      theta1 = 90
      phi1 = -21.082866
      theta2 = 90
      phi2 = 68.917134
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 309
      chmoth = 'DCLS'
      x = 29.279366
      y = -11.287909
      z = 0
      irot = 1039
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1040
      theta1 = 90
      phi1 = -18.156037
      theta2 = 90
      phi2 = 71.843963
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 310
      chmoth = 'DCLS'
      x = 29.81754
      y = -9.7781624
      z = 0
      irot = 1040
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1041
      theta1 = 90
      phi1 = -15.229208
      theta2 = 90
      phi2 = 74.770792
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 311
      chmoth = 'DCLS'
      x = 30.277923
      y = -8.2429062
      z = 0
      irot = 1041
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1042
      theta1 = 90
      phi1 = -12.302379
      theta2 = 90
      phi2 = 77.697621
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 312
      chmoth = 'DCLS'
      x = 30.659315
      y = -6.6861452
      z = 0
      irot = 1042
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1043
      theta1 = 90
      phi1 = -9.37555
      theta2 = 90
      phi2 = 80.62445
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 313
      chmoth = 'DCLS'
      x = 30.96072
      y = -5.1119409
      z = 0
      irot = 1043
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1044
      theta1 = 90
      phi1 = -6.448721
      theta2 = 90
      phi2 = 83.551279
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 314
      chmoth = 'DCLS'
      x = 31.181352
      y = -3.5244
      z = 0
      irot = 1044
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1045
      theta1 = 90
      phi1 = -3.521892
      theta2 = 90
      phi2 = 86.478108
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 315
      chmoth = 'DCLS'
      x = 31.320636
      y = -1.9276644
      z = 0
      irot = 1045
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1046
      theta1 = 90
      phi1 = 0.86857
      theta2 = 90
      phi2 = 90.86857
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 316
      chmoth = 'DCLS'
      x = 32.753836
      y = 0.49656675
      z = 0
      irot = 1046
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1047
      theta1 = 90
      phi1 = 3.795399
      theta2 = 90
      phi2 = 93.795399
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 317
      chmoth = 'DCLS'
      x = 32.685756
      y = 2.1683492
      z = 0
      irot = 1047
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1048
      theta1 = 90
      phi1 = 6.722228
      theta2 = 90
      phi2 = 96.722228
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 318
      chmoth = 'DCLS'
      x = 32.532402
      y = 3.8344746
      z = 0
      irot = 1048
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1049
      theta1 = 90
      phi1 = 9.649057
      theta2 = 90
      phi2 = 99.649057
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 319
      chmoth = 'DCLS'
      x = 32.294175
      y = 5.4905964
      z = 0
      irot = 1049
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1050
      theta1 = 90
      phi1 = 12.575886
      theta2 = 90
      phi2 = 102.57589
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 320
      chmoth = 'DCLS'
      x = 31.971696
      y = 7.1323938
      z = 0
      irot = 1050
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1051
      theta1 = 90
      phi1 = 15.502715
      theta2 = 90
      phi2 = 105.50271
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 321
      chmoth = 'DCLS'
      x = 31.565806
      y = 8.7555836
      z = 0
      irot = 1051
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1052
      theta1 = 90
      phi1 = 18.429544
      theta2 = 90
      phi2 = 108.42954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 322
      chmoth = 'DCLS'
      x = 31.077565
      y = 10.355931
      z = 0
      irot = 1052
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1053
      theta1 = 90
      phi1 = 21.356373
      theta2 = 90
      phi2 = 111.35637
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 323
      chmoth = 'DCLS'
      x = 30.508246
      y = 11.929261
      z = 0
      irot = 1053
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1054
      theta1 = 90
      phi1 = 24.283202
      theta2 = 90
      phi2 = 114.2832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 324
      chmoth = 'DCLS'
      x = 29.859335
      y = 13.471469
      z = 0
      irot = 1054
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1055
      theta1 = 90
      phi1 = 27.210031
      theta2 = 90
      phi2 = 117.21003
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 325
      chmoth = 'DCLS'
      x = 29.132524
      y = 14.978532
      z = 0
      irot = 1055
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1056
      theta1 = 90
      phi1 = 30.13686
      theta2 = 90
      phi2 = 120.13686
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 326
      chmoth = 'DCLS'
      x = 28.32971
      y = 16.446517
      z = 0
      irot = 1056
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1057
      theta1 = 90
      phi1 = 33.063689
      theta2 = 90
      phi2 = 123.06369
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 327
      chmoth = 'DCLS'
      x = 27.452986
      y = 17.871595
      z = 0
      irot = 1057
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1058
      theta1 = 90
      phi1 = 35.990518
      theta2 = 90
      phi2 = 125.99052
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 328
      chmoth = 'DCLS'
      x = 26.504641
      y = 19.250048
      z = 0
      irot = 1058
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1059
      theta1 = 90
      phi1 = 38.917347
      theta2 = 90
      phi2 = 128.91735
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 329
      chmoth = 'DCLS'
      x = 25.487149
      y = 20.57828
      z = 0
      irot = 1059
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1060
      theta1 = 90
      phi1 = 41.844176
      theta2 = 90
      phi2 = 131.84418
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 330
      chmoth = 'DCLS'
      x = 24.403163
      y = 21.852826
      z = 0
      irot = 1060
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1061
      theta1 = 90
      phi1 = 44.771005
      theta2 = 90
      phi2 = 134.77101
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 331
      chmoth = 'DCLS'
      x = 23.255512
      y = 23.07036
      z = 0
      irot = 1061
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1062
      theta1 = 90
      phi1 = 47.697834
      theta2 = 90
      phi2 = 137.69783
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 332
      chmoth = 'DCLS'
      x = 22.047191
      y = 24.227706
      z = 0
      irot = 1062
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1063
      theta1 = 90
      phi1 = 50.624663
      theta2 = 90
      phi2 = 140.62466
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 333
      chmoth = 'DCLS'
      x = 20.78135
      y = 25.321845
      z = 0
      irot = 1063
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1064
      theta1 = 90
      phi1 = 53.551492
      theta2 = 90
      phi2 = 143.55149
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 334
      chmoth = 'DCLS'
      x = 19.461294
      y = 26.349922
      z = 0
      irot = 1064
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1065
      theta1 = 90
      phi1 = 56.478321
      theta2 = 90
      phi2 = 146.47832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 335
      chmoth = 'DCLS'
      x = 18.090465
      y = 27.309255
      z = 0
      irot = 1065
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1066
      theta1 = 90
      phi1 = 59.40515
      theta2 = 90
      phi2 = 149.40515
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 336
      chmoth = 'DCLS'
      x = 16.672441
      y = 28.197342
      z = 0
      irot = 1066
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1067
      theta1 = 90
      phi1 = 62.331979
      theta2 = 90
      phi2 = 152.33198
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 337
      chmoth = 'DCLS'
      x = 15.21092
      y = 29.011865
      z = 0
      irot = 1067
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1068
      theta1 = 90
      phi1 = 65.258808
      theta2 = 90
      phi2 = 155.25881
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 338
      chmoth = 'DCLS'
      x = 13.709715
      y = 29.750699
      z = 0
      irot = 1068
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1069
      theta1 = 90
      phi1 = 68.185637
      theta2 = 90
      phi2 = 158.18564
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 339
      chmoth = 'DCLS'
      x = 12.172743
      y = 30.411917
      z = 0
      irot = 1069
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1070
      theta1 = 90
      phi1 = 71.112466
      theta2 = 90
      phi2 = 161.11247
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 340
      chmoth = 'DCLS'
      x = 10.604014
      y = 30.993794
      z = 0
      irot = 1070
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1071
      theta1 = 90
      phi1 = 74.039295
      theta2 = 90
      phi2 = 164.0393
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 341
      chmoth = 'DCLS'
      x = 9.0076204
      y = 31.494811
      z = 0
      irot = 1071
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1072
      theta1 = 90
      phi1 = 76.966124
      theta2 = 90
      phi2 = 166.96612
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 342
      chmoth = 'DCLS'
      x = 7.3877268
      y = 31.913662
      z = 0
      irot = 1072
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1073
      theta1 = 90
      phi1 = 79.892953
      theta2 = 90
      phi2 = 169.89295
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 343
      chmoth = 'DCLS'
      x = 5.7485596
      y = 32.249255
      z = 0
      irot = 1073
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1074
      theta1 = 90
      phi1 = 82.819782
      theta2 = 90
      phi2 = 172.81978
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 344
      chmoth = 'DCLS'
      x = 4.0943949
      y = 32.500712
      z = 0
      irot = 1074
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1075
      theta1 = 90
      phi1 = 85.746611
      theta2 = 90
      phi2 = 175.74661
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 345
      chmoth = 'DCLS'
      x = 2.4295485
      y = 32.667379
      z = 0
      irot = 1075
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1076
      theta1 = 90
      phi1 = 88.67344
      theta2 = 90
      phi2 = 178.67344
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 346
      chmoth = 'DCLS'
      x = 0.7583637
      y = 32.74882
      z = 0
      irot = 1076
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1077
      theta1 = 90
      phi1 = 91.600269
      theta2 = 90
      phi2 = -178.39973
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 347
      chmoth = 'DCLS'
      x = -0.91479961
      y = 32.744824
      z = 0
      irot = 1077
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1078
      theta1 = 90
      phi1 = 94.527098
      theta2 = 90
      phi2 = -175.4729
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 348
      chmoth = 'DCLS'
      x = -2.5855763
      y = 32.6554
      z = 0
      irot = 1078
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1079
      theta1 = 90
      phi1 = 97.453927
      theta2 = 90
      phi2 = -172.54607
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 349
      chmoth = 'DCLS'
      x = -4.2496075
      y = 32.480782
      z = 0
      irot = 1079
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1080
      theta1 = 90
      phi1 = 100.38076
      theta2 = 90
      phi2 = -169.61924
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 350
      chmoth = 'DCLS'
      x = -5.902552
      y = 32.221425
      z = 0
      irot = 1080
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1081
      theta1 = 90
      phi1 = 103.30759
      theta2 = 90
      phi2 = -166.69241
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 351
      chmoth = 'DCLS'
      x = -7.5400975
      y = 31.878006
      z = 0
      irot = 1081
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1082
      theta1 = 90
      phi1 = 106.23441
      theta2 = 90
      phi2 = -163.76559
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 352
      chmoth = 'DCLS'
      x = -9.1579716
      y = 31.451421
      z = 0
      irot = 1082
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1083
      theta1 = 90
      phi1 = 109.16124
      theta2 = 90
      phi2 = -160.83876
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 353
      chmoth = 'DCLS'
      x = -10.751954
      y = 30.942783
      z = 0
      irot = 1083
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1084
      theta1 = 90
      phi1 = 112.08807
      theta2 = 90
      phi2 = -157.91193
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 354
      chmoth = 'DCLS'
      x = -12.317885
      y = 30.353419
      z = 0
      irot = 1084
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1085
      theta1 = 90
      phi1 = 115.0149
      theta2 = 90
      phi2 = -154.9851
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 355
      chmoth = 'DCLS'
      x = -13.851681
      y = 29.684867
      z = 0
      irot = 1085
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1086
      theta1 = 90
      phi1 = 117.94173
      theta2 = 90
      phi2 = -152.05827
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 356
      chmoth = 'DCLS'
      x = -15.349339
      y = 28.938869
      z = 0
      irot = 1086
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1087
      theta1 = 90
      phi1 = 120.86856
      theta2 = 90
      phi2 = -149.13144
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 357
      chmoth = 'DCLS'
      x = -16.806952
      y = 28.117374
      z = 0
      irot = 1087
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1088
      theta1 = 90
      phi1 = 123.79539
      theta2 = 90
      phi2 = -146.20461
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 358
      chmoth = 'DCLS'
      x = -18.220718
      y = 27.222524
      z = 0
      irot = 1088
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1089
      theta1 = 90
      phi1 = 126.72222
      theta2 = 90
      phi2 = -143.27778
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 359
      chmoth = 'DCLS'
      x = -19.586948
      y = 26.256653
      z = 0
      irot = 1089
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1090
      theta1 = 90
      phi1 = 129.64905
      theta2 = 90
      phi2 = -140.35095
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 360
      chmoth = 'DCLS'
      x = -20.902078
      y = 25.222281
      z = 0
      irot = 1090
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1091
      theta1 = 90
      phi1 = 132.57588
      theta2 = 90
      phi2 = -137.42412
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 361
      chmoth = 'DCLS'
      x = -22.162677
      y = 24.122108
      z = 0
      irot = 1091
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1092
      theta1 = 90
      phi1 = 135.5027
      theta2 = 90
      phi2 = -134.4973
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 362
      chmoth = 'DCLS'
      x = -23.365456
      y = 22.959003
      z = 0
      irot = 1092
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1093
      theta1 = 90
      phi1 = 138.42953
      theta2 = 90
      phi2 = -131.57047
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 363
      chmoth = 'DCLS'
      x = -24.507278
      y = 21.736
      z = 0
      irot = 1093
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1094
      theta1 = 90
      phi1 = 141.35636
      theta2 = 90
      phi2 = -128.64364
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 364
      chmoth = 'DCLS'
      x = -25.585162
      y = 20.456291
      z = 0
      irot = 1094
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1095
      theta1 = 90
      phi1 = 144.28319
      theta2 = 90
      phi2 = -125.71681
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 365
      chmoth = 'DCLS'
      x = -26.596298
      y = 19.123213
      z = 0
      irot = 1095
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1096
      theta1 = 90
      phi1 = 147.21002
      theta2 = 90
      phi2 = -122.78998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 366
      chmoth = 'DCLS'
      x = -27.538047
      y = 17.740245
      z = 0
      irot = 1096
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1097
      theta1 = 90
      phi1 = 150.13685
      theta2 = 90
      phi2 = -119.86315
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 367
      chmoth = 'DCLS'
      x = -28.407953
      y = 16.310995
      z = 0
      irot = 1097
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1098
      theta1 = 90
      phi1 = 153.06368
      theta2 = 90
      phi2 = -116.93632
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 368
      chmoth = 'DCLS'
      x = -29.203745
      y = 14.839192
      z = 0
      irot = 1098
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1099
      theta1 = 90
      phi1 = 155.99051
      theta2 = 90
      phi2 = -114.00949
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 369
      chmoth = 'DCLS'
      x = -29.923349
      y = 13.328674
      z = 0
      irot = 1099
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1100
      theta1 = 90
      phi1 = 158.91734
      theta2 = 90
      phi2 = -111.08266
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 370
      chmoth = 'DCLS'
      x = -30.564885
      y = 11.783384
      z = 0
      irot = 1100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1101
      theta1 = 90
      phi1 = 161.84417
      theta2 = 90
      phi2 = -108.15583
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 371
      chmoth = 'DCLS'
      x = -31.126682
      y = 10.207352
      z = 0
      irot = 1101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1102
      theta1 = 90
      phi1 = 164.77099
      theta2 = 90
      phi2 = -105.22901
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 372
      chmoth = 'DCLS'
      x = -31.607272
      y = 8.6046905
      z = 0
      irot = 1102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1103
      theta1 = 90
      phi1 = 167.69782
      theta2 = 90
      phi2 = -102.30218
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 373
      chmoth = 'DCLS'
      x = -32.005403
      y = 6.9795803
      z = 0
      irot = 1103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1104
      theta1 = 90
      phi1 = 170.62465
      theta2 = 90
      phi2 = -99.375348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 374
      chmoth = 'DCLS'
      x = -32.320035
      y = 5.3362611
      z = 0
      irot = 1104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1105
      theta1 = 90
      phi1 = 173.55148
      theta2 = 90
      phi2 = -96.448519
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 375
      chmoth = 'DCLS'
      x = -32.550348
      y = 3.6790202
      z = 0
      irot = 1105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1106
      theta1 = 90
      phi1 = 176.47831
      theta2 = 90
      phi2 = -93.52169
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 376
      chmoth = 'DCLS'
      x = -32.695741
      y = 2.0121811
      z = 0
      irot = 1106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1107
      theta1 = 90
      phi1 = 179.40514
      theta2 = 90
      phi2 = -90.594861
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 377
      chmoth = 'DCLS'
      x = -32.755835
      y = 0.34009257
      z = 0
      irot = 1107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1108
      theta1 = 90
      phi1 = -177.66803
      theta2 = 90
      phi2 = -87.668032
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 378
      chmoth = 'DCLS'
      x = -32.730472
      y = -1.3328833
      z = 0
      irot = 1108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1109
      theta1 = 90
      phi1 = -174.7412
      theta2 = 90
      phi2 = -84.741203
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 379
      chmoth = 'DCLS'
      x = -32.619719
      y = -3.0023818
      z = 0
      irot = 1109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1110
      theta1 = 90
      phi1 = -171.81437
      theta2 = 90
      phi2 = -81.814374
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 380
      chmoth = 'DCLS'
      x = -32.423865
      y = -4.6640474
      z = 0
      irot = 1110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1111
      theta1 = 90
      phi1 = -168.88754
      theta2 = 90
      phi2 = -78.887545
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 381
      chmoth = 'DCLS'
      x = -32.143421
      y = -6.3135451
      z = 0
      irot = 1111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1112
      theta1 = 90
      phi1 = -165.96072
      theta2 = 90
      phi2 = -75.960716
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 382
      chmoth = 'DCLS'
      x = -31.779118
      y = -7.9465714
      z = 0
      irot = 1112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1113
      theta1 = 90
      phi1 = -163.03389
      theta2 = 90
      phi2 = -73.033887
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 383
      chmoth = 'DCLS'
      x = -31.331908
      y = -9.5588661
      z = 0
      irot = 1113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1114
      theta1 = 90
      phi1 = -160.10706
      theta2 = 90
      phi2 = -70.107058
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 384
      chmoth = 'DCLS'
      x = -30.802956
      y = -11.146223
      z = 0
      irot = 1114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1115
      theta1 = 90
      phi1 = -157.18023
      theta2 = 90
      phi2 = -67.180229
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 385
      chmoth = 'DCLS'
      x = -30.193642
      y = -12.7045
      z = 0
      irot = 1115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1116
      theta1 = 90
      phi1 = -154.2534
      theta2 = 90
      phi2 = -64.2534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 386
      chmoth = 'DCLS'
      x = -29.505557
      y = -14.229633
      z = 0
      irot = 1116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1117
      theta1 = 90
      phi1 = -151.32657
      theta2 = 90
      phi2 = -61.326571
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 387
      chmoth = 'DCLS'
      x = -28.740495
      y = -15.717642
      z = 0
      irot = 1117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1118
      theta1 = 90
      phi1 = -148.39974
      theta2 = 90
      phi2 = -58.399742
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 388
      chmoth = 'DCLS'
      x = -27.900453
      y = -17.164646
      z = 0
      irot = 1118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1119
      theta1 = 90
      phi1 = -145.47291
      theta2 = 90
      phi2 = -55.472913
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 389
      chmoth = 'DCLS'
      x = -26.987621
      y = -18.56687
      z = 0
      irot = 1119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1120
      theta1 = 90
      phi1 = -142.54608
      theta2 = 90
      phi2 = -52.546084
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 390
      chmoth = 'DCLS'
      x = -26.004382
      y = -19.920654
      z = 0
      irot = 1120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1121
      theta1 = 90
      phi1 = -139.61925
      theta2 = 90
      phi2 = -49.619255
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 391
      chmoth = 'DCLS'
      x = -24.953301
      y = -21.222468
      z = 0
      irot = 1121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1122
      theta1 = 90
      phi1 = -136.69243
      theta2 = 90
      phi2 = -46.692426
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 392
      chmoth = 'DCLS'
      x = -23.837119
      y = -22.468915
      z = 0
      irot = 1122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1123
      theta1 = 90
      phi1 = -133.7656
      theta2 = 90
      phi2 = -43.765597
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 393
      chmoth = 'DCLS'
      x = -22.658749
      y = -23.656742
      z = 0
      irot = 1123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1124
      theta1 = 90
      phi1 = -130.83877
      theta2 = 90
      phi2 = -40.838768
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 394
      chmoth = 'DCLS'
      x = -21.421264
      y = -24.782853
      z = 0
      irot = 1124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1125
      theta1 = 90
      phi1 = -127.91194
      theta2 = 90
      phi2 = -37.911939
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 395
      chmoth = 'DCLS'
      x = -20.127895
      y = -25.844307
      z = 0
      irot = 1125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1126
      theta1 = 90
      phi1 = -124.98511
      theta2 = 90
      phi2 = -34.98511
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 396
      chmoth = 'DCLS'
      x = -18.782013
      y = -26.838337
      z = 0
      irot = 1126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1127
      theta1 = 90
      phi1 = -122.05828
      theta2 = 90
      phi2 = -32.058281
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 397
      chmoth = 'DCLS'
      x = -17.387132
      y = -27.762349
      z = 0
      irot = 1127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1128
      theta1 = 90
      phi1 = -119.13145
      theta2 = 90
      phi2 = -29.131452
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 398
      chmoth = 'DCLS'
      x = -15.94689
      y = -28.613931
      z = 0
      irot = 1128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1129
      theta1 = 90
      phi1 = -116.20462
      theta2 = 90
      phi2 = -26.204623
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 399
      chmoth = 'DCLS'
      x = -14.465044
      y = -29.390864
      z = 0
      irot = 1129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1130
      theta1 = 90
      phi1 = -113.27779
      theta2 = 90
      phi2 = -23.277794
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 400
      chmoth = 'DCLS'
      x = -12.94546
      y = -30.091119
      z = 0
      irot = 1130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1131
      theta1 = 90
      phi1 = -110.35097
      theta2 = 90
      phi2 = -20.350965
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 401
      chmoth = 'DCLS'
      x = -11.392103
      y = -30.712869
      z = 0
      irot = 1131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1132
      theta1 = 90
      phi1 = -107.42414
      theta2 = 90
      phi2 = -17.424136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 402
      chmoth = 'DCLS'
      x = -9.8090256
      y = -31.254494
      z = 0
      irot = 1132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1133
      theta1 = 90
      phi1 = -104.49731
      theta2 = 90
      phi2 = -14.497307
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 403
      chmoth = 'DCLS'
      x = -8.2003574
      y = -31.714579
      z = 0
      irot = 1133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1134
      theta1 = 90
      phi1 = -101.57048
      theta2 = 90
      phi2 = -11.570478
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 404
      chmoth = 'DCLS'
      x = -6.5702954
      y = -32.091924
      z = 0
      irot = 1134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1135
      theta1 = 90
      phi1 = -98.643649
      theta2 = 90
      phi2 = -8.643649
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 405
      chmoth = 'DCLS'
      x = -4.9230923
      y = -32.385545
      z = 0
      irot = 1135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1136
      theta1 = 90
      phi1 = -95.71682
      theta2 = 90
      phi2 = -5.71682
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 406
      chmoth = 'DCLS'
      x = -3.2630454
      y = -32.594676
      z = 0
      irot = 1136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1137
      theta1 = 90
      phi1 = -92.789991
      theta2 = 90
      phi2 = -2.789991
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 407
      chmoth = 'DCLS'
      x = -1.5944856
      y = -32.718771
      z = 0
      irot = 1137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1138
      theta1 = 90
      phi1 = -89.863162
      theta2 = 90
      phi2 = 0.136838
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 408
      chmoth = 'DCLS'
      x = 0.078234038
      y = -32.757507
      z = 0
      irot = 1138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1139
      theta1 = 90
      phi1 = -86.936333
      theta2 = 90
      phi2 = 3.063667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 409
      chmoth = 'DCLS'
      x = 1.7507496
      y = -32.710782
      z = 0
      irot = 1139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1140
      theta1 = 90
      phi1 = -84.009504
      theta2 = 90
      phi2 = 5.990496
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 410
      chmoth = 'DCLS'
      x = 3.4186976
      y = -32.578718
      z = 0
      irot = 1140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1141
      theta1 = 90
      phi1 = -81.082675
      theta2 = 90
      phi2 = 8.917325
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 411
      chmoth = 'DCLS'
      x = 5.0777266
      y = -32.36166
      z = 0
      irot = 1141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1142
      theta1 = 90
      phi1 = -78.155846
      theta2 = 90
      phi2 = 11.844154
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 412
      chmoth = 'DCLS'
      x = 6.7235085
      y = -32.060175
      z = 0
      irot = 1142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1143
      theta1 = 90
      phi1 = -75.229017
      theta2 = 90
      phi2 = 14.770983
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 413
      chmoth = 'DCLS'
      x = 8.3517495
      y = -31.675048
      z = 0
      irot = 1143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1144
      theta1 = 90
      phi1 = -72.302188
      theta2 = 90
      phi2 = 17.697812
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 414
      chmoth = 'DCLS'
      x = 9.9582017
      y = -31.207284
      z = 0
      irot = 1144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1145
      theta1 = 90
      phi1 = -69.375359
      theta2 = 90
      phi2 = 20.624641
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 415
      chmoth = 'DCLS'
      x = 11.538674
      y = -30.658104
      z = 0
      irot = 1145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1146
      theta1 = 90
      phi1 = -66.44853
      theta2 = 90
      phi2 = 23.55147
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 416
      chmoth = 'DCLS'
      x = 13.089043
      y = -30.028941
      z = 0
      irot = 1146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1147
      theta1 = 90
      phi1 = -63.521701
      theta2 = 90
      phi2 = 26.478299
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 417
      chmoth = 'DCLS'
      x = 14.605265
      y = -29.321436
      z = 0
      irot = 1147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1148
      theta1 = 90
      phi1 = -60.594872
      theta2 = 90
      phi2 = 29.405128
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 418
      chmoth = 'DCLS'
      x = 16.083383
      y = -28.537434
      z = 0
      irot = 1148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1149
      theta1 = 90
      phi1 = -57.668043
      theta2 = 90
      phi2 = 32.331957
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 419
      chmoth = 'DCLS'
      x = 17.519541
      y = -27.678982
      z = 0
      irot = 1149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1150
      theta1 = 90
      phi1 = -54.741214
      theta2 = 90
      phi2 = 35.258786
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 420
      chmoth = 'DCLS'
      x = 18.909993
      y = -26.748318
      z = 0
      irot = 1150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1151
      theta1 = 90
      phi1 = -51.814385
      theta2 = 90
      phi2 = 38.185615
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 421
      chmoth = 'DCLS'
      x = 20.251111
      y = -25.747871
      z = 0
      irot = 1151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1152
      theta1 = 90
      phi1 = -48.887556
      theta2 = 90
      phi2 = 41.112444
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 422
      chmoth = 'DCLS'
      x = 21.539396
      y = -24.680251
      z = 0
      irot = 1152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1153
      theta1 = 90
      phi1 = -45.960727
      theta2 = 90
      phi2 = 44.039273
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 423
      chmoth = 'DCLS'
      x = 22.771487
      y = -23.548242
      z = 0
      irot = 1153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1154
      theta1 = 90
      phi1 = -43.033898
      theta2 = 90
      phi2 = 46.966102
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 424
      chmoth = 'DCLS'
      x = 23.94417
      y = -22.3548
      z = 0
      irot = 1154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1155
      theta1 = 90
      phi1 = -40.107069
      theta2 = 90
      phi2 = 49.892931
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 425
      chmoth = 'DCLS'
      x = 25.054386
      y = -21.103036
      z = 0
      irot = 1155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1156
      theta1 = 90
      phi1 = -37.18024
      theta2 = 90
      phi2 = 52.81976
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 426
      chmoth = 'DCLS'
      x = 26.099237
      y = -19.796216
      z = 0
      irot = 1156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1157
      theta1 = 90
      phi1 = -34.253411
      theta2 = 90
      phi2 = 55.746589
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 427
      chmoth = 'DCLS'
      x = 27.075999
      y = -18.437751
      z = 0
      irot = 1157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1158
      theta1 = 90
      phi1 = -31.326582
      theta2 = 90
      phi2 = 58.673418
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 428
      chmoth = 'DCLS'
      x = 27.982122
      y = -17.031183
      z = 0
      irot = 1158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1159
      theta1 = 90
      phi1 = -28.399753
      theta2 = 90
      phi2 = 61.600247
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 429
      chmoth = 'DCLS'
      x = 28.815243
      y = -15.580183
      z = 0
      irot = 1159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1160
      theta1 = 90
      phi1 = -25.472924
      theta2 = 90
      phi2 = 64.527076
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 430
      chmoth = 'DCLS'
      x = 29.573189
      y = -14.088537
      z = 0
      irot = 1160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1161
      theta1 = 90
      phi1 = -22.546095
      theta2 = 90
      phi2 = 67.453905
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 431
      chmoth = 'DCLS'
      x = 30.253981
      y = -12.560134
      z = 0
      irot = 1161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1162
      theta1 = 90
      phi1 = -19.619266
      theta2 = 90
      phi2 = 70.380734
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 432
      chmoth = 'DCLS'
      x = 30.855845
      y = -10.998964
      z = 0
      irot = 1162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1163
      theta1 = 90
      phi1 = -16.692437
      theta2 = 90
      phi2 = 73.307563
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 433
      chmoth = 'DCLS'
      x = 31.377208
      y = -9.4090993
      z = 0
      irot = 1163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1164
      theta1 = 90
      phi1 = -13.765608
      theta2 = 90
      phi2 = 76.234392
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 434
      chmoth = 'DCLS'
      x = 31.816713
      y = -7.7946869
      z = 0
      irot = 1164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1165
      theta1 = 90
      phi1 = -10.838779
      theta2 = 90
      phi2 = 79.161221
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 435
      chmoth = 'DCLS'
      x = 32.173211
      y = -6.1599391
      z = 0
      irot = 1165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1166
      theta1 = 90
      phi1 = -7.91195
      theta2 = 90
      phi2 = 82.08805
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 436
      chmoth = 'DCLS'
      x = 32.445773
      y = -4.5091207
      z = 0
      irot = 1166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1167
      theta1 = 90
      phi1 = -4.985121
      theta2 = 90
      phi2 = 85.014879
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 437
      chmoth = 'DCLS'
      x = 32.633688
      y = -2.8465385
      z = 0
      irot = 1167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1168
      theta1 = 90
      phi1 = -2.058292
      theta2 = 90
      phi2 = 87.941708
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 438
      chmoth = 'DCLS'
      x = 32.736465
      y = -1.17653
      z = 0
      irot = 1168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1169
      theta1 = 90
      phi1 = 0.38671
      theta2 = 90
      phi2 = 90.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 439
      chmoth = 'DCLS'
      x = 34.433516
      y = 0.23240782
      z = 0
      irot = 1169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1170
      theta1 = 90
      phi1 = 3.0533767
      theta2 = 90
      phi2 = 93.053377
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 440
      chmoth = 'DCLS'
      x = 34.385415
      y = 1.8341862
      z = 0
      irot = 1170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1171
      theta1 = 90
      phi1 = 5.7200434
      theta2 = 90
      phi2 = 95.720043
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 441
      chmoth = 'DCLS'
      x = 34.262844
      y = 3.4319922
      z = 0
      irot = 1171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1172
      theta1 = 90
      phi1 = 8.3867101
      theta2 = 90
      phi2 = 98.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 442
      chmoth = 'DCLS'
      x = 34.066066
      y = 5.0223653
      z = 0
      irot = 1172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1173
      theta1 = 90
      phi1 = 11.053377
      theta2 = 90
      phi2 = 101.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 443
      chmoth = 'DCLS'
      x = 33.795509
      y = 6.601861
      z = 0
      irot = 1173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1174
      theta1 = 90
      phi1 = 13.720044
      theta2 = 90
      phi2 = 103.72004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 444
      chmoth = 'DCLS'
      x = 33.451759
      y = 8.1670585
      z = 0
      irot = 1174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1175
      theta1 = 90
      phi1 = 16.38671
      theta2 = 90
      phi2 = 106.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 445
      chmoth = 'DCLS'
      x = 33.035559
      y = 9.7145681
      z = 0
      irot = 1175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1176
      theta1 = 90
      phi1 = 19.053377
      theta2 = 90
      phi2 = 109.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 446
      chmoth = 'DCLS'
      x = 32.547812
      y = 11.241038
      z = 0
      irot = 1176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1177
      theta1 = 90
      phi1 = 21.720044
      theta2 = 90
      phi2 = 111.72004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 447
      chmoth = 'DCLS'
      x = 31.989574
      y = 12.743162
      z = 0
      irot = 1177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1178
      theta1 = 90
      phi1 = 24.38671
      theta2 = 90
      phi2 = 114.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 448
      chmoth = 'DCLS'
      x = 31.362053
      y = 14.217688
      z = 0
      irot = 1178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1179
      theta1 = 90
      phi1 = 27.053377
      theta2 = 90
      phi2 = 117.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 449
      chmoth = 'DCLS'
      x = 30.666609
      y = 15.661421
      z = 0
      irot = 1179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1180
      theta1 = 90
      phi1 = 29.720044
      theta2 = 90
      phi2 = 119.72004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 450
      chmoth = 'DCLS'
      x = 29.904748
      y = 17.071235
      z = 0
      irot = 1180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1181
      theta1 = 90
      phi1 = 32.38671
      theta2 = 90
      phi2 = 122.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 451
      chmoth = 'DCLS'
      x = 29.07812
      y = 18.444077
      z = 0
      irot = 1181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1182
      theta1 = 90
      phi1 = 35.053377
      theta2 = 90
      phi2 = 125.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 452
      chmoth = 'DCLS'
      x = 28.188515
      y = 19.776972
      z = 0
      irot = 1182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1183
      theta1 = 90
      phi1 = 37.720044
      theta2 = 90
      phi2 = 127.72004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 453
      chmoth = 'DCLS'
      x = 27.23786
      y = 21.067035
      z = 0
      irot = 1183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1184
      theta1 = 90
      phi1 = 40.386711
      theta2 = 90
      phi2 = 130.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 454
      chmoth = 'DCLS'
      x = 26.228214
      y = 22.311472
      z = 0
      irot = 1184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1185
      theta1 = 90
      phi1 = 43.053377
      theta2 = 90
      phi2 = 133.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 455
      chmoth = 'DCLS'
      x = 25.161764
      y = 23.507587
      z = 0
      irot = 1185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1186
      theta1 = 90
      phi1 = 45.720044
      theta2 = 90
      phi2 = 135.72004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 456
      chmoth = 'DCLS'
      x = 24.040819
      y = 24.65279
      z = 0
      irot = 1186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1187
      theta1 = 90
      phi1 = 48.386711
      theta2 = 90
      phi2 = 138.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 457
      chmoth = 'DCLS'
      x = 22.867806
      y = 25.7446
      z = 0
      irot = 1187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1188
      theta1 = 90
      phi1 = 51.053377
      theta2 = 90
      phi2 = 141.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 458
      chmoth = 'DCLS'
      x = 21.645267
      y = 26.780654
      z = 0
      irot = 1188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1189
      theta1 = 90
      phi1 = 53.720044
      theta2 = 90
      phi2 = 143.72004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 459
      chmoth = 'DCLS'
      x = 20.37585
      y = 27.758706
      z = 0
      irot = 1189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1190
      theta1 = 90
      phi1 = 56.386711
      theta2 = 90
      phi2 = 146.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 460
      chmoth = 'DCLS'
      x = 19.062302
      y = 28.676639
      z = 0
      irot = 1190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1191
      theta1 = 90
      phi1 = 59.053377
      theta2 = 90
      phi2 = 149.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 461
      chmoth = 'DCLS'
      x = 17.70747
      y = 29.532465
      z = 0
      irot = 1191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1192
      theta1 = 90
      phi1 = 61.720044
      theta2 = 90
      phi2 = 151.72004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 462
      chmoth = 'DCLS'
      x = 16.314288
      y = 30.324331
      z = 0
      irot = 1192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1193
      theta1 = 90
      phi1 = 64.386711
      theta2 = 90
      phi2 = 154.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 463
      chmoth = 'DCLS'
      x = 14.885773
      y = 31.05052
      z = 0
      irot = 1193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1194
      theta1 = 90
      phi1 = 67.053377
      theta2 = 90
      phi2 = 157.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 464
      chmoth = 'DCLS'
      x = 13.425018
      y = 31.709461
      z = 0
      irot = 1194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1195
      theta1 = 90
      phi1 = 69.720044
      theta2 = 90
      phi2 = 159.72004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 465
      chmoth = 'DCLS'
      x = 11.935187
      y = 32.299726
      z = 0
      irot = 1195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1196
      theta1 = 90
      phi1 = 72.386711
      theta2 = 90
      phi2 = 162.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 466
      chmoth = 'DCLS'
      x = 10.419508
      y = 32.820038
      z = 0
      irot = 1196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1197
      theta1 = 90
      phi1 = 75.053378
      theta2 = 90
      phi2 = 165.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 467
      chmoth = 'DCLS'
      x = 8.8812624
      y = 33.269268
      z = 0
      irot = 1197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1198
      theta1 = 90
      phi1 = 77.720044
      theta2 = 90
      phi2 = 167.72004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 468
      chmoth = 'DCLS'
      x = 7.3237818
      y = 33.646445
      z = 0
      irot = 1198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1199
      theta1 = 90
      phi1 = 80.386711
      theta2 = 90
      phi2 = 170.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 469
      chmoth = 'DCLS'
      x = 5.7504396
      y = 33.950751
      z = 0
      irot = 1199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1200
      theta1 = 90
      phi1 = 83.053378
      theta2 = 90
      phi2 = 173.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 470
      chmoth = 'DCLS'
      x = 4.1646433
      y = 34.181527
      z = 0
      irot = 1200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1201
      theta1 = 90
      phi1 = 85.720044
      theta2 = 90
      phi2 = 175.72004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 471
      chmoth = 'DCLS'
      x = 2.5698272
      y = 34.338273
      z = 0
      irot = 1201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1202
      theta1 = 90
      phi1 = 88.386711
      theta2 = 90
      phi2 = 178.38671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 472
      chmoth = 'DCLS'
      x = 0.96944547
      y = 34.420651
      z = 0
      irot = 1202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1203
      theta1 = 90
      phi1 = 91.053378
      theta2 = 90
      phi2 = -178.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 473
      chmoth = 'DCLS'
      x = -0.63303587
      y = 34.428481
      z = 0
      irot = 1203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1204
      theta1 = 90
      phi1 = 93.720044
      theta2 = 90
      phi2 = -176.27996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 474
      chmoth = 'DCLS'
      x = -2.2341462
      y = 34.361746
      z = 0
      irot = 1204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1205
      theta1 = 90
      phi1 = 96.386711
      theta2 = 90
      phi2 = -173.61329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 475
      chmoth = 'DCLS'
      x = -3.8304179
      y = 34.220592
      z = 0
      irot = 1205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1206
      theta1 = 90
      phi1 = 99.053378
      theta2 = 90
      phi2 = -170.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 476
      chmoth = 'DCLS'
      x = -5.4183937
      y = 34.005323
      z = 0
      irot = 1206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1207
      theta1 = 90
      phi1 = 101.72004
      theta2 = 90
      phi2 = -168.27996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 477
      chmoth = 'DCLS'
      x = -6.9946345
      y = 33.716407
      z = 0
      irot = 1207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1208
      theta1 = 90
      phi1 = 104.38671
      theta2 = 90
      phi2 = -165.61329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 478
      chmoth = 'DCLS'
      x = -8.5557265
      y = 33.354468
      z = 0
      irot = 1208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1209
      theta1 = 90
      phi1 = 107.05338
      theta2 = 90
      phi2 = -162.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 479
      chmoth = 'DCLS'
      x = -10.098289
      y = 32.920291
      z = 0
      irot = 1209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1210
      theta1 = 90
      phi1 = 109.72004
      theta2 = 90
      phi2 = -160.27996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 480
      chmoth = 'DCLS'
      x = -11.61898
      y = 32.414816
      z = 0
      irot = 1210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1211
      theta1 = 90
      phi1 = 112.38671
      theta2 = 90
      phi2 = -157.61329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 481
      chmoth = 'DCLS'
      x = -13.114508
      y = 31.839138
      z = 0
      irot = 1211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1212
      theta1 = 90
      phi1 = 115.05338
      theta2 = 90
      phi2 = -154.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 482
      chmoth = 'DCLS'
      x = -14.581632
      y = 31.194503
      z = 0
      irot = 1212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1213
      theta1 = 90
      phi1 = 117.72004
      theta2 = 90
      phi2 = -152.27996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 483
      chmoth = 'DCLS'
      x = -16.017176
      y = 30.482308
      z = 0
      irot = 1213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1214
      theta1 = 90
      phi1 = 120.38671
      theta2 = 90
      phi2 = -149.61329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 484
      chmoth = 'DCLS'
      x = -17.41803
      y = 29.704095
      z = 0
      irot = 1214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1215
      theta1 = 90
      phi1 = 123.05338
      theta2 = 90
      phi2 = -146.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 485
      chmoth = 'DCLS'
      x = -18.78116
      y = 28.861549
      z = 0
      irot = 1215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1216
      theta1 = 90
      phi1 = 125.72004
      theta2 = 90
      phi2 = -144.27996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 486
      chmoth = 'DCLS'
      x = -20.103615
      y = 27.956496
      z = 0
      irot = 1216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1217
      theta1 = 90
      phi1 = 128.38671
      theta2 = 90
      phi2 = -141.61329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 487
      chmoth = 'DCLS'
      x = -21.38253
      y = 26.990896
      z = 0
      irot = 1217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1218
      theta1 = 90
      phi1 = 131.05338
      theta2 = 90
      phi2 = -138.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 488
      chmoth = 'DCLS'
      x = -22.615135
      y = 25.966838
      z = 0
      irot = 1218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1219
      theta1 = 90
      phi1 = 133.72004
      theta2 = 90
      phi2 = -136.27996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 489
      chmoth = 'DCLS'
      x = -23.79876
      y = 24.886543
      z = 0
      irot = 1219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1220
      theta1 = 90
      phi1 = 136.38671
      theta2 = 90
      phi2 = -133.61329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 490
      chmoth = 'DCLS'
      x = -24.930843
      y = 23.752349
      z = 0
      irot = 1220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1221
      theta1 = 90
      phi1 = 139.05338
      theta2 = 90
      phi2 = -130.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 491
      chmoth = 'DCLS'
      x = -26.008931
      y = 22.566713
      z = 0
      irot = 1221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1222
      theta1 = 90
      phi1 = 141.72005
      theta2 = 90
      phi2 = -128.27995
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 492
      chmoth = 'DCLS'
      x = -27.03069
      y = 21.332202
      z = 0
      irot = 1222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1223
      theta1 = 90
      phi1 = 144.38671
      theta2 = 90
      phi2 = -125.61329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 493
      chmoth = 'DCLS'
      x = -27.993906
      y = 20.05149
      z = 0
      irot = 1223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1224
      theta1 = 90
      phi1 = 147.05338
      theta2 = 90
      phi2 = -122.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 494
      chmoth = 'DCLS'
      x = -28.896493
      y = 18.727351
      z = 0
      irot = 1224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1225
      theta1 = 90
      phi1 = 149.72005
      theta2 = 90
      phi2 = -120.27995
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 495
      chmoth = 'DCLS'
      x = -29.736498
      y = 17.362653
      z = 0
      irot = 1225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1226
      theta1 = 90
      phi1 = 152.38671
      theta2 = 90
      phi2 = -117.61329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 496
      chmoth = 'DCLS'
      x = -30.512099
      y = 15.960351
      z = 0
      irot = 1226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1227
      theta1 = 90
      phi1 = 155.05338
      theta2 = 90
      phi2 = -114.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 497
      chmoth = 'DCLS'
      x = -31.221618
      y = 14.523483
      z = 0
      irot = 1227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1228
      theta1 = 90
      phi1 = 157.72005
      theta2 = 90
      phi2 = -112.27995
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 498
      chmoth = 'DCLS'
      x = -31.863518
      y = 13.05516
      z = 0
      irot = 1228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1229
      theta1 = 90
      phi1 = 160.38671
      theta2 = 90
      phi2 = -109.61329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 499
      chmoth = 'DCLS'
      x = -32.436409
      y = 11.558563
      z = 0
      irot = 1229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1230
      theta1 = 90
      phi1 = 163.05338
      theta2 = 90
      phi2 = -106.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 500
      chmoth = 'DCLS'
      x = -32.93905
      y = 10.036932
      z = 0
      irot = 1230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1231
      theta1 = 90
      phi1 = 165.72005
      theta2 = 90
      phi2 = -104.27995
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 501
      chmoth = 'DCLS'
      x = -33.370352
      y = 8.4935637
      z = 0
      irot = 1231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1232
      theta1 = 90
      phi1 = 168.38671
      theta2 = 90
      phi2 = -101.61329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 502
      chmoth = 'DCLS'
      x = -33.729381
      y = 6.9318001
      z = 0
      irot = 1232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1233
      theta1 = 90
      phi1 = 171.05338
      theta2 = 90
      phi2 = -98.946621
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 503
      chmoth = 'DCLS'
      x = -34.01536
      y = 5.3550237
      z = 0
      irot = 1233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1234
      theta1 = 90
      phi1 = 173.72005
      theta2 = 90
      phi2 = -96.279955
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 504
      chmoth = 'DCLS'
      x = -34.22767
      y = 3.7666495
      z = 0
      irot = 1234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1235
      theta1 = 90
      phi1 = 176.38671
      theta2 = 90
      phi2 = -93.613288
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 505
      chmoth = 'DCLS'
      x = -34.365849
      y = 2.1701176
      z = 0
      irot = 1235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1236
      theta1 = 90
      phi1 = 179.05338
      theta2 = 90
      phi2 = -90.946621
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 506
      chmoth = 'DCLS'
      x = -34.4296
      y = 0.56888574
      z = 0
      irot = 1236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1237
      theta1 = 90
      phi1 = -178.27995
      theta2 = 90
      phi2 = -88.279954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 507
      chmoth = 'DCLS'
      x = -34.418785
      y = -1.0335782
      z = 0
      irot = 1237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1238
      theta1 = 90
      phi1 = -175.61329
      theta2 = 90
      phi2 = -85.613288
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 508
      chmoth = 'DCLS'
      x = -34.333425
      y = -2.6338037
      z = 0
      irot = 1238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1239
      theta1 = 90
      phi1 = -172.94662
      theta2 = 90
      phi2 = -82.946621
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 509
      chmoth = 'DCLS'
      x = -34.173708
      y = -4.2283249
      z = 0
      irot = 1239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1240
      theta1 = 90
      phi1 = -170.27995
      theta2 = 90
      phi2 = -80.279954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 510
      chmoth = 'DCLS'
      x = -33.939977
      y = -5.8136886
      z = 0
      irot = 1240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1241
      theta1 = 90
      phi1 = -167.61329
      theta2 = 90
      phi2 = -77.613288
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 511
      chmoth = 'DCLS'
      x = -33.63274
      y = -7.386461
      z = 0
      irot = 1241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1242
      theta1 = 90
      phi1 = -164.94662
      theta2 = 90
      phi2 = -74.946621
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 512
      chmoth = 'DCLS'
      x = -33.252662
      y = -8.9432361
      z = 0
      irot = 1242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1243
      theta1 = 90
      phi1 = -162.27995
      theta2 = 90
      phi2 = -72.279954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 513
      chmoth = 'DCLS'
      x = -32.800566
      y = -10.480642
      z = 0
      irot = 1243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1244
      theta1 = 90
      phi1 = -159.61329
      theta2 = 90
      phi2 = -69.613288
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 514
      chmoth = 'DCLS'
      x = -32.277432
      y = -11.995349
      z = 0
      irot = 1244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1245
      theta1 = 90
      phi1 = -156.94662
      theta2 = 90
      phi2 = -66.946621
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 515
      chmoth = 'DCLS'
      x = -31.684392
      y = -13.484077
      z = 0
      irot = 1245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1246
      theta1 = 90
      phi1 = -154.27995
      theta2 = 90
      phi2 = -64.279954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 516
      chmoth = 'DCLS'
      x = -31.02273
      y = -14.943602
      z = 0
      irot = 1246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1247
      theta1 = 90
      phi1 = -151.61329
      theta2 = 90
      phi2 = -61.613287
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 517
      chmoth = 'DCLS'
      x = -30.29388
      y = -16.370762
      z = 0
      irot = 1247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1248
      theta1 = 90
      phi1 = -148.94662
      theta2 = 90
      phi2 = -58.946621
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 518
      chmoth = 'DCLS'
      x = -29.49942
      y = -17.762466
      z = 0
      irot = 1248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1249
      theta1 = 90
      phi1 = -146.27995
      theta2 = 90
      phi2 = -56.279954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 519
      chmoth = 'DCLS'
      x = -28.641072
      y = -19.115701
      z = 0
      irot = 1249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1250
      theta1 = 90
      phi1 = -143.61329
      theta2 = 90
      phi2 = -53.613287
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 520
      chmoth = 'DCLS'
      x = -27.720693
      y = -20.427536
      z = 0
      irot = 1250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1251
      theta1 = 90
      phi1 = -140.94662
      theta2 = 90
      phi2 = -50.946621
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 521
      chmoth = 'DCLS'
      x = -26.740277
      y = -21.695129
      z = 0
      irot = 1251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1252
      theta1 = 90
      phi1 = -138.27995
      theta2 = 90
      phi2 = -48.279954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 522
      chmoth = 'DCLS'
      x = -25.701947
      y = -22.915735
      z = 0
      irot = 1252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1253
      theta1 = 90
      phi1 = -135.61329
      theta2 = 90
      phi2 = -45.613287
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 523
      chmoth = 'DCLS'
      x = -24.607953
      y = -24.086711
      z = 0
      irot = 1253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1254
      theta1 = 90
      phi1 = -132.94662
      theta2 = 90
      phi2 = -42.946621
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 524
      chmoth = 'DCLS'
      x = -23.460664
      y = -25.205521
      z = 0
      irot = 1254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1255
      theta1 = 90
      phi1 = -130.27995
      theta2 = 90
      phi2 = -40.279954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 525
      chmoth = 'DCLS'
      x = -22.262564
      y = -26.269741
      z = 0
      irot = 1255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1256
      theta1 = 90
      phi1 = -127.61329
      theta2 = 90
      phi2 = -37.613287
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 526
      chmoth = 'DCLS'
      x = -21.016248
      y = -27.277066
      z = 0
      irot = 1256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1257
      theta1 = 90
      phi1 = -124.94662
      theta2 = 90
      phi2 = -34.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 527
      chmoth = 'DCLS'
      x = -19.724416
      y = -28.225316
      z = 0
      irot = 1257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1258
      theta1 = 90
      phi1 = -122.27995
      theta2 = 90
      phi2 = -32.279954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 528
      chmoth = 'DCLS'
      x = -18.389865
      y = -29.112435
      z = 0
      irot = 1258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1259
      theta1 = 90
      phi1 = -119.61329
      theta2 = 90
      phi2 = -29.613287
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 529
      chmoth = 'DCLS'
      x = -17.015485
      y = -29.936504
      z = 0
      irot = 1259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1260
      theta1 = 90
      phi1 = -116.94662
      theta2 = 90
      phi2 = -26.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 530
      chmoth = 'DCLS'
      x = -15.604254
      y = -30.695737
      z = 0
      irot = 1260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1261
      theta1 = 90
      phi1 = -114.27995
      theta2 = 90
      phi2 = -24.279954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 531
      chmoth = 'DCLS'
      x = -14.159228
      y = -31.38849
      z = 0
      irot = 1261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1262
      theta1 = 90
      phi1 = -111.61329
      theta2 = 90
      phi2 = -21.613287
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 532
      chmoth = 'DCLS'
      x = -12.683536
      y = -32.013262
      z = 0
      irot = 1262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1263
      theta1 = 90
      phi1 = -108.94662
      theta2 = 90
      phi2 = -18.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 533
      chmoth = 'DCLS'
      x = -11.180374
      y = -32.568701
      z = 0
      irot = 1263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1264
      theta1 = 90
      phi1 = -106.27995
      theta2 = 90
      phi2 = -16.279954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 534
      chmoth = 'DCLS'
      x = -9.6529975
      y = -33.053603
      z = 0
      irot = 1264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1265
      theta1 = 90
      phi1 = -103.61329
      theta2 = 90
      phi2 = -13.613287
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 535
      chmoth = 'DCLS'
      x = -8.1047152
      y = -33.466918
      z = 0
      irot = 1265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1266
      theta1 = 90
      phi1 = -100.94662
      theta2 = 90
      phi2 = -10.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 536
      chmoth = 'DCLS'
      x = -6.5388799
      y = -33.807752
      z = 0
      irot = 1266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1267
      theta1 = 90
      phi1 = -98.279953
      theta2 = 90
      phi2 = -8.2799534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 537
      chmoth = 'DCLS'
      x = -4.9588828
      y = -34.075365
      z = 0
      irot = 1267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1268
      theta1 = 90
      phi1 = -95.613287
      theta2 = 90
      phi2 = -5.6132867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 538
      chmoth = 'DCLS'
      x = -3.3681458
      y = -34.269179
      z = 0
      irot = 1268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1269
      theta1 = 90
      phi1 = -92.94662
      theta2 = 90
      phi2 = -2.94662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 539
      chmoth = 'DCLS'
      x = -1.7701143
      y = -34.388773
      z = 0
      irot = 1269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1270
      theta1 = 90
      phi1 = -90.279953
      theta2 = 90
      phi2 = -0.2799533
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 540
      chmoth = 'DCLS'
      x = -0.168249
      y = -34.433889
      z = 0
      irot = 1270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1271
      theta1 = 90
      phi1 = -87.613287
      theta2 = 90
      phi2 = 2.3867134
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 541
      chmoth = 'DCLS'
      x = 1.4339806
      y = -34.404429
      z = 0
      irot = 1271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1272
      theta1 = 90
      phi1 = -84.94662
      theta2 = 90
      phi2 = 5.0533801
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 542
      chmoth = 'DCLS'
      x = 3.0331046
      y = -34.300456
      z = 0
      irot = 1272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1273
      theta1 = 90
      phi1 = -82.279953
      theta2 = 90
      phi2 = 7.7200468
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 543
      chmoth = 'DCLS'
      x = 4.6256596
      y = -34.122196
      z = 0
      irot = 1273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1274
      theta1 = 90
      phi1 = -79.613286
      theta2 = 90
      phi2 = 10.386714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 544
      chmoth = 'DCLS'
      x = 6.2081963
      y = -33.870036
      z = 0
      irot = 1274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1275
      theta1 = 90
      phi1 = -76.94662
      theta2 = 90
      phi2 = 13.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 545
      chmoth = 'DCLS'
      x = 7.7772876
      y = -33.54452
      z = 0
      irot = 1275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1276
      theta1 = 90
      phi1 = -74.279953
      theta2 = 90
      phi2 = 15.720047
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 546
      chmoth = 'DCLS'
      x = 9.3295349
      y = -33.146354
      z = 0
      irot = 1276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1277
      theta1 = 90
      phi1 = -71.613286
      theta2 = 90
      phi2 = 18.386714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 547
      chmoth = 'DCLS'
      x = 10.861577
      y = -32.676401
      z = 0
      irot = 1277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1278
      theta1 = 90
      phi1 = -68.94662
      theta2 = 90
      phi2 = 21.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 548
      chmoth = 'DCLS'
      x = 12.370094
      y = -32.135678
      z = 0
      irot = 1278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1279
      theta1 = 90
      phi1 = -66.279953
      theta2 = 90
      phi2 = 23.720047
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 549
      chmoth = 'DCLS'
      x = 13.851821
      y = -31.525356
      z = 0
      irot = 1279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1280
      theta1 = 90
      phi1 = -63.613286
      theta2 = 90
      phi2 = 26.386714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 550
      chmoth = 'DCLS'
      x = 15.303549
      y = -30.846757
      z = 0
      irot = 1280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1281
      theta1 = 90
      phi1 = -60.94662
      theta2 = 90
      phi2 = 29.05338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 551
      chmoth = 'DCLS'
      x = 16.722131
      y = -30.101351
      z = 0
      irot = 1281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1282
      theta1 = 90
      phi1 = -58.279953
      theta2 = 90
      phi2 = 31.720047
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 552
      chmoth = 'DCLS'
      x = 18.104498
      y = -29.290752
      z = 0
      irot = 1282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1283
      theta1 = 90
      phi1 = -55.613286
      theta2 = 90
      phi2 = 34.386714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 553
      chmoth = 'DCLS'
      x = 19.447654
      y = -28.416716
      z = 0
      irot = 1283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1284
      theta1 = 90
      phi1 = -52.946619
      theta2 = 90
      phi2 = 37.053381
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 554
      chmoth = 'DCLS'
      x = 20.748691
      y = -27.481136
      z = 0
      irot = 1284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1285
      theta1 = 90
      phi1 = -50.279953
      theta2 = 90
      phi2 = 39.720047
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 555
      chmoth = 'DCLS'
      x = 22.004791
      y = -26.486037
      z = 0
      irot = 1285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1286
      theta1 = 90
      phi1 = -47.613286
      theta2 = 90
      phi2 = 42.386714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 556
      chmoth = 'DCLS'
      x = 23.213234
      y = -25.433576
      z = 0
      irot = 1286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1287
      theta1 = 90
      phi1 = -44.946619
      theta2 = 90
      phi2 = 45.053381
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 557
      chmoth = 'DCLS'
      x = 24.371401
      y = -24.326032
      z = 0
      irot = 1287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1288
      theta1 = 90
      phi1 = -42.279953
      theta2 = 90
      phi2 = 47.720047
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 558
      chmoth = 'DCLS'
      x = 25.476786
      y = -23.165802
      z = 0
      irot = 1288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1289
      theta1 = 90
      phi1 = -39.613286
      theta2 = 90
      phi2 = 50.386714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 559
      chmoth = 'DCLS'
      x = 26.526994
      y = -21.955401
      z = 0
      irot = 1289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1290
      theta1 = 90
      phi1 = -36.946619
      theta2 = 90
      phi2 = 53.053381
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 560
      chmoth = 'DCLS'
      x = 27.51975
      y = -20.697449
      z = 0
      irot = 1290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1291
      theta1 = 90
      phi1 = -34.279953
      theta2 = 90
      phi2 = 55.720047
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 561
      chmoth = 'DCLS'
      x = 28.452904
      y = -19.394671
      z = 0
      irot = 1291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1292
      theta1 = 90
      phi1 = -31.613286
      theta2 = 90
      phi2 = 58.386714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 562
      chmoth = 'DCLS'
      x = 29.324436
      y = -18.049888
      z = 0
      irot = 1292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1293
      theta1 = 90
      phi1 = -28.946619
      theta2 = 90
      phi2 = 61.053381
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 563
      chmoth = 'DCLS'
      x = 30.132458
      y = -16.666014
      z = 0
      irot = 1293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1294
      theta1 = 90
      phi1 = -26.279952
      theta2 = 90
      phi2 = 63.720048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 564
      chmoth = 'DCLS'
      x = 30.875219
      y = -15.246044
      z = 0
      irot = 1294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1295
      theta1 = 90
      phi1 = -23.613286
      theta2 = 90
      phi2 = 66.386714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 565
      chmoth = 'DCLS'
      x = 31.551112
      y = -13.793055
      z = 0
      irot = 1295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1296
      theta1 = 90
      phi1 = -20.946619
      theta2 = 90
      phi2 = 69.053381
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 566
      chmoth = 'DCLS'
      x = 32.158672
      y = -12.310193
      z = 0
      irot = 1296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1297
      theta1 = 90
      phi1 = -18.279952
      theta2 = 90
      phi2 = 71.720048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 567
      chmoth = 'DCLS'
      x = 32.696583
      y = -10.800671
      z = 0
      irot = 1297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1298
      theta1 = 90
      phi1 = -15.613286
      theta2 = 90
      phi2 = 74.386714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 568
      chmoth = 'DCLS'
      x = 33.163681
      y = -9.267756
      z = 0
      irot = 1298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1299
      theta1 = 90
      phi1 = -12.946619
      theta2 = 90
      phi2 = 77.053381
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 569
      chmoth = 'DCLS'
      x = 33.558953
      y = -7.7147694
      z = 0
      irot = 1299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1300
      theta1 = 90
      phi1 = -10.279952
      theta2 = 90
      phi2 = 79.720048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 570
      chmoth = 'DCLS'
      x = 33.881545
      y = -6.1450744
      z = 0
      irot = 1300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1301
      theta1 = 90
      phi1 = -7.6132856
      theta2 = 90
      phi2 = 82.386714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 571
      chmoth = 'DCLS'
      x = 34.130756
      y = -4.5620705
      z = 0
      irot = 1301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1302
      theta1 = 90
      phi1 = -4.9466189
      theta2 = 90
      phi2 = 85.053381
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 572
      chmoth = 'DCLS'
      x = 34.306048
      y = -2.9691862
      z = 0
      irot = 1302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1303
      theta1 = 90
      phi1 = -2.2799522
      theta2 = 90
      phi2 = 87.720048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 573
      chmoth = 'DCLS'
      x = 34.407041
      y = -1.3698712
      z = 0
      irot = 1303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1304
      theta1 = 90
      phi1 = 1.72001
      theta2 = 90
      phi2 = 91.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 574
      chmoth = 'DCLS'
      x = 35.796564
      y = 1.07493
      z = 0
      irot = 1304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1305
      theta1 = 90
      phi1 = 4.3866767
      theta2 = 90
      phi2 = 94.386677
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 575
      chmoth = 'DCLS'
      x = 35.707789
      y = 2.7392123
      z = 0
      irot = 1305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1306
      theta1 = 90
      phi1 = 7.0533434
      theta2 = 90
      phi2 = 97.053343
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 576
      chmoth = 'DCLS'
      x = 35.541679
      y = 4.3975621
      z = 0
      irot = 1306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1307
      theta1 = 90
      phi1 = 9.7200101
      theta2 = 90
      phi2 = 99.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 577
      chmoth = 'DCLS'
      x = 35.298593
      y = 6.0463877
      z = 0
      irot = 1307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1308
      theta1 = 90
      phi1 = 12.386677
      theta2 = 90
      phi2 = 102.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 578
      chmoth = 'DCLS'
      x = 34.979059
      y = 7.6821182
      z = 0
      irot = 1308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1309
      theta1 = 90
      phi1 = 15.053344
      theta2 = 90
      phi2 = 105.05334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 579
      chmoth = 'DCLS'
      x = 34.583767
      y = 9.301211
      z = 0
      irot = 1309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1310
      theta1 = 90
      phi1 = 17.72001
      theta2 = 90
      phi2 = 107.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 580
      chmoth = 'DCLS'
      x = 34.113575
      y = 10.900159
      z = 0
      irot = 1310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1311
      theta1 = 90
      phi1 = 20.386677
      theta2 = 90
      phi2 = 110.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 581
      chmoth = 'DCLS'
      x = 33.569501
      y = 12.475501
      z = 0
      irot = 1311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1312
      theta1 = 90
      phi1 = 23.053344
      theta2 = 90
      phi2 = 113.05334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 582
      chmoth = 'DCLS'
      x = 32.952722
      y = 14.023822
      z = 0
      irot = 1312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1313
      theta1 = 90
      phi1 = 25.72001
      theta2 = 90
      phi2 = 115.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 583
      chmoth = 'DCLS'
      x = 32.264575
      y = 15.541772
      z = 0
      irot = 1313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1314
      theta1 = 90
      phi1 = 28.386677
      theta2 = 90
      phi2 = 118.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 584
      chmoth = 'DCLS'
      x = 31.50655
      y = 17.026061
      z = 0
      irot = 1314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1315
      theta1 = 90
      phi1 = 31.053344
      theta2 = 90
      phi2 = 121.05334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 585
      chmoth = 'DCLS'
      x = 30.680289
      y = 18.473476
      z = 0
      irot = 1315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1316
      theta1 = 90
      phi1 = 33.72001
      theta2 = 90
      phi2 = 123.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 586
      chmoth = 'DCLS'
      x = 29.787582
      y = 19.880881
      z = 0
      irot = 1316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1317
      theta1 = 90
      phi1 = 36.386677
      theta2 = 90
      phi2 = 126.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 587
      chmoth = 'DCLS'
      x = 28.830361
      y = 21.245229
      z = 0
      irot = 1317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1318
      theta1 = 90
      phi1 = 39.053344
      theta2 = 90
      phi2 = 129.05334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 588
      chmoth = 'DCLS'
      x = 27.8107
      y = 22.563565
      z = 0
      irot = 1318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1319
      theta1 = 90
      phi1 = 41.720011
      theta2 = 90
      phi2 = 131.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 589
      chmoth = 'DCLS'
      x = 26.730807
      y = 23.833032
      z = 0
      irot = 1319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1320
      theta1 = 90
      phi1 = 44.386677
      theta2 = 90
      phi2 = 134.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 590
      chmoth = 'DCLS'
      x = 25.593021
      y = 25.050883
      z = 0
      irot = 1320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1321
      theta1 = 90
      phi1 = 47.053344
      theta2 = 90
      phi2 = 137.05334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 591
      chmoth = 'DCLS'
      x = 24.399807
      y = 26.214479
      z = 0
      irot = 1321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1322
      theta1 = 90
      phi1 = 49.720011
      theta2 = 90
      phi2 = 139.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 592
      chmoth = 'DCLS'
      x = 23.153748
      y = 27.3213
      z = 0
      irot = 1322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1323
      theta1 = 90
      phi1 = 52.386677
      theta2 = 90
      phi2 = 142.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 593
      chmoth = 'DCLS'
      x = 21.857543
      y = 28.36895
      z = 0
      irot = 1323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1324
      theta1 = 90
      phi1 = 55.053344
      theta2 = 90
      phi2 = 145.05334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 594
      chmoth = 'DCLS'
      x = 20.513999
      y = 29.355158
      z = 0
      irot = 1324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1325
      theta1 = 90
      phi1 = 57.720011
      theta2 = 90
      phi2 = 147.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 595
      chmoth = 'DCLS'
      x = 19.126027
      y = 30.27779
      z = 0
      irot = 1325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1326
      theta1 = 90
      phi1 = 60.386677
      theta2 = 90
      phi2 = 150.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 596
      chmoth = 'DCLS'
      x = 17.696632
      y = 31.134847
      z = 0
      irot = 1326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1327
      theta1 = 90
      phi1 = 63.053344
      theta2 = 90
      phi2 = 153.05334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 597
      chmoth = 'DCLS'
      x = 16.22891
      y = 31.924473
      z = 0
      irot = 1327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1328
      theta1 = 90
      phi1 = 65.720011
      theta2 = 90
      phi2 = 155.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 598
      chmoth = 'DCLS'
      x = 14.72604
      y = 32.644957
      z = 0
      irot = 1328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1329
      theta1 = 90
      phi1 = 68.386677
      theta2 = 90
      phi2 = 158.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 599
      chmoth = 'DCLS'
      x = 13.191276
      y = 33.29474
      z = 0
      irot = 1329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1330
      theta1 = 90
      phi1 = 71.053344
      theta2 = 90
      phi2 = 161.05334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 600
      chmoth = 'DCLS'
      x = 11.627943
      y = 33.872414
      z = 0
      irot = 1330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1331
      theta1 = 90
      phi1 = 73.720011
      theta2 = 90
      phi2 = 163.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 601
      chmoth = 'DCLS'
      x = 10.039427
      y = 34.376727
      z = 0
      irot = 1331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1332
      theta1 = 90
      phi1 = 76.386678
      theta2 = 90
      phi2 = 166.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 602
      chmoth = 'DCLS'
      x = 8.4291674
      y = 34.806589
      z = 0
      irot = 1332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1333
      theta1 = 90
      phi1 = 79.053344
      theta2 = 90
      phi2 = 169.05334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 603
      chmoth = 'DCLS'
      x = 6.8006521
      y = 35.161067
      z = 0
      irot = 1333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1334
      theta1 = 90
      phi1 = 81.720011
      theta2 = 90
      phi2 = 171.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 604
      chmoth = 'DCLS'
      x = 5.1574081
      y = 35.439394
      z = 0
      irot = 1334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1335
      theta1 = 90
      phi1 = 84.386678
      theta2 = 90
      phi2 = 174.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 605
      chmoth = 'DCLS'
      x = 3.5029944
      y = 35.640967
      z = 0
      irot = 1335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1336
      theta1 = 90
      phi1 = 87.053344
      theta2 = 90
      phi2 = 177.05334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 606
      chmoth = 'DCLS'
      x = 1.8409939
      y = 35.765349
      z = 0
      irot = 1336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1337
      theta1 = 90
      phi1 = 89.720011
      theta2 = 90
      phi2 = 179.72001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 607
      chmoth = 'DCLS'
      x = 0.17500623
      y = 35.812272
      z = 0
      irot = 1337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1338
      theta1 = 90
      phi1 = 92.386678
      theta2 = 90
      phi2 = -177.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 608
      chmoth = 'DCLS'
      x = -1.4913605
      y = 35.781634
      z = 0
      irot = 1338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1339
      theta1 = 90
      phi1 = 95.053344
      theta2 = 90
      phi2 = -174.94666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 609
      chmoth = 'DCLS'
      x = -3.1544972
      y = 35.6735
      z = 0
      irot = 1339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1340
      theta1 = 90
      phi1 = 97.720011
      theta2 = 90
      phi2 = -172.27999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 610
      chmoth = 'DCLS'
      x = -4.810802
      y = 35.488106
      z = 0
      irot = 1340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1341
      theta1 = 90
      phi1 = 100.38668
      theta2 = 90
      phi2 = -169.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 611
      chmoth = 'DCLS'
      x = -6.4566876
      y = 35.225852
      z = 0
      irot = 1341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1342
      theta1 = 90
      phi1 = 103.05334
      theta2 = 90
      phi2 = -166.94666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 612
      chmoth = 'DCLS'
      x = -8.0885896
      y = 34.887307
      z = 0
      irot = 1342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1343
      theta1 = 90
      phi1 = 105.72001
      theta2 = 90
      phi2 = -164.27999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 613
      chmoth = 'DCLS'
      x = -9.7029734
      y = 34.473204
      z = 0
      irot = 1343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1344
      theta1 = 90
      phi1 = 108.38668
      theta2 = 90
      phi2 = -161.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 614
      chmoth = 'DCLS'
      x = -11.296343
      y = 33.984439
      z = 0
      irot = 1344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1345
      theta1 = 90
      phi1 = 111.05334
      theta2 = 90
      phi2 = -158.94666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 615
      chmoth = 'DCLS'
      x = -12.865247
      y = 33.422072
      z = 0
      irot = 1345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1346
      theta1 = 90
      phi1 = 113.72001
      theta2 = 90
      phi2 = -156.27999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 616
      chmoth = 'DCLS'
      x = -14.406287
      y = 32.78732
      z = 0
      irot = 1346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1347
      theta1 = 90
      phi1 = 116.38668
      theta2 = 90
      phi2 = -153.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 617
      chmoth = 'DCLS'
      x = -15.916127
      y = 32.081558
      z = 0
      irot = 1347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1348
      theta1 = 90
      phi1 = 119.05334
      theta2 = 90
      phi2 = -150.94666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 618
      chmoth = 'DCLS'
      x = -17.391497
      y = 31.306315
      z = 0
      irot = 1348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1349
      theta1 = 90
      phi1 = 121.72001
      theta2 = 90
      phi2 = -148.27999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 619
      chmoth = 'DCLS'
      x = -18.8292
      y = 30.463268
      z = 0
      irot = 1349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1350
      theta1 = 90
      phi1 = 124.38668
      theta2 = 90
      phi2 = -145.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 620
      chmoth = 'DCLS'
      x = -20.226123
      y = 29.554246
      z = 0
      irot = 1350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1351
      theta1 = 90
      phi1 = 127.05334
      theta2 = 90
      phi2 = -142.94666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 621
      chmoth = 'DCLS'
      x = -21.579241
      y = 28.581215
      z = 0
      irot = 1351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1352
      theta1 = 90
      phi1 = 129.72001
      theta2 = 90
      phi2 = -140.27999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 622
      chmoth = 'DCLS'
      x = -22.885623
      y = 27.546284
      z = 0
      irot = 1352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1353
      theta1 = 90
      phi1 = 132.38668
      theta2 = 90
      phi2 = -137.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 623
      chmoth = 'DCLS'
      x = -24.14244
      y = 26.451694
      z = 0
      irot = 1353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1354
      theta1 = 90
      phi1 = 135.05334
      theta2 = 90
      phi2 = -134.94666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 624
      chmoth = 'DCLS'
      x = -25.346969
      y = 25.299815
      z = 0
      irot = 1354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1355
      theta1 = 90
      phi1 = 137.72001
      theta2 = 90
      phi2 = -132.27999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 625
      chmoth = 'DCLS'
      x = -26.496603
      y = 24.093142
      z = 0
      irot = 1355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1356
      theta1 = 90
      phi1 = 140.38668
      theta2 = 90
      phi2 = -129.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 626
      chmoth = 'DCLS'
      x = -27.588851
      y = 22.834289
      z = 0
      irot = 1356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1357
      theta1 = 90
      phi1 = 143.05335
      theta2 = 90
      phi2 = -126.94665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 627
      chmoth = 'DCLS'
      x = -28.621348
      y = 21.525982
      z = 0
      irot = 1357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1358
      theta1 = 90
      phi1 = 145.72001
      theta2 = 90
      phi2 = -124.27999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 628
      chmoth = 'DCLS'
      x = -29.591857
      y = 20.171055
      z = 0
      irot = 1358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1359
      theta1 = 90
      phi1 = 148.38668
      theta2 = 90
      phi2 = -121.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 629
      chmoth = 'DCLS'
      x = -30.498277
      y = 18.772442
      z = 0
      irot = 1359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1360
      theta1 = 90
      phi1 = 151.05335
      theta2 = 90
      phi2 = -118.94665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 630
      chmoth = 'DCLS'
      x = -31.338645
      y = 17.333171
      z = 0
      irot = 1360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1361
      theta1 = 90
      phi1 = 153.72001
      theta2 = 90
      phi2 = -116.27999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 631
      chmoth = 'DCLS'
      x = -32.11114
      y = 15.856361
      z = 0
      irot = 1361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1362
      theta1 = 90
      phi1 = 156.38668
      theta2 = 90
      phi2 = -113.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 632
      chmoth = 'DCLS'
      x = -32.814089
      y = 14.34521
      z = 0
      irot = 1362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1363
      theta1 = 90
      phi1 = 159.05335
      theta2 = 90
      phi2 = -110.94665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 633
      chmoth = 'DCLS'
      x = -33.44597
      y = 12.80299
      z = 0
      irot = 1363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1364
      theta1 = 90
      phi1 = 161.72001
      theta2 = 90
      phi2 = -108.27999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 634
      chmoth = 'DCLS'
      x = -34.005415
      y = 11.233041
      z = 0
      irot = 1364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1365
      theta1 = 90
      phi1 = 164.38668
      theta2 = 90
      phi2 = -105.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 635
      chmoth = 'DCLS'
      x = -34.491212
      y = 9.6387643
      z = 0
      irot = 1365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1366
      theta1 = 90
      phi1 = 167.05335
      theta2 = 90
      phi2 = -102.94665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 636
      chmoth = 'DCLS'
      x = -34.902308
      y = 8.0236122
      z = 0
      irot = 1366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1367
      theta1 = 90
      phi1 = 169.72001
      theta2 = 90
      phi2 = -100.27999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 637
      chmoth = 'DCLS'
      x = -35.237814
      y = 6.3910827
      z = 0
      irot = 1367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1368
      theta1 = 90
      phi1 = 172.38668
      theta2 = 90
      phi2 = -97.613321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 638
      chmoth = 'DCLS'
      x = -35.497003
      y = 4.7447116
      z = 0
      irot = 1368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1369
      theta1 = 90
      phi1 = 175.05335
      theta2 = 90
      phi2 = -94.946655
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 639
      chmoth = 'DCLS'
      x = -35.679312
      y = 3.0880644
      z = 0
      irot = 1369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1370
      theta1 = 90
      phi1 = 177.72001
      theta2 = 90
      phi2 = -92.279988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 640
      chmoth = 'DCLS'
      x = -35.784349
      y = 1.4247292
      z = 0
      irot = 1370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1371
      theta1 = 90
      phi1 = -179.61332
      theta2 = 90
      phi2 = -89.613321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 641
      chmoth = 'DCLS'
      x = -35.811884
      y = -0.24169163
      z = 0
      irot = 1371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1372
      theta1 = 90
      phi1 = -176.94665
      theta2 = 90
      phi2 = -86.946654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 642
      chmoth = 'DCLS'
      x = -35.761859
      y = -1.907589
      z = 0
      irot = 1372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1373
      theta1 = 90
      phi1 = -174.27999
      theta2 = 90
      phi2 = -84.279988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 643
      chmoth = 'DCLS'
      x = -35.634382
      y = -3.569355
      z = 0
      irot = 1373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1374
      theta1 = 90
      phi1 = -171.61332
      theta2 = 90
      phi2 = -81.613321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 644
      chmoth = 'DCLS'
      x = -35.429729
      y = -5.2233906
      z = 0
      irot = 1374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1375
      theta1 = 90
      phi1 = -168.94665
      theta2 = 90
      phi2 = -78.946654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 645
      chmoth = 'DCLS'
      x = -35.148342
      y = -6.8661134
      z = 0
      irot = 1375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1376
      theta1 = 90
      phi1 = -166.27999
      theta2 = 90
      phi2 = -76.279988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 646
      chmoth = 'DCLS'
      x = -34.790833
      y = -8.4939658
      z = 0
      irot = 1376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1377
      theta1 = 90
      phi1 = -163.61332
      theta2 = 90
      phi2 = -73.613321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 647
      chmoth = 'DCLS'
      x = -34.357973
      y = -10.103422
      z = 0
      irot = 1377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1378
      theta1 = 90
      phi1 = -160.94665
      theta2 = 90
      phi2 = -70.946654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 648
      chmoth = 'DCLS'
      x = -33.850703
      y = -11.690997
      z = 0
      irot = 1378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1379
      theta1 = 90
      phi1 = -158.27999
      theta2 = 90
      phi2 = -68.279988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 649
      chmoth = 'DCLS'
      x = -33.270119
      y = -13.253251
      z = 0
      irot = 1379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1380
      theta1 = 90
      phi1 = -155.61332
      theta2 = 90
      phi2 = -65.613321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 650
      chmoth = 'DCLS'
      x = -32.617479
      y = -14.786802
      z = 0
      irot = 1380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1381
      theta1 = 90
      phi1 = -152.94665
      theta2 = 90
      phi2 = -62.946654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 651
      chmoth = 'DCLS'
      x = -31.894198
      y = -16.288328
      z = 0
      irot = 1381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1382
      theta1 = 90
      phi1 = -150.27999
      theta2 = 90
      phi2 = -60.279987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 652
      chmoth = 'DCLS'
      x = -31.10184
      y = -17.754577
      z = 0
      irot = 1382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1383
      theta1 = 90
      phi1 = -147.61332
      theta2 = 90
      phi2 = -57.613321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 653
      chmoth = 'DCLS'
      x = -30.242123
      y = -19.182374
      z = 0
      irot = 1383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1384
      theta1 = 90
      phi1 = -144.94665
      theta2 = 90
      phi2 = -54.946654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 654
      chmoth = 'DCLS'
      x = -29.316908
      y = -20.568626
      z = 0
      irot = 1384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1385
      theta1 = 90
      phi1 = -142.27999
      theta2 = 90
      phi2 = -52.279987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 655
      chmoth = 'DCLS'
      x = -28.3282
      y = -21.91033
      z = 0
      irot = 1385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1386
      theta1 = 90
      phi1 = -139.61332
      theta2 = 90
      phi2 = -49.613321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 656
      chmoth = 'DCLS'
      x = -27.278138
      y = -23.204582
      z = 0
      irot = 1386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1387
      theta1 = 90
      phi1 = -136.94665
      theta2 = 90
      phi2 = -46.946654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 657
      chmoth = 'DCLS'
      x = -26.168999
      y = -24.448578
      z = 0
      irot = 1387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1388
      theta1 = 90
      phi1 = -134.27999
      theta2 = 90
      phi2 = -44.279987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 658
      chmoth = 'DCLS'
      x = -25.003183
      y = -25.639624
      z = 0
      irot = 1388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1389
      theta1 = 90
      phi1 = -131.61332
      theta2 = 90
      phi2 = -41.613321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 659
      chmoth = 'DCLS'
      x = -23.783216
      y = -26.77514
      z = 0
      irot = 1389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1390
      theta1 = 90
      phi1 = -128.94665
      theta2 = 90
      phi2 = -38.946654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 660
      chmoth = 'DCLS'
      x = -22.511739
      y = -27.852667
      z = 0
      irot = 1390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1391
      theta1 = 90
      phi1 = -126.27999
      theta2 = 90
      phi2 = -36.279987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 661
      chmoth = 'DCLS'
      x = -21.191508
      y = -28.869872
      z = 0
      irot = 1391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1392
      theta1 = 90
      phi1 = -123.61332
      theta2 = 90
      phi2 = -33.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 662
      chmoth = 'DCLS'
      x = -19.82538
      y = -29.82455
      z = 0
      irot = 1392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1393
      theta1 = 90
      phi1 = -120.94665
      theta2 = 90
      phi2 = -30.946654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 663
      chmoth = 'DCLS'
      x = -18.416315
      y = -30.714636
      z = 0
      irot = 1393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1394
      theta1 = 90
      phi1 = -118.27999
      theta2 = 90
      phi2 = -28.279987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 664
      chmoth = 'DCLS'
      x = -16.967364
      y = -31.5382
      z = 0
      irot = 1394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1395
      theta1 = 90
      phi1 = -115.61332
      theta2 = 90
      phi2 = -25.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 665
      chmoth = 'DCLS'
      x = -15.481665
      y = -32.293459
      z = 0
      irot = 1395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1396
      theta1 = 90
      phi1 = -112.94665
      theta2 = 90
      phi2 = -22.946654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 666
      chmoth = 'DCLS'
      x = -13.962437
      y = -32.978778
      z = 0
      irot = 1396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1397
      theta1 = 90
      phi1 = -110.27999
      theta2 = 90
      phi2 = -20.279987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 667
      chmoth = 'DCLS'
      x = -12.412969
      y = -33.592673
      z = 0
      irot = 1397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1398
      theta1 = 90
      phi1 = -107.61332
      theta2 = 90
      phi2 = -17.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 668
      chmoth = 'DCLS'
      x = -10.836618
      y = -34.133813
      z = 0
      irot = 1398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1399
      theta1 = 90
      phi1 = -104.94665
      theta2 = 90
      phi2 = -14.946654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 669
      chmoth = 'DCLS'
      x = -9.2367968
      y = -34.601027
      z = 0
      irot = 1399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1400
      theta1 = 90
      phi1 = -102.27999
      theta2 = 90
      phi2 = -12.279987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 670
      chmoth = 'DCLS'
      x = -7.6169708
      y = -34.993303
      z = 0
      irot = 1400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1401
      theta1 = 90
      phi1 = -99.61332
      theta2 = 90
      phi2 = -9.6133201
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 671
      chmoth = 'DCLS'
      x = -5.9806481
      y = -35.309791
      z = 0
      irot = 1401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1402
      theta1 = 90
      phi1 = -96.946653
      theta2 = 90
      phi2 = -6.9466534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 672
      chmoth = 'DCLS'
      x = -4.3313726
      y = -35.549806
      z = 0
      irot = 1402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1403
      theta1 = 90
      phi1 = -94.279987
      theta2 = 90
      phi2 = -4.2799867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 673
      chmoth = 'DCLS'
      x = -2.6727164
      y = -35.712828
      z = 0
      irot = 1403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1404
      theta1 = 90
      phi1 = -91.61332
      theta2 = 90
      phi2 = -1.61332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 674
      chmoth = 'DCLS'
      x = -1.0082717
      y = -35.798504
      z = 0
      irot = 1404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1405
      theta1 = 90
      phi1 = -88.946653
      theta2 = 90
      phi2 = 1.0533467
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 675
      chmoth = 'DCLS'
      x = 0.65835677
      y = -35.806648
      z = 0
      irot = 1405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1406
      theta1 = 90
      phi1 = -86.279987
      theta2 = 90
      phi2 = 3.7200134
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 676
      chmoth = 'DCLS'
      x = 2.3235593
      y = -35.737243
      z = 0
      irot = 1406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1407
      theta1 = 90
      phi1 = -83.61332
      theta2 = 90
      phi2 = 6.3866801
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 677
      chmoth = 'DCLS'
      x = 3.9837296
      y = -35.590439
      z = 0
      irot = 1407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1408
      theta1 = 90
      phi1 = -80.946653
      theta2 = 90
      phi2 = 9.0533468
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 678
      chmoth = 'DCLS'
      x = 5.635272
      y = -35.366555
      z = 0
      irot = 1408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1409
      theta1 = 90
      phi1 = -78.279986
      theta2 = 90
      phi2 = 11.720014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 679
      chmoth = 'DCLS'
      x = 7.2746096
      y = -35.066074
      z = 0
      irot = 1409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1410
      theta1 = 90
      phi1 = -75.61332
      theta2 = 90
      phi2 = 14.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 680
      chmoth = 'DCLS'
      x = 8.8981921
      y = -34.689648
      z = 0
      irot = 1410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1411
      theta1 = 90
      phi1 = -72.946653
      theta2 = 90
      phi2 = 17.053347
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 681
      chmoth = 'DCLS'
      x = 10.502503
      y = -34.238092
      z = 0
      irot = 1411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1412
      theta1 = 90
      phi1 = -70.279986
      theta2 = 90
      phi2 = 19.720014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 682
      chmoth = 'DCLS'
      x = 12.084068
      y = -33.712383
      z = 0
      irot = 1412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1413
      theta1 = 90
      phi1 = -67.61332
      theta2 = 90
      phi2 = 22.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 683
      chmoth = 'DCLS'
      x = 13.639461
      y = -33.113661
      z = 0
      irot = 1413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1414
      theta1 = 90
      phi1 = -64.946653
      theta2 = 90
      phi2 = 25.053347
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 684
      chmoth = 'DCLS'
      x = 15.165315
      y = -32.443223
      z = 0
      irot = 1414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1415
      theta1 = 90
      phi1 = -62.279986
      theta2 = 90
      phi2 = 27.720014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 685
      chmoth = 'DCLS'
      x = 16.658324
      y = -31.702519
      z = 0
      irot = 1415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1416
      theta1 = 90
      phi1 = -59.61332
      theta2 = 90
      phi2 = 30.38668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 686
      chmoth = 'DCLS'
      x = 18.115254
      y = -30.893155
      z = 0
      irot = 1416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1417
      theta1 = 90
      phi1 = -56.946653
      theta2 = 90
      phi2 = 33.053347
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 687
      chmoth = 'DCLS'
      x = 19.532951
      y = -30.016884
      z = 0
      irot = 1417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1418
      theta1 = 90
      phi1 = -54.279986
      theta2 = 90
      phi2 = 35.720014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 688
      chmoth = 'DCLS'
      x = 20.908344
      y = -29.075602
      z = 0
      irot = 1418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1419
      theta1 = 90
      phi1 = -51.613319
      theta2 = 90
      phi2 = 38.386681
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 689
      chmoth = 'DCLS'
      x = 22.238454
      y = -28.071349
      z = 0
      irot = 1419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1420
      theta1 = 90
      phi1 = -48.946653
      theta2 = 90
      phi2 = 41.053347
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 690
      chmoth = 'DCLS'
      x = 23.520401
      y = -27.0063
      z = 0
      irot = 1420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1421
      theta1 = 90
      phi1 = -46.279986
      theta2 = 90
      phi2 = 43.720014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 691
      chmoth = 'DCLS'
      x = 24.751407
      y = -25.882761
      z = 0
      irot = 1421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1422
      theta1 = 90
      phi1 = -43.613319
      theta2 = 90
      phi2 = 46.386681
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 692
      chmoth = 'DCLS'
      x = 25.928808
      y = -24.703166
      z = 0
      irot = 1422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1423
      theta1 = 90
      phi1 = -40.946653
      theta2 = 90
      phi2 = 49.053347
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 693
      chmoth = 'DCLS'
      x = 27.050052
      y = -23.470069
      z = 0
      irot = 1423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1424
      theta1 = 90
      phi1 = -38.279986
      theta2 = 90
      phi2 = 51.720014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 694
      chmoth = 'DCLS'
      x = 28.112712
      y = -22.186142
      z = 0
      irot = 1424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1425
      theta1 = 90
      phi1 = -35.613319
      theta2 = 90
      phi2 = 54.386681
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 695
      chmoth = 'DCLS'
      x = 29.114487
      y = -20.854164
      z = 0
      irot = 1425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1426
      theta1 = 90
      phi1 = -32.946653
      theta2 = 90
      phi2 = 57.053347
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 696
      chmoth = 'DCLS'
      x = 30.053205
      y = -19.477021
      z = 0
      irot = 1426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1427
      theta1 = 90
      phi1 = -30.279986
      theta2 = 90
      phi2 = 59.720014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 697
      chmoth = 'DCLS'
      x = 30.926835
      y = -18.057694
      z = 0
      irot = 1427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1428
      theta1 = 90
      phi1 = -27.613319
      theta2 = 90
      phi2 = 62.386681
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 698
      chmoth = 'DCLS'
      x = 31.733485
      y = -16.599259
      z = 0
      irot = 1428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1429
      theta1 = 90
      phi1 = -24.946652
      theta2 = 90
      phi2 = 65.053348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 699
      chmoth = 'DCLS'
      x = 32.471407
      y = -15.104874
      z = 0
      irot = 1429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1430
      theta1 = 90
      phi1 = -22.279986
      theta2 = 90
      phi2 = 67.720014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 700
      chmoth = 'DCLS'
      x = 33.139003
      y = -13.577775
      z = 0
      irot = 1430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1431
      theta1 = 90
      phi1 = -19.613319
      theta2 = 90
      phi2 = 70.386681
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 701
      chmoth = 'DCLS'
      x = 33.734827
      y = -12.021269
      z = 0
      irot = 1431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1432
      theta1 = 90
      phi1 = -16.946652
      theta2 = 90
      phi2 = 73.053348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 702
      chmoth = 'DCLS'
      x = 34.25759
      y = -10.438728
      z = 0
      irot = 1432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1433
      theta1 = 90
      phi1 = -14.279986
      theta2 = 90
      phi2 = 75.720014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 703
      chmoth = 'DCLS'
      x = 34.706158
      y = -8.8335787
      z = 0
      irot = 1433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1434
      theta1 = 90
      phi1 = -11.613319
      theta2 = 90
      phi2 = 78.386681
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 704
      chmoth = 'DCLS'
      x = 35.07956
      y = -7.2092981
      z = 0
      irot = 1434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1435
      theta1 = 90
      phi1 = -8.9466523
      theta2 = 90
      phi2 = 81.053348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 705
      chmoth = 'DCLS'
      x = 35.376987
      y = -5.5694037
      z = 0
      irot = 1435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1436
      theta1 = 90
      phi1 = -6.2799856
      theta2 = 90
      phi2 = 83.720014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 706
      chmoth = 'DCLS'
      x = 35.597796
      y = -3.9174473
      z = 0
      irot = 1436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1437
      theta1 = 90
      phi1 = -3.6133189
      theta2 = 90
      phi2 = 86.386681
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 707
      chmoth = 'DCLS'
      x = 35.741508
      y = -2.2570065
      z = 0
      irot = 1437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1438
      theta1 = 90
      phi1 = -0.9466522
      theta2 = 90
      phi2 = 89.053348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 708
      chmoth = 'DCLS'
      x = 35.807812
      y = -0.59167759
      z = 0
      irot = 1438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1439
      theta1 = 90
      phi1 = 0.833
      theta2 = 95.998868
      phi2 = 90.833
      theta3 = 5.998868
      phi3 = 90.833
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 691
      chmoth = 'DCLS'
      x = 37.440643
      y = 0.54437261
      z = 0
      irot = 1439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1440
      theta1 = 90
      phi1 = 3.2987534
      theta2 = 95.998868
      phi2 = 93.298753
      theta3 = 5.998868
      phi3 = 93.298753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 692
      chmoth = 'DCLS'
      x = 37.382557
      y = 2.1546486
      z = 0
      irot = 1440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1441
      theta1 = 90
      phi1 = 5.7645068
      theta2 = 95.998868
      phi2 = 95.764507
      theta3 = 5.998868
      phi3 = 95.764507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 693
      chmoth = 'DCLS'
      x = 37.255247
      y = 3.7609348
      z = 0
      irot = 1441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1442
      theta1 = 90
      phi1 = 8.2302603
      theta2 = 95.998868
      phi2 = 98.23026
      theta3 = 5.998868
      phi3 = 98.23026
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 694
      chmoth = 'DCLS'
      x = 37.058949
      y = 5.3602565
      z = 0
      irot = 1442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1443
      theta1 = 90
      phi1 = 10.696014
      theta2 = 95.998868
      phi2 = 100.69601
      theta3 = 5.998868
      phi3 = 100.69601
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 695
      chmoth = 'DCLS'
      x = 36.794027
      y = 6.9496523
      z = 0
      irot = 1443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1444
      theta1 = 90
      phi1 = 13.161767
      theta2 = 95.998868
      phi2 = 103.16177
      theta3 = 5.998868
      phi3 = 103.16177
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 696
      chmoth = 'DCLS'
      x = 36.46097
      y = 8.5261789
      z = 0
      irot = 1444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1445
      theta1 = 90
      phi1 = 15.627521
      theta2 = 95.998868
      phi2 = 105.62752
      theta3 = 5.998868
      phi3 = 105.62752
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 697
      chmoth = 'DCLS'
      x = 36.060396
      y = 10.086917
      z = 0
      irot = 1445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1446
      theta1 = 90
      phi1 = 18.093274
      theta2 = 95.998868
      phi2 = 108.09327
      theta3 = 5.998868
      phi3 = 108.09327
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 698
      chmoth = 'DCLS'
      x = 35.593047
      y = 11.628976
      z = 0
      irot = 1446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1447
      theta1 = 90
      phi1 = 20.559027
      theta2 = 95.998868
      phi2 = 110.55903
      theta3 = 5.998868
      phi3 = 110.55903
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 699
      chmoth = 'DCLS'
      x = 35.059787
      y = 13.149502
      z = 0
      irot = 1447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1448
      theta1 = 90
      phi1 = 23.024781
      theta2 = 95.998868
      phi2 = 113.02478
      theta3 = 5.998868
      phi3 = 113.02478
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 700
      chmoth = 'DCLS'
      x = 34.461605
      y = 14.645677
      z = 0
      irot = 1448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1449
      theta1 = 90
      phi1 = 25.490534
      theta2 = 95.998868
      phi2 = 115.49053
      theta3 = 5.998868
      phi3 = 115.49053
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 701
      chmoth = 'DCLS'
      x = 33.799608
      y = 16.114732
      z = 0
      irot = 1449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1450
      theta1 = 90
      phi1 = 27.956288
      theta2 = 95.998868
      phi2 = 117.95629
      theta3 = 5.998868
      phi3 = 117.95629
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 702
      chmoth = 'DCLS'
      x = 33.075021
      y = 17.553946
      z = 0
      irot = 1450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1451
      theta1 = 90
      phi1 = 30.422041
      theta2 = 95.998868
      phi2 = 120.42204
      theta3 = 5.998868
      phi3 = 120.42204
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 703
      chmoth = 'DCLS'
      x = 32.289188
      y = 18.960655
      z = 0
      irot = 1451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1452
      theta1 = 90
      phi1 = 32.887795
      theta2 = 95.998868
      phi2 = 122.88779
      theta3 = 5.998868
      phi3 = 122.88779
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 704
      chmoth = 'DCLS'
      x = 31.443562
      y = 20.332252
      z = 0
      irot = 1452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1453
      theta1 = 90
      phi1 = 35.353548
      theta2 = 95.998868
      phi2 = 125.35355
      theta3 = 5.998868
      phi3 = 125.35355
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 705
      chmoth = 'DCLS'
      x = 30.53971
      y = 21.666199
      z = 0
      irot = 1453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1454
      theta1 = 90
      phi1 = 37.819301
      theta2 = 95.998868
      phi2 = 127.8193
      theta3 = 5.998868
      phi3 = 127.8193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 706
      chmoth = 'DCLS'
      x = 29.579305
      y = 22.960025
      z = 0
      irot = 1454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1455
      theta1 = 90
      phi1 = 40.285055
      theta2 = 95.998868
      phi2 = 130.28505
      theta3 = 5.998868
      phi3 = 130.28505
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 707
      chmoth = 'DCLS'
      x = 28.564127
      y = 24.211335
      z = 0
      irot = 1455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1456
      theta1 = 90
      phi1 = 42.750808
      theta2 = 95.998868
      phi2 = 132.75081
      theta3 = 5.998868
      phi3 = 132.75081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 708
      chmoth = 'DCLS'
      x = 27.496054
      y = 25.41781
      z = 0
      irot = 1456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1457
      theta1 = 90
      phi1 = 45.216562
      theta2 = 95.998868
      phi2 = 135.21656
      theta3 = 5.998868
      phi3 = 135.21656
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 709
      chmoth = 'DCLS'
      x = 26.377065
      y = 26.577218
      z = 0
      irot = 1457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1458
      theta1 = 90
      phi1 = 47.682315
      theta2 = 95.998868
      phi2 = 137.68232
      theta3 = 5.998868
      phi3 = 137.68232
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 710
      chmoth = 'DCLS'
      x = 25.209232
      y = 27.687411
      z = 0
      irot = 1458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1459
      theta1 = 90
      phi1 = 50.148068
      theta2 = 95.998868
      phi2 = 140.14807
      theta3 = 5.998868
      phi3 = 140.14807
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 711
      chmoth = 'DCLS'
      x = 23.994716
      y = 28.746333
      z = 0
      irot = 1459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1460
      theta1 = 90
      phi1 = 52.613822
      theta2 = 95.998868
      phi2 = 142.61382
      theta3 = 5.998868
      phi3 = 142.61382
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 712
      chmoth = 'DCLS'
      x = 22.735769
      y = 29.752023
      z = 0
      irot = 1460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1461
      theta1 = 90
      phi1 = 55.079575
      theta2 = 95.998868
      phi2 = 145.07958
      theta3 = 5.998868
      phi3 = 145.07958
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 713
      chmoth = 'DCLS'
      x = 21.43472
      y = 30.70262
      z = 0
      irot = 1461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1462
      theta1 = 90
      phi1 = 57.545329
      theta2 = 95.998868
      phi2 = 147.54533
      theta3 = 5.998868
      phi3 = 147.54533
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 714
      chmoth = 'DCLS'
      x = 20.093978
      y = 31.596362
      z = 0
      irot = 1462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1463
      theta1 = 90
      phi1 = 60.011082
      theta2 = 95.998868
      phi2 = 150.01108
      theta3 = 5.998868
      phi3 = 150.01108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 715
      chmoth = 'DCLS'
      x = 18.716027
      y = 32.431596
      z = 0
      irot = 1463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1464
      theta1 = 90
      phi1 = 62.476836
      theta2 = 95.998868
      phi2 = 152.47684
      theta3 = 5.998868
      phi3 = 152.47684
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 716
      chmoth = 'DCLS'
      x = 17.303419
      y = 33.206773
      z = 0
      irot = 1464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1465
      theta1 = 90
      phi1 = 64.942589
      theta2 = 95.998868
      phi2 = 154.94259
      theta3 = 5.998868
      phi3 = 154.94259
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 717
      chmoth = 'DCLS'
      x = 15.858768
      y = 33.920459
      z = 0
      irot = 1465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1466
      theta1 = 90
      phi1 = 67.408342
      theta2 = 95.998868
      phi2 = 157.40834
      theta3 = 5.998868
      phi3 = 157.40834
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 718
      chmoth = 'DCLS'
      x = 14.384751
      y = 34.571332
      z = 0
      irot = 1466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1467
      theta1 = 90
      phi1 = 69.874096
      theta2 = 95.998868
      phi2 = 159.8741
      theta3 = 5.998868
      phi3 = 159.8741
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 719
      chmoth = 'DCLS'
      x = 12.884097
      y = 35.158187
      z = 0
      irot = 1467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1468
      theta1 = 90
      phi1 = 72.339849
      theta2 = 95.998868
      phi2 = 162.33985
      theta3 = 5.998868
      phi3 = 162.33985
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 720
      chmoth = 'DCLS'
      x = 11.359584
      y = 35.679937
      z = 0
      irot = 1468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1469
      theta1 = 90
      phi1 = 74.805603
      theta2 = 95.998868
      phi2 = 164.8056
      theta3 = 5.998868
      phi3 = 164.8056
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 721
      chmoth = 'DCLS'
      x = 9.8140354
      y = 36.135616
      z = 0
      irot = 1469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1470
      theta1 = 90
      phi1 = 77.271356
      theta2 = 95.998868
      phi2 = 167.27136
      theta3 = 5.998868
      phi3 = 167.27136
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 722
      chmoth = 'DCLS'
      x = 8.2503138
      y = 36.524381
      z = 0
      irot = 1470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1471
      theta1 = 90
      phi1 = 79.73711
      theta2 = 95.998868
      phi2 = 169.73711
      theta3 = 5.998868
      phi3 = 169.73711
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 723
      chmoth = 'DCLS'
      x = 6.6713146
      y = 36.84551
      z = 0
      irot = 1471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1472
      theta1 = 90
      phi1 = 82.202863
      theta2 = 95.998868
      phi2 = 172.20286
      theta3 = 5.998868
      phi3 = 172.20286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 724
      chmoth = 'DCLS'
      x = 5.0799616
      y = 37.09841
      z = 0
      irot = 1472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1473
      theta1 = 90
      phi1 = 84.668616
      theta2 = 95.998868
      phi2 = 174.66862
      theta3 = 5.998868
      phi3 = 174.66862
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 725
      chmoth = 'DCLS'
      x = 3.4792016
      y = 37.282613
      z = 0
      irot = 1473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1474
      theta1 = 90
      phi1 = 87.13437
      theta2 = 95.998868
      phi2 = 177.13437
      theta3 = 5.998868
      phi3 = 177.13437
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 726
      chmoth = 'DCLS'
      x = 1.871999
      y = 37.397777
      z = 0
      irot = 1474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1475
      theta1 = 90
      phi1 = 89.600123
      theta2 = 95.998868
      phi2 = 179.60012
      theta3 = 5.998868
      phi3 = 179.60012
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 727
      chmoth = 'DCLS'
      x = 0.26132993
      y = 37.443688
      z = 0
      irot = 1475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1476
      theta1 = 90
      phi1 = 92.065877
      theta2 = 95.998868
      phi2 = -177.93412
      theta3 = 5.998868
      phi3 = -177.93412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 728
      chmoth = 'DCLS'
      x = -1.3498231
      y = 37.420263
      z = 0
      irot = 1476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1477
      theta1 = 90
      phi1 = 94.53163
      theta2 = 95.998868
      phi2 = -175.46837
      theta3 = 5.998868
      phi3 = -175.46837
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 729
      chmoth = 'DCLS'
      x = -2.9584766
      y = 37.327543
      z = 0
      irot = 1477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1478
      theta1 = 90
      phi1 = 96.997384
      theta2 = 95.998868
      phi2 = -173.00262
      theta3 = 5.998868
      phi3 = -173.00262
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 730
      chmoth = 'DCLS'
      x = -4.5616516
      y = 37.165702
      z = 0
      irot = 1478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1479
      theta1 = 90
      phi1 = 99.463137
      theta2 = 95.998868
      phi2 = -170.53686
      theta3 = 5.998868
      phi3 = -170.53686
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 731
      chmoth = 'DCLS'
      x = -6.1563796
      y = 36.935038
      z = 0
      irot = 1479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1480
      theta1 = 90
      phi1 = 101.92889
      theta2 = 95.998868
      phi2 = -168.07111
      theta3 = 5.998868
      phi3 = -168.07111
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 732
      chmoth = 'DCLS'
      x = -7.7397073
      y = 36.63598
      z = 0
      irot = 1480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1481
      theta1 = 90
      phi1 = 104.39464
      theta2 = 95.998868
      phi2 = -165.60536
      theta3 = 5.998868
      phi3 = -165.60536
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 733
      chmoth = 'DCLS'
      x = -9.3087029
      y = 36.269079
      z = 0
      irot = 1481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1482
      theta1 = 90
      phi1 = 106.8604
      theta2 = 95.998868
      phi2 = -163.1396
      theta3 = 5.998868
      phi3 = -163.1396
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 734
      chmoth = 'DCLS'
      x = -10.860461
      y = 35.835017
      z = 0
      irot = 1482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1483
      theta1 = 90
      phi1 = 109.32615
      theta2 = 95.998868
      phi2 = -160.67385
      theta3 = 5.998868
      phi3 = -160.67385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 735
      chmoth = 'DCLS'
      x = -12.392108
      y = 35.334597
      z = 0
      irot = 1483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1484
      theta1 = 90
      phi1 = 111.7919
      theta2 = 95.998868
      phi2 = -158.2081
      theta3 = 5.998868
      phi3 = -158.2081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 736
      chmoth = 'DCLS'
      x = -13.900807
      y = 34.768745
      z = 0
      irot = 1484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1485
      theta1 = 90
      phi1 = 114.25766
      theta2 = 95.998868
      phi2 = -155.74234
      theta3 = 5.998868
      phi3 = -155.74234
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 737
      chmoth = 'DCLS'
      x = -15.383766
      y = 34.138509
      z = 0
      irot = 1485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1486
      theta1 = 90
      phi1 = 116.72341
      theta2 = 95.998868
      phi2 = -153.27659
      theta3 = 5.998868
      phi3 = -153.27659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 738
      chmoth = 'DCLS'
      x = -16.838237
      y = 33.445057
      z = 0
      irot = 1486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1487
      theta1 = 90
      phi1 = 119.18916
      theta2 = 95.998868
      phi2 = -150.81084
      theta3 = 5.998868
      phi3 = -150.81084
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 739
      chmoth = 'DCLS'
      x = -18.261528
      y = 32.689672
      z = 0
      irot = 1487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1488
      theta1 = 90
      phi1 = 121.65492
      theta2 = 95.998868
      phi2 = -148.34508
      theta3 = 5.998868
      phi3 = -148.34508
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 740
      chmoth = 'DCLS'
      x = -19.651003
      y = 31.873754
      z = 0
      irot = 1488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1489
      theta1 = 90
      phi1 = 124.12067
      theta2 = 95.998868
      phi2 = -145.87933
      theta3 = 5.998868
      phi3 = -145.87933
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 741
      chmoth = 'DCLS'
      x = -21.004088
      y = 30.998812
      z = 0
      irot = 1489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1490
      theta1 = 90
      phi1 = 126.58642
      theta2 = 95.998868
      phi2 = -143.41358
      theta3 = 5.998868
      phi3 = -143.41358
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 742
      chmoth = 'DCLS'
      x = -22.318279
      y = 30.066468
      z = 0
      irot = 1490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1491
      theta1 = 90
      phi1 = 129.05218
      theta2 = 95.998868
      phi2 = -140.94782
      theta3 = 5.998868
      phi3 = -140.94782
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 743
      chmoth = 'DCLS'
      x = -23.591141
      y = 29.078448
      z = 0
      irot = 1491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1492
      theta1 = 90
      phi1 = 131.51793
      theta2 = 95.998868
      phi2 = -138.48207
      theta3 = 5.998868
      phi3 = -138.48207
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 744
      chmoth = 'DCLS'
      x = -24.820318
      y = 28.036581
      z = 0
      irot = 1492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1493
      theta1 = 90
      phi1 = 133.98368
      theta2 = 95.998868
      phi2 = -136.01632
      theta3 = 5.998868
      phi3 = -136.01632
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 745
      chmoth = 'DCLS'
      x = -26.003534
      y = 26.942797
      z = 0
      irot = 1493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1494
      theta1 = 90
      phi1 = 136.44944
      theta2 = 95.998868
      phi2 = -133.55056
      theta3 = 5.998868
      phi3 = -133.55056
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 746
      chmoth = 'DCLS'
      x = -27.138597
      y = 25.799121
      z = 0
      irot = 1494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1495
      theta1 = 90
      phi1 = 138.91519
      theta2 = 95.998868
      phi2 = -131.08481
      theta3 = 5.998868
      phi3 = -131.08481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 747
      chmoth = 'DCLS'
      x = -28.223405
      y = 24.607671
      z = 0
      irot = 1495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1496
      theta1 = 90
      phi1 = 141.38095
      theta2 = 95.998868
      phi2 = -128.61905
      theta3 = 5.998868
      phi3 = -128.61905
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 748
      chmoth = 'DCLS'
      x = -29.255951
      y = 23.370653
      z = 0
      irot = 1496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1497
      theta1 = 90
      phi1 = 143.8467
      theta2 = 95.998868
      phi2 = -126.1533
      theta3 = 5.998868
      phi3 = -126.1533
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 749
      chmoth = 'DCLS'
      x = -30.234321
      y = 22.090358
      z = 0
      irot = 1497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1498
      theta1 = 90
      phi1 = 146.31245
      theta2 = 95.998868
      phi2 = -123.68755
      theta3 = 5.998868
      phi3 = -123.68755
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 750
      chmoth = 'DCLS'
      x = -31.156704
      y = 20.769157
      z = 0
      irot = 1498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1499
      theta1 = 90
      phi1 = 148.77821
      theta2 = 95.998868
      phi2 = -121.22179
      theta3 = 5.998868
      phi3 = -121.22179
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 751
      chmoth = 'DCLS'
      x = -32.021392
      y = 19.409496
      z = 0
      irot = 1499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1500
      theta1 = 90
      phi1 = 151.24396
      theta2 = 95.998868
      phi2 = -118.75604
      theta3 = 5.998868
      phi3 = -118.75604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 752
      chmoth = 'DCLS'
      x = -32.826784
      y = 18.013893
      z = 0
      irot = 1500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1501
      theta1 = 90
      phi1 = 153.70971
      theta2 = 95.998868
      phi2 = -116.29029
      theta3 = 5.998868
      phi3 = -116.29029
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 753
      chmoth = 'DCLS'
      x = -33.571388
      y = 16.584933
      z = 0
      irot = 1501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1502
      theta1 = 90
      phi1 = 156.17547
      theta2 = 95.998868
      phi2 = -113.82453
      theta3 = 5.998868
      phi3 = -113.82453
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 754
      chmoth = 'DCLS'
      x = -34.253825
      y = 15.125261
      z = 0
      irot = 1502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1503
      theta1 = 90
      phi1 = 158.64122
      theta2 = 95.998868
      phi2 = -111.35878
      theta3 = 5.998868
      phi3 = -111.35878
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 755
      chmoth = 'DCLS'
      x = -34.872833
      y = 13.637581
      z = 0
      irot = 1503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1504
      theta1 = 90
      phi1 = 161.10697
      theta2 = 95.998868
      phi2 = -108.89303
      theta3 = 5.998868
      phi3 = -108.89303
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 756
      chmoth = 'DCLS'
      x = -35.427264
      y = 12.124647
      z = 0
      irot = 1504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1505
      theta1 = 90
      phi1 = 163.57273
      theta2 = 95.998868
      phi2 = -106.42727
      theta3 = 5.998868
      phi3 = -106.42727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 757
      chmoth = 'DCLS'
      x = -35.916091
      y = 10.589261
      z = 0
      irot = 1505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1506
      theta1 = 90
      phi1 = 166.03848
      theta2 = 95.998868
      phi2 = -103.96152
      theta3 = 5.998868
      phi3 = -103.96152
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 758
      chmoth = 'DCLS'
      x = -36.338411
      y = 9.034266
      z = 0
      irot = 1506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1507
      theta1 = 90
      phi1 = 168.50423
      theta2 = 95.998868
      phi2 = -101.49577
      theta3 = 5.998868
      phi3 = -101.49577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 759
      chmoth = 'DCLS'
      x = -36.69344
      y = 7.4625418
      z = 0
      irot = 1507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1508
      theta1 = 90
      phi1 = 170.96999
      theta2 = 95.998868
      phi2 = -99.030014
      theta3 = 5.998868
      phi3 = -99.030014
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 760
      chmoth = 'DCLS'
      x = -36.980521
      y = 5.8769986
      z = 0
      irot = 1508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1509
      theta1 = 90
      phi1 = 173.43574
      theta2 = 95.998868
      phi2 = -96.56426
      theta3 = 5.998868
      phi3 = -96.56426
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 761
      chmoth = 'DCLS'
      x = -37.199123
      y = 4.2805725
      z = 0
      irot = 1509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1510
      theta1 = 90
      phi1 = 175.90149
      theta2 = 95.998868
      phi2 = -94.098507
      theta3 = 5.998868
      phi3 = -94.098507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 762
      chmoth = 'DCLS'
      x = -37.348841
      y = 2.6762199
      z = 0
      irot = 1510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1511
      theta1 = 90
      phi1 = 178.36725
      theta2 = 95.998868
      phi2 = -91.632753
      theta3 = 5.998868
      phi3 = -91.632753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 763
      chmoth = 'DCLS'
      x = -37.429397
      y = 1.0669115
      z = 0
      irot = 1511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1512
      theta1 = 90
      phi1 = -179.167
      theta2 = 95.998868
      phi2 = -89.167
      theta3 = 5.998868
      phi3 = -89.167
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 764
      chmoth = 'DCLS'
      x = -37.440643
      y = -0.54437261
      z = 0
      irot = 1512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1513
      theta1 = 90
      phi1 = -176.70125
      theta2 = 95.998868
      phi2 = -86.701247
      theta3 = 5.998868
      phi3 = -86.701247
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 765
      chmoth = 'DCLS'
      x = -37.382557
      y = -2.1546486
      z = 0
      irot = 1513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1514
      theta1 = 90
      phi1 = -174.23549
      theta2 = 95.998868
      phi2 = -84.235493
      theta3 = 5.998868
      phi3 = -84.235493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 766
      chmoth = 'DCLS'
      x = -37.255247
      y = -3.7609348
      z = 0
      irot = 1514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1515
      theta1 = 90
      phi1 = -171.76974
      theta2 = 95.998868
      phi2 = -81.76974
      theta3 = 5.998868
      phi3 = -81.76974
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 767
      chmoth = 'DCLS'
      x = -37.058949
      y = -5.3602565
      z = 0
      irot = 1515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1516
      theta1 = 90
      phi1 = -169.30399
      theta2 = 95.998868
      phi2 = -79.303986
      theta3 = 5.998868
      phi3 = -79.303986
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 768
      chmoth = 'DCLS'
      x = -36.794027
      y = -6.9496523
      z = 0
      irot = 1516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1517
      theta1 = 90
      phi1 = -166.83823
      theta2 = 95.998868
      phi2 = -76.838233
      theta3 = 5.998868
      phi3 = -76.838233
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 769
      chmoth = 'DCLS'
      x = -36.46097
      y = -8.5261789
      z = 0
      irot = 1517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1518
      theta1 = 90
      phi1 = -164.37248
      theta2 = 95.998868
      phi2 = -74.372479
      theta3 = 5.998868
      phi3 = -74.372479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 770
      chmoth = 'DCLS'
      x = -36.060396
      y = -10.086917
      z = 0
      irot = 1518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1519
      theta1 = 90
      phi1 = -161.90673
      theta2 = 95.998868
      phi2 = -71.906726
      theta3 = 5.998868
      phi3 = -71.906726
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 771
      chmoth = 'DCLS'
      x = -35.593047
      y = -11.628976
      z = 0
      irot = 1519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1520
      theta1 = 90
      phi1 = -159.44097
      theta2 = 95.998868
      phi2 = -69.440973
      theta3 = 5.998868
      phi3 = -69.440973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 772
      chmoth = 'DCLS'
      x = -35.059787
      y = -13.149502
      z = 0
      irot = 1520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1521
      theta1 = 90
      phi1 = -156.97522
      theta2 = 95.998868
      phi2 = -66.975219
      theta3 = 5.998868
      phi3 = -66.975219
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 773
      chmoth = 'DCLS'
      x = -34.461605
      y = -14.645677
      z = 0
      irot = 1521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1522
      theta1 = 90
      phi1 = -154.50947
      theta2 = 95.998868
      phi2 = -64.509466
      theta3 = 5.998868
      phi3 = -64.509466
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 774
      chmoth = 'DCLS'
      x = -33.799608
      y = -16.114732
      z = 0
      irot = 1522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1523
      theta1 = 90
      phi1 = -152.04371
      theta2 = 95.998868
      phi2 = -62.043712
      theta3 = 5.998868
      phi3 = -62.043712
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 775
      chmoth = 'DCLS'
      x = -33.075021
      y = -17.553946
      z = 0
      irot = 1523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1524
      theta1 = 90
      phi1 = -149.57796
      theta2 = 95.998868
      phi2 = -59.577959
      theta3 = 5.998868
      phi3 = -59.577959
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 776
      chmoth = 'DCLS'
      x = -32.289188
      y = -18.960655
      z = 0
      irot = 1524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1525
      theta1 = 90
      phi1 = -147.11221
      theta2 = 95.998868
      phi2 = -57.112205
      theta3 = 5.998868
      phi3 = -57.112205
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 777
      chmoth = 'DCLS'
      x = -31.443562
      y = -20.332252
      z = 0
      irot = 1525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1526
      theta1 = 90
      phi1 = -144.64645
      theta2 = 95.998868
      phi2 = -54.646452
      theta3 = 5.998868
      phi3 = -54.646452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 778
      chmoth = 'DCLS'
      x = -30.53971
      y = -21.666199
      z = 0
      irot = 1526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1527
      theta1 = 90
      phi1 = -142.1807
      theta2 = 95.998868
      phi2 = -52.180699
      theta3 = 5.998868
      phi3 = -52.180699
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 779
      chmoth = 'DCLS'
      x = -29.579305
      y = -22.960025
      z = 0
      irot = 1527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1528
      theta1 = 90
      phi1 = -139.71495
      theta2 = 95.998868
      phi2 = -49.714945
      theta3 = 5.998868
      phi3 = -49.714945
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 780
      chmoth = 'DCLS'
      x = -28.564127
      y = -24.211335
      z = 0
      irot = 1528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1529
      theta1 = 90
      phi1 = -137.24919
      theta2 = 95.998868
      phi2 = -47.249192
      theta3 = 5.998868
      phi3 = -47.249192
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 781
      chmoth = 'DCLS'
      x = -27.496054
      y = -25.41781
      z = 0
      irot = 1529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1530
      theta1 = 90
      phi1 = -134.78344
      theta2 = 95.998868
      phi2 = -44.783438
      theta3 = 5.998868
      phi3 = -44.783438
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 782
      chmoth = 'DCLS'
      x = -26.377065
      y = -26.577218
      z = 0
      irot = 1530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1531
      theta1 = 90
      phi1 = -132.31768
      theta2 = 95.998868
      phi2 = -42.317685
      theta3 = 5.998868
      phi3 = -42.317685
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 783
      chmoth = 'DCLS'
      x = -25.209232
      y = -27.687411
      z = 0
      irot = 1531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1532
      theta1 = 90
      phi1 = -129.85193
      theta2 = 95.998868
      phi2 = -39.851932
      theta3 = 5.998868
      phi3 = -39.851932
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 784
      chmoth = 'DCLS'
      x = -23.994716
      y = -28.746333
      z = 0
      irot = 1532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1533
      theta1 = 90
      phi1 = -127.38618
      theta2 = 95.998868
      phi2 = -37.386178
      theta3 = 5.998868
      phi3 = -37.386178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 785
      chmoth = 'DCLS'
      x = -22.735769
      y = -29.752023
      z = 0
      irot = 1533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1534
      theta1 = 90
      phi1 = -124.92042
      theta2 = 95.998868
      phi2 = -34.920425
      theta3 = 5.998868
      phi3 = -34.920425
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 786
      chmoth = 'DCLS'
      x = -21.43472
      y = -30.70262
      z = 0
      irot = 1534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1535
      theta1 = 90
      phi1 = -122.45467
      theta2 = 95.998868
      phi2 = -32.454671
      theta3 = 5.998868
      phi3 = -32.454671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 787
      chmoth = 'DCLS'
      x = -20.093978
      y = -31.596362
      z = 0
      irot = 1535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1536
      theta1 = 90
      phi1 = -119.98892
      theta2 = 95.998868
      phi2 = -29.988918
      theta3 = 5.998868
      phi3 = -29.988918
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 788
      chmoth = 'DCLS'
      x = -18.716027
      y = -32.431596
      z = 0
      irot = 1536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1537
      theta1 = 90
      phi1 = -117.52316
      theta2 = 95.998868
      phi2 = -27.523164
      theta3 = 5.998868
      phi3 = -27.523164
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 789
      chmoth = 'DCLS'
      x = -17.303419
      y = -33.206773
      z = 0
      irot = 1537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1538
      theta1 = 90
      phi1 = -115.05741
      theta2 = 95.998868
      phi2 = -25.057411
      theta3 = 5.998868
      phi3 = -25.057411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 790
      chmoth = 'DCLS'
      x = -15.858768
      y = -33.920459
      z = 0
      irot = 1538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1539
      theta1 = 90
      phi1 = -112.59166
      theta2 = 95.998868
      phi2 = -22.591658
      theta3 = 5.998868
      phi3 = -22.591658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 791
      chmoth = 'DCLS'
      x = -14.384751
      y = -34.571332
      z = 0
      irot = 1539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1540
      theta1 = 90
      phi1 = -110.1259
      theta2 = 95.998868
      phi2 = -20.125904
      theta3 = 5.998868
      phi3 = -20.125904
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 792
      chmoth = 'DCLS'
      x = -12.884097
      y = -35.158187
      z = 0
      irot = 1540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1541
      theta1 = 90
      phi1 = -107.66015
      theta2 = 95.998868
      phi2 = -17.660151
      theta3 = 5.998868
      phi3 = -17.660151
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 793
      chmoth = 'DCLS'
      x = -11.359584
      y = -35.679937
      z = 0
      irot = 1541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1542
      theta1 = 90
      phi1 = -105.1944
      theta2 = 95.998868
      phi2 = -15.194397
      theta3 = 5.998868
      phi3 = -15.194397
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 794
      chmoth = 'DCLS'
      x = -9.8140354
      y = -36.135616
      z = 0
      irot = 1542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1543
      theta1 = 90
      phi1 = -102.72864
      theta2 = 95.998868
      phi2 = -12.728644
      theta3 = 5.998868
      phi3 = -12.728644
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 795
      chmoth = 'DCLS'
      x = -8.2503138
      y = -36.524381
      z = 0
      irot = 1543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1544
      theta1 = 90
      phi1 = -100.26289
      theta2 = 95.998868
      phi2 = -10.26289
      theta3 = 5.998868
      phi3 = -10.26289
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 796
      chmoth = 'DCLS'
      x = -6.6713146
      y = -36.84551
      z = 0
      irot = 1544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1545
      theta1 = 90
      phi1 = -97.797137
      theta2 = 95.998868
      phi2 = -7.797137
      theta3 = 5.998868
      phi3 = -7.797137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 797
      chmoth = 'DCLS'
      x = -5.0799616
      y = -37.09841
      z = 0
      irot = 1545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1546
      theta1 = 90
      phi1 = -95.331384
      theta2 = 95.998868
      phi2 = -5.3313836
      theta3 = 5.998868
      phi3 = -5.3313836
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 798
      chmoth = 'DCLS'
      x = -3.4792016
      y = -37.282613
      z = 0
      irot = 1546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1547
      theta1 = 90
      phi1 = -92.86563
      theta2 = 95.998868
      phi2 = -2.8656301
      theta3 = 5.998868
      phi3 = -2.8656301
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 799
      chmoth = 'DCLS'
      x = -1.871999
      y = -37.397777
      z = 0
      irot = 1547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1548
      theta1 = 90
      phi1 = -90.399877
      theta2 = 95.998868
      phi2 = -0.39987671
      theta3 = 5.998868
      phi3 = -0.39987671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 800
      chmoth = 'DCLS'
      x = -0.26132993
      y = -37.443688
      z = 0
      irot = 1548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1549
      theta1 = 90
      phi1 = -87.934123
      theta2 = 95.998868
      phi2 = 2.0658767
      theta3 = 5.998868
      phi3 = 2.0658767
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 801
      chmoth = 'DCLS'
      x = 1.3498231
      y = -37.420263
      z = 0
      irot = 1549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1550
      theta1 = 90
      phi1 = -85.46837
      theta2 = 95.998868
      phi2 = 4.5316301
      theta3 = 5.998868
      phi3 = 4.5316301
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 802
      chmoth = 'DCLS'
      x = 2.9584766
      y = -37.327543
      z = 0
      irot = 1550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1551
      theta1 = 90
      phi1 = -83.002616
      theta2 = 95.998868
      phi2 = 6.9973836
      theta3 = 5.998868
      phi3 = 6.9973836
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 803
      chmoth = 'DCLS'
      x = 4.5616516
      y = -37.165702
      z = 0
      irot = 1551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1552
      theta1 = 90
      phi1 = -80.536863
      theta2 = 95.998868
      phi2 = 9.463137
      theta3 = 5.998868
      phi3 = 9.463137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 804
      chmoth = 'DCLS'
      x = 6.1563796
      y = -36.935038
      z = 0
      irot = 1552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1553
      theta1 = 90
      phi1 = -78.07111
      theta2 = 95.998868
      phi2 = 11.92889
      theta3 = 5.998868
      phi3 = 11.92889
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 805
      chmoth = 'DCLS'
      x = 7.7397073
      y = -36.63598
      z = 0
      irot = 1553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1554
      theta1 = 90
      phi1 = -75.605356
      theta2 = 95.998868
      phi2 = 14.394644
      theta3 = 5.998868
      phi3 = 14.394644
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 806
      chmoth = 'DCLS'
      x = 9.3087029
      y = -36.269079
      z = 0
      irot = 1554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1555
      theta1 = 90
      phi1 = -73.139603
      theta2 = 95.998868
      phi2 = 16.860397
      theta3 = 5.998868
      phi3 = 16.860397
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 807
      chmoth = 'DCLS'
      x = 10.860461
      y = -35.835017
      z = 0
      irot = 1555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1556
      theta1 = 90
      phi1 = -70.673849
      theta2 = 95.998868
      phi2 = 19.326151
      theta3 = 5.998868
      phi3 = 19.326151
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 808
      chmoth = 'DCLS'
      x = 12.392108
      y = -35.334597
      z = 0
      irot = 1556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1557
      theta1 = 90
      phi1 = -68.208096
      theta2 = 95.998868
      phi2 = 21.791904
      theta3 = 5.998868
      phi3 = 21.791904
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 809
      chmoth = 'DCLS'
      x = 13.900807
      y = -34.768745
      z = 0
      irot = 1557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1558
      theta1 = 90
      phi1 = -65.742342
      theta2 = 95.998868
      phi2 = 24.257658
      theta3 = 5.998868
      phi3 = 24.257658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 810
      chmoth = 'DCLS'
      x = 15.383766
      y = -34.138509
      z = 0
      irot = 1558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1559
      theta1 = 90
      phi1 = -63.276589
      theta2 = 95.998868
      phi2 = 26.723411
      theta3 = 5.998868
      phi3 = 26.723411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 811
      chmoth = 'DCLS'
      x = 16.838237
      y = -33.445057
      z = 0
      irot = 1559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1560
      theta1 = 90
      phi1 = -60.810836
      theta2 = 95.998868
      phi2 = 29.189164
      theta3 = 5.998868
      phi3 = 29.189164
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 812
      chmoth = 'DCLS'
      x = 18.261528
      y = -32.689672
      z = 0
      irot = 1560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1561
      theta1 = 90
      phi1 = -58.345082
      theta2 = 95.998868
      phi2 = 31.654918
      theta3 = 5.998868
      phi3 = 31.654918
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 813
      chmoth = 'DCLS'
      x = 19.651003
      y = -31.873754
      z = 0
      irot = 1561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1562
      theta1 = 90
      phi1 = -55.879329
      theta2 = 95.998868
      phi2 = 34.120671
      theta3 = 5.998868
      phi3 = 34.120671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 814
      chmoth = 'DCLS'
      x = 21.004088
      y = -30.998812
      z = 0
      irot = 1562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1563
      theta1 = 90
      phi1 = -53.413575
      theta2 = 95.998868
      phi2 = 36.586425
      theta3 = 5.998868
      phi3 = 36.586425
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 815
      chmoth = 'DCLS'
      x = 22.318279
      y = -30.066468
      z = 0
      irot = 1563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1564
      theta1 = 90
      phi1 = -50.947822
      theta2 = 95.998868
      phi2 = 39.052178
      theta3 = 5.998868
      phi3 = 39.052178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 816
      chmoth = 'DCLS'
      x = 23.591141
      y = -29.078448
      z = 0
      irot = 1564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1565
      theta1 = 90
      phi1 = -48.482068
      theta2 = 95.998868
      phi2 = 41.517932
      theta3 = 5.998868
      phi3 = 41.517932
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 817
      chmoth = 'DCLS'
      x = 24.820318
      y = -28.036581
      z = 0
      irot = 1565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1566
      theta1 = 90
      phi1 = -46.016315
      theta2 = 95.998868
      phi2 = 43.983685
      theta3 = 5.998868
      phi3 = 43.983685
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 818
      chmoth = 'DCLS'
      x = 26.003534
      y = -26.942797
      z = 0
      irot = 1566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1567
      theta1 = 90
      phi1 = -43.550562
      theta2 = 95.998868
      phi2 = 46.449438
      theta3 = 5.998868
      phi3 = 46.449438
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 819
      chmoth = 'DCLS'
      x = 27.138597
      y = -25.799121
      z = 0
      irot = 1567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1568
      theta1 = 90
      phi1 = -41.084808
      theta2 = 95.998868
      phi2 = 48.915192
      theta3 = 5.998868
      phi3 = 48.915192
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 820
      chmoth = 'DCLS'
      x = 28.223405
      y = -24.607671
      z = 0
      irot = 1568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1569
      theta1 = 90
      phi1 = -38.619055
      theta2 = 95.998868
      phi2 = 51.380945
      theta3 = 5.998868
      phi3 = 51.380945
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 821
      chmoth = 'DCLS'
      x = 29.255951
      y = -23.370653
      z = 0
      irot = 1569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1570
      theta1 = 90
      phi1 = -36.153301
      theta2 = 95.998868
      phi2 = 53.846699
      theta3 = 5.998868
      phi3 = 53.846699
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 822
      chmoth = 'DCLS'
      x = 30.234321
      y = -22.090358
      z = 0
      irot = 1570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1571
      theta1 = 90
      phi1 = -33.687548
      theta2 = 95.998868
      phi2 = 56.312452
      theta3 = 5.998868
      phi3 = 56.312452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 823
      chmoth = 'DCLS'
      x = 31.156704
      y = -20.769157
      z = 0
      irot = 1571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1572
      theta1 = 90
      phi1 = -31.221795
      theta2 = 95.998868
      phi2 = 58.778205
      theta3 = 5.998868
      phi3 = 58.778205
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 824
      chmoth = 'DCLS'
      x = 32.021392
      y = -19.409496
      z = 0
      irot = 1572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1573
      theta1 = 90
      phi1 = -28.756041
      theta2 = 95.998868
      phi2 = 61.243959
      theta3 = 5.998868
      phi3 = 61.243959
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 825
      chmoth = 'DCLS'
      x = 32.826784
      y = -18.013893
      z = 0
      irot = 1573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1574
      theta1 = 90
      phi1 = -26.290288
      theta2 = 95.998868
      phi2 = 63.709712
      theta3 = 5.998868
      phi3 = 63.709712
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 826
      chmoth = 'DCLS'
      x = 33.571388
      y = -16.584933
      z = 0
      irot = 1574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1575
      theta1 = 90
      phi1 = -23.824534
      theta2 = 95.998868
      phi2 = 66.175466
      theta3 = 5.998868
      phi3 = 66.175466
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 827
      chmoth = 'DCLS'
      x = 34.253825
      y = -15.125261
      z = 0
      irot = 1575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1576
      theta1 = 90
      phi1 = -21.358781
      theta2 = 95.998868
      phi2 = 68.641219
      theta3 = 5.998868
      phi3 = 68.641219
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 828
      chmoth = 'DCLS'
      x = 34.872833
      y = -13.637581
      z = 0
      irot = 1576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1577
      theta1 = 90
      phi1 = -18.893027
      theta2 = 95.998868
      phi2 = 71.106973
      theta3 = 5.998868
      phi3 = 71.106973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 829
      chmoth = 'DCLS'
      x = 35.427264
      y = -12.124647
      z = 0
      irot = 1577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1578
      theta1 = 90
      phi1 = -16.427274
      theta2 = 95.998868
      phi2 = 73.572726
      theta3 = 5.998868
      phi3 = 73.572726
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 830
      chmoth = 'DCLS'
      x = 35.916091
      y = -10.589261
      z = 0
      irot = 1578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1579
      theta1 = 90
      phi1 = -13.961521
      theta2 = 95.998868
      phi2 = 76.038479
      theta3 = 5.998868
      phi3 = 76.038479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 831
      chmoth = 'DCLS'
      x = 36.338411
      y = -9.034266
      z = 0
      irot = 1579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1580
      theta1 = 90
      phi1 = -11.495767
      theta2 = 95.998868
      phi2 = 78.504233
      theta3 = 5.998868
      phi3 = 78.504233
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 832
      chmoth = 'DCLS'
      x = 36.69344
      y = -7.4625418
      z = 0
      irot = 1580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1581
      theta1 = 90
      phi1 = -9.0300137
      theta2 = 95.998868
      phi2 = 80.969986
      theta3 = 5.998868
      phi3 = 80.969986
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 833
      chmoth = 'DCLS'
      x = 36.980521
      y = -5.8769986
      z = 0
      irot = 1581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1582
      theta1 = 90
      phi1 = -6.5642603
      theta2 = 95.998868
      phi2 = 83.43574
      theta3 = 5.998868
      phi3 = 83.43574
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 834
      chmoth = 'DCLS'
      x = 37.199123
      y = -4.2805725
      z = 0
      irot = 1582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1583
      theta1 = 90
      phi1 = -4.0985068
      theta2 = 95.998868
      phi2 = 85.901493
      theta3 = 5.998868
      phi3 = 85.901493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 835
      chmoth = 'DCLS'
      x = 37.348841
      y = -2.6762199
      z = 0
      irot = 1583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1584
      theta1 = 90
      phi1 = -1.6327534
      theta2 = 95.998868
      phi2 = 88.367247
      theta3 = 5.998868
      phi3 = 88.367247
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 836
      chmoth = 'DCLS'
      x = 37.429397
      y = -1.0669115
      z = 0
      irot = 1584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1585
      theta1 = 89.77491
      phi1 = 0
      theta2 = 96.215212
      phi2 = 89.975487
      theta3 = 6.2193186
      phi3 = 92.06596
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 837
      chmoth = 'DCLS'
      x = 38.8061
      y = 1.4
      z = 0
      irot = 1585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1586
      theta1 = 89.77491
      phi1 = 2.4657534
      theta2 = 96.215212
      phi2 = 92.44124
      theta3 = 6.2193186
      phi3 = 94.531714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 838
      chmoth = 'DCLS'
      x = 38.709939
      y = 3.0682288
      z = 0
      irot = 1586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1587
      theta1 = 89.77491
      phi1 = 4.9315068
      theta2 = 96.215212
      phi2 = 94.906994
      theta3 = 6.2193186
      phi3 = 96.997467
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 839
      chmoth = 'DCLS'
      x = 38.542096
      y = 4.730776
      z = 0
      irot = 1587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1588
      theta1 = 89.77491
      phi1 = 7.3972603
      theta2 = 96.215212
      phi2 = 97.372747
      theta3 = 6.2193186
      phi3 = 99.463221
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 840
      chmoth = 'DCLS'
      x = 38.302882
      y = 6.3845629
      z = 0
      irot = 1588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1589
      theta1 = 89.77491
      phi1 = 9.8630137
      theta2 = 96.215212
      phi2 = 99.838501
      theta3 = 6.2193186
      phi3 = 101.92897
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 841
      chmoth = 'DCLS'
      x = 37.99274
      y = 8.026527
      z = 0
      irot = 1589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1590
      theta1 = 89.77491
      phi1 = 12.328767
      theta2 = 96.215212
      phi2 = 102.30425
      theta3 = 6.2193186
      phi3 = 104.39473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 842
      chmoth = 'DCLS'
      x = 37.612244
      y = 9.6536279
      z = 0
      irot = 1590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1591
      theta1 = 89.77491
      phi1 = 14.794521
      theta2 = 96.215212
      phi2 = 104.77001
      theta3 = 6.2193186
      phi3 = 106.86048
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 843
      chmoth = 'DCLS'
      x = 37.162098
      y = 11.262852
      z = 0
      irot = 1591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1592
      theta1 = 89.77491
      phi1 = 17.260274
      theta2 = 96.215212
      phi2 = 107.23576
      theta3 = 6.2193186
      phi3 = 109.32623
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 844
      chmoth = 'DCLS'
      x = 36.643137
      y = 12.851221
      z = 0
      irot = 1592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1593
      theta1 = 89.77491
      phi1 = 19.726027
      theta2 = 96.215212
      phi2 = 109.70151
      theta3 = 6.2193186
      phi3 = 111.79199
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 845
      chmoth = 'DCLS'
      x = 36.056322
      y = 14.415792
      z = 0
      irot = 1593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1594
      theta1 = 89.77491
      phi1 = 22.191781
      theta2 = 96.215212
      phi2 = 112.16727
      theta3 = 6.2193186
      phi3 = 114.25774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 846
      chmoth = 'DCLS'
      x = 35.402738
      y = 15.953668
      z = 0
      irot = 1594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1595
      theta1 = 89.77491
      phi1 = 24.657534
      theta2 = 96.215212
      phi2 = 114.63302
      theta3 = 6.2193186
      phi3 = 116.72349
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 847
      chmoth = 'DCLS'
      x = 34.683597
      y = 17.462001
      z = 0
      irot = 1595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1596
      theta1 = 89.77491
      phi1 = 27.123288
      theta2 = 96.215212
      phi2 = 117.09877
      theta3 = 6.2193186
      phi3 = 119.18925
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 848
      chmoth = 'DCLS'
      x = 33.90023
      y = 18.937999
      z = 0
      irot = 1596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1597
      theta1 = 89.77491
      phi1 = 29.589041
      theta2 = 96.215212
      phi2 = 119.56453
      theta3 = 6.2193186
      phi3 = 121.655
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 849
      chmoth = 'DCLS'
      x = 33.054087
      y = 20.378929
      z = 0
      irot = 1597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1598
      theta1 = 89.77491
      phi1 = 32.054795
      theta2 = 96.215212
      phi2 = 122.03028
      theta3 = 6.2193186
      phi3 = 124.12075
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 850
      chmoth = 'DCLS'
      x = 32.146736
      y = 21.782121
      z = 0
      irot = 1598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1599
      theta1 = 89.77491
      phi1 = 34.520548
      theta2 = 96.215212
      phi2 = 124.49603
      theta3 = 6.2193186
      phi3 = 126.58651
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 851
      chmoth = 'DCLS'
      x = 31.179856
      y = 23.144977
      z = 0
      irot = 1599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1600
      theta1 = 89.77491
      phi1 = 36.986301
      theta2 = 96.215212
      phi2 = 126.96179
      theta3 = 6.2193186
      phi3 = 129.05226
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 852
      chmoth = 'DCLS'
      x = 30.155239
      y = 24.464975
      z = 0
      irot = 1600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1601
      theta1 = 89.77491
      phi1 = 39.452055
      theta2 = 96.215212
      phi2 = 129.42754
      theta3 = 6.2193186
      phi3 = 131.51802
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 853
      chmoth = 'DCLS'
      x = 29.07478
      y = 25.739669
      z = 0
      irot = 1601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1602
      theta1 = 89.77491
      phi1 = 41.917808
      theta2 = 96.215212
      phi2 = 131.8933
      theta3 = 6.2193186
      phi3 = 133.98377
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 854
      chmoth = 'DCLS'
      x = 27.940482
      y = 26.966699
      z = 0
      irot = 1602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1603
      theta1 = 89.77491
      phi1 = 44.383562
      theta2 = 96.215212
      phi2 = 134.35905
      theta3 = 6.2193186
      phi3 = 136.44952
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 855
      chmoth = 'DCLS'
      x = 26.754445
      y = 28.143793
      z = 0
      irot = 1603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1604
      theta1 = 89.77491
      phi1 = 46.849315
      theta2 = 96.215212
      phi2 = 136.8248
      theta3 = 6.2193186
      phi3 = 138.91528
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 856
      chmoth = 'DCLS'
      x = 25.518865
      y = 29.268771
      z = 0
      irot = 1604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1605
      theta1 = 89.77491
      phi1 = 49.315068
      theta2 = 96.215212
      phi2 = 139.29056
      theta3 = 6.2193186
      phi3 = 141.38103
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 857
      chmoth = 'DCLS'
      x = 24.236029
      y = 30.33955
      z = 0
      irot = 1605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1606
      theta1 = 89.77491
      phi1 = 51.780822
      theta2 = 96.215212
      phi2 = 141.75631
      theta3 = 6.2193186
      phi3 = 143.84678
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 858
      chmoth = 'DCLS'
      x = 22.908315
      y = 31.354147
      z = 0
      irot = 1606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1607
      theta1 = 89.77491
      phi1 = 54.246575
      theta2 = 96.215212
      phi2 = 144.22206
      theta3 = 6.2193186
      phi3 = 146.31254
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 859
      chmoth = 'DCLS'
      x = 21.538179
      y = 32.310683
      z = 0
      irot = 1607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1608
      theta1 = 89.77491
      phi1 = 56.712329
      theta2 = 96.215212
      phi2 = 146.68782
      theta3 = 6.2193186
      phi3 = 148.77829
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 860
      chmoth = 'DCLS'
      x = 20.128159
      y = 33.207388
      z = 0
      irot = 1608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1609
      theta1 = 89.77491
      phi1 = 59.178082
      theta2 = 96.215212
      phi2 = 149.15357
      theta3 = 6.2193186
      phi3 = 151.24404
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 861
      chmoth = 'DCLS'
      x = 18.680867
      y = 34.0426
      z = 0
      irot = 1609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1610
      theta1 = 89.77491
      phi1 = 61.643836
      theta2 = 96.215212
      phi2 = 151.61932
      theta3 = 6.2193186
      phi3 = 153.7098
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 862
      chmoth = 'DCLS'
      x = 17.198982
      y = 34.814773
      z = 0
      irot = 1610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1611
      theta1 = 89.77491
      phi1 = 64.109589
      theta2 = 96.215212
      phi2 = 154.08508
      theta3 = 6.2193186
      phi3 = 156.17555
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 863
      chmoth = 'DCLS'
      x = 15.685248
      y = 35.522477
      z = 0
      irot = 1611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1612
      theta1 = 89.77491
      phi1 = 66.575342
      theta2 = 96.215212
      phi2 = 156.55083
      theta3 = 6.2193186
      phi3 = 158.6413
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 864
      chmoth = 'DCLS'
      x = 14.142469
      y = 36.164402
      z = 0
      irot = 1612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1613
      theta1 = 89.77491
      phi1 = 69.041096
      theta2 = 96.215212
      phi2 = 159.01658
      theta3 = 6.2193186
      phi3 = 161.10706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 865
      chmoth = 'DCLS'
      x = 12.573502
      y = 36.739358
      z = 0
      irot = 1613
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1614
      theta1 = 89.77491
      phi1 = 71.506849
      theta2 = 96.215212
      phi2 = 161.48234
      theta3 = 6.2193186
      phi3 = 163.57281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 866
      chmoth = 'DCLS'
      x = 10.981251
      y = 37.246282
      z = 0
      irot = 1614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1615
      theta1 = 89.77491
      phi1 = 73.972603
      theta2 = 96.215212
      phi2 = 163.94809
      theta3 = 6.2193186
      phi3 = 166.03856
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 867
      chmoth = 'DCLS'
      x = 9.3686651
      y = 37.684234
      z = 0
      irot = 1615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1616
      theta1 = 89.77491
      phi1 = 76.438356
      theta2 = 96.215212
      phi2 = 166.41384
      theta3 = 6.2193186
      phi3 = 168.50432
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 868
      chmoth = 'DCLS'
      x = 7.7387308
      y = 38.052404
      z = 0
      irot = 1616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1617
      theta1 = 89.77491
      phi1 = 78.90411
      theta2 = 96.215212
      phi2 = 168.8796
      theta3 = 6.2193186
      phi3 = 170.97007
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 869
      chmoth = 'DCLS'
      x = 6.0944663
      y = 38.350109
      z = 0
      irot = 1617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1618
      theta1 = 89.77491
      phi1 = 81.369863
      theta2 = 96.215212
      phi2 = 171.34535
      theta3 = 6.2193186
      phi3 = 173.43582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 870
      chmoth = 'DCLS'
      x = 4.4389162
      y = 38.576799
      z = 0
      irot = 1618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1619
      theta1 = 89.77491
      phi1 = 83.835616
      theta2 = 96.215212
      phi2 = 173.8111
      theta3 = 6.2193186
      phi3 = 175.90158
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 871
      chmoth = 'DCLS'
      x = 2.7751462
      y = 38.732053
      z = 0
      irot = 1619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1620
      theta1 = 89.77491
      phi1 = 86.30137
      theta2 = 96.215212
      phi2 = 176.27686
      theta3 = 6.2193186
      phi3 = 178.36733
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 872
      chmoth = 'DCLS'
      x = 1.1062373
      y = 38.815585
      z = 0
      irot = 1620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1621
      theta1 = 89.77491
      phi1 = 88.767123
      theta2 = 96.215212
      phi2 = 178.74261
      theta3 = 6.2193186
      phi3 = -179.16692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 873
      chmoth = 'DCLS'
      x = -0.56472007
      y = 38.827239
      z = 0
      irot = 1621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1622
      theta1 = 89.77491
      phi1 = 91.232877
      theta2 = 96.215212
      phi2 = -178.79164
      theta3 = 6.2193186
      phi3 = -176.70116
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 874
      chmoth = 'DCLS'
      x = -2.2346317
      y = 38.766994
      z = 0
      irot = 1622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1623
      theta1 = 89.77491
      phi1 = 93.69863
      theta2 = 96.215212
      phi2 = -176.32588
      theta3 = 6.2193186
      phi3 = -174.23541
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 875
      chmoth = 'DCLS'
      x = -3.9004054
      y = 38.634961
      z = 0
      irot = 1623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1624
      theta1 = 89.77491
      phi1 = 96.164384
      theta2 = 96.215212
      phi2 = -173.86013
      theta3 = 6.2193186
      phi3 = -171.76966
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 876
      chmoth = 'DCLS'
      x = -5.5589563
      y = 38.431386
      z = 0
      irot = 1624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1625
      theta1 = 89.77491
      phi1 = 98.630137
      theta2 = 96.215212
      phi2 = -171.39438
      theta3 = 6.2193186
      phi3 = -169.3039
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 877
      chmoth = 'DCLS'
      x = -7.2072134
      y = 38.156644
      z = 0
      irot = 1625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1626
      theta1 = 89.77491
      phi1 = 101.09589
      theta2 = 96.215212
      phi2 = -168.92862
      theta3 = 6.2193186
      phi3 = -166.83815
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 878
      chmoth = 'DCLS'
      x = -8.8421244
      y = 37.811245
      z = 0
      irot = 1626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1627
      theta1 = 89.77491
      phi1 = 103.56164
      theta2 = 96.215212
      phi2 = -166.46287
      theta3 = 6.2193186
      phi3 = -164.3724
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 879
      chmoth = 'DCLS'
      x = -10.460662
      y = 37.395828
      z = 0
      irot = 1627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1628
      theta1 = 89.77491
      phi1 = 106.0274
      theta2 = 96.215212
      phi2 = -163.99712
      theta3 = 6.2193186
      phi3 = -161.90664
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 880
      chmoth = 'DCLS'
      x = -12.059828
      y = 36.911163
      z = 0
      irot = 1628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1629
      theta1 = 89.77491
      phi1 = 108.49315
      theta2 = 96.215212
      phi2 = -161.53136
      theta3 = 6.2193186
      phi3 = -159.44089
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 881
      chmoth = 'DCLS'
      x = -13.636663
      y = 36.358147
      z = 0
      irot = 1629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1630
      theta1 = 89.77491
      phi1 = 110.9589
      theta2 = 96.215212
      phi2 = -159.06561
      theta3 = 6.2193186
      phi3 = -156.97514
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 882
      chmoth = 'DCLS'
      x = -15.188246
      y = 35.737803
      z = 0
      irot = 1630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1631
      theta1 = 89.77491
      phi1 = 113.42466
      theta2 = 96.215212
      phi2 = -156.59986
      theta3 = 6.2193186
      phi3 = -154.50938
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 883
      chmoth = 'DCLS'
      x = -16.711703
      y = 35.051282
      z = 0
      irot = 1631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1632
      theta1 = 89.77491
      phi1 = 115.89041
      theta2 = 96.215212
      phi2 = -154.1341
      theta3 = 6.2193186
      phi3 = -152.04363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 884
      chmoth = 'DCLS'
      x = -18.204215
      y = 34.299854
      z = 0
      irot = 1632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1633
      theta1 = 89.77491
      phi1 = 118.35616
      theta2 = 96.215212
      phi2 = -151.66835
      theta3 = 6.2193186
      phi3 = -149.57788
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 885
      chmoth = 'DCLS'
      x = -19.663016
      y = 33.48491
      z = 0
      irot = 1633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1634
      theta1 = 89.77491
      phi1 = 120.82192
      theta2 = 96.215212
      phi2 = -149.2026
      theta3 = 6.2193186
      phi3 = -147.11212
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 886
      chmoth = 'DCLS'
      x = -21.085406
      y = 32.60796
      z = 0
      irot = 1634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1635
      theta1 = 89.77491
      phi1 = 123.28767
      theta2 = 96.215212
      phi2 = -146.73684
      theta3 = 6.2193186
      phi3 = -144.64637
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 887
      chmoth = 'DCLS'
      x = -22.46875
      y = 31.670628
      z = 0
      irot = 1635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1636
      theta1 = 89.77491
      phi1 = 125.75342
      theta2 = 96.215212
      phi2 = -144.27109
      theta3 = 6.2193186
      phi3 = -142.18062
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 888
      chmoth = 'DCLS'
      x = -23.810488
      y = 30.674648
      z = 0
      irot = 1636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1637
      theta1 = 89.77491
      phi1 = 128.21918
      theta2 = 96.215212
      phi2 = -141.80534
      theta3 = 6.2193186
      phi3 = -139.71486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 889
      chmoth = 'DCLS'
      x = -25.108134
      y = 29.621867
      z = 0
      irot = 1637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1638
      theta1 = 89.77491
      phi1 = 130.68493
      theta2 = 96.215212
      phi2 = -139.33958
      theta3 = 6.2193186
      phi3 = -137.24911
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 890
      chmoth = 'DCLS'
      x = -26.359286
      y = 28.514232
      z = 0
      irot = 1638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1639
      theta1 = 89.77491
      phi1 = 133.15068
      theta2 = 96.215212
      phi2 = -136.87383
      theta3 = 6.2193186
      phi3 = -134.78335
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 891
      chmoth = 'DCLS'
      x = -27.561626
      y = 27.353796
      z = 0
      irot = 1639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1640
      theta1 = 89.77491
      phi1 = 135.61644
      theta2 = 96.215212
      phi2 = -134.40807
      theta3 = 6.2193186
      phi3 = -132.3176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 892
      chmoth = 'DCLS'
      x = -28.712929
      y = 26.142707
      z = 0
      irot = 1640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1641
      theta1 = 89.77491
      phi1 = 138.08219
      theta2 = 96.215212
      phi2 = -131.94232
      theta3 = 6.2193186
      phi3 = -129.85185
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 893
      chmoth = 'DCLS'
      x = -29.811061
      y = 24.883208
      z = 0
      irot = 1641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1642
      theta1 = 89.77491
      phi1 = 140.54795
      theta2 = 96.215212
      phi2 = -129.47657
      theta3 = 6.2193186
      phi3 = -127.38609
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 894
      chmoth = 'DCLS'
      x = -30.853991
      y = 23.57763
      z = 0
      irot = 1642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1643
      theta1 = 89.77491
      phi1 = 143.0137
      theta2 = 96.215212
      phi2 = -127.01081
      theta3 = 6.2193186
      phi3 = -124.92034
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 895
      chmoth = 'DCLS'
      x = -31.839786
      y = 22.228392
      z = 0
      irot = 1643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1644
      theta1 = 89.77491
      phi1 = 145.47945
      theta2 = 96.215212
      phi2 = -124.54506
      theta3 = 6.2193186
      phi3 = -122.45459
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 896
      chmoth = 'DCLS'
      x = -32.766621
      y = 20.837993
      z = 0
      irot = 1644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1645
      theta1 = 89.77491
      phi1 = 147.94521
      theta2 = 96.215212
      phi2 = -122.07931
      theta3 = 6.2193186
      phi3 = -119.98883
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 897
      chmoth = 'DCLS'
      x = -33.63278
      y = 19.409006
      z = 0
      irot = 1645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1646
      theta1 = 89.77491
      phi1 = 150.41096
      theta2 = 96.215212
      phi2 = -119.61355
      theta3 = 6.2193186
      phi3 = -117.52308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 898
      chmoth = 'DCLS'
      x = -34.436659
      y = 17.944078
      z = 0
      irot = 1646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1647
      theta1 = 89.77491
      phi1 = 152.87671
      theta2 = 96.215212
      phi2 = -117.1478
      theta3 = 6.2193186
      phi3 = -115.05733
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 899
      chmoth = 'DCLS'
      x = -35.176769
      y = 16.445922
      z = 0
      irot = 1647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1648
      theta1 = 89.77491
      phi1 = 155.34247
      theta2 = 96.215212
      phi2 = -114.68205
      theta3 = 6.2193186
      phi3 = -112.59157
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 900
      chmoth = 'DCLS'
      x = -35.851739
      y = 14.917312
      z = 0
      irot = 1648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1649
      theta1 = 89.77491
      phi1 = 157.80822
      theta2 = 96.215212
      phi2 = -112.21629
      theta3 = 6.2193186
      phi3 = -110.12582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 901
      chmoth = 'DCLS'
      x = -36.460321
      y = 13.361078
      z = 0
      irot = 1649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1650
      theta1 = 89.77491
      phi1 = 160.27397
      theta2 = 96.215212
      phi2 = -109.75054
      theta3 = 6.2193186
      phi3 = -107.66007
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 902
      chmoth = 'DCLS'
      x = -37.001386
      y = 11.780103
      z = 0
      irot = 1650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1651
      theta1 = 89.77491
      phi1 = 162.73973
      theta2 = 96.215212
      phi2 = -107.28479
      theta3 = 6.2193186
      phi3 = -105.19431
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 903
      chmoth = 'DCLS'
      x = -37.473933
      y = 10.177314
      z = 0
      irot = 1651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1652
      theta1 = 89.77491
      phi1 = 165.20548
      theta2 = 96.215212
      phi2 = -104.81903
      theta3 = 6.2193186
      phi3 = -102.72856
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 904
      chmoth = 'DCLS'
      x = -37.877088
      y = 8.5556786
      z = 0
      irot = 1652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1653
      theta1 = 89.77491
      phi1 = 167.67123
      theta2 = 96.215212
      phi2 = -102.35328
      theta3 = 6.2193186
      phi3 = -100.26281
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 905
      chmoth = 'DCLS'
      x = -38.210102
      y = 6.9182001
      z = 0
      irot = 1653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1654
      theta1 = 89.77491
      phi1 = 170.13699
      theta2 = 96.215212
      phi2 = -99.887527
      theta3 = 6.2193186
      phi3 = -97.797053
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 906
      chmoth = 'DCLS'
      x = -38.47236
      y = 5.2679107
      z = 0
      irot = 1654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1655
      theta1 = 89.77491
      phi1 = 172.60274
      theta2 = 96.215212
      phi2 = -97.421773
      theta3 = 6.2193186
      phi3 = -95.3313
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 907
      chmoth = 'DCLS'
      x = -38.663377
      y = 3.6078664
      z = 0
      irot = 1655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1656
      theta1 = 89.77491
      phi1 = 175.06849
      theta2 = 96.215212
      phi2 = -94.95602
      theta3 = 6.2193186
      phi3 = -92.865547
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 908
      chmoth = 'DCLS'
      x = -38.782797
      y = 1.9411411
      z = 0
      irot = 1656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1657
      theta1 = 89.77491
      phi1 = 177.53425
      theta2 = 96.215212
      phi2 = -92.490267
      theta3 = 6.2193186
      phi3 = -90.399793
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 909
      chmoth = 'DCLS'
      x = -38.830401
      y = 0.27082132
      z = 0
      irot = 1657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1658
      theta1 = 89.77491
      phi1 = 180
      theta2 = 96.215212
      phi2 = -90.024513
      theta3 = 6.2193186
      phi3 = -87.93404
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 910
      chmoth = 'DCLS'
      x = -38.8061
      y = -1.4
      z = 0
      irot = 1658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1659
      theta1 = 89.77491
      phi1 = -177.53425
      theta2 = 96.215212
      phi2 = -87.55876
      theta3 = 6.2193186
      phi3 = -85.468286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 911
      chmoth = 'DCLS'
      x = -38.709939
      y = -3.0682288
      z = 0
      irot = 1659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1660
      theta1 = 89.77491
      phi1 = -175.06849
      theta2 = 96.215212
      phi2 = -85.093006
      theta3 = 6.2193186
      phi3 = -83.002533
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 912
      chmoth = 'DCLS'
      x = -38.542096
      y = -4.730776
      z = 0
      irot = 1660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1661
      theta1 = 89.77491
      phi1 = -172.60274
      theta2 = 96.215212
      phi2 = -82.627253
      theta3 = 6.2193186
      phi3 = -80.536779
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 913
      chmoth = 'DCLS'
      x = -38.302882
      y = -6.3845629
      z = 0
      irot = 1661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1662
      theta1 = 89.77491
      phi1 = -170.13699
      theta2 = 96.215212
      phi2 = -80.161499
      theta3 = 6.2193186
      phi3 = -78.071026
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 914
      chmoth = 'DCLS'
      x = -37.99274
      y = -8.026527
      z = 0
      irot = 1662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1663
      theta1 = 89.77491
      phi1 = -167.67123
      theta2 = 96.215212
      phi2 = -77.695746
      theta3 = 6.2193186
      phi3 = -75.605273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 915
      chmoth = 'DCLS'
      x = -37.612244
      y = -9.6536279
      z = 0
      irot = 1663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1664
      theta1 = 89.77491
      phi1 = -165.20548
      theta2 = 96.215212
      phi2 = -75.229993
      theta3 = 6.2193186
      phi3 = -73.139519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 916
      chmoth = 'DCLS'
      x = -37.162098
      y = -11.262852
      z = 0
      irot = 1664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1665
      theta1 = 89.77491
      phi1 = -162.73973
      theta2 = 96.215212
      phi2 = -72.764239
      theta3 = 6.2193186
      phi3 = -70.673766
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 917
      chmoth = 'DCLS'
      x = -36.643137
      y = -12.851221
      z = 0
      irot = 1665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1666
      theta1 = 89.77491
      phi1 = -160.27397
      theta2 = 96.215212
      phi2 = -70.298486
      theta3 = 6.2193186
      phi3 = -68.208012
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 918
      chmoth = 'DCLS'
      x = -36.056322
      y = -14.415792
      z = 0
      irot = 1666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1667
      theta1 = 89.77491
      phi1 = -157.80822
      theta2 = 96.215212
      phi2 = -67.832732
      theta3 = 6.2193186
      phi3 = -65.742259
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 919
      chmoth = 'DCLS'
      x = -35.402738
      y = -15.953668
      z = 0
      irot = 1667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1668
      theta1 = 89.77491
      phi1 = -155.34247
      theta2 = 96.215212
      phi2 = -65.366979
      theta3 = 6.2193186
      phi3 = -63.276505
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 920
      chmoth = 'DCLS'
      x = -34.683597
      y = -17.462001
      z = 0
      irot = 1668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1669
      theta1 = 89.77491
      phi1 = -152.87671
      theta2 = 96.215212
      phi2 = -62.901226
      theta3 = 6.2193186
      phi3 = -60.810752
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 921
      chmoth = 'DCLS'
      x = -33.90023
      y = -18.937999
      z = 0
      irot = 1669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1670
      theta1 = 89.77491
      phi1 = -150.41096
      theta2 = 96.215212
      phi2 = -60.435472
      theta3 = 6.2193186
      phi3 = -58.344999
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 922
      chmoth = 'DCLS'
      x = -33.054087
      y = -20.378929
      z = 0
      irot = 1670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1671
      theta1 = 89.77491
      phi1 = -147.94521
      theta2 = 96.215212
      phi2 = -57.969719
      theta3 = 6.2193186
      phi3 = -55.879245
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 923
      chmoth = 'DCLS'
      x = -32.146736
      y = -21.782121
      z = 0
      irot = 1671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1672
      theta1 = 89.77491
      phi1 = -145.47945
      theta2 = 96.215212
      phi2 = -55.503965
      theta3 = 6.2193186
      phi3 = -53.413492
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 924
      chmoth = 'DCLS'
      x = -31.179856
      y = -23.144977
      z = 0
      irot = 1672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1673
      theta1 = 89.77491
      phi1 = -143.0137
      theta2 = 96.215212
      phi2 = -53.038212
      theta3 = 6.2193186
      phi3 = -50.947738
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 925
      chmoth = 'DCLS'
      x = -30.155239
      y = -24.464975
      z = 0
      irot = 1673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1674
      theta1 = 89.77491
      phi1 = -140.54795
      theta2 = 96.215212
      phi2 = -50.572458
      theta3 = 6.2193186
      phi3 = -48.481985
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 926
      chmoth = 'DCLS'
      x = -29.07478
      y = -25.739669
      z = 0
      irot = 1674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1675
      theta1 = 89.77491
      phi1 = -138.08219
      theta2 = 96.215212
      phi2 = -48.106705
      theta3 = 6.2193186
      phi3 = -46.016231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 927
      chmoth = 'DCLS'
      x = -27.940482
      y = -26.966699
      z = 0
      irot = 1675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1676
      theta1 = 89.77491
      phi1 = -135.61644
      theta2 = 96.215212
      phi2 = -45.640952
      theta3 = 6.2193186
      phi3 = -43.550478
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 928
      chmoth = 'DCLS'
      x = -26.754445
      y = -28.143793
      z = 0
      irot = 1676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1677
      theta1 = 89.77491
      phi1 = -133.15068
      theta2 = 96.215212
      phi2 = -43.175198
      theta3 = 6.2193186
      phi3 = -41.084725
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 929
      chmoth = 'DCLS'
      x = -25.518865
      y = -29.268771
      z = 0
      irot = 1677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1678
      theta1 = 89.77491
      phi1 = -130.68493
      theta2 = 96.215212
      phi2 = -40.709445
      theta3 = 6.2193186
      phi3 = -38.618971
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 930
      chmoth = 'DCLS'
      x = -24.236029
      y = -30.33955
      z = 0
      irot = 1678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1679
      theta1 = 89.77491
      phi1 = -128.21918
      theta2 = 96.215212
      phi2 = -38.243691
      theta3 = 6.2193186
      phi3 = -36.153218
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 931
      chmoth = 'DCLS'
      x = -22.908315
      y = -31.354147
      z = 0
      irot = 1679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1680
      theta1 = 89.77491
      phi1 = -125.75342
      theta2 = 96.215212
      phi2 = -35.777938
      theta3 = 6.2193186
      phi3 = -33.687464
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 932
      chmoth = 'DCLS'
      x = -21.538179
      y = -32.310683
      z = 0
      irot = 1680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1681
      theta1 = 89.77491
      phi1 = -123.28767
      theta2 = 96.215212
      phi2 = -33.312184
      theta3 = 6.2193186
      phi3 = -31.221711
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 933
      chmoth = 'DCLS'
      x = -20.128159
      y = -33.207388
      z = 0
      irot = 1681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1682
      theta1 = 89.77491
      phi1 = -120.82192
      theta2 = 96.215212
      phi2 = -30.846431
      theta3 = 6.2193186
      phi3 = -28.755958
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 934
      chmoth = 'DCLS'
      x = -18.680867
      y = -34.0426
      z = 0
      irot = 1682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1683
      theta1 = 89.77491
      phi1 = -118.35616
      theta2 = 96.215212
      phi2 = -28.380678
      theta3 = 6.2193186
      phi3 = -26.290204
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 935
      chmoth = 'DCLS'
      x = -17.198982
      y = -34.814773
      z = 0
      irot = 1683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1684
      theta1 = 89.77491
      phi1 = -115.89041
      theta2 = 96.215212
      phi2 = -25.914924
      theta3 = 6.2193186
      phi3 = -23.824451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 936
      chmoth = 'DCLS'
      x = -15.685248
      y = -35.522477
      z = 0
      irot = 1684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1685
      theta1 = 89.77491
      phi1 = -113.42466
      theta2 = 96.215212
      phi2 = -23.449171
      theta3 = 6.2193186
      phi3 = -21.358697
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 937
      chmoth = 'DCLS'
      x = -14.142469
      y = -36.164402
      z = 0
      irot = 1685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1686
      theta1 = 89.77491
      phi1 = -110.9589
      theta2 = 96.215212
      phi2 = -20.983417
      theta3 = 6.2193186
      phi3 = -18.892944
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 938
      chmoth = 'DCLS'
      x = -12.573502
      y = -36.739358
      z = 0
      irot = 1686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1687
      theta1 = 89.77491
      phi1 = -108.49315
      theta2 = 96.215212
      phi2 = -18.517664
      theta3 = 6.2193186
      phi3 = -16.42719
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 939
      chmoth = 'DCLS'
      x = -10.981251
      y = -37.246282
      z = 0
      irot = 1687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1688
      theta1 = 89.77491
      phi1 = -106.0274
      theta2 = 96.215212
      phi2 = -16.05191
      theta3 = 6.2193186
      phi3 = -13.961437
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 940
      chmoth = 'DCLS'
      x = -9.3686651
      y = -37.684234
      z = 0
      irot = 1688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1689
      theta1 = 89.77491
      phi1 = -103.56164
      theta2 = 96.215212
      phi2 = -13.586157
      theta3 = 6.2193186
      phi3 = -11.495684
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 941
      chmoth = 'DCLS'
      x = -7.7387308
      y = -38.052404
      z = 0
      irot = 1689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1690
      theta1 = 89.77491
      phi1 = -101.09589
      theta2 = 96.215212
      phi2 = -11.120404
      theta3 = 6.2193186
      phi3 = -9.0299301
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 942
      chmoth = 'DCLS'
      x = -6.0944663
      y = -38.350109
      z = 0
      irot = 1690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1691
      theta1 = 89.77491
      phi1 = -98.630137
      theta2 = 96.215212
      phi2 = -8.6546502
      theta3 = 6.2193186
      phi3 = -6.5641767
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 943
      chmoth = 'DCLS'
      x = -4.4389162
      y = -38.576799
      z = 0
      irot = 1691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1692
      theta1 = 89.77491
      phi1 = -96.164384
      theta2 = 96.215212
      phi2 = -6.1888968
      theta3 = 6.2193186
      phi3 = -4.0984233
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 944
      chmoth = 'DCLS'
      x = -2.7751462
      y = -38.732053
      z = 0
      irot = 1692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1693
      theta1 = 89.77491
      phi1 = -93.69863
      theta2 = 96.215212
      phi2 = -3.7231433
      theta3 = 6.2193186
      phi3 = -1.6326698
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 945
      chmoth = 'DCLS'
      x = -1.1062373
      y = -38.815585
      z = 0
      irot = 1693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1694
      theta1 = 89.77491
      phi1 = -91.232877
      theta2 = 96.215212
      phi2 = -1.2573899
      theta3 = 6.2193186
      phi3 = 0.83308358
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 946
      chmoth = 'DCLS'
      x = 0.56472007
      y = -38.827239
      z = 0
      irot = 1694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1695
      theta1 = 89.77491
      phi1 = -88.767123
      theta2 = 96.215212
      phi2 = 1.2083635
      theta3 = 6.2193186
      phi3 = 3.298837
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 947
      chmoth = 'DCLS'
      x = 2.2346317
      y = -38.766994
      z = 0
      irot = 1695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1696
      theta1 = 89.77491
      phi1 = -86.30137
      theta2 = 96.215212
      phi2 = 3.6741169
      theta3 = 6.2193186
      phi3 = 5.7645904
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 948
      chmoth = 'DCLS'
      x = 3.9004054
      y = -38.634961
      z = 0
      irot = 1696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1697
      theta1 = 89.77491
      phi1 = -83.835616
      theta2 = 96.215212
      phi2 = 6.1398704
      theta3 = 6.2193186
      phi3 = 8.2303439
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 949
      chmoth = 'DCLS'
      x = 5.5589563
      y = -38.431386
      z = 0
      irot = 1697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1698
      theta1 = 89.77491
      phi1 = -81.369863
      theta2 = 96.215212
      phi2 = 8.6056238
      theta3 = 6.2193186
      phi3 = 10.696097
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 950
      chmoth = 'DCLS'
      x = 7.2072134
      y = -38.156644
      z = 0
      irot = 1698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1699
      theta1 = 89.77491
      phi1 = -78.90411
      theta2 = 96.215212
      phi2 = 11.071377
      theta3 = 6.2193186
      phi3 = 13.161851
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 951
      chmoth = 'DCLS'
      x = 8.8421244
      y = -37.811245
      z = 0
      irot = 1699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1700
      theta1 = 89.77491
      phi1 = -76.438356
      theta2 = 96.215212
      phi2 = 13.537131
      theta3 = 6.2193186
      phi3 = 15.627604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 952
      chmoth = 'DCLS'
      x = 10.460662
      y = -37.395828
      z = 0
      irot = 1700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1701
      theta1 = 89.77491
      phi1 = -73.972603
      theta2 = 96.215212
      phi2 = 16.002884
      theta3 = 6.2193186
      phi3 = 18.093358
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 953
      chmoth = 'DCLS'
      x = 12.059828
      y = -36.911163
      z = 0
      irot = 1701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1702
      theta1 = 89.77491
      phi1 = -71.506849
      theta2 = 96.215212
      phi2 = 18.468637
      theta3 = 6.2193186
      phi3 = 20.559111
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 954
      chmoth = 'DCLS'
      x = 13.636663
      y = -36.358147
      z = 0
      irot = 1702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1703
      theta1 = 89.77491
      phi1 = -69.041096
      theta2 = 96.215212
      phi2 = 20.934391
      theta3 = 6.2193186
      phi3 = 23.024864
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 955
      chmoth = 'DCLS'
      x = 15.188246
      y = -35.737803
      z = 0
      irot = 1703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1704
      theta1 = 89.77491
      phi1 = -66.575342
      theta2 = 96.215212
      phi2 = 23.400144
      theta3 = 6.2193186
      phi3 = 25.490618
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 956
      chmoth = 'DCLS'
      x = 16.711703
      y = -35.051282
      z = 0
      irot = 1704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1705
      theta1 = 89.77491
      phi1 = -64.109589
      theta2 = 96.215212
      phi2 = 25.865898
      theta3 = 6.2193186
      phi3 = 27.956371
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 957
      chmoth = 'DCLS'
      x = 18.204215
      y = -34.299854
      z = 0
      irot = 1705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1706
      theta1 = 89.77491
      phi1 = -61.643836
      theta2 = 96.215212
      phi2 = 28.331651
      theta3 = 6.2193186
      phi3 = 30.422125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 958
      chmoth = 'DCLS'
      x = 19.663016
      y = -33.48491
      z = 0
      irot = 1706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1707
      theta1 = 89.77491
      phi1 = -59.178082
      theta2 = 96.215212
      phi2 = 30.797405
      theta3 = 6.2193186
      phi3 = 32.887878
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 959
      chmoth = 'DCLS'
      x = 21.085406
      y = -32.60796
      z = 0
      irot = 1707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1708
      theta1 = 89.77491
      phi1 = -56.712329
      theta2 = 96.215212
      phi2 = 33.263158
      theta3 = 6.2193186
      phi3 = 35.353632
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 960
      chmoth = 'DCLS'
      x = 22.46875
      y = -31.670628
      z = 0
      irot = 1708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1709
      theta1 = 89.77491
      phi1 = -54.246575
      theta2 = 96.215212
      phi2 = 35.728911
      theta3 = 6.2193186
      phi3 = 37.819385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 961
      chmoth = 'DCLS'
      x = 23.810488
      y = -30.674648
      z = 0
      irot = 1709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1710
      theta1 = 89.77491
      phi1 = -51.780822
      theta2 = 96.215212
      phi2 = 38.194665
      theta3 = 6.2193186
      phi3 = 40.285138
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 962
      chmoth = 'DCLS'
      x = 25.108134
      y = -29.621867
      z = 0
      irot = 1710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1711
      theta1 = 89.77491
      phi1 = -49.315068
      theta2 = 96.215212
      phi2 = 40.660418
      theta3 = 6.2193186
      phi3 = 42.750892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 963
      chmoth = 'DCLS'
      x = 26.359286
      y = -28.514232
      z = 0
      irot = 1711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1712
      theta1 = 89.77491
      phi1 = -46.849315
      theta2 = 96.215212
      phi2 = 43.126172
      theta3 = 6.2193186
      phi3 = 45.216645
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 964
      chmoth = 'DCLS'
      x = 27.561626
      y = -27.353796
      z = 0
      irot = 1712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1713
      theta1 = 89.77491
      phi1 = -44.383562
      theta2 = 96.215212
      phi2 = 45.591925
      theta3 = 6.2193186
      phi3 = 47.682399
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 965
      chmoth = 'DCLS'
      x = 28.712929
      y = -26.142707
      z = 0
      irot = 1713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1714
      theta1 = 89.77491
      phi1 = -41.917808
      theta2 = 96.215212
      phi2 = 48.057679
      theta3 = 6.2193186
      phi3 = 50.148152
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 966
      chmoth = 'DCLS'
      x = 29.811061
      y = -24.883208
      z = 0
      irot = 1714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1715
      theta1 = 89.77491
      phi1 = -39.452055
      theta2 = 96.215212
      phi2 = 50.523432
      theta3 = 6.2193186
      phi3 = 52.613905
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 967
      chmoth = 'DCLS'
      x = 30.853991
      y = -23.57763
      z = 0
      irot = 1715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1716
      theta1 = 89.77491
      phi1 = -36.986301
      theta2 = 96.215212
      phi2 = 52.989185
      theta3 = 6.2193186
      phi3 = 55.079659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 968
      chmoth = 'DCLS'
      x = 31.839786
      y = -22.228392
      z = 0
      irot = 1716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1717
      theta1 = 89.77491
      phi1 = -34.520548
      theta2 = 96.215212
      phi2 = 55.454939
      theta3 = 6.2193186
      phi3 = 57.545412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 969
      chmoth = 'DCLS'
      x = 32.766621
      y = -20.837993
      z = 0
      irot = 1717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1718
      theta1 = 89.77491
      phi1 = -32.054795
      theta2 = 96.215212
      phi2 = 57.920692
      theta3 = 6.2193186
      phi3 = 60.011166
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 970
      chmoth = 'DCLS'
      x = 33.63278
      y = -19.409006
      z = 0
      irot = 1718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1719
      theta1 = 89.77491
      phi1 = -29.589041
      theta2 = 96.215212
      phi2 = 60.386446
      theta3 = 6.2193186
      phi3 = 62.476919
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 971
      chmoth = 'DCLS'
      x = 34.436659
      y = -17.944078
      z = 0
      irot = 1719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1720
      theta1 = 89.77491
      phi1 = -27.123288
      theta2 = 96.215212
      phi2 = 62.852199
      theta3 = 6.2193186
      phi3 = 64.942673
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 972
      chmoth = 'DCLS'
      x = 35.176769
      y = -16.445922
      z = 0
      irot = 1720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1721
      theta1 = 89.77491
      phi1 = -24.657534
      theta2 = 96.215212
      phi2 = 65.317953
      theta3 = 6.2193186
      phi3 = 67.408426
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 973
      chmoth = 'DCLS'
      x = 35.851739
      y = -14.917312
      z = 0
      irot = 1721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1722
      theta1 = 89.77491
      phi1 = -22.191781
      theta2 = 96.215212
      phi2 = 67.783706
      theta3 = 6.2193186
      phi3 = 69.874179
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 974
      chmoth = 'DCLS'
      x = 36.460321
      y = -13.361078
      z = 0
      irot = 1722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1723
      theta1 = 89.77491
      phi1 = -19.726027
      theta2 = 96.215212
      phi2 = 70.249459
      theta3 = 6.2193186
      phi3 = 72.339933
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 975
      chmoth = 'DCLS'
      x = 37.001386
      y = -11.780103
      z = 0
      irot = 1723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1724
      theta1 = 89.77491
      phi1 = -17.260274
      theta2 = 96.215212
      phi2 = 72.715213
      theta3 = 6.2193186
      phi3 = 74.805686
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 976
      chmoth = 'DCLS'
      x = 37.473933
      y = -10.177314
      z = 0
      irot = 1724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1725
      theta1 = 89.77491
      phi1 = -14.794521
      theta2 = 96.215212
      phi2 = 75.180966
      theta3 = 6.2193186
      phi3 = 77.27144
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 977
      chmoth = 'DCLS'
      x = 37.877088
      y = -8.5556786
      z = 0
      irot = 1725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1726
      theta1 = 89.77491
      phi1 = -12.328767
      theta2 = 96.215212
      phi2 = 77.64672
      theta3 = 6.2193186
      phi3 = 79.737193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 978
      chmoth = 'DCLS'
      x = 38.210102
      y = -6.9182001
      z = 0
      irot = 1726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1727
      theta1 = 89.77491
      phi1 = -9.8630137
      theta2 = 96.215212
      phi2 = 80.112473
      theta3 = 6.2193186
      phi3 = 82.202947
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 979
      chmoth = 'DCLS'
      x = 38.47236
      y = -5.2679107
      z = 0
      irot = 1727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1728
      theta1 = 89.77491
      phi1 = -7.3972603
      theta2 = 96.215212
      phi2 = 82.578227
      theta3 = 6.2193186
      phi3 = 84.6687
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 980
      chmoth = 'DCLS'
      x = 38.663377
      y = -3.6078664
      z = 0
      irot = 1728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1729
      theta1 = 89.77491
      phi1 = -4.9315068
      theta2 = 96.215212
      phi2 = 85.04398
      theta3 = 6.2193186
      phi3 = 87.134453
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 981
      chmoth = 'DCLS'
      x = 38.782797
      y = -1.9411411
      z = 0
      irot = 1729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1730
      theta1 = 89.77491
      phi1 = -2.4657534
      theta2 = 96.215212
      phi2 = 87.509733
      theta3 = 6.2193186
      phi3 = 89.600207
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 982
      chmoth = 'DCLS'
      x = 38.830401
      y = -0.27082132
      z = 0
      irot = 1730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1731
      theta1 = 90
      phi1 = -0.3295
      theta2 = 95.998868
      phi2 = 89.6705
      theta3 = 5.998868
      phi3 = 89.6705
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 983
      chmoth = 'DCLS'
      x = 40.53613
      y = -0.23312017
      z = 0
      irot = 1731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1732
      theta1 = 90
      phi1 = 1.948981
      theta2 = 95.998868
      phi2 = 91.948981
      theta3 = 5.998868
      phi3 = 91.948981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 984
      chmoth = 'DCLS'
      x = 40.51335
      y = 1.3786394
      z = 0
      irot = 1732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1733
      theta1 = 90
      phi1 = 4.227462
      theta2 = 95.998868
      phi2 = 94.227462
      theta3 = 5.998868
      phi3 = 94.227462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 985
      chmoth = 'DCLS'
      x = 40.42651
      y = 2.988219
      z = 0
      irot = 1733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1734
      theta1 = 90
      phi1 = 6.505943
      theta2 = 95.998868
      phi2 = 96.505943
      theta3 = 5.998868
      phi3 = 96.505943
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 986
      chmoth = 'DCLS'
      x = 40.275747
      y = 4.5930737
      z = 0
      irot = 1734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1735
      theta1 = 90
      phi1 = 8.7844241
      theta2 = 95.998868
      phi2 = 98.784424
      theta3 = 5.998868
      phi3 = 98.784424
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 987
      chmoth = 'DCLS'
      x = 40.061301
      y = 6.1906657
      z = 0
      irot = 1735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1736
      theta1 = 90
      phi1 = 11.062905
      theta2 = 95.998868
      phi2 = 101.06291
      theta3 = 5.998868
      phi3 = 101.06291
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 988
      chmoth = 'DCLS'
      x = 39.783509
      y = 7.7784691
      z = 0
      irot = 1736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1737
      theta1 = 90
      phi1 = 13.341386
      theta2 = 95.998868
      phi2 = 103.34139
      theta3 = 5.998868
      phi3 = 103.34139
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 989
      chmoth = 'DCLS'
      x = 39.442811
      y = 9.3539731
      z = 0
      irot = 1737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1738
      theta1 = 90
      phi1 = 15.619867
      theta2 = 95.998868
      phi2 = 105.61987
      theta3 = 5.998868
      phi3 = 105.61987
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 990
      chmoth = 'DCLS'
      x = 39.039746
      y = 10.914687
      z = 0
      irot = 1738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1739
      theta1 = 90
      phi1 = 17.898348
      theta2 = 95.998868
      phi2 = 107.89835
      theta3 = 5.998868
      phi3 = 107.89835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 991
      chmoth = 'DCLS'
      x = 38.574951
      y = 12.458142
      z = 0
      irot = 1739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1740
      theta1 = 90
      phi1 = 20.176829
      theta2 = 95.998868
      phi2 = 110.17683
      theta3 = 5.998868
      phi3 = 110.17683
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 992
      chmoth = 'DCLS'
      x = 38.049161
      y = 13.981898
      z = 0
      irot = 1740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1741
      theta1 = 90
      phi1 = 22.45531
      theta2 = 95.998868
      phi2 = 112.45531
      theta3 = 5.998868
      phi3 = 112.45531
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 993
      chmoth = 'DCLS'
      x = 37.463208
      y = 15.483546
      z = 0
      irot = 1741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1742
      theta1 = 90
      phi1 = 24.733791
      theta2 = 95.998868
      phi2 = 114.73379
      theta3 = 5.998868
      phi3 = 114.73379
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 994
      chmoth = 'DCLS'
      x = 36.818018
      y = 16.960711
      z = 0
      irot = 1742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1743
      theta1 = 90
      phi1 = 27.012272
      theta2 = 95.998868
      phi2 = 117.01227
      theta3 = 5.998868
      phi3 = 117.01227
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 995
      chmoth = 'DCLS'
      x = 36.114611
      y = 18.411058
      z = 0
      irot = 1743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1744
      theta1 = 90
      phi1 = 29.290753
      theta2 = 95.998868
      phi2 = 119.29075
      theta3 = 5.998868
      phi3 = 119.29075
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 996
      chmoth = 'DCLS'
      x = 35.354099
      y = 19.832293
      z = 0
      irot = 1744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1745
      theta1 = 90
      phi1 = 31.569234
      theta2 = 95.998868
      phi2 = 121.56923
      theta3 = 5.998868
      phi3 = 121.56923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 997
      chmoth = 'DCLS'
      x = 34.537685
      y = 21.222169
      z = 0
      irot = 1745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1746
      theta1 = 90
      phi1 = 33.847715
      theta2 = 95.998868
      phi2 = 123.84772
      theta3 = 5.998868
      phi3 = 123.84772
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 998
      chmoth = 'DCLS'
      x = 33.66666
      y = 22.578489
      z = 0
      irot = 1746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1747
      theta1 = 90
      phi1 = 36.126196
      theta2 = 95.998868
      phi2 = 126.1262
      theta3 = 5.998868
      phi3 = 126.1262
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 999
      chmoth = 'DCLS'
      x = 32.742401
      y = 23.899108
      z = 0
      irot = 1747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1748
      theta1 = 90
      phi1 = 38.404677
      theta2 = 95.998868
      phi2 = 128.40468
      theta3 = 5.998868
      phi3 = 128.40468
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1000
      chmoth = 'DCLS'
      x = 31.766369
      y = 25.181937
      z = 0
      irot = 1748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1749
      theta1 = 90
      phi1 = 40.683158
      theta2 = 95.998868
      phi2 = 130.68316
      theta3 = 5.998868
      phi3 = 130.68316
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1001
      chmoth = 'DCLS'
      x = 30.740109
      y = 26.424948
      z = 0
      irot = 1749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1750
      theta1 = 90
      phi1 = 42.961639
      theta2 = 95.998868
      phi2 = 132.96164
      theta3 = 5.998868
      phi3 = 132.96164
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1002
      chmoth = 'DCLS'
      x = 29.665242
      y = 27.626176
      z = 0
      irot = 1750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1751
      theta1 = 90
      phi1 = 45.24012
      theta2 = 95.998868
      phi2 = 135.24012
      theta3 = 5.998868
      phi3 = 135.24012
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1003
      chmoth = 'DCLS'
      x = 28.543468
      y = 28.783721
      z = 0
      irot = 1751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1752
      theta1 = 90
      phi1 = 47.518601
      theta2 = 95.998868
      phi2 = 137.5186
      theta3 = 5.998868
      phi3 = 137.5186
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1004
      chmoth = 'DCLS'
      x = 27.376561
      y = 29.895753
      z = 0
      irot = 1752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1753
      theta1 = 90
      phi1 = 49.797082
      theta2 = 95.998868
      phi2 = 139.79708
      theta3 = 5.998868
      phi3 = 139.79708
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1005
      chmoth = 'DCLS'
      x = 26.166366
      y = 30.960514
      z = 0
      irot = 1753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1754
      theta1 = 90
      phi1 = 52.075563
      theta2 = 95.998868
      phi2 = 142.07556
      theta3 = 5.998868
      phi3 = 142.07556
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1006
      chmoth = 'DCLS'
      x = 24.914796
      y = 31.97632
      z = 0
      irot = 1754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1755
      theta1 = 90
      phi1 = 54.354044
      theta2 = 95.998868
      phi2 = 144.35404
      theta3 = 5.998868
      phi3 = 144.35404
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1007
      chmoth = 'DCLS'
      x = 23.623832
      y = 32.941565
      z = 0
      irot = 1755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1756
      theta1 = 90
      phi1 = 56.632525
      theta2 = 95.998868
      phi2 = 146.63253
      theta3 = 5.998868
      phi3 = 146.63253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1008
      chmoth = 'DCLS'
      x = 22.295513
      y = 33.854723
      z = 0
      irot = 1756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1757
      theta1 = 90
      phi1 = 58.911006
      theta2 = 95.998868
      phi2 = 148.91101
      theta3 = 5.998868
      phi3 = 148.91101
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1009
      chmoth = 'DCLS'
      x = 20.93194
      y = 34.714349
      z = 0
      irot = 1757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1758
      theta1 = 90
      phi1 = 61.189487
      theta2 = 95.998868
      phi2 = 151.18949
      theta3 = 5.998868
      phi3 = 151.18949
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1010
      chmoth = 'DCLS'
      x = 19.53527
      y = 35.519085
      z = 0
      irot = 1758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1759
      theta1 = 90
      phi1 = 63.467968
      theta2 = 95.998868
      phi2 = 153.46797
      theta3 = 5.998868
      phi3 = 153.46797
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1011
      chmoth = 'DCLS'
      x = 18.10771
      y = 36.267658
      z = 0
      irot = 1759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1760
      theta1 = 90
      phi1 = 65.746449
      theta2 = 95.998868
      phi2 = 155.74645
      theta3 = 5.998868
      phi3 = 155.74645
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1012
      chmoth = 'DCLS'
      x = 16.651518
      y = 36.958884
      z = 0
      irot = 1760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1761
      theta1 = 90
      phi1 = 68.02493
      theta2 = 95.998868
      phi2 = 158.02493
      theta3 = 5.998868
      phi3 = 158.02493
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1013
      chmoth = 'DCLS'
      x = 15.168997
      y = 37.59167
      z = 0
      irot = 1761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1762
      theta1 = 90
      phi1 = 70.303411
      theta2 = 95.998868
      phi2 = 160.30341
      theta3 = 5.998868
      phi3 = 160.30341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1014
      chmoth = 'DCLS'
      x = 13.662491
      y = 38.165017
      z = 0
      irot = 1762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1763
      theta1 = 90
      phi1 = 72.581892
      theta2 = 95.998868
      phi2 = 162.58189
      theta3 = 5.998868
      phi3 = 162.58189
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1015
      chmoth = 'DCLS'
      x = 12.134381
      y = 38.678016
      z = 0
      irot = 1763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1764
      theta1 = 90
      phi1 = 74.860373
      theta2 = 95.998868
      phi2 = 164.86037
      theta3 = 5.998868
      phi3 = 164.86037
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1016
      chmoth = 'DCLS'
      x = 10.587084
      y = 39.129858
      z = 0
      irot = 1764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1765
      theta1 = 90
      phi1 = 77.138854
      theta2 = 95.998868
      phi2 = 167.13885
      theta3 = 5.998868
      phi3 = 167.13885
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1017
      chmoth = 'DCLS'
      x = 9.0230475
      y = 39.519828
      z = 0
      irot = 1765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1766
      theta1 = 90
      phi1 = 79.417335
      theta2 = 95.998868
      phi2 = 169.41734
      theta3 = 5.998868
      phi3 = 169.41734
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1018
      chmoth = 'DCLS'
      x = 7.4447432
      y = 39.847308
      z = 0
      irot = 1766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1767
      theta1 = 90
      phi1 = 81.695816
      theta2 = 95.998868
      phi2 = 171.69582
      theta3 = 5.998868
      phi3 = 171.69582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1019
      chmoth = 'DCLS'
      x = 5.8546673
      y = 40.111782
      z = 0
      irot = 1767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1768
      theta1 = 90
      phi1 = 83.974297
      theta2 = 95.998868
      phi2 = 173.9743
      theta3 = 5.998868
      phi3 = 173.9743
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1020
      chmoth = 'DCLS'
      x = 4.2553339
      y = 40.31283
      z = 0
      irot = 1768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1769
      theta1 = 90
      phi1 = 86.252778
      theta2 = 95.998868
      phi2 = 176.25278
      theta3 = 5.998868
      phi3 = 176.25278
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1021
      chmoth = 'DCLS'
      x = 2.649272
      y = 40.450136
      z = 0
      irot = 1769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1770
      theta1 = 90
      phi1 = 88.531259
      theta2 = 95.998868
      phi2 = 178.53126
      theta3 = 5.998868
      phi3 = 178.53126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1022
      chmoth = 'DCLS'
      x = 1.039021
      y = 40.523482
      z = 0
      irot = 1770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1771
      theta1 = 90
      phi1 = 90.809741
      theta2 = 95.998868
      phi2 = -179.19026
      theta3 = 5.998868
      phi3 = -179.19026
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1023
      chmoth = 'DCLS'
      x = -0.57287285
      y = 40.532752
      z = 0
      irot = 1771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1772
      theta1 = 90
      phi1 = 93.088222
      theta2 = 95.998868
      phi2 = -176.91178
      theta3 = 5.998868
      phi3 = -176.91178
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1024
      chmoth = 'DCLS'
      x = -2.1838609
      y = 40.477931
      z = 0
      irot = 1772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1773
      theta1 = 90
      phi1 = 95.366703
      theta2 = 95.998868
      phi2 = -174.6333
      theta3 = 5.998868
      phi3 = -174.6333
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1025
      chmoth = 'DCLS'
      x = -3.7913958
      y = 40.359106
      z = 0
      irot = 1773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1774
      theta1 = 90
      phi1 = 97.645184
      theta2 = 95.998868
      phi2 = -172.35482
      theta3 = 5.998868
      phi3 = -172.35482
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1026
      chmoth = 'DCLS'
      x = -5.3929357
      y = 40.176466
      z = 0
      irot = 1774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1775
      theta1 = 90
      phi1 = 99.923665
      theta2 = 95.998868
      phi2 = -170.07634
      theta3 = 5.998868
      phi3 = -170.07634
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1027
      chmoth = 'DCLS'
      x = -6.9859483
      y = 39.930298
      z = 0
      irot = 1775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1776
      theta1 = 90
      phi1 = 102.20215
      theta2 = 95.998868
      phi2 = -167.79785
      theta3 = 5.998868
      phi3 = -167.79785
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1028
      chmoth = 'DCLS'
      x = -8.5679147
      y = 39.620992
      z = 0
      irot = 1776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1777
      theta1 = 90
      phi1 = 104.48063
      theta2 = 95.998868
      phi2 = -165.51937
      theta3 = 5.998868
      phi3 = -165.51937
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1029
      chmoth = 'DCLS'
      x = -10.136333
      y = 39.249037
      z = 0
      irot = 1777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1778
      theta1 = 90
      phi1 = 106.75911
      theta2 = 95.998868
      phi2 = -163.24089
      theta3 = 5.998868
      phi3 = -163.24089
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1030
      chmoth = 'DCLS'
      x = -11.688725
      y = 38.815021
      z = 0
      irot = 1778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1779
      theta1 = 90
      phi1 = 109.03759
      theta2 = 95.998868
      phi2 = -160.96241
      theta3 = 5.998868
      phi3 = -160.96241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1031
      chmoth = 'DCLS'
      x = -13.222633
      y = 38.319631
      z = 0
      irot = 1779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1780
      theta1 = 90
      phi1 = 111.31607
      theta2 = 95.998868
      phi2 = -158.68393
      theta3 = 5.998868
      phi3 = -158.68393
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1032
      chmoth = 'DCLS'
      x = -14.735635
      y = 37.76365
      z = 0
      irot = 1780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1781
      theta1 = 90
      phi1 = 113.59455
      theta2 = 95.998868
      phi2 = -156.40545
      theta3 = 5.998868
      phi3 = -156.40545
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1033
      chmoth = 'DCLS'
      x = -16.225336
      y = 37.147956
      z = 0
      irot = 1781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1782
      theta1 = 90
      phi1 = 115.87303
      theta2 = 95.998868
      phi2 = -154.12697
      theta3 = 5.998868
      phi3 = -154.12697
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1034
      chmoth = 'DCLS'
      x = -17.689381
      y = 36.473524
      z = 0
      irot = 1782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1783
      theta1 = 90
      phi1 = 118.15151
      theta2 = 95.998868
      phi2 = -151.84849
      theta3 = 5.998868
      phi3 = -151.84849
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1035
      chmoth = 'DCLS'
      x = -19.125456
      y = 35.74142
      z = 0
      irot = 1783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1784
      theta1 = 90
      phi1 = 120.42999
      theta2 = 95.998868
      phi2 = -149.57001
      theta3 = 5.998868
      phi3 = -149.57001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1036
      chmoth = 'DCLS'
      x = -20.53129
      y = 34.952801
      z = 0
      irot = 1784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1785
      theta1 = 90
      phi1 = 122.70847
      theta2 = 95.998868
      phi2 = -147.29153
      theta3 = 5.998868
      phi3 = -147.29153
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1037
      chmoth = 'DCLS'
      x = -21.904659
      y = 34.108915
      z = 0
      irot = 1785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1786
      theta1 = 90
      phi1 = 124.98696
      theta2 = 95.998868
      phi2 = -145.01304
      theta3 = 5.998868
      phi3 = -145.01304
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1038
      chmoth = 'DCLS'
      x = -23.243393
      y = 33.211095
      z = 0
      irot = 1786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1787
      theta1 = 90
      phi1 = 127.26544
      theta2 = 95.998868
      phi2 = -142.73456
      theta3 = 5.998868
      phi3 = -142.73456
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1039
      chmoth = 'DCLS'
      x = -24.545374
      y = 32.260762
      z = 0
      irot = 1787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1788
      theta1 = 90
      phi1 = 129.54392
      theta2 = 95.998868
      phi2 = -140.45608
      theta3 = 5.998868
      phi3 = -140.45608
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1040
      chmoth = 'DCLS'
      x = -25.808544
      y = 31.259418
      z = 0
      irot = 1788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1789
      theta1 = 90
      phi1 = 131.8224
      theta2 = 95.998868
      phi2 = -138.1776
      theta3 = 5.998868
      phi3 = -138.1776
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1041
      chmoth = 'DCLS'
      x = -27.030905
      y = 30.208647
      z = 0
      irot = 1789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1790
      theta1 = 90
      phi1 = 134.10088
      theta2 = 95.998868
      phi2 = -135.89912
      theta3 = 5.998868
      phi3 = -135.89912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1042
      chmoth = 'DCLS'
      x = -28.210525
      y = 29.110109
      z = 0
      irot = 1790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1791
      theta1 = 90
      phi1 = 136.37936
      theta2 = 95.998868
      phi2 = -133.62064
      theta3 = 5.998868
      phi3 = -133.62064
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1043
      chmoth = 'DCLS'
      x = -29.345538
      y = 27.965542
      z = 0
      irot = 1791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1792
      theta1 = 90
      phi1 = 138.65784
      theta2 = 95.998868
      phi2 = -131.34216
      theta3 = 5.998868
      phi3 = -131.34216
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1044
      chmoth = 'DCLS'
      x = -30.43415
      y = 26.776756
      z = 0
      irot = 1792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1793
      theta1 = 90
      phi1 = 140.93632
      theta2 = 95.998868
      phi2 = -129.06368
      theta3 = 5.998868
      phi3 = -129.06368
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1045
      chmoth = 'DCLS'
      x = -31.474639
      y = 25.545631
      z = 0
      irot = 1793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1794
      theta1 = 90
      phi1 = 143.2148
      theta2 = 95.998868
      phi2 = -126.7852
      theta3 = 5.998868
      phi3 = -126.7852
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1046
      chmoth = 'DCLS'
      x = -32.46536
      y = 24.274112
      z = 0
      irot = 1794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1795
      theta1 = 90
      phi1 = 145.49328
      theta2 = 95.998868
      phi2 = -124.50672
      theta3 = 5.998868
      phi3 = -124.50672
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1047
      chmoth = 'DCLS'
      x = -33.404747
      y = 22.964212
      z = 0
      irot = 1795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1796
      theta1 = 90
      phi1 = 147.77177
      theta2 = 95.998868
      phi2 = -122.22823
      theta3 = 5.998868
      phi3 = -122.22823
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1048
      chmoth = 'DCLS'
      x = -34.291314
      y = 21.618
      z = 0
      irot = 1796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1797
      theta1 = 90
      phi1 = 150.05025
      theta2 = 95.998868
      phi2 = -119.94975
      theta3 = 5.998868
      phi3 = -119.94975
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1049
      chmoth = 'DCLS'
      x = -35.12366
      y = 20.237605
      z = 0
      irot = 1797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1798
      theta1 = 90
      phi1 = 152.32873
      theta2 = 95.998868
      phi2 = -117.67127
      theta3 = 5.998868
      phi3 = -117.67127
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1050
      chmoth = 'DCLS'
      x = -35.900468
      y = 18.825211
      z = 0
      irot = 1798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1799
      theta1 = 90
      phi1 = 154.60721
      theta2 = 95.998868
      phi2 = -115.39279
      theta3 = 5.998868
      phi3 = -115.39279
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1051
      chmoth = 'DCLS'
      x = -36.620509
      y = 17.38305
      z = 0
      irot = 1799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1800
      theta1 = 90
      phi1 = 156.88569
      theta2 = 95.998868
      phi2 = -113.11431
      theta3 = 5.998868
      phi3 = -113.11431
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1052
      chmoth = 'DCLS'
      x = -37.282647
      y = 15.913403
      z = 0
      irot = 1800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1801
      theta1 = 90
      phi1 = 159.16417
      theta2 = 95.998868
      phi2 = -110.83583
      theta3 = 5.998868
      phi3 = -110.83583
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1053
      chmoth = 'DCLS'
      x = -37.885832
      y = 14.418594
      z = 0
      irot = 1801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1802
      theta1 = 90
      phi1 = 161.44265
      theta2 = 95.998868
      phi2 = -108.55735
      theta3 = 5.998868
      phi3 = -108.55735
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1054
      chmoth = 'DCLS'
      x = -38.429113
      y = 12.900986
      z = 0
      irot = 1802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1803
      theta1 = 90
      phi1 = 163.72113
      theta2 = 95.998868
      phi2 = -106.27887
      theta3 = 5.998868
      phi3 = -106.27887
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1055
      chmoth = 'DCLS'
      x = -38.911629
      y = 11.362979
      z = 0
      irot = 1803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1804
      theta1 = 90
      phi1 = 165.99961
      theta2 = 95.998868
      phi2 = -104.00039
      theta3 = 5.998868
      phi3 = -104.00039
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1056
      chmoth = 'DCLS'
      x = -39.332618
      y = 9.8070045
      z = 0
      irot = 1804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1805
      theta1 = 90
      phi1 = 168.27809
      theta2 = 95.998868
      phi2 = -101.72191
      theta3 = 5.998868
      phi3 = -101.72191
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1057
      chmoth = 'DCLS'
      x = -39.691414
      y = 8.2355233
      z = 0
      irot = 1805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1806
      theta1 = 90
      phi1 = 170.55658
      theta2 = 95.998868
      phi2 = -99.443424
      theta3 = 5.998868
      phi3 = -99.443424
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1058
      chmoth = 'DCLS'
      x = -39.987449
      y = 6.65102
      z = 0
      irot = 1806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1807
      theta1 = 90
      phi1 = 172.83506
      theta2 = 95.998868
      phi2 = -97.164943
      theta3 = 5.998868
      phi3 = -97.164943
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1059
      chmoth = 'DCLS'
      x = -40.220256
      y = 5.056
      z = 0
      irot = 1807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1808
      theta1 = 90
      phi1 = 175.11354
      theta2 = 95.998868
      phi2 = -94.886462
      theta3 = 5.998868
      phi3 = -94.886462
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1060
      chmoth = 'DCLS'
      x = -40.389467
      y = 3.4529855
      z = 0
      irot = 1808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1809
      theta1 = 90
      phi1 = 177.39202
      theta2 = 95.998868
      phi2 = -92.607981
      theta3 = 5.998868
      phi3 = -92.607981
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1061
      chmoth = 'DCLS'
      x = -40.494814
      y = 1.8445111
      z = 0
      irot = 1809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1810
      theta1 = 90
      phi1 = 179.6705
      theta2 = 95.998868
      phi2 = -90.3295
      theta3 = 5.998868
      phi3 = -90.3295
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1062
      chmoth = 'DCLS'
      x = -40.53613
      y = 0.23312017
      z = 0
      irot = 1810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1811
      theta1 = 90
      phi1 = -178.05102
      theta2 = 95.998868
      phi2 = -88.051019
      theta3 = 5.998868
      phi3 = -88.051019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1063
      chmoth = 'DCLS'
      x = -40.51335
      y = -1.3786394
      z = 0
      irot = 1811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1812
      theta1 = 90
      phi1 = -175.77254
      theta2 = 95.998868
      phi2 = -85.772538
      theta3 = 5.998868
      phi3 = -85.772538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1064
      chmoth = 'DCLS'
      x = -40.42651
      y = -2.988219
      z = 0
      irot = 1812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1813
      theta1 = 90
      phi1 = -173.49406
      theta2 = 95.998868
      phi2 = -83.494057
      theta3 = 5.998868
      phi3 = -83.494057
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1065
      chmoth = 'DCLS'
      x = -40.275747
      y = -4.5930737
      z = 0
      irot = 1813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1814
      theta1 = 90
      phi1 = -171.21558
      theta2 = 95.998868
      phi2 = -81.215576
      theta3 = 5.998868
      phi3 = -81.215576
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1066
      chmoth = 'DCLS'
      x = -40.061301
      y = -6.1906657
      z = 0
      irot = 1814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1815
      theta1 = 90
      phi1 = -168.93709
      theta2 = 95.998868
      phi2 = -78.937095
      theta3 = 5.998868
      phi3 = -78.937095
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1067
      chmoth = 'DCLS'
      x = -39.783509
      y = -7.7784691
      z = 0
      irot = 1815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1816
      theta1 = 90
      phi1 = -166.65861
      theta2 = 95.998868
      phi2 = -76.658614
      theta3 = 5.998868
      phi3 = -76.658614
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1068
      chmoth = 'DCLS'
      x = -39.442811
      y = -9.3539731
      z = 0
      irot = 1816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1817
      theta1 = 90
      phi1 = -164.38013
      theta2 = 95.998868
      phi2 = -74.380133
      theta3 = 5.998868
      phi3 = -74.380133
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1069
      chmoth = 'DCLS'
      x = -39.039746
      y = -10.914687
      z = 0
      irot = 1817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1818
      theta1 = 90
      phi1 = -162.10165
      theta2 = 95.998868
      phi2 = -72.101652
      theta3 = 5.998868
      phi3 = -72.101652
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1070
      chmoth = 'DCLS'
      x = -38.574951
      y = -12.458142
      z = 0
      irot = 1818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1819
      theta1 = 90
      phi1 = -159.82317
      theta2 = 95.998868
      phi2 = -69.823171
      theta3 = 5.998868
      phi3 = -69.823171
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1071
      chmoth = 'DCLS'
      x = -38.049161
      y = -13.981898
      z = 0
      irot = 1819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1820
      theta1 = 90
      phi1 = -157.54469
      theta2 = 95.998868
      phi2 = -67.54469
      theta3 = 5.998868
      phi3 = -67.54469
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1072
      chmoth = 'DCLS'
      x = -37.463208
      y = -15.483546
      z = 0
      irot = 1820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1821
      theta1 = 90
      phi1 = -155.26621
      theta2 = 95.998868
      phi2 = -65.266209
      theta3 = 5.998868
      phi3 = -65.266209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1073
      chmoth = 'DCLS'
      x = -36.818018
      y = -16.960711
      z = 0
      irot = 1821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1822
      theta1 = 90
      phi1 = -152.98773
      theta2 = 95.998868
      phi2 = -62.987728
      theta3 = 5.998868
      phi3 = -62.987728
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1074
      chmoth = 'DCLS'
      x = -36.114611
      y = -18.411058
      z = 0
      irot = 1822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1823
      theta1 = 90
      phi1 = -150.70925
      theta2 = 95.998868
      phi2 = -60.709247
      theta3 = 5.998868
      phi3 = -60.709247
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1075
      chmoth = 'DCLS'
      x = -35.354099
      y = -19.832293
      z = 0
      irot = 1823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1824
      theta1 = 90
      phi1 = -148.43077
      theta2 = 95.998868
      phi2 = -58.430766
      theta3 = 5.998868
      phi3 = -58.430766
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1076
      chmoth = 'DCLS'
      x = -34.537685
      y = -21.222169
      z = 0
      irot = 1824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1825
      theta1 = 90
      phi1 = -146.15228
      theta2 = 95.998868
      phi2 = -56.152285
      theta3 = 5.998868
      phi3 = -56.152285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1077
      chmoth = 'DCLS'
      x = -33.66666
      y = -22.578489
      z = 0
      irot = 1825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1826
      theta1 = 90
      phi1 = -143.8738
      theta2 = 95.998868
      phi2 = -53.873804
      theta3 = 5.998868
      phi3 = -53.873804
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1078
      chmoth = 'DCLS'
      x = -32.742401
      y = -23.899108
      z = 0
      irot = 1826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1827
      theta1 = 90
      phi1 = -141.59532
      theta2 = 95.998868
      phi2 = -51.595323
      theta3 = 5.998868
      phi3 = -51.595323
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1079
      chmoth = 'DCLS'
      x = -31.766369
      y = -25.181937
      z = 0
      irot = 1827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1828
      theta1 = 90
      phi1 = -139.31684
      theta2 = 95.998868
      phi2 = -49.316842
      theta3 = 5.998868
      phi3 = -49.316842
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1080
      chmoth = 'DCLS'
      x = -30.740109
      y = -26.424948
      z = 0
      irot = 1828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1829
      theta1 = 90
      phi1 = -137.03836
      theta2 = 95.998868
      phi2 = -47.038361
      theta3 = 5.998868
      phi3 = -47.038361
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1081
      chmoth = 'DCLS'
      x = -29.665242
      y = -27.626176
      z = 0
      irot = 1829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1830
      theta1 = 90
      phi1 = -134.75988
      theta2 = 95.998868
      phi2 = -44.75988
      theta3 = 5.998868
      phi3 = -44.75988
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1082
      chmoth = 'DCLS'
      x = -28.543468
      y = -28.783721
      z = 0
      irot = 1830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1831
      theta1 = 90
      phi1 = -132.4814
      theta2 = 95.998868
      phi2 = -42.481399
      theta3 = 5.998868
      phi3 = -42.481399
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1083
      chmoth = 'DCLS'
      x = -27.376561
      y = -29.895753
      z = 0
      irot = 1831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1832
      theta1 = 90
      phi1 = -130.20292
      theta2 = 95.998868
      phi2 = -40.202918
      theta3 = 5.998868
      phi3 = -40.202918
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1084
      chmoth = 'DCLS'
      x = -26.166366
      y = -30.960514
      z = 0
      irot = 1832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1833
      theta1 = 90
      phi1 = -127.92444
      theta2 = 95.998868
      phi2 = -37.924437
      theta3 = 5.998868
      phi3 = -37.924437
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1085
      chmoth = 'DCLS'
      x = -24.914796
      y = -31.97632
      z = 0
      irot = 1833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1834
      theta1 = 90
      phi1 = -125.64596
      theta2 = 95.998868
      phi2 = -35.645956
      theta3 = 5.998868
      phi3 = -35.645956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1086
      chmoth = 'DCLS'
      x = -23.623832
      y = -32.941565
      z = 0
      irot = 1834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1835
      theta1 = 90
      phi1 = -123.36747
      theta2 = 95.998868
      phi2 = -33.367475
      theta3 = 5.998868
      phi3 = -33.367475
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1087
      chmoth = 'DCLS'
      x = -22.295513
      y = -33.854723
      z = 0
      irot = 1835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1836
      theta1 = 90
      phi1 = -121.08899
      theta2 = 95.998868
      phi2 = -31.088994
      theta3 = 5.998868
      phi3 = -31.088994
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1088
      chmoth = 'DCLS'
      x = -20.93194
      y = -34.714349
      z = 0
      irot = 1836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1837
      theta1 = 90
      phi1 = -118.81051
      theta2 = 95.998868
      phi2 = -28.810513
      theta3 = 5.998868
      phi3 = -28.810513
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1089
      chmoth = 'DCLS'
      x = -19.53527
      y = -35.519085
      z = 0
      irot = 1837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1838
      theta1 = 90
      phi1 = -116.53203
      theta2 = 95.998868
      phi2 = -26.532032
      theta3 = 5.998868
      phi3 = -26.532032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1090
      chmoth = 'DCLS'
      x = -18.10771
      y = -36.267658
      z = 0
      irot = 1838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1839
      theta1 = 90
      phi1 = -114.25355
      theta2 = 95.998868
      phi2 = -24.253551
      theta3 = 5.998868
      phi3 = -24.253551
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1091
      chmoth = 'DCLS'
      x = -16.651518
      y = -36.958884
      z = 0
      irot = 1839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1840
      theta1 = 90
      phi1 = -111.97507
      theta2 = 95.998868
      phi2 = -21.97507
      theta3 = 5.998868
      phi3 = -21.97507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1092
      chmoth = 'DCLS'
      x = -15.168997
      y = -37.59167
      z = 0
      irot = 1840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1841
      theta1 = 90
      phi1 = -109.69659
      theta2 = 95.998868
      phi2 = -19.696589
      theta3 = 5.998868
      phi3 = -19.696589
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1093
      chmoth = 'DCLS'
      x = -13.662491
      y = -38.165017
      z = 0
      irot = 1841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1842
      theta1 = 90
      phi1 = -107.41811
      theta2 = 95.998868
      phi2 = -17.418108
      theta3 = 5.998868
      phi3 = -17.418108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1094
      chmoth = 'DCLS'
      x = -12.134381
      y = -38.678016
      z = 0
      irot = 1842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1843
      theta1 = 90
      phi1 = -105.13963
      theta2 = 95.998868
      phi2 = -15.139627
      theta3 = 5.998868
      phi3 = -15.139627
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1095
      chmoth = 'DCLS'
      x = -10.587084
      y = -39.129858
      z = 0
      irot = 1843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1844
      theta1 = 90
      phi1 = -102.86115
      theta2 = 95.998868
      phi2 = -12.861146
      theta3 = 5.998868
      phi3 = -12.861146
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1096
      chmoth = 'DCLS'
      x = -9.0230475
      y = -39.519828
      z = 0
      irot = 1844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1845
      theta1 = 90
      phi1 = -100.58266
      theta2 = 95.998868
      phi2 = -10.582665
      theta3 = 5.998868
      phi3 = -10.582665
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1097
      chmoth = 'DCLS'
      x = -7.4447432
      y = -39.847308
      z = 0
      irot = 1845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1846
      theta1 = 90
      phi1 = -98.304184
      theta2 = 95.998868
      phi2 = -8.3041835
      theta3 = 5.998868
      phi3 = -8.3041835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1098
      chmoth = 'DCLS'
      x = -5.8546673
      y = -40.111782
      z = 0
      irot = 1846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1847
      theta1 = 90
      phi1 = -96.025703
      theta2 = 95.998868
      phi2 = -6.0257025
      theta3 = 5.998868
      phi3 = -6.0257025
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1099
      chmoth = 'DCLS'
      x = -4.2553339
      y = -40.31283
      z = 0
      irot = 1847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1848
      theta1 = 90
      phi1 = -93.747222
      theta2 = 95.998868
      phi2 = -3.7472215
      theta3 = 5.998868
      phi3 = -3.7472215
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1100
      chmoth = 'DCLS'
      x = -2.649272
      y = -40.450136
      z = 0
      irot = 1848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1849
      theta1 = 90
      phi1 = -91.468741
      theta2 = 95.998868
      phi2 = -1.4687405
      theta3 = 5.998868
      phi3 = -1.4687405
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1101
      chmoth = 'DCLS'
      x = -1.039021
      y = -40.523482
      z = 0
      irot = 1849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1850
      theta1 = 90
      phi1 = -89.190259
      theta2 = 95.998868
      phi2 = 0.80974051
      theta3 = 5.998868
      phi3 = 0.80974051
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1102
      chmoth = 'DCLS'
      x = 0.57287285
      y = -40.532752
      z = 0
      irot = 1850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1851
      theta1 = 90
      phi1 = -86.911778
      theta2 = 95.998868
      phi2 = 3.0882215
      theta3 = 5.998868
      phi3 = 3.0882215
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1103
      chmoth = 'DCLS'
      x = 2.1838609
      y = -40.477931
      z = 0
      irot = 1851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1852
      theta1 = 90
      phi1 = -84.633297
      theta2 = 95.998868
      phi2 = 5.3667025
      theta3 = 5.998868
      phi3 = 5.3667025
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1104
      chmoth = 'DCLS'
      x = 3.7913958
      y = -40.359106
      z = 0
      irot = 1852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1853
      theta1 = 90
      phi1 = -82.354816
      theta2 = 95.998868
      phi2 = 7.6451835
      theta3 = 5.998868
      phi3 = 7.6451835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1105
      chmoth = 'DCLS'
      x = 5.3929357
      y = -40.176466
      z = 0
      irot = 1853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1854
      theta1 = 90
      phi1 = -80.076335
      theta2 = 95.998868
      phi2 = 9.9236646
      theta3 = 5.998868
      phi3 = 9.9236646
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1106
      chmoth = 'DCLS'
      x = 6.9859483
      y = -39.930298
      z = 0
      irot = 1854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1855
      theta1 = 90
      phi1 = -77.797854
      theta2 = 95.998868
      phi2 = 12.202146
      theta3 = 5.998868
      phi3 = 12.202146
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1107
      chmoth = 'DCLS'
      x = 8.5679147
      y = -39.620992
      z = 0
      irot = 1855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1856
      theta1 = 90
      phi1 = -75.519373
      theta2 = 95.998868
      phi2 = 14.480627
      theta3 = 5.998868
      phi3 = 14.480627
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1108
      chmoth = 'DCLS'
      x = 10.136333
      y = -39.249037
      z = 0
      irot = 1856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1857
      theta1 = 90
      phi1 = -73.240892
      theta2 = 95.998868
      phi2 = 16.759108
      theta3 = 5.998868
      phi3 = 16.759108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1109
      chmoth = 'DCLS'
      x = 11.688725
      y = -38.815021
      z = 0
      irot = 1857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1858
      theta1 = 90
      phi1 = -70.962411
      theta2 = 95.998868
      phi2 = 19.037589
      theta3 = 5.998868
      phi3 = 19.037589
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1110
      chmoth = 'DCLS'
      x = 13.222633
      y = -38.319631
      z = 0
      irot = 1858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1859
      theta1 = 90
      phi1 = -68.68393
      theta2 = 95.998868
      phi2 = 21.31607
      theta3 = 5.998868
      phi3 = 21.31607
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1111
      chmoth = 'DCLS'
      x = 14.735635
      y = -37.76365
      z = 0
      irot = 1859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1860
      theta1 = 90
      phi1 = -66.405449
      theta2 = 95.998868
      phi2 = 23.594551
      theta3 = 5.998868
      phi3 = 23.594551
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1112
      chmoth = 'DCLS'
      x = 16.225336
      y = -37.147956
      z = 0
      irot = 1860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1861
      theta1 = 90
      phi1 = -64.126968
      theta2 = 95.998868
      phi2 = 25.873032
      theta3 = 5.998868
      phi3 = 25.873032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1113
      chmoth = 'DCLS'
      x = 17.689381
      y = -36.473524
      z = 0
      irot = 1861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1862
      theta1 = 90
      phi1 = -61.848487
      theta2 = 95.998868
      phi2 = 28.151513
      theta3 = 5.998868
      phi3 = 28.151513
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1114
      chmoth = 'DCLS'
      x = 19.125456
      y = -35.74142
      z = 0
      irot = 1862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1863
      theta1 = 90
      phi1 = -59.570006
      theta2 = 95.998868
      phi2 = 30.429994
      theta3 = 5.998868
      phi3 = 30.429994
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1115
      chmoth = 'DCLS'
      x = 20.53129
      y = -34.952801
      z = 0
      irot = 1863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1864
      theta1 = 90
      phi1 = -57.291525
      theta2 = 95.998868
      phi2 = 32.708475
      theta3 = 5.998868
      phi3 = 32.708475
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1116
      chmoth = 'DCLS'
      x = 21.904659
      y = -34.108915
      z = 0
      irot = 1864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1865
      theta1 = 90
      phi1 = -55.013044
      theta2 = 95.998868
      phi2 = 34.986956
      theta3 = 5.998868
      phi3 = 34.986956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1117
      chmoth = 'DCLS'
      x = 23.243393
      y = -33.211095
      z = 0
      irot = 1865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1866
      theta1 = 90
      phi1 = -52.734563
      theta2 = 95.998868
      phi2 = 37.265437
      theta3 = 5.998868
      phi3 = 37.265437
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1118
      chmoth = 'DCLS'
      x = 24.545374
      y = -32.260762
      z = 0
      irot = 1866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1867
      theta1 = 90
      phi1 = -50.456082
      theta2 = 95.998868
      phi2 = 39.543918
      theta3 = 5.998868
      phi3 = 39.543918
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1119
      chmoth = 'DCLS'
      x = 25.808544
      y = -31.259418
      z = 0
      irot = 1867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1868
      theta1 = 90
      phi1 = -48.177601
      theta2 = 95.998868
      phi2 = 41.822399
      theta3 = 5.998868
      phi3 = 41.822399
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1120
      chmoth = 'DCLS'
      x = 27.030905
      y = -30.208647
      z = 0
      irot = 1868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1869
      theta1 = 90
      phi1 = -45.89912
      theta2 = 95.998868
      phi2 = 44.10088
      theta3 = 5.998868
      phi3 = 44.10088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1121
      chmoth = 'DCLS'
      x = 28.210525
      y = -29.110109
      z = 0
      irot = 1869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1870
      theta1 = 90
      phi1 = -43.620639
      theta2 = 95.998868
      phi2 = 46.379361
      theta3 = 5.998868
      phi3 = 46.379361
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1122
      chmoth = 'DCLS'
      x = 29.345538
      y = -27.965542
      z = 0
      irot = 1870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1871
      theta1 = 90
      phi1 = -41.342158
      theta2 = 95.998868
      phi2 = 48.657842
      theta3 = 5.998868
      phi3 = 48.657842
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1123
      chmoth = 'DCLS'
      x = 30.43415
      y = -26.776756
      z = 0
      irot = 1871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1872
      theta1 = 90
      phi1 = -39.063677
      theta2 = 95.998868
      phi2 = 50.936323
      theta3 = 5.998868
      phi3 = 50.936323
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1124
      chmoth = 'DCLS'
      x = 31.474639
      y = -25.545631
      z = 0
      irot = 1872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1873
      theta1 = 90
      phi1 = -36.785196
      theta2 = 95.998868
      phi2 = 53.214804
      theta3 = 5.998868
      phi3 = 53.214804
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1125
      chmoth = 'DCLS'
      x = 32.46536
      y = -24.274112
      z = 0
      irot = 1873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1874
      theta1 = 90
      phi1 = -34.506715
      theta2 = 95.998868
      phi2 = 55.493285
      theta3 = 5.998868
      phi3 = 55.493285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1126
      chmoth = 'DCLS'
      x = 33.404747
      y = -22.964212
      z = 0
      irot = 1874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1875
      theta1 = 90
      phi1 = -32.228234
      theta2 = 95.998868
      phi2 = 57.771766
      theta3 = 5.998868
      phi3 = 57.771766
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1127
      chmoth = 'DCLS'
      x = 34.291314
      y = -21.618
      z = 0
      irot = 1875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1876
      theta1 = 90
      phi1 = -29.949753
      theta2 = 95.998868
      phi2 = 60.050247
      theta3 = 5.998868
      phi3 = 60.050247
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1128
      chmoth = 'DCLS'
      x = 35.12366
      y = -20.237605
      z = 0
      irot = 1876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1877
      theta1 = 90
      phi1 = -27.671272
      theta2 = 95.998868
      phi2 = 62.328728
      theta3 = 5.998868
      phi3 = 62.328728
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1129
      chmoth = 'DCLS'
      x = 35.900468
      y = -18.825211
      z = 0
      irot = 1877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1878
      theta1 = 90
      phi1 = -25.392791
      theta2 = 95.998868
      phi2 = 64.607209
      theta3 = 5.998868
      phi3 = 64.607209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1130
      chmoth = 'DCLS'
      x = 36.620509
      y = -17.38305
      z = 0
      irot = 1878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1879
      theta1 = 90
      phi1 = -23.11431
      theta2 = 95.998868
      phi2 = 66.88569
      theta3 = 5.998868
      phi3 = 66.88569
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1131
      chmoth = 'DCLS'
      x = 37.282647
      y = -15.913403
      z = 0
      irot = 1879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1880
      theta1 = 90
      phi1 = -20.835829
      theta2 = 95.998868
      phi2 = 69.164171
      theta3 = 5.998868
      phi3 = 69.164171
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1132
      chmoth = 'DCLS'
      x = 37.885832
      y = -14.418594
      z = 0
      irot = 1880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1881
      theta1 = 90
      phi1 = -18.557348
      theta2 = 95.998868
      phi2 = 71.442652
      theta3 = 5.998868
      phi3 = 71.442652
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1133
      chmoth = 'DCLS'
      x = 38.429113
      y = -12.900986
      z = 0
      irot = 1881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1882
      theta1 = 90
      phi1 = -16.278867
      theta2 = 95.998868
      phi2 = 73.721133
      theta3 = 5.998868
      phi3 = 73.721133
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1134
      chmoth = 'DCLS'
      x = 38.911629
      y = -11.362979
      z = 0
      irot = 1882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1883
      theta1 = 90
      phi1 = -14.000386
      theta2 = 95.998868
      phi2 = 75.999614
      theta3 = 5.998868
      phi3 = 75.999614
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1135
      chmoth = 'DCLS'
      x = 39.332618
      y = -9.8070045
      z = 0
      irot = 1883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1884
      theta1 = 90
      phi1 = -11.721905
      theta2 = 95.998868
      phi2 = 78.278095
      theta3 = 5.998868
      phi3 = 78.278095
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1136
      chmoth = 'DCLS'
      x = 39.691414
      y = -8.2355233
      z = 0
      irot = 1884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1885
      theta1 = 90
      phi1 = -9.4434241
      theta2 = 95.998868
      phi2 = 80.556576
      theta3 = 5.998868
      phi3 = 80.556576
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1137
      chmoth = 'DCLS'
      x = 39.987449
      y = -6.65102
      z = 0
      irot = 1885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1886
      theta1 = 90
      phi1 = -7.164943
      theta2 = 95.998868
      phi2 = 82.835057
      theta3 = 5.998868
      phi3 = 82.835057
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1138
      chmoth = 'DCLS'
      x = 40.220256
      y = -5.056
      z = 0
      irot = 1886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1887
      theta1 = 90
      phi1 = -4.886462
      theta2 = 95.998868
      phi2 = 85.113538
      theta3 = 5.998868
      phi3 = 85.113538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1139
      chmoth = 'DCLS'
      x = 40.389467
      y = -3.4529855
      z = 0
      irot = 1887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1888
      theta1 = 90
      phi1 = -2.607981
      theta2 = 95.998868
      phi2 = 87.392019
      theta3 = 5.998868
      phi3 = 87.392019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1140
      chmoth = 'DCLS'
      x = 40.494814
      y = -1.8445111
      z = 0
      irot = 1888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1889
      theta1 = 89.912
      phi1 = 0
      theta2 = 96.202063
      phi2 = 89.990437
      theta3 = 6.2026918
      phi3 = 90.809727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1141
      chmoth = 'DCLS'
      x = 41.9205
      y = 0.5923
      z = 0
      irot = 1889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1890
      theta1 = 89.912
      phi1 = 2.278481
      theta2 = 96.202063
      phi2 = 92.268918
      theta3 = 6.2026918
      phi3 = 93.088208
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1142
      chmoth = 'DCLS'
      x = 41.86381
      y = 2.2584447
      z = 0
      irot = 1890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1891
      theta1 = 89.912
      phi1 = 4.556962
      theta2 = 96.202063
      phi2 = 94.547399
      theta3 = 6.2026918
      phi3 = 95.366689
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1143
      chmoth = 'DCLS'
      x = 41.740924
      y = 3.9210184
      z = 0
      irot = 1891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1892
      theta1 = 89.912
      phi1 = 6.835443
      theta2 = 96.202063
      phi2 = 96.82588
      theta3 = 6.2026918
      phi3 = 97.64517
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1144
      chmoth = 'DCLS'
      x = 41.552038
      y = 5.5773921
      z = 0
      irot = 1892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1893
      theta1 = 89.912
      phi1 = 9.1139241
      theta2 = 96.202063
      phi2 = 99.104361
      theta3 = 6.2026918
      phi3 = 99.923651
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1145
      chmoth = 'DCLS'
      x = 41.297449
      y = 7.2249468
      z = 0
      irot = 1893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1894
      theta1 = 89.912
      phi1 = 11.392405
      theta2 = 96.202063
      phi2 = 101.38284
      theta3 = 6.2026918
      phi3 = 102.20213
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1146
      chmoth = 'DCLS'
      x = 40.97756
      y = 8.8610774
      z = 0
      irot = 1894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1895
      theta1 = 89.912
      phi1 = 13.670886
      theta2 = 96.202063
      phi2 = 103.66132
      theta3 = 6.2026918
      phi3 = 104.48061
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1147
      chmoth = 'DCLS'
      x = 40.592878
      y = 10.483197
      z = 0
      irot = 1895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1896
      theta1 = 89.912
      phi1 = 15.949367
      theta2 = 96.202063
      phi2 = 105.9398
      theta3 = 6.2026918
      phi3 = 106.75909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1148
      chmoth = 'DCLS'
      x = 40.14401
      y = 12.08874
      z = 0
      irot = 1896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1897
      theta1 = 89.912
      phi1 = 18.227848
      theta2 = 96.202063
      phi2 = 108.21829
      theta3 = 6.2026918
      phi3 = 109.03758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1149
      chmoth = 'DCLS'
      x = 39.631665
      y = 13.675169
      z = 0
      irot = 1897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1898
      theta1 = 89.912
      phi1 = 20.506329
      theta2 = 96.202063
      phi2 = 110.49677
      theta3 = 6.2026918
      phi3 = 111.31606
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1150
      chmoth = 'DCLS'
      x = 39.056655
      y = 15.239974
      z = 0
      irot = 1898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1899
      theta1 = 89.912
      phi1 = 22.78481
      theta2 = 96.202063
      phi2 = 112.77525
      theta3 = 6.2026918
      phi3 = 113.59454
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1151
      chmoth = 'DCLS'
      x = 38.419889
      y = 16.780682
      z = 0
      irot = 1899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1900
      theta1 = 89.912
      phi1 = 25.063291
      theta2 = 96.202063
      phi2 = 115.05373
      theta3 = 6.2026918
      phi3 = 115.87302
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1152
      chmoth = 'DCLS'
      x = 37.722373
      y = 18.294856
      z = 0
      irot = 1900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1901
      theta1 = 89.912
      phi1 = 27.341772
      theta2 = 96.202063
      phi2 = 117.33221
      theta3 = 6.2026918
      phi3 = 118.1515
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1153
      chmoth = 'DCLS'
      x = 36.965209
      y = 19.780102
      z = 0
      irot = 1901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1902
      theta1 = 89.912
      phi1 = 29.620253
      theta2 = 96.202063
      phi2 = 119.61069
      theta3 = 6.2026918
      phi3 = 120.42998
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1154
      chmoth = 'DCLS'
      x = 36.149597
      y = 21.234072
      z = 0
      irot = 1902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1903
      theta1 = 89.912
      phi1 = 31.898734
      theta2 = 96.202063
      phi2 = 121.88917
      theta3 = 6.2026918
      phi3 = 122.70846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1155
      chmoth = 'DCLS'
      x = 35.276824
      y = 22.654466
      z = 0
      irot = 1903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1904
      theta1 = 89.912
      phi1 = 34.177215
      theta2 = 96.202063
      phi2 = 124.16765
      theta3 = 6.2026918
      phi3 = 124.98694
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1156
      chmoth = 'DCLS'
      x = 34.348272
      y = 24.039039
      z = 0
      irot = 1904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1905
      theta1 = 89.912
      phi1 = 36.455696
      theta2 = 96.202063
      phi2 = 126.44613
      theta3 = 6.2026918
      phi3 = 127.26542
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1157
      chmoth = 'DCLS'
      x = 33.365407
      y = 25.385601
      z = 0
      irot = 1905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1906
      theta1 = 89.912
      phi1 = 38.734177
      theta2 = 96.202063
      phi2 = 128.72461
      theta3 = 6.2026918
      phi3 = 129.5439
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1158
      chmoth = 'DCLS'
      x = 32.329785
      y = 26.692023
      z = 0
      irot = 1906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1907
      theta1 = 89.912
      phi1 = 41.012658
      theta2 = 96.202063
      phi2 = 131.0031
      theta3 = 6.2026918
      phi3 = 131.82239
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1159
      chmoth = 'DCLS'
      x = 31.243044
      y = 27.95624
      z = 0
      irot = 1907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1908
      theta1 = 89.912
      phi1 = 43.291139
      theta2 = 96.202063
      phi2 = 133.28158
      theta3 = 6.2026918
      phi3 = 134.10087
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1160
      chmoth = 'DCLS'
      x = 30.1069
      y = 29.176252
      z = 0
      irot = 1908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1909
      theta1 = 89.912
      phi1 = 45.56962
      theta2 = 96.202063
      phi2 = 135.56006
      theta3 = 6.2026918
      phi3 = 136.37935
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1161
      chmoth = 'DCLS'
      x = 28.923151
      y = 30.350131
      z = 0
      irot = 1909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1910
      theta1 = 89.912
      phi1 = 47.848101
      theta2 = 96.202063
      phi2 = 137.83854
      theta3 = 6.2026918
      phi3 = 138.65783
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1162
      chmoth = 'DCLS'
      x = 27.693669
      y = 31.47602
      z = 0
      irot = 1910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1911
      theta1 = 89.912
      phi1 = 50.126582
      theta2 = 96.202063
      phi2 = 140.11702
      theta3 = 6.2026918
      phi3 = 140.93631
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1163
      chmoth = 'DCLS'
      x = 26.420398
      y = 32.552139
      z = 0
      irot = 1911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1912
      theta1 = 89.912
      phi1 = 52.405063
      theta2 = 96.202063
      phi2 = 142.3955
      theta3 = 6.2026918
      phi3 = 143.21479
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1164
      chmoth = 'DCLS'
      x = 25.10535
      y = 33.576786
      z = 0
      irot = 1912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1913
      theta1 = 89.912
      phi1 = 54.683544
      theta2 = 96.202063
      phi2 = 144.67398
      theta3 = 6.2026918
      phi3 = 145.49327
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1165
      chmoth = 'DCLS'
      x = 23.750606
      y = 34.548341
      z = 0
      irot = 1913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1914
      theta1 = 89.912
      phi1 = 56.962025
      theta2 = 96.202063
      phi2 = 146.95246
      theta3 = 6.2026918
      phi3 = 147.77175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1166
      chmoth = 'DCLS'
      x = 22.358307
      y = 35.465268
      z = 0
      irot = 1914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1915
      theta1 = 89.912
      phi1 = 59.240506
      theta2 = 96.202063
      phi2 = 149.23094
      theta3 = 6.2026918
      phi3 = 150.05023
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1167
      chmoth = 'DCLS'
      x = 20.930655
      y = 36.326118
      z = 0
      irot = 1915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1916
      theta1 = 89.912
      phi1 = 61.518987
      theta2 = 96.202063
      phi2 = 151.50942
      theta3 = 6.2026918
      phi3 = 152.32871
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1168
      chmoth = 'DCLS'
      x = 19.469907
      y = 37.129528
      z = 0
      irot = 1916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1917
      theta1 = 89.912
      phi1 = 63.797468
      theta2 = 96.202063
      phi2 = 153.78791
      theta3 = 6.2026918
      phi3 = 154.6072
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1169
      chmoth = 'DCLS'
      x = 17.978373
      y = 37.874229
      z = 0
      irot = 1917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1918
      theta1 = 89.912
      phi1 = 66.075949
      theta2 = 96.202063
      phi2 = 156.06639
      theta3 = 6.2026918
      phi3 = 156.88568
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1170
      chmoth = 'DCLS'
      x = 16.458412
      y = 38.559043
      z = 0
      irot = 1918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1919
      theta1 = 89.912
      phi1 = 68.35443
      theta2 = 96.202063
      phi2 = 158.34487
      theta3 = 6.2026918
      phi3 = 159.16416
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1171
      chmoth = 'DCLS'
      x = 14.912427
      y = 39.182887
      z = 0
      irot = 1919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1920
      theta1 = 89.912
      phi1 = 70.632911
      theta2 = 96.202063
      phi2 = 160.62335
      theta3 = 6.2026918
      phi3 = 161.44264
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1172
      chmoth = 'DCLS'
      x = 13.342862
      y = 39.744775
      z = 0
      irot = 1920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1921
      theta1 = 89.912
      phi1 = 72.911392
      theta2 = 96.202063
      phi2 = 162.90183
      theta3 = 6.2026918
      phi3 = 163.72112
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1173
      chmoth = 'DCLS'
      x = 11.7522
      y = 40.243819
      z = 0
      irot = 1921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1922
      theta1 = 89.912
      phi1 = 75.189873
      theta2 = 96.202063
      phi2 = 165.18031
      theta3 = 6.2026918
      phi3 = 165.9996
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1174
      chmoth = 'DCLS'
      x = 10.142954
      y = 40.679228
      z = 0
      irot = 1922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1923
      theta1 = 89.912
      phi1 = 77.468354
      theta2 = 96.202063
      phi2 = 167.45879
      theta3 = 6.2026918
      phi3 = 168.27808
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1175
      chmoth = 'DCLS'
      x = 8.5176709
      y = 41.050316
      z = 0
      irot = 1923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1924
      theta1 = 89.912
      phi1 = 79.746835
      theta2 = 96.202063
      phi2 = 169.73727
      theta3 = 6.2026918
      phi3 = 170.55656
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1176
      chmoth = 'DCLS'
      x = 6.8789193
      y = 41.356494
      z = 0
      irot = 1924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1925
      theta1 = 89.912
      phi1 = 82.025316
      theta2 = 96.202063
      phi2 = 172.01575
      theta3 = 6.2026918
      phi3 = 172.83504
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1177
      chmoth = 'DCLS'
      x = 5.2292907
      y = 41.597279
      z = 0
      irot = 1925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1926
      theta1 = 89.912
      phi1 = 84.303797
      theta2 = 96.202063
      phi2 = 174.29423
      theta3 = 6.2026918
      phi3 = 175.11352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1178
      chmoth = 'DCLS'
      x = 3.5713936
      y = 41.772291
      z = 0
      irot = 1926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1927
      theta1 = 89.912
      phi1 = 86.582278
      theta2 = 96.202063
      phi2 = 176.57272
      theta3 = 6.2026918
      phi3 = 177.39201
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1179
      chmoth = 'DCLS'
      x = 1.9078493
      y = 41.881252
      z = 0
      irot = 1927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1928
      theta1 = 89.912
      phi1 = 88.860759
      theta2 = 96.202063
      phi2 = 178.8512
      theta3 = 6.2026918
      phi3 = 179.67049
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1180
      chmoth = 'DCLS'
      x = 0.24128833
      y = 41.92399
      z = 0
      irot = 1928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1929
      theta1 = 89.912
      phi1 = 91.139241
      theta2 = 96.202063
      phi2 = -178.87032
      theta3 = 6.2026918
      phi3 = -178.05103
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1181
      chmoth = 'DCLS'
      x = -1.4256542
      y = 41.900437
      z = 0
      irot = 1929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1930
      theta1 = 89.912
      phi1 = 93.417722
      theta2 = 96.202063
      phi2 = -176.59184
      theta3 = 6.2026918
      phi3 = -175.77255
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1182
      chmoth = 'DCLS'
      x = -3.0903424
      y = 41.810632
      z = 0
      irot = 1930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1931
      theta1 = 89.912
      phi1 = 95.696203
      theta2 = 96.202063
      phi2 = -174.31336
      theta3 = 6.2026918
      phi3 = -173.49407
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1183
      chmoth = 'DCLS'
      x = -4.7501442
      y = 41.654715
      z = 0
      irot = 1931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1932
      theta1 = 89.912
      phi1 = 97.974684
      theta2 = 96.202063
      phi2 = -172.03488
      theta3 = 6.2026918
      phi3 = -171.21559
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1184
      chmoth = 'DCLS'
      x = -6.402435
      y = 41.432933
      z = 0
      irot = 1932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1933
      theta1 = 89.912
      phi1 = 100.25316
      theta2 = 96.202063
      phi2 = -169.7564
      theta3 = 6.2026918
      phi3 = -168.93711
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1185
      chmoth = 'DCLS'
      x = -8.0446023
      y = 41.145638
      z = 0
      irot = 1933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1934
      theta1 = 89.912
      phi1 = 102.53165
      theta2 = 96.202063
      phi2 = -167.47792
      theta3 = 6.2026918
      phi3 = -166.65863
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1186
      chmoth = 'DCLS'
      x = -9.6740494
      y = 40.793283
      z = 0
      irot = 1934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1935
      theta1 = 89.912
      phi1 = 104.81013
      theta2 = 96.202063
      phi2 = -165.19944
      theta3 = 6.2026918
      phi3 = -164.38015
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1187
      chmoth = 'DCLS'
      x = -11.2882
      y = 40.376425
      z = 0
      irot = 1935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1936
      theta1 = 89.912
      phi1 = 107.08861
      theta2 = 96.202063
      phi2 = -162.92096
      theta3 = 6.2026918
      phi3 = -162.10167
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1188
      chmoth = 'DCLS'
      x = -12.884501
      y = 39.895724
      z = 0
      irot = 1936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1937
      theta1 = 89.912
      phi1 = 109.36709
      theta2 = 96.202063
      phi2 = -160.64247
      theta3 = 6.2026918
      phi3 = -159.82318
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1189
      chmoth = 'DCLS'
      x = -14.46043
      y = 39.351939
      z = 0
      irot = 1937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1938
      theta1 = 89.912
      phi1 = 111.64557
      theta2 = 96.202063
      phi2 = -158.36399
      theta3 = 6.2026918
      phi3 = -157.5447
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1190
      chmoth = 'DCLS'
      x = -16.013493
      y = 38.745931
      z = 0
      irot = 1938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1939
      theta1 = 89.912
      phi1 = 113.92405
      theta2 = 96.202063
      phi2 = -156.08551
      theta3 = 6.2026918
      phi3 = -155.26622
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1191
      chmoth = 'DCLS'
      x = -17.541236
      y = 38.078658
      z = 0
      irot = 1939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1940
      theta1 = 89.912
      phi1 = 116.20253
      theta2 = 96.202063
      phi2 = -153.80703
      theta3 = 6.2026918
      phi3 = -152.98774
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1192
      chmoth = 'DCLS'
      x = -19.041243
      y = 37.351174
      z = 0
      irot = 1940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1941
      theta1 = 89.912
      phi1 = 118.48101
      theta2 = 96.202063
      phi2 = -151.52855
      theta3 = 6.2026918
      phi3 = -150.70926
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1193
      chmoth = 'DCLS'
      x = -20.511141
      y = 36.564631
      z = 0
      irot = 1941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1942
      theta1 = 89.912
      phi1 = 120.75949
      theta2 = 96.202063
      phi2 = -149.25007
      theta3 = 6.2026918
      phi3 = -148.43078
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1194
      chmoth = 'DCLS'
      x = -21.948607
      y = 35.720271
      z = 0
      irot = 1942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1943
      theta1 = 89.912
      phi1 = 123.03797
      theta2 = 96.202063
      phi2 = -146.97159
      theta3 = 6.2026918
      phi3 = -146.1523
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1195
      chmoth = 'DCLS'
      x = -23.351368
      y = 34.819431
      z = 0
      irot = 1943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1944
      theta1 = 89.912
      phi1 = 125.31646
      theta2 = 96.202063
      phi2 = -144.69311
      theta3 = 6.2026918
      phi3 = -143.87382
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1196
      chmoth = 'DCLS'
      x = -24.717206
      y = 33.863533
      z = 0
      irot = 1944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1945
      theta1 = 89.912
      phi1 = 127.59494
      theta2 = 96.202063
      phi2 = -142.41463
      theta3 = 6.2026918
      phi3 = -141.59534
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1197
      chmoth = 'DCLS'
      x = -26.04396
      y = 32.854091
      z = 0
      irot = 1945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1946
      theta1 = 89.912
      phi1 = 129.87342
      theta2 = 96.202063
      phi2 = -140.13615
      theta3 = 6.2026918
      phi3 = -139.31686
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1198
      chmoth = 'DCLS'
      x = -27.329534
      y = 31.792699
      z = 0
      irot = 1946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1947
      theta1 = 89.912
      phi1 = 132.1519
      theta2 = 96.202063
      phi2 = -137.85766
      theta3 = 6.2026918
      phi3 = -137.03837
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1199
      chmoth = 'DCLS'
      x = -28.571894
      y = 30.681037
      z = 0
      irot = 1947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1948
      theta1 = 89.912
      phi1 = 134.43038
      theta2 = 96.202063
      phi2 = -135.57918
      theta3 = 6.2026918
      phi3 = -134.75989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1200
      chmoth = 'DCLS'
      x = -29.769076
      y = 29.520861
      z = 0
      irot = 1948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1949
      theta1 = 89.912
      phi1 = 136.70886
      theta2 = 96.202063
      phi2 = -133.3007
      theta3 = 6.2026918
      phi3 = -132.48141
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1201
      chmoth = 'DCLS'
      x = -30.919187
      y = 28.314007
      z = 0
      irot = 1949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1950
      theta1 = 89.912
      phi1 = 138.98734
      theta2 = 96.202063
      phi2 = -131.02222
      theta3 = 6.2026918
      phi3 = -130.20293
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1202
      chmoth = 'DCLS'
      x = -32.020409
      y = 27.062383
      z = 0
      irot = 1950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1951
      theta1 = 89.912
      phi1 = 141.26582
      theta2 = 96.202063
      phi2 = -128.74374
      theta3 = 6.2026918
      phi3 = -127.92445
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1203
      chmoth = 'DCLS'
      x = -33.070999
      y = 25.767967
      z = 0
      irot = 1951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1952
      theta1 = 89.912
      phi1 = 143.5443
      theta2 = 96.202063
      phi2 = -126.46526
      theta3 = 6.2026918
      phi3 = -125.64597
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1204
      chmoth = 'DCLS'
      x = -34.069298
      y = 24.432808
      z = 0
      irot = 1952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1953
      theta1 = 89.912
      phi1 = 145.82278
      theta2 = 96.202063
      phi2 = -124.18678
      theta3 = 6.2026918
      phi3 = -123.36749
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1205
      chmoth = 'DCLS'
      x = -35.013726
      y = 23.059014
      z = 0
      irot = 1953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1954
      theta1 = 89.912
      phi1 = 148.10127
      theta2 = 96.202063
      phi2 = -121.9083
      theta3 = 6.2026918
      phi3 = -121.08901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1206
      chmoth = 'DCLS'
      x = -35.90279
      y = 21.64876
      z = 0
      irot = 1954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1955
      theta1 = 89.912
      phi1 = 150.37975
      theta2 = 96.202063
      phi2 = -119.62982
      theta3 = 6.2026918
      phi3 = -118.81053
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1207
      chmoth = 'DCLS'
      x = -36.735084
      y = 20.204275
      z = 0
      irot = 1955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1956
      theta1 = 89.912
      phi1 = 152.65823
      theta2 = 96.202063
      phi2 = -117.35134
      theta3 = 6.2026918
      phi3 = -116.53205
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1208
      chmoth = 'DCLS'
      x = -37.509293
      y = 18.727842
      z = 0
      irot = 1956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1957
      theta1 = 89.912
      phi1 = 154.93671
      theta2 = 96.202063
      phi2 = -115.07285
      theta3 = 6.2026918
      phi3 = -114.25356
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1209
      chmoth = 'DCLS'
      x = -38.224192
      y = 17.221797
      z = 0
      irot = 1957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1958
      theta1 = 89.912
      phi1 = 157.21519
      theta2 = 96.202063
      phi2 = -112.79437
      theta3 = 6.2026918
      phi3 = -111.97508
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1210
      chmoth = 'DCLS'
      x = -38.87865
      y = 15.688521
      z = 0
      irot = 1958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1959
      theta1 = 89.912
      phi1 = 159.49367
      theta2 = 96.202063
      phi2 = -110.51589
      theta3 = 6.2026918
      phi3 = -109.6966
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1211
      chmoth = 'DCLS'
      x = -39.471634
      y = 14.130438
      z = 0
      irot = 1959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1960
      theta1 = 89.912
      phi1 = 161.77215
      theta2 = 96.202063
      phi2 = -108.23741
      theta3 = 6.2026918
      phi3 = -107.41812
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1212
      chmoth = 'DCLS'
      x = -40.002204
      y = 12.550012
      z = 0
      irot = 1960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1961
      theta1 = 89.912
      phi1 = 164.05063
      theta2 = 96.202063
      phi2 = -105.95893
      theta3 = 6.2026918
      phi3 = -105.13964
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1213
      chmoth = 'DCLS'
      x = -40.469523
      y = 10.949741
      z = 0
      irot = 1961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1962
      theta1 = 89.912
      phi1 = 166.32911
      theta2 = 96.202063
      phi2 = -103.68045
      theta3 = 6.2026918
      phi3 = -102.86116
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1214
      chmoth = 'DCLS'
      x = -40.872851
      y = 9.3321573
      z = 0
      irot = 1962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1963
      theta1 = 89.912
      phi1 = 168.60759
      theta2 = 96.202063
      phi2 = -101.40197
      theta3 = 6.2026918
      phi3 = -100.58268
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1215
      chmoth = 'DCLS'
      x = -41.211551
      y = 7.6998171
      z = 0
      irot = 1963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1964
      theta1 = 89.912
      phi1 = 170.88608
      theta2 = 96.202063
      phi2 = -99.123487
      theta3 = 6.2026918
      phi3 = -98.304197
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1216
      chmoth = 'DCLS'
      x = -41.485087
      y = 6.055302
      z = 0
      irot = 1964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1965
      theta1 = 89.912
      phi1 = 173.16456
      theta2 = 96.202063
      phi2 = -96.845006
      theta3 = 6.2026918
      phi3 = -96.025716
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1217
      chmoth = 'DCLS'
      x = -41.693027
      y = 4.4012121
      z = 0
      irot = 1965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1966
      theta1 = 89.912
      phi1 = 175.44304
      theta2 = 96.202063
      phi2 = -94.566525
      theta3 = 6.2026918
      phi3 = -93.747235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1218
      chmoth = 'DCLS'
      x = -41.835041
      y = 2.7401631
      z = 0
      irot = 1966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1967
      theta1 = 89.912
      phi1 = 177.72152
      theta2 = 96.202063
      phi2 = -92.288044
      theta3 = 6.2026918
      phi3 = -91.468754
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1219
      chmoth = 'DCLS'
      x = -41.910905
      y = 1.0747813
      z = 0
      irot = 1967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1968
      theta1 = 89.912
      phi1 = -180
      theta2 = 96.202063
      phi2 = -90.009563
      theta3 = 6.2026918
      phi3 = -89.190273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1220
      chmoth = 'DCLS'
      x = -41.9205
      y = -0.5923
      z = 0
      irot = 1968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1969
      theta1 = 89.912
      phi1 = -177.72152
      theta2 = 96.202063
      phi2 = -87.731082
      theta3 = 6.2026918
      phi3 = -86.911792
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1221
      chmoth = 'DCLS'
      x = -41.86381
      y = -2.2584447
      z = 0
      irot = 1969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1970
      theta1 = 89.912
      phi1 = -175.44304
      theta2 = 96.202063
      phi2 = -85.452601
      theta3 = 6.2026918
      phi3 = -84.633311
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1222
      chmoth = 'DCLS'
      x = -41.740924
      y = -3.9210184
      z = 0
      irot = 1970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1971
      theta1 = 89.912
      phi1 = -173.16456
      theta2 = 96.202063
      phi2 = -83.17412
      theta3 = 6.2026918
      phi3 = -82.35483
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1223
      chmoth = 'DCLS'
      x = -41.552038
      y = -5.5773921
      z = 0
      irot = 1971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1972
      theta1 = 89.912
      phi1 = -170.88608
      theta2 = 96.202063
      phi2 = -80.895639
      theta3 = 6.2026918
      phi3 = -80.076349
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1224
      chmoth = 'DCLS'
      x = -41.297449
      y = -7.2249468
      z = 0
      irot = 1972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1973
      theta1 = 89.912
      phi1 = -168.60759
      theta2 = 96.202063
      phi2 = -78.617158
      theta3 = 6.2026918
      phi3 = -77.797868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1225
      chmoth = 'DCLS'
      x = -40.97756
      y = -8.8610774
      z = 0
      irot = 1973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1974
      theta1 = 89.912
      phi1 = -166.32911
      theta2 = 96.202063
      phi2 = -76.338677
      theta3 = 6.2026918
      phi3 = -75.519387
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1226
      chmoth = 'DCLS'
      x = -40.592878
      y = -10.483197
      z = 0
      irot = 1974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1975
      theta1 = 89.912
      phi1 = -164.05063
      theta2 = 96.202063
      phi2 = -74.060196
      theta3 = 6.2026918
      phi3 = -73.240906
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1227
      chmoth = 'DCLS'
      x = -40.14401
      y = -12.08874
      z = 0
      irot = 1975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1976
      theta1 = 89.912
      phi1 = -161.77215
      theta2 = 96.202063
      phi2 = -71.781715
      theta3 = 6.2026918
      phi3 = -70.962425
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1228
      chmoth = 'DCLS'
      x = -39.631665
      y = -13.675169
      z = 0
      irot = 1976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1977
      theta1 = 89.912
      phi1 = -159.49367
      theta2 = 96.202063
      phi2 = -69.503234
      theta3 = 6.2026918
      phi3 = -68.683944
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1229
      chmoth = 'DCLS'
      x = -39.056655
      y = -15.239974
      z = 0
      irot = 1977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1978
      theta1 = 89.912
      phi1 = -157.21519
      theta2 = 96.202063
      phi2 = -67.224753
      theta3 = 6.2026918
      phi3 = -66.405463
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1230
      chmoth = 'DCLS'
      x = -38.419889
      y = -16.780682
      z = 0
      irot = 1978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1979
      theta1 = 89.912
      phi1 = -154.93671
      theta2 = 96.202063
      phi2 = -64.946272
      theta3 = 6.2026918
      phi3 = -64.126982
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1231
      chmoth = 'DCLS'
      x = -37.722373
      y = -18.294856
      z = 0
      irot = 1979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1980
      theta1 = 89.912
      phi1 = -152.65823
      theta2 = 96.202063
      phi2 = -62.667791
      theta3 = 6.2026918
      phi3 = -61.848501
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1232
      chmoth = 'DCLS'
      x = -36.965209
      y = -19.780102
      z = 0
      irot = 1980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1981
      theta1 = 89.912
      phi1 = -150.37975
      theta2 = 96.202063
      phi2 = -60.38931
      theta3 = 6.2026918
      phi3 = -59.57002
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1233
      chmoth = 'DCLS'
      x = -36.149597
      y = -21.234072
      z = 0
      irot = 1981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1982
      theta1 = 89.912
      phi1 = -148.10127
      theta2 = 96.202063
      phi2 = -58.110829
      theta3 = 6.2026918
      phi3 = -57.291539
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1234
      chmoth = 'DCLS'
      x = -35.276824
      y = -22.654466
      z = 0
      irot = 1982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1983
      theta1 = 89.912
      phi1 = -145.82278
      theta2 = 96.202063
      phi2 = -55.832348
      theta3 = 6.2026918
      phi3 = -55.013058
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1235
      chmoth = 'DCLS'
      x = -34.348272
      y = -24.039039
      z = 0
      irot = 1983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1984
      theta1 = 89.912
      phi1 = -143.5443
      theta2 = 96.202063
      phi2 = -53.553867
      theta3 = 6.2026918
      phi3 = -52.734577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1236
      chmoth = 'DCLS'
      x = -33.365407
      y = -25.385601
      z = 0
      irot = 1984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1985
      theta1 = 89.912
      phi1 = -141.26582
      theta2 = 96.202063
      phi2 = -51.275386
      theta3 = 6.2026918
      phi3 = -50.456096
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1237
      chmoth = 'DCLS'
      x = -32.329785
      y = -26.692023
      z = 0
      irot = 1985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1986
      theta1 = 89.912
      phi1 = -138.98734
      theta2 = 96.202063
      phi2 = -48.996905
      theta3 = 6.2026918
      phi3 = -48.177615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1238
      chmoth = 'DCLS'
      x = -31.243044
      y = -27.95624
      z = 0
      irot = 1986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1987
      theta1 = 89.912
      phi1 = -136.70886
      theta2 = 96.202063
      phi2 = -46.718424
      theta3 = 6.2026918
      phi3 = -45.899134
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1239
      chmoth = 'DCLS'
      x = -30.1069
      y = -29.176252
      z = 0
      irot = 1987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1988
      theta1 = 89.912
      phi1 = -134.43038
      theta2 = 96.202063
      phi2 = -44.439943
      theta3 = 6.2026918
      phi3 = -43.620653
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1240
      chmoth = 'DCLS'
      x = -28.923151
      y = -30.350131
      z = 0
      irot = 1988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1989
      theta1 = 89.912
      phi1 = -132.1519
      theta2 = 96.202063
      phi2 = -42.161462
      theta3 = 6.2026918
      phi3 = -41.342172
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1241
      chmoth = 'DCLS'
      x = -27.693669
      y = -31.47602
      z = 0
      irot = 1989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1990
      theta1 = 89.912
      phi1 = -129.87342
      theta2 = 96.202063
      phi2 = -39.882981
      theta3 = 6.2026918
      phi3 = -39.063691
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1242
      chmoth = 'DCLS'
      x = -26.420398
      y = -32.552139
      z = 0
      irot = 1990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1991
      theta1 = 89.912
      phi1 = -127.59494
      theta2 = 96.202063
      phi2 = -37.6045
      theta3 = 6.2026918
      phi3 = -36.78521
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1243
      chmoth = 'DCLS'
      x = -25.10535
      y = -33.576786
      z = 0
      irot = 1991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1992
      theta1 = 89.912
      phi1 = -125.31646
      theta2 = 96.202063
      phi2 = -35.326019
      theta3 = 6.2026918
      phi3 = -34.506729
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1244
      chmoth = 'DCLS'
      x = -23.750606
      y = -34.548341
      z = 0
      irot = 1992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1993
      theta1 = 89.912
      phi1 = -123.03797
      theta2 = 96.202063
      phi2 = -33.047538
      theta3 = 6.2026918
      phi3 = -32.228248
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1245
      chmoth = 'DCLS'
      x = -22.358307
      y = -35.465268
      z = 0
      irot = 1993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1994
      theta1 = 89.912
      phi1 = -120.75949
      theta2 = 96.202063
      phi2 = -30.769057
      theta3 = 6.2026918
      phi3 = -29.949767
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1246
      chmoth = 'DCLS'
      x = -20.930655
      y = -36.326118
      z = 0
      irot = 1994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1995
      theta1 = 89.912
      phi1 = -118.48101
      theta2 = 96.202063
      phi2 = -28.490576
      theta3 = 6.2026918
      phi3 = -27.671286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1247
      chmoth = 'DCLS'
      x = -19.469907
      y = -37.129528
      z = 0
      irot = 1995
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1996
      theta1 = 89.912
      phi1 = -116.20253
      theta2 = 96.202063
      phi2 = -26.212095
      theta3 = 6.2026918
      phi3 = -25.392805
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1248
      chmoth = 'DCLS'
      x = -17.978373
      y = -37.874229
      z = 0
      irot = 1996
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1997
      theta1 = 89.912
      phi1 = -113.92405
      theta2 = 96.202063
      phi2 = -23.933614
      theta3 = 6.2026918
      phi3 = -23.114324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1249
      chmoth = 'DCLS'
      x = -16.458412
      y = -38.559043
      z = 0
      irot = 1997
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1998
      theta1 = 89.912
      phi1 = -111.64557
      theta2 = 96.202063
      phi2 = -21.655133
      theta3 = 6.2026918
      phi3 = -20.835843
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1250
      chmoth = 'DCLS'
      x = -14.912427
      y = -39.182887
      z = 0
      irot = 1998
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1999
      theta1 = 89.912
      phi1 = -109.36709
      theta2 = 96.202063
      phi2 = -19.376652
      theta3 = 6.2026918
      phi3 = -18.557362
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1251
      chmoth = 'DCLS'
      x = -13.342862
      y = -39.744775
      z = 0
      irot = 1999
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2000
      theta1 = 89.912
      phi1 = -107.08861
      theta2 = 96.202063
      phi2 = -17.098171
      theta3 = 6.2026918
      phi3 = -16.278881
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1252
      chmoth = 'DCLS'
      x = -11.7522
      y = -40.243819
      z = 0
      irot = 2000
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2001
      theta1 = 89.912
      phi1 = -104.81013
      theta2 = 96.202063
      phi2 = -14.81969
      theta3 = 6.2026918
      phi3 = -14.0004
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1253
      chmoth = 'DCLS'
      x = -10.142954
      y = -40.679228
      z = 0
      irot = 2001
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2002
      theta1 = 89.912
      phi1 = -102.53165
      theta2 = 96.202063
      phi2 = -12.541209
      theta3 = 6.2026918
      phi3 = -11.721919
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1254
      chmoth = 'DCLS'
      x = -8.5176709
      y = -41.050316
      z = 0
      irot = 2002
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2003
      theta1 = 89.912
      phi1 = -100.25316
      theta2 = 96.202063
      phi2 = -10.262728
      theta3 = 6.2026918
      phi3 = -9.4434375
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1255
      chmoth = 'DCLS'
      x = -6.8789193
      y = -41.356494
      z = 0
      irot = 2003
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2004
      theta1 = 89.912
      phi1 = -97.974684
      theta2 = 96.202063
      phi2 = -7.9842466
      theta3 = 6.2026918
      phi3 = -7.1649565
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1256
      chmoth = 'DCLS'
      x = -5.2292907
      y = -41.597279
      z = 0
      irot = 2004
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2005
      theta1 = 89.912
      phi1 = -95.696203
      theta2 = 96.202063
      phi2 = -5.7057656
      theta3 = 6.2026918
      phi3 = -4.8864755
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1257
      chmoth = 'DCLS'
      x = -3.5713936
      y = -41.772291
      z = 0
      irot = 2005
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2006
      theta1 = 89.912
      phi1 = -93.417722
      theta2 = 96.202063
      phi2 = -3.4272846
      theta3 = 6.2026918
      phi3 = -2.6079945
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1258
      chmoth = 'DCLS'
      x = -1.9078493
      y = -41.881252
      z = 0
      irot = 2006
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2007
      theta1 = 89.912
      phi1 = -91.139241
      theta2 = 96.202063
      phi2 = -1.1488036
      theta3 = 6.2026918
      phi3 = -0.32951346
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1259
      chmoth = 'DCLS'
      x = -0.24128833
      y = -41.92399
      z = 0
      irot = 2007
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2008
      theta1 = 89.912
      phi1 = -88.860759
      theta2 = 96.202063
      phi2 = 1.1296774
      theta3 = 6.2026918
      phi3 = 1.9489676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1260
      chmoth = 'DCLS'
      x = 1.4256542
      y = -41.900437
      z = 0
      irot = 2008
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2009
      theta1 = 89.912
      phi1 = -86.582278
      theta2 = 96.202063
      phi2 = 3.4081584
      theta3 = 6.2026918
      phi3 = 4.2274486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1261
      chmoth = 'DCLS'
      x = 3.0903424
      y = -41.810632
      z = 0
      irot = 2009
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2010
      theta1 = 89.912
      phi1 = -84.303797
      theta2 = 96.202063
      phi2 = 5.6866395
      theta3 = 6.2026918
      phi3 = 6.5059296
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1262
      chmoth = 'DCLS'
      x = 4.7501442
      y = -41.654715
      z = 0
      irot = 2010
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2011
      theta1 = 89.912
      phi1 = -82.025316
      theta2 = 96.202063
      phi2 = 7.9651205
      theta3 = 6.2026918
      phi3 = 8.7844106
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1263
      chmoth = 'DCLS'
      x = 6.402435
      y = -41.432933
      z = 0
      irot = 2011
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2012
      theta1 = 89.912
      phi1 = -79.746835
      theta2 = 96.202063
      phi2 = 10.243601
      theta3 = 6.2026918
      phi3 = 11.062892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1264
      chmoth = 'DCLS'
      x = 8.0446023
      y = -41.145638
      z = 0
      irot = 2012
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2013
      theta1 = 89.912
      phi1 = -77.468354
      theta2 = 96.202063
      phi2 = 12.522082
      theta3 = 6.2026918
      phi3 = 13.341373
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1265
      chmoth = 'DCLS'
      x = 9.6740494
      y = -40.793283
      z = 0
      irot = 2013
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2014
      theta1 = 89.912
      phi1 = -75.189873
      theta2 = 96.202063
      phi2 = 14.800564
      theta3 = 6.2026918
      phi3 = 15.619854
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1266
      chmoth = 'DCLS'
      x = 11.2882
      y = -40.376425
      z = 0
      irot = 2014
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2015
      theta1 = 89.912
      phi1 = -72.911392
      theta2 = 96.202063
      phi2 = 17.079045
      theta3 = 6.2026918
      phi3 = 17.898335
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1267
      chmoth = 'DCLS'
      x = 12.884501
      y = -39.895724
      z = 0
      irot = 2015
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2016
      theta1 = 89.912
      phi1 = -70.632911
      theta2 = 96.202063
      phi2 = 19.357526
      theta3 = 6.2026918
      phi3 = 20.176816
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1268
      chmoth = 'DCLS'
      x = 14.46043
      y = -39.351939
      z = 0
      irot = 2016
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2017
      theta1 = 89.912
      phi1 = -68.35443
      theta2 = 96.202063
      phi2 = 21.636007
      theta3 = 6.2026918
      phi3 = 22.455297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1269
      chmoth = 'DCLS'
      x = 16.013493
      y = -38.745931
      z = 0
      irot = 2017
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2018
      theta1 = 89.912
      phi1 = -66.075949
      theta2 = 96.202063
      phi2 = 23.914488
      theta3 = 6.2026918
      phi3 = 24.733778
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1270
      chmoth = 'DCLS'
      x = 17.541236
      y = -38.078658
      z = 0
      irot = 2018
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2019
      theta1 = 89.912
      phi1 = -63.797468
      theta2 = 96.202063
      phi2 = 26.192969
      theta3 = 6.2026918
      phi3 = 27.012259
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1271
      chmoth = 'DCLS'
      x = 19.041243
      y = -37.351174
      z = 0
      irot = 2019
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2020
      theta1 = 89.912
      phi1 = -61.518987
      theta2 = 96.202063
      phi2 = 28.47145
      theta3 = 6.2026918
      phi3 = 29.29074
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1272
      chmoth = 'DCLS'
      x = 20.511141
      y = -36.564631
      z = 0
      irot = 2020
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2021
      theta1 = 89.912
      phi1 = -59.240506
      theta2 = 96.202063
      phi2 = 30.749931
      theta3 = 6.2026918
      phi3 = 31.569221
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1273
      chmoth = 'DCLS'
      x = 21.948607
      y = -35.720271
      z = 0
      irot = 2021
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2022
      theta1 = 89.912
      phi1 = -56.962025
      theta2 = 96.202063
      phi2 = 33.028412
      theta3 = 6.2026918
      phi3 = 33.847702
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1274
      chmoth = 'DCLS'
      x = 23.351368
      y = -34.819431
      z = 0
      irot = 2022
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2023
      theta1 = 89.912
      phi1 = -54.683544
      theta2 = 96.202063
      phi2 = 35.306893
      theta3 = 6.2026918
      phi3 = 36.126183
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1275
      chmoth = 'DCLS'
      x = 24.717206
      y = -33.863533
      z = 0
      irot = 2023
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2024
      theta1 = 89.912
      phi1 = -52.405063
      theta2 = 96.202063
      phi2 = 37.585374
      theta3 = 6.2026918
      phi3 = 38.404664
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1276
      chmoth = 'DCLS'
      x = 26.04396
      y = -32.854091
      z = 0
      irot = 2024
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2025
      theta1 = 89.912
      phi1 = -50.126582
      theta2 = 96.202063
      phi2 = 39.863855
      theta3 = 6.2026918
      phi3 = 40.683145
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1277
      chmoth = 'DCLS'
      x = 27.329534
      y = -31.792699
      z = 0
      irot = 2025
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2026
      theta1 = 89.912
      phi1 = -47.848101
      theta2 = 96.202063
      phi2 = 42.142336
      theta3 = 6.2026918
      phi3 = 42.961626
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1278
      chmoth = 'DCLS'
      x = 28.571894
      y = -30.681037
      z = 0
      irot = 2026
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2027
      theta1 = 89.912
      phi1 = -45.56962
      theta2 = 96.202063
      phi2 = 44.420817
      theta3 = 6.2026918
      phi3 = 45.240107
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1279
      chmoth = 'DCLS'
      x = 29.769076
      y = -29.520861
      z = 0
      irot = 2027
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2028
      theta1 = 89.912
      phi1 = -43.291139
      theta2 = 96.202063
      phi2 = 46.699298
      theta3 = 6.2026918
      phi3 = 47.518588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1280
      chmoth = 'DCLS'
      x = 30.919187
      y = -28.314007
      z = 0
      irot = 2028
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2029
      theta1 = 89.912
      phi1 = -41.012658
      theta2 = 96.202063
      phi2 = 48.977779
      theta3 = 6.2026918
      phi3 = 49.797069
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1281
      chmoth = 'DCLS'
      x = 32.020409
      y = -27.062383
      z = 0
      irot = 2029
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2030
      theta1 = 89.912
      phi1 = -38.734177
      theta2 = 96.202063
      phi2 = 51.25626
      theta3 = 6.2026918
      phi3 = 52.07555
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1282
      chmoth = 'DCLS'
      x = 33.070999
      y = -25.767967
      z = 0
      irot = 2030
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2031
      theta1 = 89.912
      phi1 = -36.455696
      theta2 = 96.202063
      phi2 = 53.534741
      theta3 = 6.2026918
      phi3 = 54.354031
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1283
      chmoth = 'DCLS'
      x = 34.069298
      y = -24.432808
      z = 0
      irot = 2031
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2032
      theta1 = 89.912
      phi1 = -34.177215
      theta2 = 96.202063
      phi2 = 55.813222
      theta3 = 6.2026918
      phi3 = 56.632512
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1284
      chmoth = 'DCLS'
      x = 35.013726
      y = -23.059014
      z = 0
      irot = 2032
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2033
      theta1 = 89.912
      phi1 = -31.898734
      theta2 = 96.202063
      phi2 = 58.091703
      theta3 = 6.2026918
      phi3 = 58.910993
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1285
      chmoth = 'DCLS'
      x = 35.90279
      y = -21.64876
      z = 0
      irot = 2033
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2034
      theta1 = 89.912
      phi1 = -29.620253
      theta2 = 96.202063
      phi2 = 60.370184
      theta3 = 6.2026918
      phi3 = 61.189474
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1286
      chmoth = 'DCLS'
      x = 36.735084
      y = -20.204275
      z = 0
      irot = 2034
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2035
      theta1 = 89.912
      phi1 = -27.341772
      theta2 = 96.202063
      phi2 = 62.648665
      theta3 = 6.2026918
      phi3 = 63.467955
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1287
      chmoth = 'DCLS'
      x = 37.509293
      y = -18.727842
      z = 0
      irot = 2035
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2036
      theta1 = 89.912
      phi1 = -25.063291
      theta2 = 96.202063
      phi2 = 64.927146
      theta3 = 6.2026918
      phi3 = 65.746436
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1288
      chmoth = 'DCLS'
      x = 38.224192
      y = -17.221797
      z = 0
      irot = 2036
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2037
      theta1 = 89.912
      phi1 = -22.78481
      theta2 = 96.202063
      phi2 = 67.205627
      theta3 = 6.2026918
      phi3 = 68.024917
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1289
      chmoth = 'DCLS'
      x = 38.87865
      y = -15.688521
      z = 0
      irot = 2037
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2038
      theta1 = 89.912
      phi1 = -20.506329
      theta2 = 96.202063
      phi2 = 69.484108
      theta3 = 6.2026918
      phi3 = 70.303398
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1290
      chmoth = 'DCLS'
      x = 39.471634
      y = -14.130438
      z = 0
      irot = 2038
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2039
      theta1 = 89.912
      phi1 = -18.227848
      theta2 = 96.202063
      phi2 = 71.762589
      theta3 = 6.2026918
      phi3 = 72.581879
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1291
      chmoth = 'DCLS'
      x = 40.002204
      y = -12.550012
      z = 0
      irot = 2039
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2040
      theta1 = 89.912
      phi1 = -15.949367
      theta2 = 96.202063
      phi2 = 74.04107
      theta3 = 6.2026918
      phi3 = 74.86036
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1292
      chmoth = 'DCLS'
      x = 40.469523
      y = -10.949741
      z = 0
      irot = 2040
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2041
      theta1 = 89.912
      phi1 = -13.670886
      theta2 = 96.202063
      phi2 = 76.319551
      theta3 = 6.2026918
      phi3 = 77.138841
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1293
      chmoth = 'DCLS'
      x = 40.872851
      y = -9.3321573
      z = 0
      irot = 2041
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2042
      theta1 = 89.912
      phi1 = -11.392405
      theta2 = 96.202063
      phi2 = 78.598032
      theta3 = 6.2026918
      phi3 = 79.417322
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1294
      chmoth = 'DCLS'
      x = 41.211551
      y = -7.6998171
      z = 0
      irot = 2042
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2043
      theta1 = 89.912
      phi1 = -9.1139241
      theta2 = 96.202063
      phi2 = 80.876513
      theta3 = 6.2026918
      phi3 = 81.695803
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1295
      chmoth = 'DCLS'
      x = 41.485087
      y = -6.055302
      z = 0
      irot = 2043
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2044
      theta1 = 89.912
      phi1 = -6.835443
      theta2 = 96.202063
      phi2 = 83.154994
      theta3 = 6.2026918
      phi3 = 83.974284
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1296
      chmoth = 'DCLS'
      x = 41.693027
      y = -4.4012121
      z = 0
      irot = 2044
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2045
      theta1 = 89.912
      phi1 = -4.556962
      theta2 = 96.202063
      phi2 = 85.433475
      theta3 = 6.2026918
      phi3 = 86.252765
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1297
      chmoth = 'DCLS'
      x = 41.835041
      y = -2.7401631
      z = 0
      irot = 2045
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2046
      theta1 = 89.912
      phi1 = -2.278481
      theta2 = 96.202063
      phi2 = 87.711956
      theta3 = 6.2026918
      phi3 = 88.531246
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1298
      chmoth = 'DCLS'
      x = 41.910905
      y = -1.0747813
      z = 0
      irot = 2046
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2047
      theta1 = 90
      phi1 = 0.4285
      theta2 = 84.001132
      phi2 = 90.4285
      theta3 = 5.998868
      phi3 = -89.5715
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1299
      chmoth = 'DCLS'
      x = 43.61398
      y = 0.32618352
      z = 0
      irot = 2047
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2048
      theta1 = 90
      phi1 = 2.5461471
      theta2 = 84.001132
      phi2 = 92.546147
      theta3 = 5.998868
      phi3 = -87.453853
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1300
      chmoth = 'DCLS'
      x = 43.572142
      y = 1.9375627
      z = 0
      irot = 2048
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2049
      theta1 = 90
      phi1 = 4.6637941
      theta2 = 84.001132
      phi2 = 94.663794
      theta3 = 5.998868
      phi3 = -85.336206
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1301
      chmoth = 'DCLS'
      x = 43.470789
      y = 3.5462954
      z = 0
      irot = 2049
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2050
      theta1 = 90
      phi1 = 6.7814412
      theta2 = 84.001132
      phi2 = 96.781441
      theta3 = 5.998868
      phi3 = -83.218559
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1302
      chmoth = 'DCLS'
      x = 43.31006
      y = 5.1501844
      z = 0
      irot = 2050
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2051
      theta1 = 90
      phi1 = 8.8990882
      theta2 = 84.001132
      phi2 = 98.899088
      theta3 = 5.998868
      phi3 = -81.100912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1303
      chmoth = 'DCLS'
      x = 43.090175
      y = 6.7470387
      z = 0
      irot = 2051
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2052
      theta1 = 90
      phi1 = 11.016735
      theta2 = 84.001132
      phi2 = 101.01674
      theta3 = 5.998868
      phi3 = -78.983265
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1304
      chmoth = 'DCLS'
      x = 42.811433
      y = 8.3346775
      z = 0
      irot = 2052
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2053
      theta1 = 90
      phi1 = 13.134382
      theta2 = 84.001132
      phi2 = 103.13438
      theta3 = 5.998868
      phi3 = -76.865618
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1305
      chmoth = 'DCLS'
      x = 42.474217
      y = 9.910932
      z = 0
      irot = 2053
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2054
      theta1 = 90
      phi1 = 15.252029
      theta2 = 84.001132
      phi2 = 105.25203
      theta3 = 5.998868
      phi3 = -74.747971
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1306
      chmoth = 'DCLS'
      x = 42.078986
      y = 11.473649
      z = 0
      irot = 2054
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2055
      theta1 = 90
      phi1 = 17.369676
      theta2 = 84.001132
      phi2 = 107.36968
      theta3 = 5.998868
      phi3 = -72.630324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1307
      chmoth = 'DCLS'
      x = 41.62628
      y = 13.020695
      z = 0
      irot = 2055
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2056
      theta1 = 90
      phi1 = 19.487324
      theta2 = 84.001132
      phi2 = 109.48732
      theta3 = 5.998868
      phi3 = -70.512676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1308
      chmoth = 'DCLS'
      x = 41.116717
      y = 14.549956
      z = 0
      irot = 2056
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2057
      theta1 = 90
      phi1 = 21.604971
      theta2 = 84.001132
      phi2 = 111.60497
      theta3 = 5.998868
      phi3 = -68.395029
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1309
      chmoth = 'DCLS'
      x = 40.550994
      y = 16.059344
      z = 0
      irot = 2057
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2058
      theta1 = 90
      phi1 = 23.722618
      theta2 = 84.001132
      phi2 = 113.72262
      theta3 = 5.998868
      phi3 = -66.277382
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1310
      chmoth = 'DCLS'
      x = 39.929884
      y = 17.546796
      z = 0
      irot = 2058
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2059
      theta1 = 90
      phi1 = 25.840265
      theta2 = 84.001132
      phi2 = 115.84026
      theta3 = 5.998868
      phi3 = -64.159735
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1311
      chmoth = 'DCLS'
      x = 39.254233
      y = 19.010282
      z = 0
      irot = 2059
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2060
      theta1 = 90
      phi1 = 27.957912
      theta2 = 84.001132
      phi2 = 117.95791
      theta3 = 5.998868
      phi3 = -62.042088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1312
      chmoth = 'DCLS'
      x = 38.524967
      y = 20.447802
      z = 0
      irot = 2060
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2061
      theta1 = 90
      phi1 = 30.075559
      theta2 = 84.001132
      phi2 = 120.07556
      theta3 = 5.998868
      phi3 = -59.924441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1313
      chmoth = 'DCLS'
      x = 37.74308
      y = 21.857393
      z = 0
      irot = 2061
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2062
      theta1 = 90
      phi1 = 32.193206
      theta2 = 84.001132
      phi2 = 122.19321
      theta3 = 5.998868
      phi3 = -57.806794
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1314
      chmoth = 'DCLS'
      x = 36.90964
      y = 23.237129
      z = 0
      irot = 2062
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2063
      theta1 = 90
      phi1 = 34.310853
      theta2 = 84.001132
      phi2 = 124.31085
      theta3 = 5.998868
      phi3 = -55.689147
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1315
      chmoth = 'DCLS'
      x = 36.025786
      y = 24.585126
      z = 0
      irot = 2063
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2064
      theta1 = 90
      phi1 = 36.4285
      theta2 = 84.001132
      phi2 = 126.4285
      theta3 = 5.998868
      phi3 = -53.5715
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1316
      chmoth = 'DCLS'
      x = 35.092725
      y = 25.899542
      z = 0
      irot = 2064
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2065
      theta1 = 90
      phi1 = 38.546147
      theta2 = 84.001132
      phi2 = 128.54615
      theta3 = 5.998868
      phi3 = -51.453853
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1317
      chmoth = 'DCLS'
      x = 34.111732
      y = 27.178583
      z = 0
      irot = 2065
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2066
      theta1 = 90
      phi1 = 40.663794
      theta2 = 84.001132
      phi2 = 130.66379
      theta3 = 5.998868
      phi3 = -49.336206
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1318
      chmoth = 'DCLS'
      x = 33.084147
      y = 28.420502
      z = 0
      irot = 2066
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2067
      theta1 = 90
      phi1 = 42.781441
      theta2 = 84.001132
      phi2 = 132.78144
      theta3 = 5.998868
      phi3 = -47.218559
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1319
      chmoth = 'DCLS'
      x = 32.011372
      y = 29.623601
      z = 0
      irot = 2067
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2068
      theta1 = 90
      phi1 = 44.899088
      theta2 = 84.001132
      phi2 = 134.89909
      theta3 = 5.998868
      phi3 = -45.100912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1320
      chmoth = 'DCLS'
      x = 30.894874
      y = 30.786238
      z = 0
      irot = 2068
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2069
      theta1 = 90
      phi1 = 47.016735
      theta2 = 84.001132
      phi2 = 137.01674
      theta3 = 5.998868
      phi3 = -42.983265
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1321
      chmoth = 'DCLS'
      x = 29.736177
      y = 31.906825
      z = 0
      irot = 2069
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2070
      theta1 = 90
      phi1 = 49.134382
      theta2 = 84.001132
      phi2 = 139.13438
      theta3 = 5.998868
      phi3 = -40.865618
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1322
      chmoth = 'DCLS'
      x = 28.536864
      y = 32.983831
      z = 0
      irot = 2070
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2071
      theta1 = 90
      phi1 = 51.252029
      theta2 = 84.001132
      phi2 = 141.25203
      theta3 = 5.998868
      phi3 = -38.747971
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1323
      chmoth = 'DCLS'
      x = 27.298573
      y = 34.015785
      z = 0
      irot = 2071
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2072
      theta1 = 90
      phi1 = 53.369676
      theta2 = 84.001132
      phi2 = 143.36968
      theta3 = 5.998868
      phi3 = -36.630324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1324
      chmoth = 'DCLS'
      x = 26.022995
      y = 35.001277
      z = 0
      irot = 2072
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2073
      theta1 = 90
      phi1 = 55.487324
      theta2 = 84.001132
      phi2 = 145.48732
      theta3 = 5.998868
      phi3 = -34.512676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1325
      chmoth = 'DCLS'
      x = 24.711873
      y = 35.938962
      z = 0
      irot = 2073
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2074
      theta1 = 90
      phi1 = 57.604971
      theta2 = 84.001132
      phi2 = 147.60497
      theta3 = 5.998868
      phi3 = -32.395029
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1326
      chmoth = 'DCLS'
      x = 23.366998
      y = 36.827559
      z = 0
      irot = 2074
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2075
      theta1 = 90
      phi1 = 59.722618
      theta2 = 84.001132
      phi2 = 149.72262
      theta3 = 5.998868
      phi3 = -30.277382
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1327
      chmoth = 'DCLS'
      x = 21.990206
      y = 37.665853
      z = 0
      irot = 2075
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2076
      theta1 = 90
      phi1 = 61.840265
      theta2 = 84.001132
      phi2 = 151.84026
      theta3 = 5.998868
      phi3 = -28.159735
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1328
      chmoth = 'DCLS'
      x = 20.583379
      y = 38.452701
      z = 0
      irot = 2076
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2077
      theta1 = 90
      phi1 = 63.957912
      theta2 = 84.001132
      phi2 = 153.95791
      theta3 = 5.998868
      phi3 = -26.042088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1329
      chmoth = 'DCLS'
      x = 19.148436
      y = 39.187027
      z = 0
      irot = 2077
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2078
      theta1 = 90
      phi1 = 66.075559
      theta2 = 84.001132
      phi2 = 156.07556
      theta3 = 5.998868
      phi3 = -23.924441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1330
      chmoth = 'DCLS'
      x = 17.68734
      y = 39.867828
      z = 0
      irot = 2078
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2079
      theta1 = 90
      phi1 = 68.193206
      theta2 = 84.001132
      phi2 = 158.19321
      theta3 = 5.998868
      phi3 = -21.806794
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1331
      chmoth = 'DCLS'
      x = 16.202084
      y = 40.494174
      z = 0
      irot = 2079
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2080
      theta1 = 90
      phi1 = 70.310853
      theta2 = 84.001132
      phi2 = 160.31085
      theta3 = 5.998868
      phi3 = -19.689147
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1332
      chmoth = 'DCLS'
      x = 14.694699
      y = 41.06521
      z = 0
      irot = 2080
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2081
      theta1 = 90
      phi1 = 72.4285
      theta2 = 84.001132
      phi2 = 162.4285
      theta3 = 5.998868
      phi3 = -17.5715
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1333
      chmoth = 'DCLS'
      x = 13.167242
      y = 41.580156
      z = 0
      irot = 2081
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2082
      theta1 = 90
      phi1 = 74.546147
      theta2 = 84.001132
      phi2 = 164.54615
      theta3 = 5.998868
      phi3 = -15.453853
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1334
      chmoth = 'DCLS'
      x = 11.621801
      y = 42.038309
      z = 0
      irot = 2082
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2083
      theta1 = 90
      phi1 = 76.663794
      theta2 = 84.001132
      phi2 = 166.66379
      theta3 = 5.998868
      phi3 = -13.336206
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1335
      chmoth = 'DCLS'
      x = 10.060485
      y = 42.439042
      z = 0
      irot = 2083
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2084
      theta1 = 90
      phi1 = 78.781441
      theta2 = 84.001132
      phi2 = 168.78144
      theta3 = 5.998868
      phi3 = -11.218559
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1336
      chmoth = 'DCLS'
      x = 8.4854281
      y = 42.781809
      z = 0
      irot = 2084
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2085
      theta1 = 90
      phi1 = 80.899088
      theta2 = 84.001132
      phi2 = 170.89909
      theta3 = 5.998868
      phi3 = -9.1009118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1337
      chmoth = 'DCLS'
      x = 6.8987811
      y = 43.066141
      z = 0
      irot = 2085
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2086
      theta1 = 90
      phi1 = 83.016735
      theta2 = 84.001132
      phi2 = 173.01674
      theta3 = 5.998868
      phi3 = -6.9832647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1338
      chmoth = 'DCLS'
      x = 5.3027111
      y = 43.29165
      z = 0
      irot = 2086
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2087
      theta1 = 90
      phi1 = 85.134382
      theta2 = 84.001132
      phi2 = 175.13438
      theta3 = 5.998868
      phi3 = -4.8656176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1339
      chmoth = 'DCLS'
      x = 3.6993983
      y = 43.458027
      z = 0
      irot = 2087
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2088
      theta1 = 90
      phi1 = 87.252029
      theta2 = 84.001132
      phi2 = 177.25203
      theta3 = 5.998868
      phi3 = -2.7479706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1340
      chmoth = 'DCLS'
      x = 2.0910326
      y = 43.565046
      z = 0
      irot = 2088
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2089
      theta1 = 90
      phi1 = 89.369676
      theta2 = 84.001132
      phi2 = 179.36968
      theta3 = 5.998868
      phi3 = -0.63032353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1341
      chmoth = 'DCLS'
      x = 0.47981077
      y = 43.612561
      z = 0
      irot = 2089
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2090
      theta1 = 90
      phi1 = 91.487324
      theta2 = 84.001132
      phi2 = -178.51268
      theta3 = 5.998868
      phi3 = 1.4873235
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1342
      chmoth = 'DCLS'
      x = -1.1320664
      y = 43.600506
      z = 0
      irot = 2090
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2091
      theta1 = 90
      phi1 = 93.604971
      theta2 = 84.001132
      phi2 = -176.39503
      theta3 = 5.998868
      phi3 = 3.6049706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1343
      chmoth = 'DCLS'
      x = -2.7423973
      y = 43.528898
      z = 0
      irot = 2091
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2092
      theta1 = 90
      phi1 = 95.722618
      theta2 = 84.001132
      phi2 = -174.27738
      theta3 = 5.998868
      phi3 = 5.7226176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1344
      chmoth = 'DCLS'
      x = -4.3489825
      y = 43.397834
      z = 0
      irot = 2092
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2093
      theta1 = 90
      phi1 = 97.840265
      theta2 = 84.001132
      phi2 = -172.15974
      theta3 = 5.998868
      phi3 = 7.8402647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1345
      chmoth = 'DCLS'
      x = -5.9496274
      y = 43.207495
      z = 0
      irot = 2093
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2094
      theta1 = 90
      phi1 = 99.957912
      theta2 = 84.001132
      phi2 = -170.04209
      theta3 = 5.998868
      phi3 = 9.9579118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1346
      chmoth = 'DCLS'
      x = -7.5421459
      y = 42.958139
      z = 0
      irot = 2094
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2095
      theta1 = 90
      phi1 = 102.07556
      theta2 = 84.001132
      phi2 = -167.92444
      theta3 = 5.998868
      phi3 = 12.075559
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1347
      chmoth = 'DCLS'
      x = -9.1243627
      y = 42.650108
      z = 0
      irot = 2095
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2096
      theta1 = 90
      phi1 = 104.19321
      theta2 = 84.001132
      phi2 = -165.80679
      theta3 = 5.998868
      phi3 = 14.193206
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1348
      chmoth = 'DCLS'
      x = -10.694117
      y = 42.283821
      z = 0
      irot = 2096
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2097
      theta1 = 90
      phi1 = 106.31085
      theta2 = 84.001132
      phi2 = -163.68915
      theta3 = 5.998868
      phi3 = 16.310853
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1349
      chmoth = 'DCLS'
      x = -12.249264
      y = 41.85978
      z = 0
      irot = 2097
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2098
      theta1 = 90
      phi1 = 108.4285
      theta2 = 84.001132
      phi2 = -161.5715
      theta3 = 5.998868
      phi3 = 18.4285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1350
      chmoth = 'DCLS'
      x = -13.78768
      y = 41.378564
      z = 0
      irot = 2098
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2099
      theta1 = 90
      phi1 = 110.54615
      theta2 = 84.001132
      phi2 = -159.45385
      theta3 = 5.998868
      phi3 = 20.546147
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1351
      chmoth = 'DCLS'
      x = -15.307264
      y = 40.840829
      z = 0
      irot = 2099
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2100
      theta1 = 90
      phi1 = 112.66379
      theta2 = 84.001132
      phi2 = -157.33621
      theta3 = 5.998868
      phi3 = 22.663794
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1352
      chmoth = 'DCLS'
      x = -16.80594
      y = 40.247311
      z = 0
      irot = 2100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2101
      theta1 = 90
      phi1 = 114.78144
      theta2 = 84.001132
      phi2 = -155.21856
      theta3 = 5.998868
      phi3 = 24.781441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1353
      chmoth = 'DCLS'
      x = -18.281661
      y = 39.59882
      z = 0
      irot = 2101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2102
      theta1 = 90
      phi1 = 116.89909
      theta2 = 84.001132
      phi2 = -153.10091
      theta3 = 5.998868
      phi3 = 26.899088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1354
      chmoth = 'DCLS'
      x = -19.732411
      y = 38.896242
      z = 0
      irot = 2102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2103
      theta1 = 90
      phi1 = 119.01674
      theta2 = 84.001132
      phi2 = -150.98326
      theta3 = 5.998868
      phi3 = 29.016735
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1355
      chmoth = 'DCLS'
      x = -21.15621
      y = 38.140536
      z = 0
      irot = 2103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2104
      theta1 = 90
      phi1 = 121.13438
      theta2 = 84.001132
      phi2 = -148.86562
      theta3 = 5.998868
      phi3 = 31.134382
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1356
      chmoth = 'DCLS'
      x = -22.551111
      y = 37.332734
      z = 0
      irot = 2104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2105
      theta1 = 90
      phi1 = 123.25203
      theta2 = 84.001132
      phi2 = -146.74797
      theta3 = 5.998868
      phi3 = 33.252029
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1357
      chmoth = 'DCLS'
      x = -23.915211
      y = 36.473941
      z = 0
      irot = 2105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2106
      theta1 = 90
      phi1 = 125.36968
      theta2 = 84.001132
      phi2 = -144.63032
      theta3 = 5.998868
      phi3 = 35.369676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1358
      chmoth = 'DCLS'
      x = -25.246645
      y = 35.565328
      z = 0
      irot = 2106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2107
      theta1 = 90
      phi1 = 127.48732
      theta2 = 84.001132
      phi2 = -142.51268
      theta3 = 5.998868
      phi3 = 37.487324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1359
      chmoth = 'DCLS'
      x = -26.543595
      y = 34.608138
      z = 0
      irot = 2107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2108
      theta1 = 90
      phi1 = 129.60497
      theta2 = 84.001132
      phi2 = -140.39503
      theta3 = 5.998868
      phi3 = 39.604971
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1360
      chmoth = 'DCLS'
      x = -27.80429
      y = 33.603677
      z = 0
      irot = 2108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2109
      theta1 = 90
      phi1 = 131.72262
      theta2 = 84.001132
      phi2 = -138.27738
      theta3 = 5.998868
      phi3 = 41.722618
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1361
      chmoth = 'DCLS'
      x = -29.027008
      y = 32.553318
      z = 0
      irot = 2109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2110
      theta1 = 90
      phi1 = 133.84026
      theta2 = 84.001132
      phi2 = -136.15974
      theta3 = 5.998868
      phi3 = 43.840265
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1362
      chmoth = 'DCLS'
      x = -30.210078
      y = 31.458494
      z = 0
      irot = 2110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2111
      theta1 = 90
      phi1 = 135.95791
      theta2 = 84.001132
      phi2 = -134.04209
      theta3 = 5.998868
      phi3 = 45.957912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1363
      chmoth = 'DCLS'
      x = -31.351885
      y = 30.320702
      z = 0
      irot = 2111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2112
      theta1 = 90
      phi1 = 138.07556
      theta2 = 84.001132
      phi2 = -131.92444
      theta3 = 5.998868
      phi3 = 48.075559
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1364
      chmoth = 'DCLS'
      x = -32.450869
      y = 29.141496
      z = 0
      irot = 2112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2113
      theta1 = 90
      phi1 = 140.19321
      theta2 = 84.001132
      phi2 = -129.80679
      theta3 = 5.998868
      phi3 = 50.193206
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1365
      chmoth = 'DCLS'
      x = -33.505529
      y = 27.922486
      z = 0
      irot = 2113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2114
      theta1 = 90
      phi1 = 142.31085
      theta2 = 84.001132
      phi2 = -127.68915
      theta3 = 5.998868
      phi3 = 52.310853
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1366
      chmoth = 'DCLS'
      x = -34.514424
      y = 26.665337
      z = 0
      irot = 2114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2115
      theta1 = 90
      phi1 = 144.4285
      theta2 = 84.001132
      phi2 = -125.5715
      theta3 = 5.998868
      phi3 = 54.4285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1367
      chmoth = 'DCLS'
      x = -35.476177
      y = 25.371766
      z = 0
      irot = 2115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2116
      theta1 = 90
      phi1 = 146.54615
      theta2 = 84.001132
      phi2 = -123.45385
      theta3 = 5.998868
      phi3 = 56.546147
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1368
      chmoth = 'DCLS'
      x = -36.389474
      y = 24.043541
      z = 0
      irot = 2116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2117
      theta1 = 90
      phi1 = 148.66379
      theta2 = 84.001132
      phi2 = -121.33621
      theta3 = 5.998868
      phi3 = 58.663794
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1369
      chmoth = 'DCLS'
      x = -37.253067
      y = 22.682475
      z = 0
      irot = 2117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2118
      theta1 = 90
      phi1 = 150.78144
      theta2 = 84.001132
      phi2 = -119.21856
      theta3 = 5.998868
      phi3 = 60.781441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1370
      chmoth = 'DCLS'
      x = -38.065777
      y = 21.290428
      z = 0
      irot = 2118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2119
      theta1 = 90
      phi1 = 152.89909
      theta2 = 84.001132
      phi2 = -117.10091
      theta3 = 5.998868
      phi3 = 62.899088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1371
      chmoth = 'DCLS'
      x = -38.826493
      y = 19.8693
      z = 0
      irot = 2119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2120
      theta1 = 90
      phi1 = 155.01674
      theta2 = 84.001132
      phi2 = -114.98326
      theta3 = 5.998868
      phi3 = 65.016735
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1372
      chmoth = 'DCLS'
      x = -39.534178
      y = 18.421033
      z = 0
      irot = 2120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2121
      theta1 = 90
      phi1 = 157.13438
      theta2 = 84.001132
      phi2 = -112.86562
      theta3 = 5.998868
      phi3 = 67.134382
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1373
      chmoth = 'DCLS'
      x = -40.187863
      y = 16.947606
      z = 0
      irot = 2121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2122
      theta1 = 90
      phi1 = 159.25203
      theta2 = 84.001132
      phi2 = -110.74797
      theta3 = 5.998868
      phi3 = 69.252029
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1374
      chmoth = 'DCLS'
      x = -40.786656
      y = 15.45103
      z = 0
      irot = 2122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2123
      theta1 = 90
      phi1 = 161.36968
      theta2 = 84.001132
      phi2 = -108.63032
      theta3 = 5.998868
      phi3 = 71.369676
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1375
      chmoth = 'DCLS'
      x = -41.32974
      y = 13.93335
      z = 0
      irot = 2123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2124
      theta1 = 90
      phi1 = 163.48732
      theta2 = 84.001132
      phi2 = -106.51268
      theta3 = 5.998868
      phi3 = 73.487324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1376
      chmoth = 'DCLS'
      x = -41.816373
      y = 12.396638
      z = 0
      irot = 2124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2125
      theta1 = 90
      phi1 = 165.60497
      theta2 = 84.001132
      phi2 = -104.39503
      theta3 = 5.998868
      phi3 = 75.604971
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1377
      chmoth = 'DCLS'
      x = -42.245889
      y = 10.842994
      z = 0
      irot = 2125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2126
      theta1 = 90
      phi1 = 167.72262
      theta2 = 84.001132
      phi2 = -102.27738
      theta3 = 5.998868
      phi3 = 77.722618
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1378
      chmoth = 'DCLS'
      x = -42.617703
      y = 9.2745402
      z = 0
      irot = 2126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2127
      theta1 = 90
      phi1 = 169.84026
      theta2 = 84.001132
      phi2 = -100.15974
      theta3 = 5.998868
      phi3 = 79.840265
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1379
      chmoth = 'DCLS'
      x = -42.931305
      y = 7.6934182
      z = 0
      irot = 2127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2128
      theta1 = 90
      phi1 = 171.95791
      theta2 = 84.001132
      phi2 = -98.042088
      theta3 = 5.998868
      phi3 = 81.957912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1380
      chmoth = 'DCLS'
      x = -43.186269
      y = 6.101788
      z = 0
      irot = 2128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2129
      theta1 = 90
      phi1 = 174.07556
      theta2 = 84.001132
      phi2 = -95.924441
      theta3 = 5.998868
      phi3 = 84.075559
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1381
      chmoth = 'DCLS'
      x = -43.382246
      y = 4.5018234
      z = 0
      irot = 2129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2130
      theta1 = 90
      phi1 = 176.19321
      theta2 = 84.001132
      phi2 = -93.806794
      theta3 = 5.998868
      phi3 = 86.193206
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1382
      chmoth = 'DCLS'
      x = -43.518968
      y = 2.8957099
      z = 0
      irot = 2130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2131
      theta1 = 90
      phi1 = 178.31085
      theta2 = 84.001132
      phi2 = -91.689147
      theta3 = 5.998868
      phi3 = 88.310853
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1383
      chmoth = 'DCLS'
      x = -43.596248
      y = 1.2856412
      z = 0
      irot = 2131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2132
      theta1 = 90
      phi1 = -179.5715
      theta2 = 84.001132
      phi2 = -89.5715
      theta3 = 5.998868
      phi3 = 90.4285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1384
      chmoth = 'DCLS'
      x = -43.61398
      y = -0.32618352
      z = 0
      irot = 2132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2133
      theta1 = 90
      phi1 = -177.45385
      theta2 = 84.001132
      phi2 = -87.453853
      theta3 = 5.998868
      phi3 = 92.546147
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1385
      chmoth = 'DCLS'
      x = -43.572142
      y = -1.9375627
      z = 0
      irot = 2133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2134
      theta1 = 90
      phi1 = -175.33621
      theta2 = 84.001132
      phi2 = -85.336206
      theta3 = 5.998868
      phi3 = 94.663794
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1386
      chmoth = 'DCLS'
      x = -43.470789
      y = -3.5462954
      z = 0
      irot = 2134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2135
      theta1 = 90
      phi1 = -173.21856
      theta2 = 84.001132
      phi2 = -83.218559
      theta3 = 5.998868
      phi3 = 96.781441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1387
      chmoth = 'DCLS'
      x = -43.31006
      y = -5.1501844
      z = 0
      irot = 2135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2136
      theta1 = 90
      phi1 = -171.10091
      theta2 = 84.001132
      phi2 = -81.100912
      theta3 = 5.998868
      phi3 = 98.899088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1388
      chmoth = 'DCLS'
      x = -43.090175
      y = -6.7470387
      z = 0
      irot = 2136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2137
      theta1 = 90
      phi1 = -168.98326
      theta2 = 84.001132
      phi2 = -78.983265
      theta3 = 5.998868
      phi3 = 101.01674
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1389
      chmoth = 'DCLS'
      x = -42.811433
      y = -8.3346775
      z = 0
      irot = 2137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2138
      theta1 = 90
      phi1 = -166.86562
      theta2 = 84.001132
      phi2 = -76.865618
      theta3 = 5.998868
      phi3 = 103.13438
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1390
      chmoth = 'DCLS'
      x = -42.474217
      y = -9.910932
      z = 0
      irot = 2138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2139
      theta1 = 90
      phi1 = -164.74797
      theta2 = 84.001132
      phi2 = -74.747971
      theta3 = 5.998868
      phi3 = 105.25203
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1391
      chmoth = 'DCLS'
      x = -42.078986
      y = -11.473649
      z = 0
      irot = 2139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2140
      theta1 = 90
      phi1 = -162.63032
      theta2 = 84.001132
      phi2 = -72.630324
      theta3 = 5.998868
      phi3 = 107.36968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1392
      chmoth = 'DCLS'
      x = -41.62628
      y = -13.020695
      z = 0
      irot = 2140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2141
      theta1 = 90
      phi1 = -160.51268
      theta2 = 84.001132
      phi2 = -70.512676
      theta3 = 5.998868
      phi3 = 109.48732
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1393
      chmoth = 'DCLS'
      x = -41.116717
      y = -14.549956
      z = 0
      irot = 2141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2142
      theta1 = 90
      phi1 = -158.39503
      theta2 = 84.001132
      phi2 = -68.395029
      theta3 = 5.998868
      phi3 = 111.60497
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1394
      chmoth = 'DCLS'
      x = -40.550994
      y = -16.059344
      z = 0
      irot = 2142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2143
      theta1 = 90
      phi1 = -156.27738
      theta2 = 84.001132
      phi2 = -66.277382
      theta3 = 5.998868
      phi3 = 113.72262
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1395
      chmoth = 'DCLS'
      x = -39.929884
      y = -17.546796
      z = 0
      irot = 2143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2144
      theta1 = 90
      phi1 = -154.15974
      theta2 = 84.001132
      phi2 = -64.159735
      theta3 = 5.998868
      phi3 = 115.84026
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1396
      chmoth = 'DCLS'
      x = -39.254233
      y = -19.010282
      z = 0
      irot = 2144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2145
      theta1 = 90
      phi1 = -152.04209
      theta2 = 84.001132
      phi2 = -62.042088
      theta3 = 5.998868
      phi3 = 117.95791
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1397
      chmoth = 'DCLS'
      x = -38.524967
      y = -20.447802
      z = 0
      irot = 2145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2146
      theta1 = 90
      phi1 = -149.92444
      theta2 = 84.001132
      phi2 = -59.924441
      theta3 = 5.998868
      phi3 = 120.07556
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1398
      chmoth = 'DCLS'
      x = -37.74308
      y = -21.857393
      z = 0
      irot = 2146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2147
      theta1 = 90
      phi1 = -147.80679
      theta2 = 84.001132
      phi2 = -57.806794
      theta3 = 5.998868
      phi3 = 122.19321
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1399
      chmoth = 'DCLS'
      x = -36.90964
      y = -23.237129
      z = 0
      irot = 2147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2148
      theta1 = 90
      phi1 = -145.68915
      theta2 = 84.001132
      phi2 = -55.689147
      theta3 = 5.998868
      phi3 = 124.31085
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1400
      chmoth = 'DCLS'
      x = -36.025786
      y = -24.585126
      z = 0
      irot = 2148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2149
      theta1 = 90
      phi1 = -143.5715
      theta2 = 84.001132
      phi2 = -53.5715
      theta3 = 5.998868
      phi3 = 126.4285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1401
      chmoth = 'DCLS'
      x = -35.092725
      y = -25.899542
      z = 0
      irot = 2149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2150
      theta1 = 90
      phi1 = -141.45385
      theta2 = 84.001132
      phi2 = -51.453853
      theta3 = 5.998868
      phi3 = 128.54615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1402
      chmoth = 'DCLS'
      x = -34.111732
      y = -27.178583
      z = 0
      irot = 2150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2151
      theta1 = 90
      phi1 = -139.33621
      theta2 = 84.001132
      phi2 = -49.336206
      theta3 = 5.998868
      phi3 = 130.66379
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1403
      chmoth = 'DCLS'
      x = -33.084147
      y = -28.420502
      z = 0
      irot = 2151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2152
      theta1 = 90
      phi1 = -137.21856
      theta2 = 84.001132
      phi2 = -47.218559
      theta3 = 5.998868
      phi3 = 132.78144
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1404
      chmoth = 'DCLS'
      x = -32.011372
      y = -29.623601
      z = 0
      irot = 2152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2153
      theta1 = 90
      phi1 = -135.10091
      theta2 = 84.001132
      phi2 = -45.100912
      theta3 = 5.998868
      phi3 = 134.89909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1405
      chmoth = 'DCLS'
      x = -30.894874
      y = -30.786238
      z = 0
      irot = 2153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2154
      theta1 = 90
      phi1 = -132.98326
      theta2 = 84.001132
      phi2 = -42.983265
      theta3 = 5.998868
      phi3 = 137.01674
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1406
      chmoth = 'DCLS'
      x = -29.736177
      y = -31.906825
      z = 0
      irot = 2154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2155
      theta1 = 90
      phi1 = -130.86562
      theta2 = 84.001132
      phi2 = -40.865618
      theta3 = 5.998868
      phi3 = 139.13438
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1407
      chmoth = 'DCLS'
      x = -28.536864
      y = -32.983831
      z = 0
      irot = 2155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2156
      theta1 = 90
      phi1 = -128.74797
      theta2 = 84.001132
      phi2 = -38.747971
      theta3 = 5.998868
      phi3 = 141.25203
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1408
      chmoth = 'DCLS'
      x = -27.298573
      y = -34.015785
      z = 0
      irot = 2156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2157
      theta1 = 90
      phi1 = -126.63032
      theta2 = 84.001132
      phi2 = -36.630324
      theta3 = 5.998868
      phi3 = 143.36968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1409
      chmoth = 'DCLS'
      x = -26.022995
      y = -35.001277
      z = 0
      irot = 2157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2158
      theta1 = 90
      phi1 = -124.51268
      theta2 = 84.001132
      phi2 = -34.512676
      theta3 = 5.998868
      phi3 = 145.48732
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1410
      chmoth = 'DCLS'
      x = -24.711873
      y = -35.938962
      z = 0
      irot = 2158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2159
      theta1 = 90
      phi1 = -122.39503
      theta2 = 84.001132
      phi2 = -32.395029
      theta3 = 5.998868
      phi3 = 147.60497
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1411
      chmoth = 'DCLS'
      x = -23.366998
      y = -36.827559
      z = 0
      irot = 2159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2160
      theta1 = 90
      phi1 = -120.27738
      theta2 = 84.001132
      phi2 = -30.277382
      theta3 = 5.998868
      phi3 = 149.72262
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1412
      chmoth = 'DCLS'
      x = -21.990206
      y = -37.665853
      z = 0
      irot = 2160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2161
      theta1 = 90
      phi1 = -118.15974
      theta2 = 84.001132
      phi2 = -28.159735
      theta3 = 5.998868
      phi3 = 151.84026
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1413
      chmoth = 'DCLS'
      x = -20.583379
      y = -38.452701
      z = 0
      irot = 2161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2162
      theta1 = 90
      phi1 = -116.04209
      theta2 = 84.001132
      phi2 = -26.042088
      theta3 = 5.998868
      phi3 = 153.95791
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1414
      chmoth = 'DCLS'
      x = -19.148436
      y = -39.187027
      z = 0
      irot = 2162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2163
      theta1 = 90
      phi1 = -113.92444
      theta2 = 84.001132
      phi2 = -23.924441
      theta3 = 5.998868
      phi3 = 156.07556
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1415
      chmoth = 'DCLS'
      x = -17.68734
      y = -39.867828
      z = 0
      irot = 2163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2164
      theta1 = 90
      phi1 = -111.80679
      theta2 = 84.001132
      phi2 = -21.806794
      theta3 = 5.998868
      phi3 = 158.19321
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1416
      chmoth = 'DCLS'
      x = -16.202084
      y = -40.494174
      z = 0
      irot = 2164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2165
      theta1 = 90
      phi1 = -109.68915
      theta2 = 84.001132
      phi2 = -19.689147
      theta3 = 5.998868
      phi3 = 160.31085
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1417
      chmoth = 'DCLS'
      x = -14.694699
      y = -41.06521
      z = 0
      irot = 2165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2166
      theta1 = 90
      phi1 = -107.5715
      theta2 = 84.001132
      phi2 = -17.5715
      theta3 = 5.998868
      phi3 = 162.4285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1418
      chmoth = 'DCLS'
      x = -13.167242
      y = -41.580156
      z = 0
      irot = 2166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2167
      theta1 = 90
      phi1 = -105.45385
      theta2 = 84.001132
      phi2 = -15.453853
      theta3 = 5.998868
      phi3 = 164.54615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1419
      chmoth = 'DCLS'
      x = -11.621801
      y = -42.038309
      z = 0
      irot = 2167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2168
      theta1 = 90
      phi1 = -103.33621
      theta2 = 84.001132
      phi2 = -13.336206
      theta3 = 5.998868
      phi3 = 166.66379
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1420
      chmoth = 'DCLS'
      x = -10.060485
      y = -42.439042
      z = 0
      irot = 2168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2169
      theta1 = 90
      phi1 = -101.21856
      theta2 = 84.001132
      phi2 = -11.218559
      theta3 = 5.998868
      phi3 = 168.78144
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1421
      chmoth = 'DCLS'
      x = -8.4854281
      y = -42.781809
      z = 0
      irot = 2169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2170
      theta1 = 90
      phi1 = -99.100912
      theta2 = 84.001132
      phi2 = -9.1009118
      theta3 = 5.998868
      phi3 = 170.89909
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1422
      chmoth = 'DCLS'
      x = -6.8987811
      y = -43.066141
      z = 0
      irot = 2170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2171
      theta1 = 90
      phi1 = -96.983265
      theta2 = 84.001132
      phi2 = -6.9832647
      theta3 = 5.998868
      phi3 = 173.01674
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1423
      chmoth = 'DCLS'
      x = -5.3027111
      y = -43.29165
      z = 0
      irot = 2171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2172
      theta1 = 90
      phi1 = -94.865618
      theta2 = 84.001132
      phi2 = -4.8656176
      theta3 = 5.998868
      phi3 = 175.13438
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1424
      chmoth = 'DCLS'
      x = -3.6993983
      y = -43.458027
      z = 0
      irot = 2172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2173
      theta1 = 90
      phi1 = -92.747971
      theta2 = 84.001132
      phi2 = -2.7479706
      theta3 = 5.998868
      phi3 = 177.25203
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1425
      chmoth = 'DCLS'
      x = -2.0910326
      y = -43.565046
      z = 0
      irot = 2173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2174
      theta1 = 90
      phi1 = -90.630324
      theta2 = 84.001132
      phi2 = -0.63032353
      theta3 = 5.998868
      phi3 = 179.36968
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1426
      chmoth = 'DCLS'
      x = -0.47981077
      y = -43.612561
      z = 0
      irot = 2174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2175
      theta1 = 90
      phi1 = -88.512676
      theta2 = 84.001132
      phi2 = 1.4873235
      theta3 = 5.998868
      phi3 = -178.51268
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1427
      chmoth = 'DCLS'
      x = 1.1320664
      y = -43.600506
      z = 0
      irot = 2175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2176
      theta1 = 90
      phi1 = -86.395029
      theta2 = 84.001132
      phi2 = 3.6049706
      theta3 = 5.998868
      phi3 = -176.39503
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1428
      chmoth = 'DCLS'
      x = 2.7423973
      y = -43.528898
      z = 0
      irot = 2176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2177
      theta1 = 90
      phi1 = -84.277382
      theta2 = 84.001132
      phi2 = 5.7226176
      theta3 = 5.998868
      phi3 = -174.27738
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1429
      chmoth = 'DCLS'
      x = 4.3489825
      y = -43.397834
      z = 0
      irot = 2177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2178
      theta1 = 90
      phi1 = -82.159735
      theta2 = 84.001132
      phi2 = 7.8402647
      theta3 = 5.998868
      phi3 = -172.15974
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1430
      chmoth = 'DCLS'
      x = 5.9496274
      y = -43.207495
      z = 0
      irot = 2178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2179
      theta1 = 90
      phi1 = -80.042088
      theta2 = 84.001132
      phi2 = 9.9579118
      theta3 = 5.998868
      phi3 = -170.04209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1431
      chmoth = 'DCLS'
      x = 7.5421459
      y = -42.958139
      z = 0
      irot = 2179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2180
      theta1 = 90
      phi1 = -77.924441
      theta2 = 84.001132
      phi2 = 12.075559
      theta3 = 5.998868
      phi3 = -167.92444
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1432
      chmoth = 'DCLS'
      x = 9.1243627
      y = -42.650108
      z = 0
      irot = 2180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2181
      theta1 = 90
      phi1 = -75.806794
      theta2 = 84.001132
      phi2 = 14.193206
      theta3 = 5.998868
      phi3 = -165.80679
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1433
      chmoth = 'DCLS'
      x = 10.694117
      y = -42.283821
      z = 0
      irot = 2181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2182
      theta1 = 90
      phi1 = -73.689147
      theta2 = 84.001132
      phi2 = 16.310853
      theta3 = 5.998868
      phi3 = -163.68915
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1434
      chmoth = 'DCLS'
      x = 12.249264
      y = -41.85978
      z = 0
      irot = 2182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2183
      theta1 = 90
      phi1 = -71.5715
      theta2 = 84.001132
      phi2 = 18.4285
      theta3 = 5.998868
      phi3 = -161.5715
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1435
      chmoth = 'DCLS'
      x = 13.78768
      y = -41.378564
      z = 0
      irot = 2183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2184
      theta1 = 90
      phi1 = -69.453853
      theta2 = 84.001132
      phi2 = 20.546147
      theta3 = 5.998868
      phi3 = -159.45385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1436
      chmoth = 'DCLS'
      x = 15.307264
      y = -40.840829
      z = 0
      irot = 2184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2185
      theta1 = 90
      phi1 = -67.336206
      theta2 = 84.001132
      phi2 = 22.663794
      theta3 = 5.998868
      phi3 = -157.33621
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1437
      chmoth = 'DCLS'
      x = 16.80594
      y = -40.247311
      z = 0
      irot = 2185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2186
      theta1 = 90
      phi1 = -65.218559
      theta2 = 84.001132
      phi2 = 24.781441
      theta3 = 5.998868
      phi3 = -155.21856
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1438
      chmoth = 'DCLS'
      x = 18.281661
      y = -39.59882
      z = 0
      irot = 2186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2187
      theta1 = 90
      phi1 = -63.100912
      theta2 = 84.001132
      phi2 = 26.899088
      theta3 = 5.998868
      phi3 = -153.10091
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1439
      chmoth = 'DCLS'
      x = 19.732411
      y = -38.896242
      z = 0
      irot = 2187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2188
      theta1 = 90
      phi1 = -60.983265
      theta2 = 84.001132
      phi2 = 29.016735
      theta3 = 5.998868
      phi3 = -150.98326
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1440
      chmoth = 'DCLS'
      x = 21.15621
      y = -38.140536
      z = 0
      irot = 2188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2189
      theta1 = 90
      phi1 = -58.865618
      theta2 = 84.001132
      phi2 = 31.134382
      theta3 = 5.998868
      phi3 = -148.86562
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1441
      chmoth = 'DCLS'
      x = 22.551111
      y = -37.332734
      z = 0
      irot = 2189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2190
      theta1 = 90
      phi1 = -56.747971
      theta2 = 84.001132
      phi2 = 33.252029
      theta3 = 5.998868
      phi3 = -146.74797
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1442
      chmoth = 'DCLS'
      x = 23.915211
      y = -36.473941
      z = 0
      irot = 2190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2191
      theta1 = 90
      phi1 = -54.630324
      theta2 = 84.001132
      phi2 = 35.369676
      theta3 = 5.998868
      phi3 = -144.63032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1443
      chmoth = 'DCLS'
      x = 25.246645
      y = -35.565328
      z = 0
      irot = 2191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2192
      theta1 = 90
      phi1 = -52.512676
      theta2 = 84.001132
      phi2 = 37.487324
      theta3 = 5.998868
      phi3 = -142.51268
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1444
      chmoth = 'DCLS'
      x = 26.543595
      y = -34.608138
      z = 0
      irot = 2192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2193
      theta1 = 90
      phi1 = -50.395029
      theta2 = 84.001132
      phi2 = 39.604971
      theta3 = 5.998868
      phi3 = -140.39503
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1445
      chmoth = 'DCLS'
      x = 27.80429
      y = -33.603677
      z = 0
      irot = 2193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2194
      theta1 = 90
      phi1 = -48.277382
      theta2 = 84.001132
      phi2 = 41.722618
      theta3 = 5.998868
      phi3 = -138.27738
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1446
      chmoth = 'DCLS'
      x = 29.027008
      y = -32.553318
      z = 0
      irot = 2194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2195
      theta1 = 90
      phi1 = -46.159735
      theta2 = 84.001132
      phi2 = 43.840265
      theta3 = 5.998868
      phi3 = -136.15974
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1447
      chmoth = 'DCLS'
      x = 30.210078
      y = -31.458494
      z = 0
      irot = 2195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2196
      theta1 = 90
      phi1 = -44.042088
      theta2 = 84.001132
      phi2 = 45.957912
      theta3 = 5.998868
      phi3 = -134.04209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1448
      chmoth = 'DCLS'
      x = 31.351885
      y = -30.320702
      z = 0
      irot = 2196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2197
      theta1 = 90
      phi1 = -41.924441
      theta2 = 84.001132
      phi2 = 48.075559
      theta3 = 5.998868
      phi3 = -131.92444
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1449
      chmoth = 'DCLS'
      x = 32.450869
      y = -29.141496
      z = 0
      irot = 2197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2198
      theta1 = 90
      phi1 = -39.806794
      theta2 = 84.001132
      phi2 = 50.193206
      theta3 = 5.998868
      phi3 = -129.80679
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1450
      chmoth = 'DCLS'
      x = 33.505529
      y = -27.922486
      z = 0
      irot = 2198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2199
      theta1 = 90
      phi1 = -37.689147
      theta2 = 84.001132
      phi2 = 52.310853
      theta3 = 5.998868
      phi3 = -127.68915
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1451
      chmoth = 'DCLS'
      x = 34.514424
      y = -26.665337
      z = 0
      irot = 2199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2200
      theta1 = 90
      phi1 = -35.5715
      theta2 = 84.001132
      phi2 = 54.4285
      theta3 = 5.998868
      phi3 = -125.5715
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1452
      chmoth = 'DCLS'
      x = 35.476177
      y = -25.371766
      z = 0
      irot = 2200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2201
      theta1 = 90
      phi1 = -33.453853
      theta2 = 84.001132
      phi2 = 56.546147
      theta3 = 5.998868
      phi3 = -123.45385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1453
      chmoth = 'DCLS'
      x = 36.389474
      y = -24.043541
      z = 0
      irot = 2201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2202
      theta1 = 90
      phi1 = -31.336206
      theta2 = 84.001132
      phi2 = 58.663794
      theta3 = 5.998868
      phi3 = -121.33621
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1454
      chmoth = 'DCLS'
      x = 37.253067
      y = -22.682475
      z = 0
      irot = 2202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2203
      theta1 = 90
      phi1 = -29.218559
      theta2 = 84.001132
      phi2 = 60.781441
      theta3 = 5.998868
      phi3 = -119.21856
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1455
      chmoth = 'DCLS'
      x = 38.065777
      y = -21.290428
      z = 0
      irot = 2203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2204
      theta1 = 90
      phi1 = -27.100912
      theta2 = 84.001132
      phi2 = 62.899088
      theta3 = 5.998868
      phi3 = -117.10091
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1456
      chmoth = 'DCLS'
      x = 38.826493
      y = -19.8693
      z = 0
      irot = 2204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2205
      theta1 = 90
      phi1 = -24.983265
      theta2 = 84.001132
      phi2 = 65.016735
      theta3 = 5.998868
      phi3 = -114.98326
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1457
      chmoth = 'DCLS'
      x = 39.534178
      y = -18.421033
      z = 0
      irot = 2205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2206
      theta1 = 90
      phi1 = -22.865618
      theta2 = 84.001132
      phi2 = 67.134382
      theta3 = 5.998868
      phi3 = -112.86562
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1458
      chmoth = 'DCLS'
      x = 40.187863
      y = -16.947606
      z = 0
      irot = 2206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2207
      theta1 = 90
      phi1 = -20.747971
      theta2 = 84.001132
      phi2 = 69.252029
      theta3 = 5.998868
      phi3 = -110.74797
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1459
      chmoth = 'DCLS'
      x = 40.786656
      y = -15.45103
      z = 0
      irot = 2207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2208
      theta1 = 90
      phi1 = -18.630324
      theta2 = 84.001132
      phi2 = 71.369676
      theta3 = 5.998868
      phi3 = -108.63032
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1460
      chmoth = 'DCLS'
      x = 41.32974
      y = -13.93335
      z = 0
      irot = 2208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2209
      theta1 = 90
      phi1 = -16.512676
      theta2 = 84.001132
      phi2 = 73.487324
      theta3 = 5.998868
      phi3 = -106.51268
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1461
      chmoth = 'DCLS'
      x = 41.816373
      y = -12.396638
      z = 0
      irot = 2209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2210
      theta1 = 90
      phi1 = -14.395029
      theta2 = 84.001132
      phi2 = 75.604971
      theta3 = 5.998868
      phi3 = -104.39503
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1462
      chmoth = 'DCLS'
      x = 42.245889
      y = -10.842994
      z = 0
      irot = 2210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2211
      theta1 = 90
      phi1 = -12.277382
      theta2 = 84.001132
      phi2 = 77.722618
      theta3 = 5.998868
      phi3 = -102.27738
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1463
      chmoth = 'DCLS'
      x = 42.617703
      y = -9.2745402
      z = 0
      irot = 2211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2212
      theta1 = 90
      phi1 = -10.159735
      theta2 = 84.001132
      phi2 = 79.840265
      theta3 = 5.998868
      phi3 = -100.15974
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1464
      chmoth = 'DCLS'
      x = 42.931305
      y = -7.6934182
      z = 0
      irot = 2212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2213
      theta1 = 90
      phi1 = -8.0420882
      theta2 = 84.001132
      phi2 = 81.957912
      theta3 = 5.998868
      phi3 = -98.042088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1465
      chmoth = 'DCLS'
      x = 43.186269
      y = -6.101788
      z = 0
      irot = 2213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2214
      theta1 = 90
      phi1 = -5.9244412
      theta2 = 84.001132
      phi2 = 84.075559
      theta3 = 5.998868
      phi3 = -95.924441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1466
      chmoth = 'DCLS'
      x = 43.382246
      y = -4.5018234
      z = 0
      irot = 2214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2215
      theta1 = 90
      phi1 = -3.8067941
      theta2 = 84.001132
      phi2 = 86.193206
      theta3 = 5.998868
      phi3 = -93.806794
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1467
      chmoth = 'DCLS'
      x = 43.518968
      y = -2.8957099
      z = 0
      irot = 2215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2216
      theta1 = 90
      phi1 = -1.6891471
      theta2 = 84.001132
      phi2 = 88.310853
      theta3 = 5.998868
      phi3 = -91.689147
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1468
      chmoth = 'DCLS'
      x = 43.596248
      y = -1.2856412
      z = 0
      irot = 2216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2217
      theta1 = 90.16135
      phi1 = 0
      theta2 = 83.813705
      phi2 = 89.982511
      theta3 = 6.1884156
      phi3 = -88.511775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1469
      chmoth = 'DCLS'
      x = 44.9886
      y = 1.1681
      z = 0
      irot = 2217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2218
      theta1 = 90.16135
      phi1 = 2.1176471
      theta2 = 83.813705
      phi2 = 92.100158
      theta3 = 6.1884156
      phi3 = -86.394128
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1470
      chmoth = 'DCLS'
      x = 44.914712
      y = 2.8296985
      z = 0
      irot = 2218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2219
      theta1 = 90.16135
      phi1 = 4.2352941
      theta2 = 83.813705
      phi2 = 94.217805
      theta3 = 6.1884156
      phi3 = -84.276481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1471
      chmoth = 'DCLS'
      x = 44.779477
      y = 4.4874319
      z = 0
      irot = 2219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2220
      theta1 = 90.16135
      phi1 = 6.3529412
      theta2 = 83.813705
      phi2 = 96.335452
      theta3 = 6.1884156
      phi3 = -82.158833
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1472
      chmoth = 'DCLS'
      x = 44.583078
      y = 6.1390361
      z = 0
      irot = 2220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2221
      theta1 = 90.16135
      phi1 = 8.4705882
      theta2 = 83.813705
      phi2 = 98.453099
      theta3 = 6.1884156
      phi3 = -80.041186
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1473
      chmoth = 'DCLS'
      x = 44.325784
      y = 7.7822551
      z = 0
      irot = 2221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2222
      theta1 = 90.16135
      phi1 = 10.588235
      theta2 = 83.813705
      phi2 = 100.57075
      theta3 = 6.1884156
      phi3 = -77.923539
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1474
      chmoth = 'DCLS'
      x = 44.007946
      y = 9.4148444
      z = 0
      irot = 2222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2223
      theta1 = 90.16135
      phi1 = 12.705882
      theta2 = 83.813705
      phi2 = 102.68839
      theta3 = 6.1884156
      phi3 = -75.805892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1475
      chmoth = 'DCLS'
      x = 43.629998
      y = 11.034574
      z = 0
      irot = 2223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2224
      theta1 = 90.16135
      phi1 = 14.823529
      theta2 = 83.813705
      phi2 = 104.80604
      theta3 = 6.1884156
      phi3 = -73.688245
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1476
      chmoth = 'DCLS'
      x = 43.192458
      y = 12.639232
      z = 0
      irot = 2224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2225
      theta1 = 90.16135
      phi1 = 16.941176
      theta2 = 83.813705
      phi2 = 106.92369
      theta3 = 6.1884156
      phi3 = -71.570598
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1477
      chmoth = 'DCLS'
      x = 42.695921
      y = 14.226626
      z = 0
      irot = 2225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2226
      theta1 = 90.16135
      phi1 = 19.058824
      theta2 = 83.813705
      phi2 = 109.04133
      theta3 = 6.1884156
      phi3 = -69.452951
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1478
      chmoth = 'DCLS'
      x = 42.141067
      y = 15.794589
      z = 0
      irot = 2226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2227
      theta1 = 90.16135
      phi1 = 21.176471
      theta2 = 83.813705
      phi2 = 111.15898
      theta3 = 6.1884156
      phi3 = -67.335304
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1479
      chmoth = 'DCLS'
      x = 41.528654
      y = 17.340978
      z = 0
      irot = 2227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2228
      theta1 = 90.16135
      phi1 = 23.294118
      theta2 = 83.813705
      phi2 = 113.27663
      theta3 = 6.1884156
      phi3 = -65.217657
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1480
      chmoth = 'DCLS'
      x = 40.859517
      y = 18.863681
      z = 0
      irot = 2228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2229
      theta1 = 90.16135
      phi1 = 25.411765
      theta2 = 83.813705
      phi2 = 115.39428
      theta3 = 6.1884156
      phi3 = -63.10001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1481
      chmoth = 'DCLS'
      x = 40.134571
      y = 20.360618
      z = 0
      irot = 2229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2230
      theta1 = 90.16135
      phi1 = 27.529412
      theta2 = 83.813705
      phi2 = 117.51192
      theta3 = 6.1884156
      phi3 = -60.982363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1482
      chmoth = 'DCLS'
      x = 39.354806
      y = 21.829746
      z = 0
      irot = 2230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2231
      theta1 = 90.16135
      phi1 = 29.647059
      theta2 = 83.813705
      phi2 = 119.62957
      theta3 = 6.1884156
      phi3 = -58.864716
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1483
      chmoth = 'DCLS'
      x = 38.521287
      y = 23.269057
      z = 0
      irot = 2231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2232
      theta1 = 90.16135
      phi1 = 31.764706
      theta2 = 83.813705
      phi2 = 121.74722
      theta3 = 6.1884156
      phi3 = -56.747069
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1484
      chmoth = 'DCLS'
      x = 37.635153
      y = 24.676585
      z = 0
      irot = 2232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2233
      theta1 = 90.16135
      phi1 = 33.882353
      theta2 = 83.813705
      phi2 = 123.86486
      theta3 = 6.1884156
      phi3 = -54.629422
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1485
      chmoth = 'DCLS'
      x = 36.697614
      y = 26.050407
      z = 0
      irot = 2233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2234
      theta1 = 90.16135
      phi1 = 36
      theta2 = 83.813705
      phi2 = 125.98251
      theta3 = 6.1884156
      phi3 = -52.511775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1486
      chmoth = 'DCLS'
      x = 35.70995
      y = 27.388648
      z = 0
      irot = 2234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2235
      theta1 = 90.16135
      phi1 = 38.117647
      theta2 = 83.813705
      phi2 = 128.10016
      theta3 = 6.1884156
      phi3 = -50.394128
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1487
      chmoth = 'DCLS'
      x = 34.673511
      y = 28.68948
      z = 0
      irot = 2235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2236
      theta1 = 90.16135
      phi1 = 40.235294
      theta2 = 83.813705
      phi2 = 130.2178
      theta3 = 6.1884156
      phi3 = -48.276481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1488
      chmoth = 'DCLS'
      x = 33.589711
      y = 29.951125
      z = 0
      irot = 2236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2237
      theta1 = 90.16135
      phi1 = 42.352941
      theta2 = 83.813705
      phi2 = 132.33545
      theta3 = 6.1884156
      phi3 = -46.158833
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1489
      chmoth = 'DCLS'
      x = 32.460033
      y = 31.17186
      z = 0
      irot = 2237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2238
      theta1 = 90.16135
      phi1 = 44.470588
      theta2 = 83.813705
      phi2 = 134.4531
      theta3 = 6.1884156
      phi3 = -44.041186
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1490
      chmoth = 'DCLS'
      x = 31.286017
      y = 32.350019
      z = 0
      irot = 2238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2239
      theta1 = 90.16135
      phi1 = 46.588235
      theta2 = 83.813705
      phi2 = 136.57075
      theta3 = 6.1884156
      phi3 = -41.923539
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1491
      chmoth = 'DCLS'
      x = 30.069269
      y = 33.483991
      z = 0
      irot = 2239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2240
      theta1 = 90.16135
      phi1 = 48.705882
      theta2 = 83.813705
      phi2 = 138.68839
      theta3 = 6.1884156
      phi3 = -39.805892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1492
      chmoth = 'DCLS'
      x = 28.81145
      y = 34.572228
      z = 0
      irot = 2240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2241
      theta1 = 90.16135
      phi1 = 50.823529
      theta2 = 83.813705
      phi2 = 140.80604
      theta3 = 6.1884156
      phi3 = -37.688245
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1493
      chmoth = 'DCLS'
      x = 27.514278
      y = 35.613243
      z = 0
      irot = 2241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2242
      theta1 = 90.16135
      phi1 = 52.941176
      theta2 = 83.813705
      phi2 = 142.92369
      theta3 = 6.1884156
      phi3 = -35.570598
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1494
      chmoth = 'DCLS'
      x = 26.179525
      y = 36.605615
      z = 0
      irot = 2242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2243
      theta1 = 90.16135
      phi1 = 55.058824
      theta2 = 83.813705
      phi2 = 145.04133
      theta3 = 6.1884156
      phi3 = -33.452951
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1495
      chmoth = 'DCLS'
      x = 24.809013
      y = 37.547989
      z = 0
      irot = 2243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2244
      theta1 = 90.16135
      phi1 = 57.176471
      theta2 = 83.813705
      phi2 = 147.15898
      theta3 = 6.1884156
      phi3 = -31.335304
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1496
      chmoth = 'DCLS'
      x = 23.404616
      y = 38.439076
      z = 0
      irot = 2244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2245
      theta1 = 90.16135
      phi1 = 59.294118
      theta2 = 83.813705
      phi2 = 149.27663
      theta3 = 6.1884156
      phi3 = -29.217657
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1497
      chmoth = 'DCLS'
      x = 21.96825
      y = 39.27766
      z = 0
      irot = 2245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2246
      theta1 = 90.16135
      phi1 = 61.411765
      theta2 = 83.813705
      phi2 = 151.39428
      theta3 = 6.1884156
      phi3 = -27.10001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1498
      chmoth = 'DCLS'
      x = 20.501879
      y = 40.062595
      z = 0
      irot = 2246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2247
      theta1 = 90.16135
      phi1 = 63.529412
      theta2 = 83.813705
      phi2 = 153.51192
      theta3 = 6.1884156
      phi3 = -24.982363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1499
      chmoth = 'DCLS'
      x = 19.007504
      y = 40.79281
      z = 0
      irot = 2247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2248
      theta1 = 90.16135
      phi1 = 65.647059
      theta2 = 83.813705
      phi2 = 155.62957
      theta3 = 6.1884156
      phi3 = -22.864716
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1500
      chmoth = 'DCLS'
      x = 17.487168
      y = 41.467307
      z = 0
      irot = 2248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2249
      theta1 = 90.16135
      phi1 = 67.764706
      theta2 = 83.813705
      phi2 = 157.74722
      theta3 = 6.1884156
      phi3 = -20.747069
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1501
      chmoth = 'DCLS'
      x = 15.942946
      y = 42.085164
      z = 0
      irot = 2249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2250
      theta1 = 90.16135
      phi1 = 69.882353
      theta2 = 83.813705
      phi2 = 159.86486
      theta3 = 6.1884156
      phi3 = -18.629422
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1502
      chmoth = 'DCLS'
      x = 14.376948
      y = 42.645538
      z = 0
      irot = 2250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2251
      theta1 = 90.16135
      phi1 = 72
      theta2 = 83.813705
      phi2 = 161.98251
      theta3 = 6.1884156
      phi3 = -16.511775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1503
      chmoth = 'DCLS'
      x = 12.791313
      y = 43.147664
      z = 0
      irot = 2251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2252
      theta1 = 90.16135
      phi1 = 74.117647
      theta2 = 83.813705
      phi2 = 164.10016
      theta3 = 6.1884156
      phi3 = -14.394128
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1504
      chmoth = 'DCLS'
      x = 11.188206
      y = 43.590855
      z = 0
      irot = 2252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2253
      theta1 = 90.16135
      phi1 = 76.235294
      theta2 = 83.813705
      phi2 = 166.2178
      theta3 = 6.1884156
      phi3 = -12.276481
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1505
      chmoth = 'DCLS'
      x = 9.5698179
      y = 43.974506
      z = 0
      irot = 2253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2254
      theta1 = 90.16135
      phi1 = 78.352941
      theta2 = 83.813705
      phi2 = 168.33545
      theta3 = 6.1884156
      phi3 = -10.158833
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1506
      chmoth = 'DCLS'
      x = 7.9383584
      y = 44.298093
      z = 0
      irot = 2254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2255
      theta1 = 90.16135
      phi1 = 80.470588
      theta2 = 83.813705
      phi2 = 170.4531
      theta3 = 6.1884156
      phi3 = -8.0411864
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1507
      chmoth = 'DCLS'
      x = 6.296056
      y = 44.561174
      z = 0
      irot = 2255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2256
      theta1 = 90.16135
      phi1 = 82.588235
      theta2 = 83.813705
      phi2 = 172.57075
      theta3 = 6.1884156
      phi3 = -5.9235393
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1508
      chmoth = 'DCLS'
      x = 4.645154
      y = 44.763391
      z = 0
      irot = 2256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2257
      theta1 = 90.16135
      phi1 = 84.705882
      theta2 = 83.813705
      phi2 = 174.68839
      theta3 = 6.1884156
      phi3 = -3.8058923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1509
      chmoth = 'DCLS'
      x = 2.9879072
      y = 44.904465
      z = 0
      irot = 2257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2258
      theta1 = 90.16135
      phi1 = 86.823529
      theta2 = 83.813705
      phi2 = 176.80604
      theta3 = 6.1884156
      phi3 = -1.6882452
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1510
      chmoth = 'DCLS'
      x = 1.3265793
      y = 44.984206
      z = 0
      irot = 2258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2259
      theta1 = 90.16135
      phi1 = 88.941176
      theta2 = 83.813705
      phi2 = 178.92369
      theta3 = 6.1884156
      phi3 = 0.42940185
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1511
      chmoth = 'DCLS'
      x = -0.33656048
      y = 45.002503
      z = 0
      irot = 2259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2260
      theta1 = 90.16135
      phi1 = 91.058824
      theta2 = 83.813705
      phi2 = -178.95867
      theta3 = 6.1884156
      phi3 = 2.5470489
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1512
      chmoth = 'DCLS'
      x = -1.9992406
      y = 44.959333
      z = 0
      irot = 2260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2261
      theta1 = 90.16135
      phi1 = 93.176471
      theta2 = 83.813705
      phi2 = -176.84102
      theta3 = 6.1884156
      phi3 = 4.664696
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1513
      chmoth = 'DCLS'
      x = -3.65919
      y = 44.854754
      z = 0
      irot = 2261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2262
      theta1 = 90.16135
      phi1 = 95.294118
      theta2 = 83.813705
      phi2 = -174.72337
      theta3 = 6.1884156
      phi3 = 6.782343
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1514
      chmoth = 'DCLS'
      x = -5.3141414
      y = 44.688908
      z = 0
      irot = 2262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2263
      theta1 = 90.16135
      phi1 = 97.411765
      theta2 = 83.813705
      phi2 = -172.60572
      theta3 = 6.1884156
      phi3 = 8.8999901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1515
      chmoth = 'DCLS'
      x = -6.9618343
      y = 44.462023
      z = 0
      irot = 2263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2264
      theta1 = 90.16135
      phi1 = 99.529412
      theta2 = 83.813705
      phi2 = -170.48808
      theta3 = 6.1884156
      phi3 = 11.017637
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1516
      chmoth = 'DCLS'
      x = -8.6000182
      y = 44.174407
      z = 0
      irot = 2264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2265
      theta1 = 90.16135
      phi1 = 101.64706
      theta2 = 83.813705
      phi2 = -168.37043
      theta3 = 6.1884156
      phi3 = 13.135284
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1517
      chmoth = 'DCLS'
      x = -10.226456
      y = 43.826455
      z = 0
      irot = 2265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2266
      theta1 = 90.16135
      phi1 = 103.76471
      theta2 = 83.813705
      phi2 = -166.25278
      theta3 = 6.1884156
      phi3 = 15.252931
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1518
      chmoth = 'DCLS'
      x = -11.838925
      y = 43.418642
      z = 0
      irot = 2266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2267
      theta1 = 90.16135
      phi1 = 105.88235
      theta2 = 83.813705
      phi2 = -164.13514
      theta3 = 6.1884156
      phi3 = 17.370578
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1519
      chmoth = 'DCLS'
      x = -13.435223
      y = 42.951523
      z = 0
      irot = 2267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2268
      theta1 = 90.16135
      phi1 = 108
      theta2 = 83.813705
      phi2 = -162.01749
      theta3 = 6.1884156
      phi3 = 19.488225
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1520
      chmoth = 'DCLS'
      x = -15.013171
      y = 42.425738
      z = 0
      irot = 2268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2269
      theta1 = 90.16135
      phi1 = 110.11765
      theta2 = 83.813705
      phi2 = -159.89984
      theta3 = 6.1884156
      phi3 = 21.605872
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1521
      chmoth = 'DCLS'
      x = -16.570613
      y = 41.842005
      z = 0
      irot = 2269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2270
      theta1 = 90.16135
      phi1 = 112.23529
      theta2 = 83.813705
      phi2 = -157.7822
      theta3 = 6.1884156
      phi3 = 23.723519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1522
      chmoth = 'DCLS'
      x = -18.105421
      y = 41.20112
      z = 0
      irot = 2270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2271
      theta1 = 90.16135
      phi1 = 114.35294
      theta2 = 83.813705
      phi2 = -155.66455
      theta3 = 6.1884156
      phi3 = 25.841167
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1523
      chmoth = 'DCLS'
      x = -19.615499
      y = 40.50396
      z = 0
      irot = 2271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2272
      theta1 = 90.16135
      phi1 = 116.47059
      theta2 = 83.813705
      phi2 = -153.5469
      theta3 = 6.1884156
      phi3 = 27.958814
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1524
      chmoth = 'DCLS'
      x = -21.098785
      y = 39.751476
      z = 0
      irot = 2272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2273
      theta1 = 90.16135
      phi1 = 118.58824
      theta2 = 83.813705
      phi2 = -151.42925
      theta3 = 6.1884156
      phi3 = 30.076461
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1525
      chmoth = 'DCLS'
      x = -22.553252
      y = 38.944697
      z = 0
      irot = 2273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2274
      theta1 = 90.16135
      phi1 = 120.70588
      theta2 = 83.813705
      phi2 = -149.31161
      theta3 = 6.1884156
      phi3 = 32.194108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1526
      chmoth = 'DCLS'
      x = -23.976915
      y = 38.084723
      z = 0
      irot = 2274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2275
      theta1 = 90.16135
      phi1 = 122.82353
      theta2 = 83.813705
      phi2 = -147.19396
      theta3 = 6.1884156
      phi3 = 34.311755
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1527
      chmoth = 'DCLS'
      x = -25.367828
      y = 37.172731
      z = 0
      irot = 2275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2276
      theta1 = 90.16135
      phi1 = 124.94118
      theta2 = 83.813705
      phi2 = -145.07631
      theta3 = 6.1884156
      phi3 = 36.429402
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1528
      chmoth = 'DCLS'
      x = -26.724091
      y = 36.209965
      z = 0
      irot = 2276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2277
      theta1 = 90.16135
      phi1 = 127.05882
      theta2 = 83.813705
      phi2 = -142.95867
      theta3 = 6.1884156
      phi3 = 38.547049
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1529
      chmoth = 'DCLS'
      x = -28.043853
      y = 35.19774
      z = 0
      irot = 2277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2278
      theta1 = 90.16135
      phi1 = 129.17647
      theta2 = 83.813705
      phi2 = -140.84102
      theta3 = 6.1884156
      phi3 = 40.664696
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1530
      chmoth = 'DCLS'
      x = -29.32531
      y = 34.13744
      z = 0
      irot = 2278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2279
      theta1 = 90.16135
      phi1 = 131.29412
      theta2 = 83.813705
      phi2 = -138.72337
      theta3 = 6.1884156
      phi3 = 42.782343
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1531
      chmoth = 'DCLS'
      x = -30.566712
      y = 33.030512
      z = 0
      irot = 2279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2280
      theta1 = 90.16135
      phi1 = 133.41176
      theta2 = 83.813705
      phi2 = -136.60572
      theta3 = 6.1884156
      phi3 = 44.89999
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1532
      chmoth = 'DCLS'
      x = -31.766363
      y = 31.878468
      z = 0
      irot = 2280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2281
      theta1 = 90.16135
      phi1 = 135.52941
      theta2 = 83.813705
      phi2 = -134.48808
      theta3 = 6.1884156
      phi3 = 47.017637
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1533
      chmoth = 'DCLS'
      x = -32.922626
      y = 30.682882
      z = 0
      irot = 2281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2282
      theta1 = 90.16135
      phi1 = 137.64706
      theta2 = 83.813705
      phi2 = -132.37043
      theta3 = 6.1884156
      phi3 = 49.135284
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1534
      chmoth = 'DCLS'
      x = -34.03392
      y = 29.445388
      z = 0
      irot = 2282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2283
      theta1 = 90.16135
      phi1 = 139.76471
      theta2 = 83.813705
      phi2 = -130.25278
      theta3 = 6.1884156
      phi3 = 51.252931
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1535
      chmoth = 'DCLS'
      x = -35.098729
      y = 28.167674
      z = 0
      irot = 2283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2284
      theta1 = 90.16135
      phi1 = 141.88235
      theta2 = 83.813705
      phi2 = -128.13514
      theta3 = 6.1884156
      phi3 = 53.370578
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1536
      chmoth = 'DCLS'
      x = -36.115596
      y = 26.851486
      z = 0
      irot = 2284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2285
      theta1 = 90.16135
      phi1 = 144
      theta2 = 83.813705
      phi2 = -126.01749
      theta3 = 6.1884156
      phi3 = 55.488225
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1537
      chmoth = 'DCLS'
      x = -37.083134
      y = 25.498623
      z = 0
      irot = 2285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2286
      theta1 = 90.16135
      phi1 = 146.11765
      theta2 = 83.813705
      phi2 = -123.89984
      theta3 = 6.1884156
      phi3 = 57.605872
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1538
      chmoth = 'DCLS'
      x = -38.000021
      y = 24.110931
      z = 0
      irot = 2286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2287
      theta1 = 90.16135
      phi1 = 148.23529
      theta2 = 83.813705
      phi2 = -121.7822
      theta3 = 6.1884156
      phi3 = 59.723519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1539
      chmoth = 'DCLS'
      x = -38.865004
      y = 22.690307
      z = 0
      irot = 2287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2288
      theta1 = 90.16135
      phi1 = 150.35294
      theta2 = 83.813705
      phi2 = -119.66455
      theta3 = 6.1884156
      phi3 = 61.841167
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1540
      chmoth = 'DCLS'
      x = -39.676902
      y = 21.238691
      z = 0
      irot = 2288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2289
      theta1 = 90.16135
      phi1 = 152.47059
      theta2 = 83.813705
      phi2 = -117.5469
      theta3 = 6.1884156
      phi3 = 63.958814
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1541
      chmoth = 'DCLS'
      x = -40.434607
      y = 19.758065
      z = 0
      irot = 2289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2290
      theta1 = 90.16135
      phi1 = 154.58824
      theta2 = 83.813705
      phi2 = -115.42925
      theta3 = 6.1884156
      phi3 = 66.076461
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1542
      chmoth = 'DCLS'
      x = -41.137083
      y = 18.250452
      z = 0
      irot = 2290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2291
      theta1 = 90.16135
      phi1 = 156.70588
      theta2 = 83.813705
      phi2 = -113.31161
      theta3 = 6.1884156
      phi3 = 68.194108
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1543
      chmoth = 'DCLS'
      x = -41.78337
      y = 16.717912
      z = 0
      irot = 2291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2292
      theta1 = 90.16135
      phi1 = 158.82353
      theta2 = 83.813705
      phi2 = -111.19396
      theta3 = 6.1884156
      phi3 = 70.311755
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1544
      chmoth = 'DCLS'
      x = -42.372587
      y = 15.162536
      z = 0
      irot = 2292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2293
      theta1 = 90.16135
      phi1 = 160.94118
      theta2 = 83.813705
      phi2 = -109.07631
      theta3 = 6.1884156
      phi3 = 72.429402
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1545
      chmoth = 'DCLS'
      x = -42.903927
      y = 13.58645
      z = 0
      irot = 2293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2294
      theta1 = 90.16135
      phi1 = 163.05882
      theta2 = 83.813705
      phi2 = -106.95867
      theta3 = 6.1884156
      phi3 = 74.547049
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1546
      chmoth = 'DCLS'
      x = -43.376666
      y = 11.991807
      z = 0
      irot = 2294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2295
      theta1 = 90.16135
      phi1 = 165.17647
      theta2 = 83.813705
      phi2 = -104.84102
      theta3 = 6.1884156
      phi3 = 76.664696
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1547
      chmoth = 'DCLS'
      x = -43.790158
      y = 10.380785
      z = 0
      irot = 2295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2296
      theta1 = 90.16135
      phi1 = 167.29412
      theta2 = 83.813705
      phi2 = -102.72337
      theta3 = 6.1884156
      phi3 = 78.782343
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1548
      chmoth = 'DCLS'
      x = -44.143837
      y = 8.7555832
      z = 0
      irot = 2296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2297
      theta1 = 90.16135
      phi1 = 169.41176
      theta2 = 83.813705
      phi2 = -100.60572
      theta3 = 6.1884156
      phi3 = 80.89999
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1549
      chmoth = 'DCLS'
      x = -44.437221
      y = 7.1184227
      z = 0
      irot = 2297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2298
      theta1 = 90.16135
      phi1 = 171.52941
      theta2 = 83.813705
      phi2 = -98.488077
      theta3 = 6.1884156
      phi3 = 83.017637
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1550
      chmoth = 'DCLS'
      x = -44.66991
      y = 5.4715393
      z = 0
      irot = 2298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2299
      theta1 = 90.16135
      phi1 = 173.64706
      theta2 = 83.813705
      phi2 = -96.37043
      theta3 = 6.1884156
      phi3 = 85.135284
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1551
      chmoth = 'DCLS'
      x = -44.841585
      y = 3.8171824
      z = 0
      irot = 2299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2300
      theta1 = 90.16135
      phi1 = 175.76471
      theta2 = 83.813705
      phi2 = -94.252783
      theta3 = 6.1884156
      phi3 = 87.252931
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1552
      chmoth = 'DCLS'
      x = -44.952011
      y = 2.1576117
      z = 0
      irot = 2300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2301
      theta1 = 90.16135
      phi1 = 177.88235
      theta2 = 83.813705
      phi2 = -92.135136
      theta3 = 6.1884156
      phi3 = 89.370578
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1553
      chmoth = 'DCLS'
      x = -45.001039
      y = 0.49509397
      z = 0
      irot = 2301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2302
      theta1 = 90.16135
      phi1 = 180
      theta2 = 83.813705
      phi2 = -90.017489
      theta3 = 6.1884156
      phi3 = 91.488225
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1554
      chmoth = 'DCLS'
      x = -44.9886
      y = -1.1681
      z = 0
      irot = 2302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2303
      theta1 = 90.16135
      phi1 = -177.88235
      theta2 = 83.813705
      phi2 = -87.899842
      theta3 = 6.1884156
      phi3 = 93.605872
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1555
      chmoth = 'DCLS'
      x = -44.914712
      y = -2.8296985
      z = 0
      irot = 2303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2304
      theta1 = 90.16135
      phi1 = -175.76471
      theta2 = 83.813705
      phi2 = -85.782195
      theta3 = 6.1884156
      phi3 = 95.723519
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1556
      chmoth = 'DCLS'
      x = -44.779477
      y = -4.4874319
      z = 0
      irot = 2304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2305
      theta1 = 90.16135
      phi1 = -173.64706
      theta2 = 83.813705
      phi2 = -83.664548
      theta3 = 6.1884156
      phi3 = 97.841167
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1557
      chmoth = 'DCLS'
      x = -44.583078
      y = -6.1390361
      z = 0
      irot = 2305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2306
      theta1 = 90.16135
      phi1 = -171.52941
      theta2 = 83.813705
      phi2 = -81.546901
      theta3 = 6.1884156
      phi3 = 99.958814
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1558
      chmoth = 'DCLS'
      x = -44.325784
      y = -7.7822551
      z = 0
      irot = 2306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2307
      theta1 = 90.16135
      phi1 = -169.41176
      theta2 = 83.813705
      phi2 = -79.429254
      theta3 = 6.1884156
      phi3 = 102.07646
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1559
      chmoth = 'DCLS'
      x = -44.007946
      y = -9.4148444
      z = 0
      irot = 2307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2308
      theta1 = 90.16135
      phi1 = -167.29412
      theta2 = 83.813705
      phi2 = -77.311607
      theta3 = 6.1884156
      phi3 = 104.19411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1560
      chmoth = 'DCLS'
      x = -43.629998
      y = -11.034574
      z = 0
      irot = 2308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2309
      theta1 = 90.16135
      phi1 = -165.17647
      theta2 = 83.813705
      phi2 = -75.19396
      theta3 = 6.1884156
      phi3 = 106.31175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1561
      chmoth = 'DCLS'
      x = -43.192458
      y = -12.639232
      z = 0
      irot = 2309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2310
      theta1 = 90.16135
      phi1 = -163.05882
      theta2 = 83.813705
      phi2 = -73.076313
      theta3 = 6.1884156
      phi3 = 108.4294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1562
      chmoth = 'DCLS'
      x = -42.695921
      y = -14.226626
      z = 0
      irot = 2310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2311
      theta1 = 90.16135
      phi1 = -160.94118
      theta2 = 83.813705
      phi2 = -70.958666
      theta3 = 6.1884156
      phi3 = 110.54705
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1563
      chmoth = 'DCLS'
      x = -42.141067
      y = -15.794589
      z = 0
      irot = 2311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2312
      theta1 = 90.16135
      phi1 = -158.82353
      theta2 = 83.813705
      phi2 = -68.841019
      theta3 = 6.1884156
      phi3 = 112.6647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1564
      chmoth = 'DCLS'
      x = -41.528654
      y = -17.340978
      z = 0
      irot = 2312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2313
      theta1 = 90.16135
      phi1 = -156.70588
      theta2 = 83.813705
      phi2 = -66.723372
      theta3 = 6.1884156
      phi3 = 114.78234
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1565
      chmoth = 'DCLS'
      x = -40.859517
      y = -18.863681
      z = 0
      irot = 2313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2314
      theta1 = 90.16135
      phi1 = -154.58824
      theta2 = 83.813705
      phi2 = -64.605725
      theta3 = 6.1884156
      phi3 = 116.89999
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1566
      chmoth = 'DCLS'
      x = -40.134571
      y = -20.360618
      z = 0
      irot = 2314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2315
      theta1 = 90.16135
      phi1 = -152.47059
      theta2 = 83.813705
      phi2 = -62.488077
      theta3 = 6.1884156
      phi3 = 119.01764
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1567
      chmoth = 'DCLS'
      x = -39.354806
      y = -21.829746
      z = 0
      irot = 2315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2316
      theta1 = 90.16135
      phi1 = -150.35294
      theta2 = 83.813705
      phi2 = -60.37043
      theta3 = 6.1884156
      phi3 = 121.13528
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1568
      chmoth = 'DCLS'
      x = -38.521287
      y = -23.269057
      z = 0
      irot = 2316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2317
      theta1 = 90.16135
      phi1 = -148.23529
      theta2 = 83.813705
      phi2 = -58.252783
      theta3 = 6.1884156
      phi3 = 123.25293
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1569
      chmoth = 'DCLS'
      x = -37.635153
      y = -24.676585
      z = 0
      irot = 2317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2318
      theta1 = 90.16135
      phi1 = -146.11765
      theta2 = 83.813705
      phi2 = -56.135136
      theta3 = 6.1884156
      phi3 = 125.37058
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1570
      chmoth = 'DCLS'
      x = -36.697614
      y = -26.050407
      z = 0
      irot = 2318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2319
      theta1 = 90.16135
      phi1 = -144
      theta2 = 83.813705
      phi2 = -54.017489
      theta3 = 6.1884156
      phi3 = 127.48823
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1571
      chmoth = 'DCLS'
      x = -35.70995
      y = -27.388648
      z = 0
      irot = 2319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2320
      theta1 = 90.16135
      phi1 = -141.88235
      theta2 = 83.813705
      phi2 = -51.899842
      theta3 = 6.1884156
      phi3 = 129.60587
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1572
      chmoth = 'DCLS'
      x = -34.673511
      y = -28.68948
      z = 0
      irot = 2320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2321
      theta1 = 90.16135
      phi1 = -139.76471
      theta2 = 83.813705
      phi2 = -49.782195
      theta3 = 6.1884156
      phi3 = 131.72352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1573
      chmoth = 'DCLS'
      x = -33.589711
      y = -29.951125
      z = 0
      irot = 2321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2322
      theta1 = 90.16135
      phi1 = -137.64706
      theta2 = 83.813705
      phi2 = -47.664548
      theta3 = 6.1884156
      phi3 = 133.84117
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1574
      chmoth = 'DCLS'
      x = -32.460033
      y = -31.17186
      z = 0
      irot = 2322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2323
      theta1 = 90.16135
      phi1 = -135.52941
      theta2 = 83.813705
      phi2 = -45.546901
      theta3 = 6.1884156
      phi3 = 135.95881
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1575
      chmoth = 'DCLS'
      x = -31.286017
      y = -32.350019
      z = 0
      irot = 2323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2324
      theta1 = 90.16135
      phi1 = -133.41176
      theta2 = 83.813705
      phi2 = -43.429254
      theta3 = 6.1884156
      phi3 = 138.07646
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1576
      chmoth = 'DCLS'
      x = -30.069269
      y = -33.483991
      z = 0
      irot = 2324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2325
      theta1 = 90.16135
      phi1 = -131.29412
      theta2 = 83.813705
      phi2 = -41.311607
      theta3 = 6.1884156
      phi3 = 140.19411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1577
      chmoth = 'DCLS'
      x = -28.81145
      y = -34.572228
      z = 0
      irot = 2325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2326
      theta1 = 90.16135
      phi1 = -129.17647
      theta2 = 83.813705
      phi2 = -39.19396
      theta3 = 6.1884156
      phi3 = 142.31175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1578
      chmoth = 'DCLS'
      x = -27.514278
      y = -35.613243
      z = 0
      irot = 2326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2327
      theta1 = 90.16135
      phi1 = -127.05882
      theta2 = 83.813705
      phi2 = -37.076313
      theta3 = 6.1884156
      phi3 = 144.4294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1579
      chmoth = 'DCLS'
      x = -26.179525
      y = -36.605615
      z = 0
      irot = 2327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2328
      theta1 = 90.16135
      phi1 = -124.94118
      theta2 = 83.813705
      phi2 = -34.958666
      theta3 = 6.1884156
      phi3 = 146.54705
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1580
      chmoth = 'DCLS'
      x = -24.809013
      y = -37.547989
      z = 0
      irot = 2328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2329
      theta1 = 90.16135
      phi1 = -122.82353
      theta2 = 83.813705
      phi2 = -32.841019
      theta3 = 6.1884156
      phi3 = 148.6647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1581
      chmoth = 'DCLS'
      x = -23.404616
      y = -38.439076
      z = 0
      irot = 2329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2330
      theta1 = 90.16135
      phi1 = -120.70588
      theta2 = 83.813705
      phi2 = -30.723372
      theta3 = 6.1884156
      phi3 = 150.78234
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1582
      chmoth = 'DCLS'
      x = -21.96825
      y = -39.27766
      z = 0
      irot = 2330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2331
      theta1 = 90.16135
      phi1 = -118.58824
      theta2 = 83.813705
      phi2 = -28.605725
      theta3 = 6.1884156
      phi3 = 152.89999
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1583
      chmoth = 'DCLS'
      x = -20.501879
      y = -40.062595
      z = 0
      irot = 2331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2332
      theta1 = 90.16135
      phi1 = -116.47059
      theta2 = 83.813705
      phi2 = -26.488077
      theta3 = 6.1884156
      phi3 = 155.01764
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1584
      chmoth = 'DCLS'
      x = -19.007504
      y = -40.79281
      z = 0
      irot = 2332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2333
      theta1 = 90.16135
      phi1 = -114.35294
      theta2 = 83.813705
      phi2 = -24.37043
      theta3 = 6.1884156
      phi3 = 157.13528
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1585
      chmoth = 'DCLS'
      x = -17.487168
      y = -41.467307
      z = 0
      irot = 2333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2334
      theta1 = 90.16135
      phi1 = -112.23529
      theta2 = 83.813705
      phi2 = -22.252783
      theta3 = 6.1884156
      phi3 = 159.25293
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1586
      chmoth = 'DCLS'
      x = -15.942946
      y = -42.085164
      z = 0
      irot = 2334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2335
      theta1 = 90.16135
      phi1 = -110.11765
      theta2 = 83.813705
      phi2 = -20.135136
      theta3 = 6.1884156
      phi3 = 161.37058
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1587
      chmoth = 'DCLS'
      x = -14.376948
      y = -42.645538
      z = 0
      irot = 2335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2336
      theta1 = 90.16135
      phi1 = -108
      theta2 = 83.813705
      phi2 = -18.017489
      theta3 = 6.1884156
      phi3 = 163.48823
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1588
      chmoth = 'DCLS'
      x = -12.791313
      y = -43.147664
      z = 0
      irot = 2336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2337
      theta1 = 90.16135
      phi1 = -105.88235
      theta2 = 83.813705
      phi2 = -15.899842
      theta3 = 6.1884156
      phi3 = 165.60587
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1589
      chmoth = 'DCLS'
      x = -11.188206
      y = -43.590855
      z = 0
      irot = 2337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2338
      theta1 = 90.16135
      phi1 = -103.76471
      theta2 = 83.813705
      phi2 = -13.782195
      theta3 = 6.1884156
      phi3 = 167.72352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1590
      chmoth = 'DCLS'
      x = -9.5698179
      y = -43.974506
      z = 0
      irot = 2338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2339
      theta1 = 90.16135
      phi1 = -101.64706
      theta2 = 83.813705
      phi2 = -11.664548
      theta3 = 6.1884156
      phi3 = 169.84117
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1591
      chmoth = 'DCLS'
      x = -7.9383584
      y = -44.298093
      z = 0
      irot = 2339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2340
      theta1 = 90.16135
      phi1 = -99.529412
      theta2 = 83.813705
      phi2 = -9.546901
      theta3 = 6.1884156
      phi3 = 171.95881
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1592
      chmoth = 'DCLS'
      x = -6.296056
      y = -44.561174
      z = 0
      irot = 2340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2341
      theta1 = 90.16135
      phi1 = -97.411765
      theta2 = 83.813705
      phi2 = -7.4292539
      theta3 = 6.1884156
      phi3 = 174.07646
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1593
      chmoth = 'DCLS'
      x = -4.645154
      y = -44.763391
      z = 0
      irot = 2341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2342
      theta1 = 90.16135
      phi1 = -95.294118
      theta2 = 83.813705
      phi2 = -5.3116069
      theta3 = 6.1884156
      phi3 = 176.19411
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1594
      chmoth = 'DCLS'
      x = -2.9879072
      y = -44.904465
      z = 0
      irot = 2342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2343
      theta1 = 90.16135
      phi1 = -93.176471
      theta2 = 83.813705
      phi2 = -3.1939598
      theta3 = 6.1884156
      phi3 = 178.31175
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1595
      chmoth = 'DCLS'
      x = -1.3265793
      y = -44.984206
      z = 0
      irot = 2343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2344
      theta1 = 90.16135
      phi1 = -91.058824
      theta2 = 83.813705
      phi2 = -1.0763127
      theta3 = 6.1884156
      phi3 = -179.5706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1596
      chmoth = 'DCLS'
      x = 0.33656048
      y = -45.002503
      z = 0
      irot = 2344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2345
      theta1 = 90.16135
      phi1 = -88.941176
      theta2 = 83.813705
      phi2 = 1.0413343
      theta3 = 6.1884156
      phi3 = -177.45295
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1597
      chmoth = 'DCLS'
      x = 1.9992406
      y = -44.959333
      z = 0
      irot = 2345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2346
      theta1 = 90.16135
      phi1 = -86.823529
      theta2 = 83.813705
      phi2 = 3.1589814
      theta3 = 6.1884156
      phi3 = -175.3353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1598
      chmoth = 'DCLS'
      x = 3.65919
      y = -44.854754
      z = 0
      irot = 2346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2347
      theta1 = 90.16135
      phi1 = -84.705882
      theta2 = 83.813705
      phi2 = 5.2766284
      theta3 = 6.1884156
      phi3 = -173.21766
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1599
      chmoth = 'DCLS'
      x = 5.3141414
      y = -44.688908
      z = 0
      irot = 2347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2348
      theta1 = 90.16135
      phi1 = -82.588235
      theta2 = 83.813705
      phi2 = 7.3942755
      theta3 = 6.1884156
      phi3 = -171.10001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1600
      chmoth = 'DCLS'
      x = 6.9618343
      y = -44.462023
      z = 0
      irot = 2348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2349
      theta1 = 90.16135
      phi1 = -80.470588
      theta2 = 83.813705
      phi2 = 9.5119225
      theta3 = 6.1884156
      phi3 = -168.98236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1601
      chmoth = 'DCLS'
      x = 8.6000182
      y = -44.174407
      z = 0
      irot = 2349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2350
      theta1 = 90.16135
      phi1 = -78.352941
      theta2 = 83.813705
      phi2 = 11.62957
      theta3 = 6.1884156
      phi3 = -166.86472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1602
      chmoth = 'DCLS'
      x = 10.226456
      y = -43.826455
      z = 0
      irot = 2350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2351
      theta1 = 90.16135
      phi1 = -76.235294
      theta2 = 83.813705
      phi2 = 13.747217
      theta3 = 6.1884156
      phi3 = -164.74707
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1603
      chmoth = 'DCLS'
      x = 11.838925
      y = -43.418642
      z = 0
      irot = 2351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2352
      theta1 = 90.16135
      phi1 = -74.117647
      theta2 = 83.813705
      phi2 = 15.864864
      theta3 = 6.1884156
      phi3 = -162.62942
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1604
      chmoth = 'DCLS'
      x = 13.435223
      y = -42.951523
      z = 0
      irot = 2352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2353
      theta1 = 90.16135
      phi1 = -72
      theta2 = 83.813705
      phi2 = 17.982511
      theta3 = 6.1884156
      phi3 = -160.51177
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1605
      chmoth = 'DCLS'
      x = 15.013171
      y = -42.425738
      z = 0
      irot = 2353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2354
      theta1 = 90.16135
      phi1 = -69.882353
      theta2 = 83.813705
      phi2 = 20.100158
      theta3 = 6.1884156
      phi3 = -158.39413
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1606
      chmoth = 'DCLS'
      x = 16.570613
      y = -41.842005
      z = 0
      irot = 2354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2355
      theta1 = 90.16135
      phi1 = -67.764706
      theta2 = 83.813705
      phi2 = 22.217805
      theta3 = 6.1884156
      phi3 = -156.27648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1607
      chmoth = 'DCLS'
      x = 18.105421
      y = -41.20112
      z = 0
      irot = 2355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2356
      theta1 = 90.16135
      phi1 = -65.647059
      theta2 = 83.813705
      phi2 = 24.335452
      theta3 = 6.1884156
      phi3 = -154.15883
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1608
      chmoth = 'DCLS'
      x = 19.615499
      y = -40.50396
      z = 0
      irot = 2356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2357
      theta1 = 90.16135
      phi1 = -63.529412
      theta2 = 83.813705
      phi2 = 26.453099
      theta3 = 6.1884156
      phi3 = -152.04119
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1609
      chmoth = 'DCLS'
      x = 21.098785
      y = -39.751476
      z = 0
      irot = 2357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2358
      theta1 = 90.16135
      phi1 = -61.411765
      theta2 = 83.813705
      phi2 = 28.570746
      theta3 = 6.1884156
      phi3 = -149.92354
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1610
      chmoth = 'DCLS'
      x = 22.553252
      y = -38.944697
      z = 0
      irot = 2358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2359
      theta1 = 90.16135
      phi1 = -59.294118
      theta2 = 83.813705
      phi2 = 30.688393
      theta3 = 6.1884156
      phi3 = -147.80589
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1611
      chmoth = 'DCLS'
      x = 23.976915
      y = -38.084723
      z = 0
      irot = 2359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2360
      theta1 = 90.16135
      phi1 = -57.176471
      theta2 = 83.813705
      phi2 = 32.80604
      theta3 = 6.1884156
      phi3 = -145.68825
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1612
      chmoth = 'DCLS'
      x = 25.367828
      y = -37.172731
      z = 0
      irot = 2360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2361
      theta1 = 90.16135
      phi1 = -55.058824
      theta2 = 83.813705
      phi2 = 34.923687
      theta3 = 6.1884156
      phi3 = -143.5706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1613
      chmoth = 'DCLS'
      x = 26.724091
      y = -36.209965
      z = 0
      irot = 2361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2362
      theta1 = 90.16135
      phi1 = -52.941176
      theta2 = 83.813705
      phi2 = 37.041334
      theta3 = 6.1884156
      phi3 = -141.45295
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1614
      chmoth = 'DCLS'
      x = 28.043853
      y = -35.19774
      z = 0
      irot = 2362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2363
      theta1 = 90.16135
      phi1 = -50.823529
      theta2 = 83.813705
      phi2 = 39.158981
      theta3 = 6.1884156
      phi3 = -139.3353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1615
      chmoth = 'DCLS'
      x = 29.32531
      y = -34.13744
      z = 0
      irot = 2363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2364
      theta1 = 90.16135
      phi1 = -48.705882
      theta2 = 83.813705
      phi2 = 41.276628
      theta3 = 6.1884156
      phi3 = -137.21766
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1616
      chmoth = 'DCLS'
      x = 30.566712
      y = -33.030512
      z = 0
      irot = 2364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2365
      theta1 = 90.16135
      phi1 = -46.588235
      theta2 = 83.813705
      phi2 = 43.394275
      theta3 = 6.1884156
      phi3 = -135.10001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1617
      chmoth = 'DCLS'
      x = 31.766363
      y = -31.878468
      z = 0
      irot = 2365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2366
      theta1 = 90.16135
      phi1 = -44.470588
      theta2 = 83.813705
      phi2 = 45.511923
      theta3 = 6.1884156
      phi3 = -132.98236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1618
      chmoth = 'DCLS'
      x = 32.922626
      y = -30.682882
      z = 0
      irot = 2366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2367
      theta1 = 90.16135
      phi1 = -42.352941
      theta2 = 83.813705
      phi2 = 47.62957
      theta3 = 6.1884156
      phi3 = -130.86472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1619
      chmoth = 'DCLS'
      x = 34.03392
      y = -29.445388
      z = 0
      irot = 2367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2368
      theta1 = 90.16135
      phi1 = -40.235294
      theta2 = 83.813705
      phi2 = 49.747217
      theta3 = 6.1884156
      phi3 = -128.74707
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1620
      chmoth = 'DCLS'
      x = 35.098729
      y = -28.167674
      z = 0
      irot = 2368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2369
      theta1 = 90.16135
      phi1 = -38.117647
      theta2 = 83.813705
      phi2 = 51.864864
      theta3 = 6.1884156
      phi3 = -126.62942
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1621
      chmoth = 'DCLS'
      x = 36.115596
      y = -26.851486
      z = 0
      irot = 2369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2370
      theta1 = 90.16135
      phi1 = -36
      theta2 = 83.813705
      phi2 = 53.982511
      theta3 = 6.1884156
      phi3 = -124.51177
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1622
      chmoth = 'DCLS'
      x = 37.083134
      y = -25.498623
      z = 0
      irot = 2370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2371
      theta1 = 90.16135
      phi1 = -33.882353
      theta2 = 83.813705
      phi2 = 56.100158
      theta3 = 6.1884156
      phi3 = -122.39413
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1623
      chmoth = 'DCLS'
      x = 38.000021
      y = -24.110931
      z = 0
      irot = 2371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2372
      theta1 = 90.16135
      phi1 = -31.764706
      theta2 = 83.813705
      phi2 = 58.217805
      theta3 = 6.1884156
      phi3 = -120.27648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1624
      chmoth = 'DCLS'
      x = 38.865004
      y = -22.690307
      z = 0
      irot = 2372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2373
      theta1 = 90.16135
      phi1 = -29.647059
      theta2 = 83.813705
      phi2 = 60.335452
      theta3 = 6.1884156
      phi3 = -118.15883
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1625
      chmoth = 'DCLS'
      x = 39.676902
      y = -21.238691
      z = 0
      irot = 2373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2374
      theta1 = 90.16135
      phi1 = -27.529412
      theta2 = 83.813705
      phi2 = 62.453099
      theta3 = 6.1884156
      phi3 = -116.04119
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1626
      chmoth = 'DCLS'
      x = 40.434607
      y = -19.758065
      z = 0
      irot = 2374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2375
      theta1 = 90.16135
      phi1 = -25.411765
      theta2 = 83.813705
      phi2 = 64.570746
      theta3 = 6.1884156
      phi3 = -113.92354
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1627
      chmoth = 'DCLS'
      x = 41.137083
      y = -18.250452
      z = 0
      irot = 2375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2376
      theta1 = 90.16135
      phi1 = -23.294118
      theta2 = 83.813705
      phi2 = 66.688393
      theta3 = 6.1884156
      phi3 = -111.80589
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1628
      chmoth = 'DCLS'
      x = 41.78337
      y = -16.717912
      z = 0
      irot = 2376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2377
      theta1 = 90.16135
      phi1 = -21.176471
      theta2 = 83.813705
      phi2 = 68.80604
      theta3 = 6.1884156
      phi3 = -109.68825
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1629
      chmoth = 'DCLS'
      x = 42.372587
      y = -15.162536
      z = 0
      irot = 2377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2378
      theta1 = 90.16135
      phi1 = -19.058824
      theta2 = 83.813705
      phi2 = 70.923687
      theta3 = 6.1884156
      phi3 = -107.5706
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1630
      chmoth = 'DCLS'
      x = 42.903927
      y = -13.58645
      z = 0
      irot = 2378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2379
      theta1 = 90.16135
      phi1 = -16.941176
      theta2 = 83.813705
      phi2 = 73.041334
      theta3 = 6.1884156
      phi3 = -105.45295
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1631
      chmoth = 'DCLS'
      x = 43.376666
      y = -11.991807
      z = 0
      irot = 2379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2380
      theta1 = 90.16135
      phi1 = -14.823529
      theta2 = 83.813705
      phi2 = 75.158981
      theta3 = 6.1884156
      phi3 = -103.3353
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1632
      chmoth = 'DCLS'
      x = 43.790158
      y = -10.380785
      z = 0
      irot = 2380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2381
      theta1 = 90.16135
      phi1 = -12.705882
      theta2 = 83.813705
      phi2 = 77.276628
      theta3 = 6.1884156
      phi3 = -101.21766
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1633
      chmoth = 'DCLS'
      x = 44.143837
      y = -8.7555832
      z = 0
      irot = 2381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2382
      theta1 = 90.16135
      phi1 = -10.588235
      theta2 = 83.813705
      phi2 = 79.394275
      theta3 = 6.1884156
      phi3 = -99.10001
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1634
      chmoth = 'DCLS'
      x = 44.437221
      y = -7.1184227
      z = 0
      irot = 2382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2383
      theta1 = 90.16135
      phi1 = -8.4705882
      theta2 = 83.813705
      phi2 = 81.511923
      theta3 = 6.1884156
      phi3 = -96.982363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1635
      chmoth = 'DCLS'
      x = 44.66991
      y = -5.4715393
      z = 0
      irot = 2383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2384
      theta1 = 90.16135
      phi1 = -6.3529412
      theta2 = 83.813705
      phi2 = 83.62957
      theta3 = 6.1884156
      phi3 = -94.864716
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1636
      chmoth = 'DCLS'
      x = 44.841585
      y = -3.8171824
      z = 0
      irot = 2384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2385
      theta1 = 90.16135
      phi1 = -4.2352941
      theta2 = 83.813705
      phi2 = 85.747217
      theta3 = 6.1884156
      phi3 = -92.747069
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1637
      chmoth = 'DCLS'
      x = 44.952011
      y = -2.1576117
      z = 0
      irot = 2385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2386
      theta1 = 90.16135
      phi1 = -2.1176471
      theta2 = 83.813705
      phi2 = 87.864864
      theta3 = 6.1884156
      phi3 = -90.629422
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1638
      chmoth = 'DCLS'
      x = 45.001039
      y = -0.49509397
      z = 0
      irot = 2386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2387
      theta1 = 90
      phi1 = -0.6665
      theta2 = 84.001132
      phi2 = 89.3335
      theta3 = 5.998868
      phi3 = -90.6665
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1639
      chmoth = 'DCLS'
      x = 46.681841
      y = -0.54305659
      z = 0
      irot = 2387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2388
      theta1 = 90
      phi1 = 1.311522
      theta2 = 84.001132
      phi2 = 91.311522
      theta3 = 5.998868
      phi3 = -88.688478
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1640
      chmoth = 'DCLS'
      x = 46.67277
      y = 1.0685439
      z = 0
      irot = 2388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2389
      theta1 = 90
      phi1 = 3.289544
      theta2 = 84.001132
      phi2 = 93.289544
      theta3 = 5.998868
      phi3 = -86.710456
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1641
      chmoth = 'DCLS'
      x = 46.608077
      y = 2.678871
      z = 0
      irot = 2389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2390
      theta1 = 90
      phi1 = 5.2675659
      theta2 = 84.001132
      phi2 = 95.267566
      theta3 = 5.998868
      phi3 = -84.732434
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1642
      chmoth = 'DCLS'
      x = 46.487841
      y = 4.2860057
      z = 0
      irot = 2390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2391
      theta1 = 90
      phi1 = 7.2455879
      theta2 = 84.001132
      phi2 = 97.245588
      theta3 = 5.998868
      phi3 = -82.754412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1643
      chmoth = 'DCLS'
      x = 46.312205
      y = 5.8880326
      z = 0
      irot = 2391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2392
      theta1 = 90
      phi1 = 9.2236099
      theta2 = 84.001132
      phi2 = 99.22361
      theta3 = 5.998868
      phi3 = -80.77639
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1644
      chmoth = 'DCLS'
      x = 46.081377
      y = 7.4830426
      z = 0
      irot = 2392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2393
      theta1 = 90
      phi1 = 11.201632
      theta2 = 84.001132
      phi2 = 101.20163
      theta3 = 5.998868
      phi3 = -78.798368
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1645
      chmoth = 'DCLS'
      x = 45.795633
      y = 9.069135
      z = 0
      irot = 2393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2394
      theta1 = 90
      phi1 = 13.179654
      theta2 = 84.001132
      phi2 = 103.17965
      theta3 = 5.998868
      phi3 = -76.820346
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1646
      chmoth = 'DCLS'
      x = 45.455314
      y = 10.64442
      z = 0
      irot = 2394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2395
      theta1 = 90
      phi1 = 15.157676
      theta2 = 84.001132
      phi2 = 105.15768
      theta3 = 5.998868
      phi3 = -74.842324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1647
      chmoth = 'DCLS'
      x = 45.060825
      y = 12.207019
      z = 0
      irot = 2395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2396
      theta1 = 90
      phi1 = 17.135698
      theta2 = 84.001132
      phi2 = 107.1357
      theta3 = 5.998868
      phi3 = -72.864302
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1648
      chmoth = 'DCLS'
      x = 44.612636
      y = 13.755071
      z = 0
      irot = 2396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2397
      theta1 = 90
      phi1 = 19.11372
      theta2 = 84.001132
      phi2 = 109.11372
      theta3 = 5.998868
      phi3 = -70.88628
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1649
      chmoth = 'DCLS'
      x = 44.111281
      y = 15.286731
      z = 0
      irot = 2397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2398
      theta1 = 90
      phi1 = 21.091742
      theta2 = 84.001132
      phi2 = 111.09174
      theta3 = 5.998868
      phi3 = -68.908258
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1650
      chmoth = 'DCLS'
      x = 43.557358
      y = 16.800173
      z = 0
      irot = 2398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2399
      theta1 = 90
      phi1 = 23.069764
      theta2 = 84.001132
      phi2 = 113.06976
      theta3 = 5.998868
      phi3 = -66.930236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1651
      chmoth = 'DCLS'
      x = 42.951527
      y = 18.293594
      z = 0
      irot = 2399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2400
      theta1 = 90
      phi1 = 25.047786
      theta2 = 84.001132
      phi2 = 115.04779
      theta3 = 5.998868
      phi3 = -64.952214
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1652
      chmoth = 'DCLS'
      x = 42.294509
      y = 19.765215
      z = 0
      irot = 2400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2401
      theta1 = 90
      phi1 = 27.025808
      theta2 = 84.001132
      phi2 = 117.02581
      theta3 = 5.998868
      phi3 = -62.974192
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1653
      chmoth = 'DCLS'
      x = 41.587089
      y = 21.213281
      z = 0
      irot = 2401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2402
      theta1 = 90
      phi1 = 29.00383
      theta2 = 84.001132
      phi2 = 119.00383
      theta3 = 5.998868
      phi3 = -60.99617
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1654
      chmoth = 'DCLS'
      x = 40.830108
      y = 22.636066
      z = 0
      irot = 2402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2403
      theta1 = 90
      phi1 = 30.981852
      theta2 = 84.001132
      phi2 = 120.98185
      theta3 = 5.998868
      phi3 = -59.018148
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1655
      chmoth = 'DCLS'
      x = 40.02447
      y = 24.031876
      z = 0
      irot = 2403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2404
      theta1 = 90
      phi1 = 32.959874
      theta2 = 84.001132
      phi2 = 122.95987
      theta3 = 5.998868
      phi3 = -57.040126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1656
      chmoth = 'DCLS'
      x = 39.171133
      y = 25.399047
      z = 0
      irot = 2404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2405
      theta1 = 90
      phi1 = 34.937896
      theta2 = 84.001132
      phi2 = 124.9379
      theta3 = 5.998868
      phi3 = -55.062104
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1657
      chmoth = 'DCLS'
      x = 38.271115
      y = 26.735949
      z = 0
      irot = 2405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2406
      theta1 = 90
      phi1 = 36.915918
      theta2 = 84.001132
      phi2 = 126.91592
      theta3 = 5.998868
      phi3 = -53.084082
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1658
      chmoth = 'DCLS'
      x = 37.32549
      y = 28.040989
      z = 0
      irot = 2406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2407
      theta1 = 90
      phi1 = 38.89394
      theta2 = 84.001132
      phi2 = 128.89394
      theta3 = 5.998868
      phi3 = -51.10606
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1659
      chmoth = 'DCLS'
      x = 36.335382
      y = 29.312612
      z = 0
      irot = 2407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2408
      theta1 = 90
      phi1 = 40.871962
      theta2 = 84.001132
      phi2 = 130.87196
      theta3 = 5.998868
      phi3 = -49.128038
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1660
      chmoth = 'DCLS'
      x = 35.301973
      y = 30.549303
      z = 0
      irot = 2408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2409
      theta1 = 90
      phi1 = 42.849984
      theta2 = 84.001132
      phi2 = 132.84998
      theta3 = 5.998868
      phi3 = -47.150016
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1661
      chmoth = 'DCLS'
      x = 34.226494
      y = 31.749588
      z = 0
      irot = 2409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2410
      theta1 = 90
      phi1 = 44.828005
      theta2 = 84.001132
      phi2 = 134.82801
      theta3 = 5.998868
      phi3 = -45.171995
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1662
      chmoth = 'DCLS'
      x = 33.110227
      y = 32.912036
      z = 0
      irot = 2410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2411
      theta1 = 90
      phi1 = 46.806027
      theta2 = 84.001132
      phi2 = 136.80603
      theta3 = 5.998868
      phi3 = -43.193973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1663
      chmoth = 'DCLS'
      x = 31.954501
      y = 34.035262
      z = 0
      irot = 2411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2412
      theta1 = 90
      phi1 = 48.784049
      theta2 = 84.001132
      phi2 = 138.78405
      theta3 = 5.998868
      phi3 = -41.215951
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1664
      chmoth = 'DCLS'
      x = 30.760695
      y = 35.117928
      z = 0
      irot = 2412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2413
      theta1 = 90
      phi1 = 50.762071
      theta2 = 84.001132
      phi2 = 140.76207
      theta3 = 5.998868
      phi3 = -39.237929
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1665
      chmoth = 'DCLS'
      x = 29.530231
      y = 36.158743
      z = 0
      irot = 2413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2414
      theta1 = 90
      phi1 = 52.740093
      theta2 = 84.001132
      phi2 = 142.74009
      theta3 = 5.998868
      phi3 = -37.259907
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1666
      chmoth = 'DCLS'
      x = 28.264575
      y = 37.156467
      z = 0
      irot = 2414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2415
      theta1 = 90
      phi1 = 54.718115
      theta2 = 84.001132
      phi2 = 144.71812
      theta3 = 5.998868
      phi3 = -35.281885
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1667
      chmoth = 'DCLS'
      x = 26.965235
      y = 38.109911
      z = 0
      irot = 2415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2416
      theta1 = 90
      phi1 = 56.696137
      theta2 = 84.001132
      phi2 = 146.69614
      theta3 = 5.998868
      phi3 = -33.303863
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1668
      chmoth = 'DCLS'
      x = 25.633761
      y = 39.017939
      z = 0
      irot = 2416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2417
      theta1 = 90
      phi1 = 58.674159
      theta2 = 84.001132
      phi2 = 148.67416
      theta3 = 5.998868
      phi3 = -31.325841
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1669
      chmoth = 'DCLS'
      x = 24.271738
      y = 39.879468
      z = 0
      irot = 2417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2418
      theta1 = 90
      phi1 = 60.652181
      theta2 = 84.001132
      phi2 = 150.65218
      theta3 = 5.998868
      phi3 = -29.347819
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1670
      chmoth = 'DCLS'
      x = 22.88079
      y = 40.693472
      z = 0
      irot = 2418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2419
      theta1 = 90
      phi1 = 62.630203
      theta2 = 84.001132
      phi2 = 152.6302
      theta3 = 5.998868
      phi3 = -27.369797
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1671
      chmoth = 'DCLS'
      x = 21.462575
      y = 41.458981
      z = 0
      irot = 2419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2420
      theta1 = 90
      phi1 = 64.608225
      theta2 = 84.001132
      phi2 = 154.60823
      theta3 = 5.998868
      phi3 = -25.391775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1672
      chmoth = 'DCLS'
      x = 20.018782
      y = 42.175082
      z = 0
      irot = 2420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2421
      theta1 = 90
      phi1 = 66.586247
      theta2 = 84.001132
      phi2 = 156.58625
      theta3 = 5.998868
      phi3 = -23.413753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1673
      chmoth = 'DCLS'
      x = 18.551133
      y = 42.840923
      z = 0
      irot = 2421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2422
      theta1 = 90
      phi1 = 68.564269
      theta2 = 84.001132
      phi2 = 158.56427
      theta3 = 5.998868
      phi3 = -21.435731
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1674
      chmoth = 'DCLS'
      x = 17.061376
      y = 43.455709
      z = 0
      irot = 2422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2423
      theta1 = 90
      phi1 = 70.542291
      theta2 = 84.001132
      phi2 = 160.54229
      theta3 = 5.998868
      phi3 = -19.457709
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1675
      chmoth = 'DCLS'
      x = 15.551286
      y = 44.018709
      z = 0
      irot = 2423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2424
      theta1 = 90
      phi1 = 72.520313
      theta2 = 84.001132
      phi2 = 162.52031
      theta3 = 5.998868
      phi3 = -17.479687
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1676
      chmoth = 'DCLS'
      x = 14.022664
      y = 44.52925
      z = 0
      irot = 2424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2425
      theta1 = 90
      phi1 = 74.498335
      theta2 = 84.001132
      phi2 = 164.49834
      theta3 = 5.998868
      phi3 = -15.501665
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1677
      chmoth = 'DCLS'
      x = 12.477331
      y = 44.986725
      z = 0
      irot = 2425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2426
      theta1 = 90
      phi1 = 76.476357
      theta2 = 84.001132
      phi2 = 166.47636
      theta3 = 5.998868
      phi3 = -13.523643
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1678
      chmoth = 'DCLS'
      x = 10.917128
      y = 45.390589
      z = 0
      irot = 2426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2427
      theta1 = 90
      phi1 = 78.454379
      theta2 = 84.001132
      phi2 = 168.45438
      theta3 = 5.998868
      phi3 = -11.545621
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1679
      chmoth = 'DCLS'
      x = 9.343915
      y = 45.740359
      z = 0
      irot = 2427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2428
      theta1 = 90
      phi1 = 80.432401
      theta2 = 84.001132
      phi2 = 170.4324
      theta3 = 5.998868
      phi3 = -9.5675989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1680
      chmoth = 'DCLS'
      x = 7.7595668
      y = 46.03562
      z = 0
      irot = 2428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2429
      theta1 = 90
      phi1 = 82.410423
      theta2 = 84.001132
      phi2 = 172.41042
      theta3 = 5.998868
      phi3 = -7.5895769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1681
      chmoth = 'DCLS'
      x = 6.1659713
      y = 46.27602
      z = 0
      irot = 2429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2430
      theta1 = 90
      phi1 = 84.388445
      theta2 = 84.001132
      phi2 = 174.38845
      theta3 = 5.998868
      phi3 = -5.6115549
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1682
      chmoth = 'DCLS'
      x = 4.5650277
      y = 46.461271
      z = 0
      irot = 2430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2431
      theta1 = 90
      phi1 = 86.366467
      theta2 = 84.001132
      phi2 = 176.36647
      theta3 = 5.998868
      phi3 = -3.633533
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1683
      chmoth = 'DCLS'
      x = 2.9586439
      y = 46.591154
      z = 0
      irot = 2431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2432
      theta1 = 90
      phi1 = 88.344489
      theta2 = 84.001132
      phi2 = 178.34449
      theta3 = 5.998868
      phi3 = -1.655511
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1684
      chmoth = 'DCLS'
      x = 1.3487342
      y = 46.665513
      z = 0
      irot = 2432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2433
      theta1 = 90
      phi1 = 90.322511
      theta2 = 84.001132
      phi2 = -179.67749
      theta3 = 5.998868
      phi3 = 0.32251099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1685
      chmoth = 'DCLS'
      x = -0.26278281
      y = 46.68426
      z = 0
      irot = 2433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2434
      theta1 = 90
      phi1 = 92.300533
      theta2 = 84.001132
      phi2 = -177.69947
      theta3 = 5.998868
      phi3 = 2.300533
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1686
      chmoth = 'DCLS'
      x = -1.8739866
      y = 46.647373
      z = 0
      irot = 2434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2435
      theta1 = 90
      phi1 = 94.278555
      theta2 = 84.001132
      phi2 = -175.72145
      theta3 = 5.998868
      phi3 = 4.2785549
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1687
      chmoth = 'DCLS'
      x = -3.4829572
      y = 46.554895
      z = 0
      irot = 2435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2436
      theta1 = 90
      phi1 = 96.256577
      theta2 = 84.001132
      phi2 = -173.74342
      theta3 = 5.998868
      phi3 = 6.2565769
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1688
      chmoth = 'DCLS'
      x = -5.0877771
      y = 46.406936
      z = 0
      irot = 2436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2437
      theta1 = 90
      phi1 = 98.234599
      theta2 = 84.001132
      phi2 = -171.7654
      theta3 = 5.998868
      phi3 = 8.2345989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1689
      chmoth = 'DCLS'
      x = -6.6865338
      y = 46.203674
      z = 0
      irot = 2437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2438
      theta1 = 90
      phi1 = 100.21262
      theta2 = 84.001132
      phi2 = -169.78738
      theta3 = 5.998868
      phi3 = 10.212621
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1690
      chmoth = 'DCLS'
      x = -8.277322
      y = 45.94535
      z = 0
      irot = 2438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2439
      theta1 = 90
      phi1 = 102.19064
      theta2 = 84.001132
      phi2 = -167.80936
      theta3 = 5.998868
      phi3 = 12.190643
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1691
      chmoth = 'DCLS'
      x = -9.8582459
      y = 45.632272
      z = 0
      irot = 2439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2440
      theta1 = 90
      phi1 = 104.16866
      theta2 = 84.001132
      phi2 = -165.83134
      theta3 = 5.998868
      phi3 = 14.168665
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1692
      chmoth = 'DCLS'
      x = -11.427422
      y = 45.264813
      z = 0
      irot = 2440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2441
      theta1 = 90
      phi1 = 106.14669
      theta2 = 84.001132
      phi2 = -163.85331
      theta3 = 5.998868
      phi3 = 16.146687
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1693
      chmoth = 'DCLS'
      x = -12.982979
      y = 44.843411
      z = 0
      irot = 2441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2442
      theta1 = 90
      phi1 = 108.12471
      theta2 = 84.001132
      phi2 = -161.87529
      theta3 = 5.998868
      phi3 = 18.124709
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1694
      chmoth = 'DCLS'
      x = -14.523064
      y = 44.368568
      z = 0
      irot = 2442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2443
      theta1 = 90
      phi1 = 110.10273
      theta2 = 84.001132
      phi2 = -159.89727
      theta3 = 5.998868
      phi3 = 20.102731
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1695
      chmoth = 'DCLS'
      x = -16.045842
      y = 43.84085
      z = 0
      irot = 2443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2444
      theta1 = 90
      phi1 = 112.08075
      theta2 = 84.001132
      phi2 = -157.91925
      theta3 = 5.998868
      phi3 = 22.080753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1696
      chmoth = 'DCLS'
      x = -17.549498
      y = 43.260887
      z = 0
      irot = 2444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2445
      theta1 = 90
      phi1 = 114.05877
      theta2 = 84.001132
      phi2 = -155.94123
      theta3 = 5.998868
      phi3 = 24.058775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1697
      chmoth = 'DCLS'
      x = -19.03224
      y = 42.629369
      z = 0
      irot = 2445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2446
      theta1 = 90
      phi1 = 116.0368
      theta2 = 84.001132
      phi2 = -153.9632
      theta3 = 5.998868
      phi3 = 26.036797
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1698
      chmoth = 'DCLS'
      x = -20.492301
      y = 41.947048
      z = 0
      irot = 2446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2447
      theta1 = 90
      phi1 = 118.01482
      theta2 = 84.001132
      phi2 = -151.98518
      theta3 = 5.998868
      phi3 = 28.014819
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1699
      chmoth = 'DCLS'
      x = -21.92794
      y = 41.214738
      z = 0
      irot = 2447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2448
      theta1 = 90
      phi1 = 119.99284
      theta2 = 84.001132
      phi2 = -150.00716
      theta3 = 5.998868
      phi3 = 29.992841
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1700
      chmoth = 'DCLS'
      x = -23.337448
      y = 40.433312
      z = 0
      irot = 2448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2449
      theta1 = 90
      phi1 = 121.97086
      theta2 = 84.001132
      phi2 = -148.02914
      theta3 = 5.998868
      phi3 = 31.970863
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1701
      chmoth = 'DCLS'
      x = -24.719144
      y = 39.603701
      z = 0
      irot = 2449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2450
      theta1 = 90
      phi1 = 123.94888
      theta2 = 84.001132
      phi2 = -146.05112
      theta3 = 5.998868
      phi3 = 33.948885
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1702
      chmoth = 'DCLS'
      x = -26.071382
      y = 38.726894
      z = 0
      irot = 2450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2451
      theta1 = 90
      phi1 = 125.92691
      theta2 = 84.001132
      phi2 = -144.07309
      theta3 = 5.998868
      phi3 = 35.926907
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1703
      chmoth = 'DCLS'
      x = -27.39255
      y = 37.803934
      z = 0
      irot = 2451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2452
      theta1 = 90
      phi1 = 127.90493
      theta2 = 84.001132
      phi2 = -142.09507
      theta3 = 5.998868
      phi3 = 37.904929
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1704
      chmoth = 'DCLS'
      x = -28.681073
      y = 36.835923
      z = 0
      irot = 2452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2453
      theta1 = 90
      phi1 = 129.88295
      theta2 = 84.001132
      phi2 = -140.11705
      theta3 = 5.998868
      phi3 = 39.882951
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1705
      chmoth = 'DCLS'
      x = -29.935417
      y = 35.824015
      z = 0
      irot = 2453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2454
      theta1 = 90
      phi1 = 131.86097
      theta2 = 84.001132
      phi2 = -138.13903
      theta3 = 5.998868
      phi3 = 41.860973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1706
      chmoth = 'DCLS'
      x = -31.154087
      y = 34.769413
      z = 0
      irot = 2454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2455
      theta1 = 90
      phi1 = 133.83899
      theta2 = 84.001132
      phi2 = -136.16101
      theta3 = 5.998868
      phi3 = 43.838995
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1707
      chmoth = 'DCLS'
      x = -32.335629
      y = 33.673377
      z = 0
      irot = 2455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2456
      theta1 = 90
      phi1 = 135.81702
      theta2 = 84.001132
      phi2 = -134.18298
      theta3 = 5.998868
      phi3 = 45.817016
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1708
      chmoth = 'DCLS'
      x = -33.478637
      y = 32.537211
      z = 0
      irot = 2456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2457
      theta1 = 90
      phi1 = 137.79504
      theta2 = 84.001132
      phi2 = -132.20496
      theta3 = 5.998868
      phi3 = 47.795038
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1709
      chmoth = 'DCLS'
      x = -34.581747
      y = 31.36227
      z = 0
      irot = 2457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2458
      theta1 = 90
      phi1 = 139.77306
      theta2 = 84.001132
      phi2 = -130.22694
      theta3 = 5.998868
      phi3 = 49.77306
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1710
      chmoth = 'DCLS'
      x = -35.643646
      y = 30.149955
      z = 0
      irot = 2458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2459
      theta1 = 90
      phi1 = 141.75108
      theta2 = 84.001132
      phi2 = -128.24892
      theta3 = 5.998868
      phi3 = 51.751082
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1711
      chmoth = 'DCLS'
      x = -36.663067
      y = 28.901708
      z = 0
      irot = 2459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2460
      theta1 = 90
      phi1 = 143.7291
      theta2 = 84.001132
      phi2 = -126.2709
      theta3 = 5.998868
      phi3 = 53.729104
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1712
      chmoth = 'DCLS'
      x = -37.638796
      y = 27.61902
      z = 0
      irot = 2460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2461
      theta1 = 90
      phi1 = 145.70713
      theta2 = 84.001132
      phi2 = -124.29287
      theta3 = 5.998868
      phi3 = 55.707126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1713
      chmoth = 'DCLS'
      x = -38.569671
      y = 26.303417
      z = 0
      irot = 2461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2462
      theta1 = 90
      phi1 = 147.68515
      theta2 = 84.001132
      phi2 = -122.31485
      theta3 = 5.998868
      phi3 = 57.685148
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1714
      chmoth = 'DCLS'
      x = -39.454581
      y = 24.956467
      z = 0
      irot = 2462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2463
      theta1 = 90
      phi1 = 149.66317
      theta2 = 84.001132
      phi2 = -120.33683
      theta3 = 5.998868
      phi3 = 59.66317
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1715
      chmoth = 'DCLS'
      x = -40.292473
      y = 23.579777
      z = 0
      irot = 2463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2464
      theta1 = 90
      phi1 = 151.64119
      theta2 = 84.001132
      phi2 = -118.35881
      theta3 = 5.998868
      phi3 = 61.641192
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1716
      chmoth = 'DCLS'
      x = -41.082347
      y = 22.174986
      z = 0
      irot = 2464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2465
      theta1 = 90
      phi1 = 153.61921
      theta2 = 84.001132
      phi2 = -116.38079
      theta3 = 5.998868
      phi3 = 63.619214
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1717
      chmoth = 'DCLS'
      x = -41.823262
      y = 20.743769
      z = 0
      irot = 2465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2466
      theta1 = 90
      phi1 = 155.59724
      theta2 = 84.001132
      phi2 = -114.40276
      theta3 = 5.998868
      phi3 = 65.597236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1718
      chmoth = 'DCLS'
      x = -42.514336
      y = 19.287831
      z = 0
      irot = 2466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2467
      theta1 = 90
      phi1 = 157.57526
      theta2 = 84.001132
      phi2 = -112.42474
      theta3 = 5.998868
      phi3 = 67.575258
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1719
      chmoth = 'DCLS'
      x = -43.154745
      y = 17.808907
      z = 0
      irot = 2467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2468
      theta1 = 90
      phi1 = 159.55328
      theta2 = 84.001132
      phi2 = -110.44672
      theta3 = 5.998868
      phi3 = 69.55328
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1720
      chmoth = 'DCLS'
      x = -43.743726
      y = 16.308761
      z = 0
      irot = 2468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2469
      theta1 = 90
      phi1 = 161.5313
      theta2 = 84.001132
      phi2 = -108.4687
      theta3 = 5.998868
      phi3 = 71.531302
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1721
      chmoth = 'DCLS'
      x = -44.280576
      y = 14.789178
      z = 0
      irot = 2469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2470
      theta1 = 90
      phi1 = 163.50932
      theta2 = 84.001132
      phi2 = -106.49068
      theta3 = 5.998868
      phi3 = 73.509324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1722
      chmoth = 'DCLS'
      x = -44.764657
      y = 13.251972
      z = 0
      irot = 2470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2471
      theta1 = 90
      phi1 = 165.48735
      theta2 = 84.001132
      phi2 = -104.51265
      theta3 = 5.998868
      phi3 = 75.487346
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1723
      chmoth = 'DCLS'
      x = -45.19539
      y = 11.698972
      z = 0
      irot = 2471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2472
      theta1 = 90
      phi1 = 167.46537
      theta2 = 84.001132
      phi2 = -102.53463
      theta3 = 5.998868
      phi3 = 77.465368
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1724
      chmoth = 'DCLS'
      x = -45.572263
      y = 10.132031
      z = 0
      irot = 2472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2473
      theta1 = 90
      phi1 = 169.44339
      theta2 = 84.001132
      phi2 = -100.55661
      theta3 = 5.998868
      phi3 = 79.44339
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1725
      chmoth = 'DCLS'
      x = -45.894827
      y = 8.5530151
      z = 0
      irot = 2473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2474
      theta1 = 90
      phi1 = 171.42141
      theta2 = 84.001132
      phi2 = -98.578588
      theta3 = 5.998868
      phi3 = 81.421412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1726
      chmoth = 'DCLS'
      x = -46.162697
      y = 6.9638065
      z = 0
      irot = 2474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2475
      theta1 = 90
      phi1 = 173.39943
      theta2 = 84.001132
      phi2 = -96.600566
      theta3 = 5.998868
      phi3 = 83.399434
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1727
      chmoth = 'DCLS'
      x = -46.375555
      y = 5.3662989
      z = 0
      irot = 2475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2476
      theta1 = 90
      phi1 = 175.37746
      theta2 = 84.001132
      phi2 = -94.622544
      theta3 = 5.998868
      phi3 = 85.377456
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1728
      chmoth = 'DCLS'
      x = -46.533145
      y = 3.7623963
      z = 0
      irot = 2476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2477
      theta1 = 90
      phi1 = 177.35548
      theta2 = 84.001132
      phi2 = -92.644522
      theta3 = 5.998868
      phi3 = 87.355478
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1729
      chmoth = 'DCLS'
      x = -46.635281
      y = 2.1540099
      z = 0
      irot = 2477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2478
      theta1 = 90
      phi1 = 179.3335
      theta2 = 84.001132
      phi2 = -90.6665
      theta3 = 5.998868
      phi3 = 89.3335
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1730
      chmoth = 'DCLS'
      x = -46.681841
      y = 0.54305659
      z = 0
      irot = 2478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2479
      theta1 = 90
      phi1 = -178.68848
      theta2 = 84.001132
      phi2 = -88.688478
      theta3 = 5.998868
      phi3 = 91.311522
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1731
      chmoth = 'DCLS'
      x = -46.67277
      y = -1.0685439
      z = 0
      irot = 2479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2480
      theta1 = 90
      phi1 = -176.71046
      theta2 = 84.001132
      phi2 = -86.710456
      theta3 = 5.998868
      phi3 = 93.289544
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1732
      chmoth = 'DCLS'
      x = -46.608077
      y = -2.678871
      z = 0
      irot = 2480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2481
      theta1 = 90
      phi1 = -174.73243
      theta2 = 84.001132
      phi2 = -84.732434
      theta3 = 5.998868
      phi3 = 95.267566
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1733
      chmoth = 'DCLS'
      x = -46.487841
      y = -4.2860057
      z = 0
      irot = 2481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2482
      theta1 = 90
      phi1 = -172.75441
      theta2 = 84.001132
      phi2 = -82.754412
      theta3 = 5.998868
      phi3 = 97.245588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1734
      chmoth = 'DCLS'
      x = -46.312205
      y = -5.8880326
      z = 0
      irot = 2482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2483
      theta1 = 90
      phi1 = -170.77639
      theta2 = 84.001132
      phi2 = -80.77639
      theta3 = 5.998868
      phi3 = 99.22361
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1735
      chmoth = 'DCLS'
      x = -46.081377
      y = -7.4830426
      z = 0
      irot = 2483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2484
      theta1 = 90
      phi1 = -168.79837
      theta2 = 84.001132
      phi2 = -78.798368
      theta3 = 5.998868
      phi3 = 101.20163
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1736
      chmoth = 'DCLS'
      x = -45.795633
      y = -9.069135
      z = 0
      irot = 2484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2485
      theta1 = 90
      phi1 = -166.82035
      theta2 = 84.001132
      phi2 = -76.820346
      theta3 = 5.998868
      phi3 = 103.17965
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1737
      chmoth = 'DCLS'
      x = -45.455314
      y = -10.64442
      z = 0
      irot = 2485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2486
      theta1 = 90
      phi1 = -164.84232
      theta2 = 84.001132
      phi2 = -74.842324
      theta3 = 5.998868
      phi3 = 105.15768
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1738
      chmoth = 'DCLS'
      x = -45.060825
      y = -12.207019
      z = 0
      irot = 2486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2487
      theta1 = 90
      phi1 = -162.8643
      theta2 = 84.001132
      phi2 = -72.864302
      theta3 = 5.998868
      phi3 = 107.1357
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1739
      chmoth = 'DCLS'
      x = -44.612636
      y = -13.755071
      z = 0
      irot = 2487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2488
      theta1 = 90
      phi1 = -160.88628
      theta2 = 84.001132
      phi2 = -70.88628
      theta3 = 5.998868
      phi3 = 109.11372
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1740
      chmoth = 'DCLS'
      x = -44.111281
      y = -15.286731
      z = 0
      irot = 2488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2489
      theta1 = 90
      phi1 = -158.90826
      theta2 = 84.001132
      phi2 = -68.908258
      theta3 = 5.998868
      phi3 = 111.09174
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1741
      chmoth = 'DCLS'
      x = -43.557358
      y = -16.800173
      z = 0
      irot = 2489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2490
      theta1 = 90
      phi1 = -156.93024
      theta2 = 84.001132
      phi2 = -66.930236
      theta3 = 5.998868
      phi3 = 113.06976
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1742
      chmoth = 'DCLS'
      x = -42.951527
      y = -18.293594
      z = 0
      irot = 2490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2491
      theta1 = 90
      phi1 = -154.95221
      theta2 = 84.001132
      phi2 = -64.952214
      theta3 = 5.998868
      phi3 = 115.04779
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1743
      chmoth = 'DCLS'
      x = -42.294509
      y = -19.765215
      z = 0
      irot = 2491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2492
      theta1 = 90
      phi1 = -152.97419
      theta2 = 84.001132
      phi2 = -62.974192
      theta3 = 5.998868
      phi3 = 117.02581
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1744
      chmoth = 'DCLS'
      x = -41.587089
      y = -21.213281
      z = 0
      irot = 2492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2493
      theta1 = 90
      phi1 = -150.99617
      theta2 = 84.001132
      phi2 = -60.99617
      theta3 = 5.998868
      phi3 = 119.00383
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1745
      chmoth = 'DCLS'
      x = -40.830108
      y = -22.636066
      z = 0
      irot = 2493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2494
      theta1 = 90
      phi1 = -149.01815
      theta2 = 84.001132
      phi2 = -59.018148
      theta3 = 5.998868
      phi3 = 120.98185
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1746
      chmoth = 'DCLS'
      x = -40.02447
      y = -24.031876
      z = 0
      irot = 2494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2495
      theta1 = 90
      phi1 = -147.04013
      theta2 = 84.001132
      phi2 = -57.040126
      theta3 = 5.998868
      phi3 = 122.95987
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1747
      chmoth = 'DCLS'
      x = -39.171133
      y = -25.399047
      z = 0
      irot = 2495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2496
      theta1 = 90
      phi1 = -145.0621
      theta2 = 84.001132
      phi2 = -55.062104
      theta3 = 5.998868
      phi3 = 124.9379
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1748
      chmoth = 'DCLS'
      x = -38.271115
      y = -26.735949
      z = 0
      irot = 2496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2497
      theta1 = 90
      phi1 = -143.08408
      theta2 = 84.001132
      phi2 = -53.084082
      theta3 = 5.998868
      phi3 = 126.91592
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1749
      chmoth = 'DCLS'
      x = -37.32549
      y = -28.040989
      z = 0
      irot = 2497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2498
      theta1 = 90
      phi1 = -141.10606
      theta2 = 84.001132
      phi2 = -51.10606
      theta3 = 5.998868
      phi3 = 128.89394
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1750
      chmoth = 'DCLS'
      x = -36.335382
      y = -29.312612
      z = 0
      irot = 2498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2499
      theta1 = 90
      phi1 = -139.12804
      theta2 = 84.001132
      phi2 = -49.128038
      theta3 = 5.998868
      phi3 = 130.87196
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1751
      chmoth = 'DCLS'
      x = -35.301973
      y = -30.549303
      z = 0
      irot = 2499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2500
      theta1 = 90
      phi1 = -137.15002
      theta2 = 84.001132
      phi2 = -47.150016
      theta3 = 5.998868
      phi3 = 132.84998
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1752
      chmoth = 'DCLS'
      x = -34.226494
      y = -31.749588
      z = 0
      irot = 2500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2501
      theta1 = 90
      phi1 = -135.17199
      theta2 = 84.001132
      phi2 = -45.171995
      theta3 = 5.998868
      phi3 = 134.82801
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1753
      chmoth = 'DCLS'
      x = -33.110227
      y = -32.912036
      z = 0
      irot = 2501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2502
      theta1 = 90
      phi1 = -133.19397
      theta2 = 84.001132
      phi2 = -43.193973
      theta3 = 5.998868
      phi3 = 136.80603
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1754
      chmoth = 'DCLS'
      x = -31.954501
      y = -34.035262
      z = 0
      irot = 2502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2503
      theta1 = 90
      phi1 = -131.21595
      theta2 = 84.001132
      phi2 = -41.215951
      theta3 = 5.998868
      phi3 = 138.78405
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1755
      chmoth = 'DCLS'
      x = -30.760695
      y = -35.117928
      z = 0
      irot = 2503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2504
      theta1 = 90
      phi1 = -129.23793
      theta2 = 84.001132
      phi2 = -39.237929
      theta3 = 5.998868
      phi3 = 140.76207
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1756
      chmoth = 'DCLS'
      x = -29.530231
      y = -36.158743
      z = 0
      irot = 2504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2505
      theta1 = 90
      phi1 = -127.25991
      theta2 = 84.001132
      phi2 = -37.259907
      theta3 = 5.998868
      phi3 = 142.74009
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1757
      chmoth = 'DCLS'
      x = -28.264575
      y = -37.156467
      z = 0
      irot = 2505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2506
      theta1 = 90
      phi1 = -125.28188
      theta2 = 84.001132
      phi2 = -35.281885
      theta3 = 5.998868
      phi3 = 144.71812
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1758
      chmoth = 'DCLS'
      x = -26.965235
      y = -38.109911
      z = 0
      irot = 2506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2507
      theta1 = 90
      phi1 = -123.30386
      theta2 = 84.001132
      phi2 = -33.303863
      theta3 = 5.998868
      phi3 = 146.69614
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1759
      chmoth = 'DCLS'
      x = -25.633761
      y = -39.017939
      z = 0
      irot = 2507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2508
      theta1 = 90
      phi1 = -121.32584
      theta2 = 84.001132
      phi2 = -31.325841
      theta3 = 5.998868
      phi3 = 148.67416
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1760
      chmoth = 'DCLS'
      x = -24.271738
      y = -39.879468
      z = 0
      irot = 2508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2509
      theta1 = 90
      phi1 = -119.34782
      theta2 = 84.001132
      phi2 = -29.347819
      theta3 = 5.998868
      phi3 = 150.65218
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1761
      chmoth = 'DCLS'
      x = -22.88079
      y = -40.693472
      z = 0
      irot = 2509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2510
      theta1 = 90
      phi1 = -117.3698
      theta2 = 84.001132
      phi2 = -27.369797
      theta3 = 5.998868
      phi3 = 152.6302
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1762
      chmoth = 'DCLS'
      x = -21.462575
      y = -41.458981
      z = 0
      irot = 2510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2511
      theta1 = 90
      phi1 = -115.39177
      theta2 = 84.001132
      phi2 = -25.391775
      theta3 = 5.998868
      phi3 = 154.60823
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1763
      chmoth = 'DCLS'
      x = -20.018782
      y = -42.175082
      z = 0
      irot = 2511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2512
      theta1 = 90
      phi1 = -113.41375
      theta2 = 84.001132
      phi2 = -23.413753
      theta3 = 5.998868
      phi3 = 156.58625
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1764
      chmoth = 'DCLS'
      x = -18.551133
      y = -42.840923
      z = 0
      irot = 2512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2513
      theta1 = 90
      phi1 = -111.43573
      theta2 = 84.001132
      phi2 = -21.435731
      theta3 = 5.998868
      phi3 = 158.56427
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1765
      chmoth = 'DCLS'
      x = -17.061376
      y = -43.455709
      z = 0
      irot = 2513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2514
      theta1 = 90
      phi1 = -109.45771
      theta2 = 84.001132
      phi2 = -19.457709
      theta3 = 5.998868
      phi3 = 160.54229
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1766
      chmoth = 'DCLS'
      x = -15.551286
      y = -44.018709
      z = 0
      irot = 2514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2515
      theta1 = 90
      phi1 = -107.47969
      theta2 = 84.001132
      phi2 = -17.479687
      theta3 = 5.998868
      phi3 = 162.52031
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1767
      chmoth = 'DCLS'
      x = -14.022664
      y = -44.52925
      z = 0
      irot = 2515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2516
      theta1 = 90
      phi1 = -105.50166
      theta2 = 84.001132
      phi2 = -15.501665
      theta3 = 5.998868
      phi3 = 164.49834
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1768
      chmoth = 'DCLS'
      x = -12.477331
      y = -44.986725
      z = 0
      irot = 2516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2517
      theta1 = 90
      phi1 = -103.52364
      theta2 = 84.001132
      phi2 = -13.523643
      theta3 = 5.998868
      phi3 = 166.47636
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1769
      chmoth = 'DCLS'
      x = -10.917128
      y = -45.390589
      z = 0
      irot = 2517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2518
      theta1 = 90
      phi1 = -101.54562
      theta2 = 84.001132
      phi2 = -11.545621
      theta3 = 5.998868
      phi3 = 168.45438
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1770
      chmoth = 'DCLS'
      x = -9.343915
      y = -45.740359
      z = 0
      irot = 2518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2519
      theta1 = 90
      phi1 = -99.567599
      theta2 = 84.001132
      phi2 = -9.5675989
      theta3 = 5.998868
      phi3 = 170.4324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1771
      chmoth = 'DCLS'
      x = -7.7595668
      y = -46.03562
      z = 0
      irot = 2519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2520
      theta1 = 90
      phi1 = -97.589577
      theta2 = 84.001132
      phi2 = -7.5895769
      theta3 = 5.998868
      phi3 = 172.41042
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1772
      chmoth = 'DCLS'
      x = -6.1659713
      y = -46.27602
      z = 0
      irot = 2520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2521
      theta1 = 90
      phi1 = -95.611555
      theta2 = 84.001132
      phi2 = -5.6115549
      theta3 = 5.998868
      phi3 = 174.38845
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1773
      chmoth = 'DCLS'
      x = -4.5650277
      y = -46.461271
      z = 0
      irot = 2521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2522
      theta1 = 90
      phi1 = -93.633533
      theta2 = 84.001132
      phi2 = -3.633533
      theta3 = 5.998868
      phi3 = 176.36647
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1774
      chmoth = 'DCLS'
      x = -2.9586439
      y = -46.591154
      z = 0
      irot = 2522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2523
      theta1 = 90
      phi1 = -91.655511
      theta2 = 84.001132
      phi2 = -1.655511
      theta3 = 5.998868
      phi3 = 178.34449
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1775
      chmoth = 'DCLS'
      x = -1.3487342
      y = -46.665513
      z = 0
      irot = 2523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2524
      theta1 = 90
      phi1 = -89.677489
      theta2 = 84.001132
      phi2 = 0.32251099
      theta3 = 5.998868
      phi3 = -179.67749
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1776
      chmoth = 'DCLS'
      x = 0.26278281
      y = -46.68426
      z = 0
      irot = 2524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2525
      theta1 = 90
      phi1 = -87.699467
      theta2 = 84.001132
      phi2 = 2.300533
      theta3 = 5.998868
      phi3 = -177.69947
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1777
      chmoth = 'DCLS'
      x = 1.8739866
      y = -46.647373
      z = 0
      irot = 2525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2526
      theta1 = 90
      phi1 = -85.721445
      theta2 = 84.001132
      phi2 = 4.2785549
      theta3 = 5.998868
      phi3 = -175.72145
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1778
      chmoth = 'DCLS'
      x = 3.4829572
      y = -46.554895
      z = 0
      irot = 2526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2527
      theta1 = 90
      phi1 = -83.743423
      theta2 = 84.001132
      phi2 = 6.2565769
      theta3 = 5.998868
      phi3 = -173.74342
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1779
      chmoth = 'DCLS'
      x = 5.0877771
      y = -46.406936
      z = 0
      irot = 2527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2528
      theta1 = 90
      phi1 = -81.765401
      theta2 = 84.001132
      phi2 = 8.2345989
      theta3 = 5.998868
      phi3 = -171.7654
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1780
      chmoth = 'DCLS'
      x = 6.6865338
      y = -46.203674
      z = 0
      irot = 2528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2529
      theta1 = 90
      phi1 = -79.787379
      theta2 = 84.001132
      phi2 = 10.212621
      theta3 = 5.998868
      phi3 = -169.78738
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1781
      chmoth = 'DCLS'
      x = 8.277322
      y = -45.94535
      z = 0
      irot = 2529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2530
      theta1 = 90
      phi1 = -77.809357
      theta2 = 84.001132
      phi2 = 12.190643
      theta3 = 5.998868
      phi3 = -167.80936
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1782
      chmoth = 'DCLS'
      x = 9.8582459
      y = -45.632272
      z = 0
      irot = 2530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2531
      theta1 = 90
      phi1 = -75.831335
      theta2 = 84.001132
      phi2 = 14.168665
      theta3 = 5.998868
      phi3 = -165.83134
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1783
      chmoth = 'DCLS'
      x = 11.427422
      y = -45.264813
      z = 0
      irot = 2531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2532
      theta1 = 90
      phi1 = -73.853313
      theta2 = 84.001132
      phi2 = 16.146687
      theta3 = 5.998868
      phi3 = -163.85331
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1784
      chmoth = 'DCLS'
      x = 12.982979
      y = -44.843411
      z = 0
      irot = 2532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2533
      theta1 = 90
      phi1 = -71.875291
      theta2 = 84.001132
      phi2 = 18.124709
      theta3 = 5.998868
      phi3 = -161.87529
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1785
      chmoth = 'DCLS'
      x = 14.523064
      y = -44.368568
      z = 0
      irot = 2533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2534
      theta1 = 90
      phi1 = -69.897269
      theta2 = 84.001132
      phi2 = 20.102731
      theta3 = 5.998868
      phi3 = -159.89727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1786
      chmoth = 'DCLS'
      x = 16.045842
      y = -43.84085
      z = 0
      irot = 2534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2535
      theta1 = 90
      phi1 = -67.919247
      theta2 = 84.001132
      phi2 = 22.080753
      theta3 = 5.998868
      phi3 = -157.91925
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1787
      chmoth = 'DCLS'
      x = 17.549498
      y = -43.260887
      z = 0
      irot = 2535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2536
      theta1 = 90
      phi1 = -65.941225
      theta2 = 84.001132
      phi2 = 24.058775
      theta3 = 5.998868
      phi3 = -155.94123
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1788
      chmoth = 'DCLS'
      x = 19.03224
      y = -42.629369
      z = 0
      irot = 2536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2537
      theta1 = 90
      phi1 = -63.963203
      theta2 = 84.001132
      phi2 = 26.036797
      theta3 = 5.998868
      phi3 = -153.9632
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1789
      chmoth = 'DCLS'
      x = 20.492301
      y = -41.947048
      z = 0
      irot = 2537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2538
      theta1 = 90
      phi1 = -61.985181
      theta2 = 84.001132
      phi2 = 28.014819
      theta3 = 5.998868
      phi3 = -151.98518
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1790
      chmoth = 'DCLS'
      x = 21.92794
      y = -41.214738
      z = 0
      irot = 2538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2539
      theta1 = 90
      phi1 = -60.007159
      theta2 = 84.001132
      phi2 = 29.992841
      theta3 = 5.998868
      phi3 = -150.00716
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1791
      chmoth = 'DCLS'
      x = 23.337448
      y = -40.433312
      z = 0
      irot = 2539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2540
      theta1 = 90
      phi1 = -58.029137
      theta2 = 84.001132
      phi2 = 31.970863
      theta3 = 5.998868
      phi3 = -148.02914
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1792
      chmoth = 'DCLS'
      x = 24.719144
      y = -39.603701
      z = 0
      irot = 2540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2541
      theta1 = 90
      phi1 = -56.051115
      theta2 = 84.001132
      phi2 = 33.948885
      theta3 = 5.998868
      phi3 = -146.05112
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1793
      chmoth = 'DCLS'
      x = 26.071382
      y = -38.726894
      z = 0
      irot = 2541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2542
      theta1 = 90
      phi1 = -54.073093
      theta2 = 84.001132
      phi2 = 35.926907
      theta3 = 5.998868
      phi3 = -144.07309
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1794
      chmoth = 'DCLS'
      x = 27.39255
      y = -37.803934
      z = 0
      irot = 2542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2543
      theta1 = 90
      phi1 = -52.095071
      theta2 = 84.001132
      phi2 = 37.904929
      theta3 = 5.998868
      phi3 = -142.09507
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1795
      chmoth = 'DCLS'
      x = 28.681073
      y = -36.835923
      z = 0
      irot = 2543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2544
      theta1 = 90
      phi1 = -50.117049
      theta2 = 84.001132
      phi2 = 39.882951
      theta3 = 5.998868
      phi3 = -140.11705
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1796
      chmoth = 'DCLS'
      x = 29.935417
      y = -35.824015
      z = 0
      irot = 2544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2545
      theta1 = 90
      phi1 = -48.139027
      theta2 = 84.001132
      phi2 = 41.860973
      theta3 = 5.998868
      phi3 = -138.13903
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1797
      chmoth = 'DCLS'
      x = 31.154087
      y = -34.769413
      z = 0
      irot = 2545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2546
      theta1 = 90
      phi1 = -46.161005
      theta2 = 84.001132
      phi2 = 43.838995
      theta3 = 5.998868
      phi3 = -136.16101
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1798
      chmoth = 'DCLS'
      x = 32.335629
      y = -33.673377
      z = 0
      irot = 2546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2547
      theta1 = 90
      phi1 = -44.182984
      theta2 = 84.001132
      phi2 = 45.817016
      theta3 = 5.998868
      phi3 = -134.18298
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1799
      chmoth = 'DCLS'
      x = 33.478637
      y = -32.537211
      z = 0
      irot = 2547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2548
      theta1 = 90
      phi1 = -42.204962
      theta2 = 84.001132
      phi2 = 47.795038
      theta3 = 5.998868
      phi3 = -132.20496
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1800
      chmoth = 'DCLS'
      x = 34.581747
      y = -31.36227
      z = 0
      irot = 2548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2549
      theta1 = 90
      phi1 = -40.22694
      theta2 = 84.001132
      phi2 = 49.77306
      theta3 = 5.998868
      phi3 = -130.22694
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1801
      chmoth = 'DCLS'
      x = 35.643646
      y = -30.149955
      z = 0
      irot = 2549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2550
      theta1 = 90
      phi1 = -38.248918
      theta2 = 84.001132
      phi2 = 51.751082
      theta3 = 5.998868
      phi3 = -128.24892
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1802
      chmoth = 'DCLS'
      x = 36.663067
      y = -28.901708
      z = 0
      irot = 2550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2551
      theta1 = 90
      phi1 = -36.270896
      theta2 = 84.001132
      phi2 = 53.729104
      theta3 = 5.998868
      phi3 = -126.2709
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1803
      chmoth = 'DCLS'
      x = 37.638796
      y = -27.61902
      z = 0
      irot = 2551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2552
      theta1 = 90
      phi1 = -34.292874
      theta2 = 84.001132
      phi2 = 55.707126
      theta3 = 5.998868
      phi3 = -124.29287
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1804
      chmoth = 'DCLS'
      x = 38.569671
      y = -26.303417
      z = 0
      irot = 2552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2553
      theta1 = 90
      phi1 = -32.314852
      theta2 = 84.001132
      phi2 = 57.685148
      theta3 = 5.998868
      phi3 = -122.31485
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1805
      chmoth = 'DCLS'
      x = 39.454581
      y = -24.956467
      z = 0
      irot = 2553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2554
      theta1 = 90
      phi1 = -30.33683
      theta2 = 84.001132
      phi2 = 59.66317
      theta3 = 5.998868
      phi3 = -120.33683
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1806
      chmoth = 'DCLS'
      x = 40.292473
      y = -23.579777
      z = 0
      irot = 2554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2555
      theta1 = 90
      phi1 = -28.358808
      theta2 = 84.001132
      phi2 = 61.641192
      theta3 = 5.998868
      phi3 = -118.35881
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1807
      chmoth = 'DCLS'
      x = 41.082347
      y = -22.174986
      z = 0
      irot = 2555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2556
      theta1 = 90
      phi1 = -26.380786
      theta2 = 84.001132
      phi2 = 63.619214
      theta3 = 5.998868
      phi3 = -116.38079
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1808
      chmoth = 'DCLS'
      x = 41.823262
      y = -20.743769
      z = 0
      irot = 2556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2557
      theta1 = 90
      phi1 = -24.402764
      theta2 = 84.001132
      phi2 = 65.597236
      theta3 = 5.998868
      phi3 = -114.40276
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1809
      chmoth = 'DCLS'
      x = 42.514336
      y = -19.287831
      z = 0
      irot = 2557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2558
      theta1 = 90
      phi1 = -22.424742
      theta2 = 84.001132
      phi2 = 67.575258
      theta3 = 5.998868
      phi3 = -112.42474
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1810
      chmoth = 'DCLS'
      x = 43.154745
      y = -17.808907
      z = 0
      irot = 2558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2559
      theta1 = 90
      phi1 = -20.44672
      theta2 = 84.001132
      phi2 = 69.55328
      theta3 = 5.998868
      phi3 = -110.44672
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1811
      chmoth = 'DCLS'
      x = 43.743726
      y = -16.308761
      z = 0
      irot = 2559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2560
      theta1 = 90
      phi1 = -18.468698
      theta2 = 84.001132
      phi2 = 71.531302
      theta3 = 5.998868
      phi3 = -108.4687
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1812
      chmoth = 'DCLS'
      x = 44.280576
      y = -14.789178
      z = 0
      irot = 2560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2561
      theta1 = 90
      phi1 = -16.490676
      theta2 = 84.001132
      phi2 = 73.509324
      theta3 = 5.998868
      phi3 = -106.49068
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1813
      chmoth = 'DCLS'
      x = 44.764657
      y = -13.251972
      z = 0
      irot = 2561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2562
      theta1 = 90
      phi1 = -14.512654
      theta2 = 84.001132
      phi2 = 75.487346
      theta3 = 5.998868
      phi3 = -104.51265
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1814
      chmoth = 'DCLS'
      x = 45.19539
      y = -11.698972
      z = 0
      irot = 2562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2563
      theta1 = 90
      phi1 = -12.534632
      theta2 = 84.001132
      phi2 = 77.465368
      theta3 = 5.998868
      phi3 = -102.53463
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1815
      chmoth = 'DCLS'
      x = 45.572263
      y = -10.132031
      z = 0
      irot = 2563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2564
      theta1 = 90
      phi1 = -10.55661
      theta2 = 84.001132
      phi2 = 79.44339
      theta3 = 5.998868
      phi3 = -100.55661
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1816
      chmoth = 'DCLS'
      x = 45.894827
      y = -8.5530151
      z = 0
      irot = 2564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2565
      theta1 = 90
      phi1 = -8.5785879
      theta2 = 84.001132
      phi2 = 81.421412
      theta3 = 5.998868
      phi3 = -98.578588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1817
      chmoth = 'DCLS'
      x = 46.162697
      y = -6.9638065
      z = 0
      irot = 2565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2566
      theta1 = 90
      phi1 = -6.6005659
      theta2 = 84.001132
      phi2 = 83.399434
      theta3 = 5.998868
      phi3 = -96.600566
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1818
      chmoth = 'DCLS'
      x = 46.375555
      y = -5.3662989
      z = 0
      irot = 2566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2567
      theta1 = 90
      phi1 = -4.622544
      theta2 = 84.001132
      phi2 = 85.377456
      theta3 = 5.998868
      phi3 = -94.622544
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1819
      chmoth = 'DCLS'
      x = 46.533145
      y = -3.7623963
      z = 0
      irot = 2567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2568
      theta1 = 90
      phi1 = -2.644522
      theta2 = 84.001132
      phi2 = 87.355478
      theta3 = 5.998868
      phi3 = -92.644522
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1820
      chmoth = 'DCLS'
      x = 46.635281
      y = -2.1540099
      z = 0
      irot = 2568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2569
      theta1 = 90.03493
      phi1 = 0
      theta2 = 83.824201
      phi2 = 89.99622
      theta3 = 6.1758984
      phi3 = -89.677198
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1821
      chmoth = 'DCLS'
      x = 48.0728
      y = 0.2705
      z = 0
      irot = 2569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2570
      theta1 = 90.03493
      phi1 = 1.978022
      theta2 = 83.824201
      phi2 = 91.974242
      theta3 = 6.1758984
      phi3 = -87.699176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1822
      chmoth = 'DCLS'
      x = 48.034819
      y = 1.9296263
      z = 0
      irot = 2570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2571
      theta1 = 90.03493
      phi1 = 3.956044
      theta2 = 83.824201
      phi2 = 93.952264
      theta3 = 6.1758984
      phi3 = -85.721154
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1823
      chmoth = 'DCLS'
      x = 47.939594
      y = 3.586453
      z = 0
      irot = 2571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2572
      theta1 = 90.03493
      phi1 = 5.9340659
      theta2 = 83.824201
      phi2 = 95.930286
      theta3 = 6.1758984
      phi3 = -83.743132
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1824
      chmoth = 'DCLS'
      x = 47.787238
      y = 5.2390056
      z = 0
      irot = 2572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2573
      theta1 = 90.03493
      phi1 = 7.9120879
      theta2 = 83.824201
      phi2 = 97.908308
      theta3 = 6.1758984
      phi3 = -81.76511
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1825
      chmoth = 'DCLS'
      x = 47.577933
      y = 6.8853148
      z = 0
      irot = 2573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2574
      theta1 = 90.03493
      phi1 = 9.8901099
      theta2 = 83.824201
      phi2 = 99.88633
      theta3 = 6.1758984
      phi3 = -79.787088
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1826
      chmoth = 'DCLS'
      x = 47.311929
      y = 8.5234187
      z = 0
      irot = 2574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2575
      theta1 = 90.03493
      phi1 = 11.868132
      theta2 = 83.824201
      phi2 = 101.86435
      theta3 = 6.1758984
      phi3 = -77.809066
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1827
      chmoth = 'DCLS'
      x = 46.989542
      y = 10.151365
      z = 0
      irot = 2575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2576
      theta1 = 90.03493
      phi1 = 13.846154
      theta2 = 83.824201
      phi2 = 103.84237
      theta3 = 6.1758984
      phi3 = -75.831044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1828
      chmoth = 'DCLS'
      x = 46.611157
      y = 11.767214
      z = 0
      irot = 2576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2577
      theta1 = 90.03493
      phi1 = 15.824176
      theta2 = 83.824201
      phi2 = 105.8204
      theta3 = 6.1758984
      phi3 = -73.853022
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1829
      chmoth = 'DCLS'
      x = 46.177224
      y = 13.369039
      z = 0
      irot = 2577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2578
      theta1 = 90.03493
      phi1 = 17.802198
      theta2 = 83.824201
      phi2 = 107.79842
      theta3 = 6.1758984
      phi3 = -71.875
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1830
      chmoth = 'DCLS'
      x = 45.688262
      y = 14.954933
      z = 0
      irot = 2578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2579
      theta1 = 90.03493
      phi1 = 19.78022
      theta2 = 83.824201
      phi2 = 109.77644
      theta3 = 6.1758984
      phi3 = -69.896978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1831
      chmoth = 'DCLS'
      x = 45.144851
      y = 16.523004
      z = 0
      irot = 2579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2580
      theta1 = 90.03493
      phi1 = 21.758242
      theta2 = 83.824201
      phi2 = 111.75446
      theta3 = 6.1758984
      phi3 = -67.918956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1832
      chmoth = 'DCLS'
      x = 44.547641
      y = 18.071385
      z = 0
      irot = 2580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2581
      theta1 = 90.03493
      phi1 = 23.736264
      theta2 = 83.824201
      phi2 = 113.73248
      theta3 = 6.1758984
      phi3 = -65.940934
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1833
      chmoth = 'DCLS'
      x = 43.897342
      y = 19.598229
      z = 0
      irot = 2581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2582
      theta1 = 90.03493
      phi1 = 25.714286
      theta2 = 83.824201
      phi2 = 115.71051
      theta3 = 6.1758984
      phi3 = -63.962912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1834
      chmoth = 'DCLS'
      x = 43.194731
      y = 21.101718
      z = 0
      irot = 2582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2583
      theta1 = 90.03493
      phi1 = 27.692308
      theta2 = 83.824201
      phi2 = 117.68853
      theta3 = 6.1758984
      phi3 = -61.98489
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1835
      chmoth = 'DCLS'
      x = 42.440643
      y = 22.58006
      z = 0
      irot = 2583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2584
      theta1 = 90.03493
      phi1 = 29.67033
      theta2 = 83.824201
      phi2 = 119.66655
      theta3 = 6.1758984
      phi3 = -60.006868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1836
      chmoth = 'DCLS'
      x = 41.635978
      y = 24.031493
      z = 0
      irot = 2584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2585
      theta1 = 90.03493
      phi1 = 31.648352
      theta2 = 83.824201
      phi2 = 121.64457
      theta3 = 6.1758984
      phi3 = -58.028846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1837
      chmoth = 'DCLS'
      x = 40.781694
      y = 25.454286
      z = 0
      irot = 2585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2586
      theta1 = 90.03493
      phi1 = 33.626374
      theta2 = 83.824201
      phi2 = 123.62259
      theta3 = 6.1758984
      phi3 = -56.050824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1838
      chmoth = 'DCLS'
      x = 39.87881
      y = 26.846746
      z = 0
      irot = 2586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2587
      theta1 = 90.03493
      phi1 = 35.604396
      theta2 = 83.824201
      phi2 = 125.60062
      theta3 = 6.1758984
      phi3 = -54.072802
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1839
      chmoth = 'DCLS'
      x = 38.928402
      y = 28.207211
      z = 0
      irot = 2587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2588
      theta1 = 90.03493
      phi1 = 37.582418
      theta2 = 83.824201
      phi2 = 127.57864
      theta3 = 6.1758984
      phi3 = -52.09478
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1840
      chmoth = 'DCLS'
      x = 37.931602
      y = 29.534062
      z = 0
      irot = 2588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2589
      theta1 = 90.03493
      phi1 = 39.56044
      theta2 = 83.824201
      phi2 = 129.55666
      theta3 = 6.1758984
      phi3 = -50.116758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1841
      chmoth = 'DCLS'
      x = 36.889599
      y = 30.825716
      z = 0
      irot = 2589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2590
      theta1 = 90.03493
      phi1 = 41.538462
      theta2 = 83.824201
      phi2 = 131.53468
      theta3 = 6.1758984
      phi3 = -48.138736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1842
      chmoth = 'DCLS'
      x = 35.803633
      y = 32.080635
      z = 0
      irot = 2590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2591
      theta1 = 90.03493
      phi1 = 43.516484
      theta2 = 83.824201
      phi2 = 133.5127
      theta3 = 6.1758984
      phi3 = -46.160714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1843
      chmoth = 'DCLS'
      x = 34.674999
      y = 33.297323
      z = 0
      irot = 2591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2592
      theta1 = 90.03493
      phi1 = 45.494505
      theta2 = 83.824201
      phi2 = 135.49073
      theta3 = 6.1758984
      phi3 = -44.182692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1844
      chmoth = 'DCLS'
      x = 33.505043
      y = 34.474329
      z = 0
      irot = 2592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2593
      theta1 = 90.03493
      phi1 = 47.472527
      theta2 = 83.824201
      phi2 = 137.46875
      theta3 = 6.1758984
      phi3 = -42.20467
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1845
      chmoth = 'DCLS'
      x = 32.295158
      y = 35.610252
      z = 0
      irot = 2593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2594
      theta1 = 90.03493
      phi1 = 49.450549
      theta2 = 83.824201
      phi2 = 139.44677
      theta3 = 6.1758984
      phi3 = -40.226648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1846
      chmoth = 'DCLS'
      x = 31.046786
      y = 36.703738
      z = 0
      irot = 2594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2595
      theta1 = 90.03493
      phi1 = 51.428571
      theta2 = 83.824201
      phi2 = 141.42479
      theta3 = 6.1758984
      phi3 = -38.248626
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1847
      chmoth = 'DCLS'
      x = 29.761415
      y = 37.753482
      z = 0
      irot = 2595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2596
      theta1 = 90.03493
      phi1 = 53.406593
      theta2 = 83.824201
      phi2 = 143.40281
      theta3 = 6.1758984
      phi3 = -36.270604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1848
      chmoth = 'DCLS'
      x = 28.440577
      y = 38.758236
      z = 0
      irot = 2596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2597
      theta1 = 90.03493
      phi1 = 55.384615
      theta2 = 83.824201
      phi2 = 145.38084
      theta3 = 6.1758984
      phi3 = -34.292582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1849
      chmoth = 'DCLS'
      x = 27.085846
      y = 39.7168
      z = 0
      irot = 2597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2598
      theta1 = 90.03493
      phi1 = 57.362637
      theta2 = 83.824201
      phi2 = 147.35886
      theta3 = 6.1758984
      phi3 = -32.31456
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1850
      chmoth = 'DCLS'
      x = 25.698836
      y = 40.628033
      z = 0
      irot = 2598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2599
      theta1 = 90.03493
      phi1 = 59.340659
      theta2 = 83.824201
      phi2 = 149.33688
      theta3 = 6.1758984
      phi3 = -30.336538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1851
      chmoth = 'DCLS'
      x = 24.2812
      y = 41.490849
      z = 0
      irot = 2599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2600
      theta1 = 90.03493
      phi1 = 61.318681
      theta2 = 83.824201
      phi2 = 151.3149
      theta3 = 6.1758984
      phi3 = -28.358516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1852
      chmoth = 'DCLS'
      x = 22.834628
      y = 42.30422
      z = 0
      irot = 2600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2601
      theta1 = 90.03493
      phi1 = 63.296703
      theta2 = 83.824201
      phi2 = 153.29292
      theta3 = 6.1758984
      phi3 = -26.380494
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1853
      chmoth = 'DCLS'
      x = 21.360843
      y = 43.067176
      z = 0
      irot = 2601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2602
      theta1 = 90.03493
      phi1 = 65.274725
      theta2 = 83.824201
      phi2 = 155.27095
      theta3 = 6.1758984
      phi3 = -24.402472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1854
      chmoth = 'DCLS'
      x = 19.861603
      y = 43.778808
      z = 0
      irot = 2602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2603
      theta1 = 90.03493
      phi1 = 67.252747
      theta2 = 83.824201
      phi2 = 157.24897
      theta3 = 6.1758984
      phi3 = -22.42445
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1855
      chmoth = 'DCLS'
      x = 18.338693
      y = 44.438268
      z = 0
      irot = 2603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2604
      theta1 = 90.03493
      phi1 = 69.230769
      theta2 = 83.824201
      phi2 = 159.22699
      theta3 = 6.1758984
      phi3 = -20.446428
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1856
      chmoth = 'DCLS'
      x = 16.793928
      y = 45.044769
      z = 0
      irot = 2604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2605
      theta1 = 90.03493
      phi1 = 71.208791
      theta2 = 83.824201
      phi2 = 161.20501
      theta3 = 6.1758984
      phi3 = -18.468406
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1857
      chmoth = 'DCLS'
      x = 15.22915
      y = 45.597591
      z = 0
      irot = 2605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2606
      theta1 = 90.03493
      phi1 = 73.186813
      theta2 = 83.824201
      phi2 = 163.18303
      theta3 = 6.1758984
      phi3 = -16.490384
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1858
      chmoth = 'DCLS'
      x = 13.646222
      y = 46.096072
      z = 0
      irot = 2606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2607
      theta1 = 90.03493
      phi1 = 75.164835
      theta2 = 83.824201
      phi2 = 165.16106
      theta3 = 6.1758984
      phi3 = -14.512362
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1859
      chmoth = 'DCLS'
      x = 12.047033
      y = 46.53962
      z = 0
      irot = 2607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2608
      theta1 = 90.03493
      phi1 = 77.142857
      theta2 = 83.824201
      phi2 = 167.13908
      theta3 = 6.1758984
      phi3 = -12.53434
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1860
      chmoth = 'DCLS'
      x = 10.433486
      y = 46.927706
      z = 0
      irot = 2608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2609
      theta1 = 90.03493
      phi1 = 79.120879
      theta2 = 83.824201
      phi2 = 169.1171
      theta3 = 6.1758984
      phi3 = -10.556318
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1861
      chmoth = 'DCLS'
      x = 8.8075062
      y = 47.259868
      z = 0
      irot = 2609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2610
      theta1 = 90.03493
      phi1 = 81.098901
      theta2 = 83.824201
      phi2 = 171.09512
      theta3 = 6.1758984
      phi3 = -8.5782964
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1862
      chmoth = 'DCLS'
      x = 7.17103
      y = 47.535709
      z = 0
      irot = 2610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2611
      theta1 = 90.03493
      phi1 = 83.076923
      theta2 = 83.824201
      phi2 = 173.07314
      theta3 = 6.1758984
      phi3 = -6.6002744
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1863
      chmoth = 'DCLS'
      x = 5.526008
      y = 47.7549
      z = 0
      irot = 2611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2612
      theta1 = 90.03493
      phi1 = 85.054945
      theta2 = 83.824201
      phi2 = 175.05117
      theta3 = 6.1758984
      phi3 = -4.6222525
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1864
      chmoth = 'DCLS'
      x = 3.8744005
      y = 47.917182
      z = 0
      irot = 2612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2613
      theta1 = 90.03493
      phi1 = 87.032967
      theta2 = 83.824201
      phi2 = 177.02919
      theta3 = 6.1758984
      phi3 = -2.6442305
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1865
      chmoth = 'DCLS'
      x = 2.2181758
      y = 48.022359
      z = 0
      irot = 2613
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2614
      theta1 = 90.03493
      phi1 = 89.010989
      theta2 = 83.824201
      phi2 = 179.00721
      theta3 = 6.1758984
      phi3 = -0.66620849
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1866
      chmoth = 'DCLS'
      x = 0.55930764
      y = 48.070307
      z = 0
      irot = 2614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2615
      theta1 = 90.03493
      phi1 = 90.989011
      theta2 = 83.824201
      phi2 = -179.01477
      theta3 = 6.1758984
      phi3 = 1.3118135
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1867
      chmoth = 'DCLS'
      x = -1.100227
      y = 48.060969
      z = 0
      irot = 2615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2616
      theta1 = 90.03493
      phi1 = 92.967033
      theta2 = 83.824201
      phi2 = -177.03675
      theta3 = 6.1758984
      phi3 = 3.2898355
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1868
      chmoth = 'DCLS'
      x = -2.7584506
      y = 47.994356
      z = 0
      irot = 2616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2617
      theta1 = 90.03493
      phi1 = 94.945055
      theta2 = 83.824201
      phi2 = -175.05872
      theta3 = 6.1758984
      phi3 = 5.2678574
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1869
      chmoth = 'DCLS'
      x = -4.4133868
      y = 47.870547
      z = 0
      irot = 2617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2618
      theta1 = 90.03493
      phi1 = 96.923077
      theta2 = 83.824201
      phi2 = -173.0807
      theta3 = 6.1758984
      phi3 = 7.2458794
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1870
      chmoth = 'DCLS'
      x = -6.0630635
      y = 47.68969
      z = 0
      irot = 2618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2619
      theta1 = 90.03493
      phi1 = 98.901099
      theta2 = 83.824201
      phi2 = -171.10268
      theta3 = 6.1758984
      phi3 = 9.2239014
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1871
      chmoth = 'DCLS'
      x = -7.7055147
      y = 47.452
      z = 0
      irot = 2619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2620
      theta1 = 90.03493
      phi1 = 100.87912
      theta2 = 83.824201
      phi2 = -169.12466
      theta3 = 6.1758984
      phi3 = 11.201923
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1872
      chmoth = 'DCLS'
      x = -9.3387831
      y = 47.157761
      z = 0
      irot = 2620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2621
      theta1 = 90.03493
      phi1 = 102.85714
      theta2 = 83.824201
      phi2 = -167.14664
      theta3 = 6.1758984
      phi3 = 13.179945
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1873
      chmoth = 'DCLS'
      x = -10.960922
      y = 46.807323
      z = 0
      irot = 2621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2622
      theta1 = 90.03493
      phi1 = 104.83516
      theta2 = 83.824201
      phi2 = -165.16861
      theta3 = 6.1758984
      phi3 = 15.157967
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1874
      chmoth = 'DCLS'
      x = -12.569999
      y = 46.401103
      z = 0
      irot = 2622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2623
      theta1 = 90.03493
      phi1 = 106.81319
      theta2 = 83.824201
      phi2 = -163.19059
      theta3 = 6.1758984
      phi3 = 17.135989
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1875
      chmoth = 'DCLS'
      x = -14.164096
      y = 45.939587
      z = 0
      irot = 2623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2624
      theta1 = 90.03493
      phi1 = 108.79121
      theta2 = 83.824201
      phi2 = -161.21257
      theta3 = 6.1758984
      phi3 = 19.114011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1876
      chmoth = 'DCLS'
      x = -15.741314
      y = 45.423323
      z = 0
      irot = 2624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2625
      theta1 = 90.03493
      phi1 = 110.76923
      theta2 = 83.824201
      phi2 = -159.23455
      theta3 = 6.1758984
      phi3 = 21.092033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1877
      chmoth = 'DCLS'
      x = -17.299772
      y = 44.852928
      z = 0
      irot = 2625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2626
      theta1 = 90.03493
      phi1 = 112.74725
      theta2 = 83.824201
      phi2 = -157.25653
      theta3 = 6.1758984
      phi3 = 23.070055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1878
      chmoth = 'DCLS'
      x = -18.837613
      y = 44.229081
      z = 0
      irot = 2626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2627
      theta1 = 90.03493
      phi1 = 114.72527
      theta2 = 83.824201
      phi2 = -155.2785
      theta3 = 6.1758984
      phi3 = 25.048077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1879
      chmoth = 'DCLS'
      x = -20.353006
      y = 43.552525
      z = 0
      irot = 2627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2628
      theta1 = 90.03493
      phi1 = 116.7033
      theta2 = 83.824201
      phi2 = -153.30048
      theta3 = 6.1758984
      phi3 = 27.026099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1880
      chmoth = 'DCLS'
      x = -21.844143
      y = 42.824066
      z = 0
      irot = 2628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2629
      theta1 = 90.03493
      phi1 = 118.68132
      theta2 = 83.824201
      phi2 = -151.32246
      theta3 = 6.1758984
      phi3 = 29.004121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1881
      chmoth = 'DCLS'
      x = -23.309249
      y = 42.044574
      z = 0
      irot = 2629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2630
      theta1 = 90.03493
      phi1 = 120.65934
      theta2 = 83.824201
      phi2 = -149.34444
      theta3 = 6.1758984
      phi3 = 30.982143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1882
      chmoth = 'DCLS'
      x = -24.746576
      y = 41.214976
      z = 0
      irot = 2630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2631
      theta1 = 90.03493
      phi1 = 122.63736
      theta2 = 83.824201
      phi2 = -147.36642
      theta3 = 6.1758984
      phi3 = 32.960165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1883
      chmoth = 'DCLS'
      x = -26.154412
      y = 40.336261
      z = 0
      irot = 2631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2632
      theta1 = 90.03493
      phi1 = 124.61538
      theta2 = 83.824201
      phi2 = -145.3884
      theta3 = 6.1758984
      phi3 = 34.938187
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1884
      chmoth = 'DCLS'
      x = -27.53108
      y = 39.409477
      z = 0
      irot = 2632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2633
      theta1 = 90.03493
      phi1 = 126.59341
      theta2 = 83.824201
      phi2 = -143.41037
      theta3 = 6.1758984
      phi3 = 36.916209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1885
      chmoth = 'DCLS'
      x = -28.874938
      y = 38.435728
      z = 0
      irot = 2633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2634
      theta1 = 90.03493
      phi1 = 128.57143
      theta2 = 83.824201
      phi2 = -141.43235
      theta3 = 6.1758984
      phi3 = 38.894231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1886
      chmoth = 'DCLS'
      x = -30.184386
      y = 37.416174
      z = 0
      irot = 2634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2635
      theta1 = 90.03493
      phi1 = 130.54945
      theta2 = 83.824201
      phi2 = -139.45433
      theta3 = 6.1758984
      phi3 = 40.872253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1887
      chmoth = 'DCLS'
      x = -31.457862
      y = 36.352031
      z = 0
      irot = 2635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2636
      theta1 = 90.03493
      phi1 = 132.52747
      theta2 = 83.824201
      phi2 = -137.47631
      theta3 = 6.1758984
      phi3 = 42.850275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1888
      chmoth = 'DCLS'
      x = -32.693849
      y = 35.244567
      z = 0
      irot = 2636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2637
      theta1 = 90.03493
      phi1 = 134.50549
      theta2 = 83.824201
      phi2 = -135.49829
      theta3 = 6.1758984
      phi3 = 44.828297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1889
      chmoth = 'DCLS'
      x = -33.890875
      y = 34.0951
      z = 0
      irot = 2637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2638
      theta1 = 90.03493
      phi1 = 136.48352
      theta2 = 83.824201
      phi2 = -133.52026
      theta3 = 6.1758984
      phi3 = 46.806319
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1890
      chmoth = 'DCLS'
      x = -35.047512
      y = 32.905002
      z = 0
      irot = 2638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2639
      theta1 = 90.03493
      phi1 = 138.46154
      theta2 = 83.824201
      phi2 = -131.54224
      theta3 = 6.1758984
      phi3 = 48.784341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1891
      chmoth = 'DCLS'
      x = -36.162382
      y = 31.675691
      z = 0
      irot = 2639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2640
      theta1 = 90.03493
      phi1 = 140.43956
      theta2 = 83.824201
      phi2 = -129.56422
      theta3 = 6.1758984
      phi3 = 50.762363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1892
      chmoth = 'DCLS'
      x = -37.234157
      y = 30.408631
      z = 0
      irot = 2640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2641
      theta1 = 90.03493
      phi1 = 142.41758
      theta2 = 83.824201
      phi2 = -127.5862
      theta3 = 6.1758984
      phi3 = 52.740385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1893
      chmoth = 'DCLS'
      x = -38.261559
      y = 29.105332
      z = 0
      irot = 2641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2642
      theta1 = 90.03493
      phi1 = 144.3956
      theta2 = 83.824201
      phi2 = -125.60818
      theta3 = 6.1758984
      phi3 = 54.718407
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1894
      chmoth = 'DCLS'
      x = -39.243364
      y = 27.767348
      z = 0
      irot = 2642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2643
      theta1 = 90.03493
      phi1 = 146.37363
      theta2 = 83.824201
      phi2 = -123.63015
      theta3 = 6.1758984
      phi3 = 56.696429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1895
      chmoth = 'DCLS'
      x = -40.178403
      y = 26.396273
      z = 0
      irot = 2643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2644
      theta1 = 90.03493
      phi1 = 148.35165
      theta2 = 83.824201
      phi2 = -121.65213
      theta3 = 6.1758984
      phi3 = 58.674451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1896
      chmoth = 'DCLS'
      x = -41.065559
      y = 24.993741
      z = 0
      irot = 2644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2645
      theta1 = 90.03493
      phi1 = 150.32967
      theta2 = 83.824201
      phi2 = -119.67411
      theta3 = 6.1758984
      phi3 = 60.652473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1897
      chmoth = 'DCLS'
      x = -41.903777
      y = 23.561424
      z = 0
      irot = 2645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2646
      theta1 = 90.03493
      phi1 = 152.30769
      theta2 = 83.824201
      phi2 = -117.69609
      theta3 = 6.1758984
      phi3 = 62.630495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1898
      chmoth = 'DCLS'
      x = -42.692058
      y = 22.101028
      z = 0
      irot = 2646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2647
      theta1 = 90.03493
      phi1 = 154.28571
      theta2 = 83.824201
      phi2 = -115.71807
      theta3 = 6.1758984
      phi3 = 64.608517
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1899
      chmoth = 'DCLS'
      x = -43.429462
      y = 20.614294
      z = 0
      irot = 2647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2648
      theta1 = 90.03493
      phi1 = 156.26374
      theta2 = 83.824201
      phi2 = -113.74004
      theta3 = 6.1758984
      phi3 = 66.586539
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1900
      chmoth = 'DCLS'
      x = -44.11511
      y = 19.102994
      z = 0
      irot = 2648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2649
      theta1 = 90.03493
      phi1 = 158.24176
      theta2 = 83.824201
      phi2 = -111.76202
      theta3 = 6.1758984
      phi3 = 68.564561
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1901
      chmoth = 'DCLS'
      x = -44.748185
      y = 17.568928
      z = 0
      irot = 2649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2650
      theta1 = 90.03493
      phi1 = 160.21978
      theta2 = 83.824201
      phi2 = -109.784
      theta3 = 6.1758984
      phi3 = 70.542583
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1902
      chmoth = 'DCLS'
      x = -45.327933
      y = 16.013924
      z = 0
      irot = 2650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2651
      theta1 = 90.03493
      phi1 = 162.1978
      theta2 = 83.824201
      phi2 = -107.80598
      theta3 = 6.1758984
      phi3 = 72.520605
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1903
      chmoth = 'DCLS'
      x = -45.853663
      y = 14.439837
      z = 0
      irot = 2651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2652
      theta1 = 90.03493
      phi1 = 164.17582
      theta2 = 83.824201
      phi2 = -105.82796
      theta3 = 6.1758984
      phi3 = 74.498627
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1904
      chmoth = 'DCLS'
      x = -46.324748
      y = 12.848542
      z = 0
      irot = 2652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2653
      theta1 = 90.03493
      phi1 = 166.15385
      theta2 = 83.824201
      phi2 = -103.84993
      theta3 = 6.1758984
      phi3 = 76.476649
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1905
      chmoth = 'DCLS'
      x = -46.740627
      y = 11.241934
      z = 0
      irot = 2653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2654
      theta1 = 90.03493
      phi1 = 168.13187
      theta2 = 83.824201
      phi2 = -101.87191
      theta3 = 6.1758984
      phi3 = 78.454671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1906
      chmoth = 'DCLS'
      x = -47.100804
      y = 9.6219297
      z = 0
      irot = 2654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2655
      theta1 = 90.03493
      phi1 = 170.10989
      theta2 = 83.824201
      phi2 = -99.89389
      theta3 = 6.1758984
      phi3 = 80.432693
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1907
      chmoth = 'DCLS'
      x = -47.40485
      y = 7.9904585
      z = 0
      irot = 2655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2656
      theta1 = 90.03493
      phi1 = 172.08791
      theta2 = 83.824201
      phi2 = -97.915868
      theta3 = 6.1758984
      phi3 = 82.410715
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1908
      chmoth = 'DCLS'
      x = -47.652404
      y = 6.3494649
      z = 0
      irot = 2656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2657
      theta1 = 90.03493
      phi1 = 174.06593
      theta2 = 83.824201
      phi2 = -95.937846
      theta3 = 6.1758984
      phi3 = 84.388737
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1909
      chmoth = 'DCLS'
      x = -47.843168
      y = 4.7009045
      z = 0
      irot = 2657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2658
      theta1 = 90.03493
      phi1 = 176.04396
      theta2 = 83.824201
      phi2 = -93.959824
      theta3 = 6.1758984
      phi3 = 86.366759
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1910
      chmoth = 'DCLS'
      x = -47.976918
      y = 3.046742
      z = 0
      irot = 2658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2659
      theta1 = 90.03493
      phi1 = 178.02198
      theta2 = 83.824201
      phi2 = -91.981802
      theta3 = 6.1758984
      phi3 = 88.344781
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1911
      chmoth = 'DCLS'
      x = -48.053492
      y = 1.3889486
      z = 0
      irot = 2659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2660
      theta1 = 90.03493
      phi1 = -180
      theta2 = 83.824201
      phi2 = -90.00378
      theta3 = 6.1758984
      phi3 = 90.322802
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1912
      chmoth = 'DCLS'
      x = -48.0728
      y = -0.2705
      z = 0
      irot = 2660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2661
      theta1 = 90.03493
      phi1 = -178.02198
      theta2 = 83.824201
      phi2 = -88.025758
      theta3 = 6.1758984
      phi3 = 92.300824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1913
      chmoth = 'DCLS'
      x = -48.034819
      y = -1.9296263
      z = 0
      irot = 2661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2662
      theta1 = 90.03493
      phi1 = -176.04396
      theta2 = 83.824201
      phi2 = -86.047736
      theta3 = 6.1758984
      phi3 = 94.278846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1914
      chmoth = 'DCLS'
      x = -47.939594
      y = -3.586453
      z = 0
      irot = 2662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2663
      theta1 = 90.03493
      phi1 = -174.06593
      theta2 = 83.824201
      phi2 = -84.069714
      theta3 = 6.1758984
      phi3 = 96.256868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1915
      chmoth = 'DCLS'
      x = -47.787238
      y = -5.2390056
      z = 0
      irot = 2663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2664
      theta1 = 90.03493
      phi1 = -172.08791
      theta2 = 83.824201
      phi2 = -82.091692
      theta3 = 6.1758984
      phi3 = 98.23489
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1916
      chmoth = 'DCLS'
      x = -47.577933
      y = -6.8853148
      z = 0
      irot = 2664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2665
      theta1 = 90.03493
      phi1 = -170.10989
      theta2 = 83.824201
      phi2 = -80.11367
      theta3 = 6.1758984
      phi3 = 100.21291
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1917
      chmoth = 'DCLS'
      x = -47.311929
      y = -8.5234187
      z = 0
      irot = 2665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2666
      theta1 = 90.03493
      phi1 = -168.13187
      theta2 = 83.824201
      phi2 = -78.135648
      theta3 = 6.1758984
      phi3 = 102.19093
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1918
      chmoth = 'DCLS'
      x = -46.989542
      y = -10.151365
      z = 0
      irot = 2666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2667
      theta1 = 90.03493
      phi1 = -166.15385
      theta2 = 83.824201
      phi2 = -76.157626
      theta3 = 6.1758984
      phi3 = 104.16896
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1919
      chmoth = 'DCLS'
      x = -46.611157
      y = -11.767214
      z = 0
      irot = 2667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2668
      theta1 = 90.03493
      phi1 = -164.17582
      theta2 = 83.824201
      phi2 = -74.179604
      theta3 = 6.1758984
      phi3 = 106.14698
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1920
      chmoth = 'DCLS'
      x = -46.177224
      y = -13.369039
      z = 0
      irot = 2668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2669
      theta1 = 90.03493
      phi1 = -162.1978
      theta2 = 83.824201
      phi2 = -72.201582
      theta3 = 6.1758984
      phi3 = 108.125
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1921
      chmoth = 'DCLS'
      x = -45.688262
      y = -14.954933
      z = 0
      irot = 2669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2670
      theta1 = 90.03493
      phi1 = -160.21978
      theta2 = 83.824201
      phi2 = -70.22356
      theta3 = 6.1758984
      phi3 = 110.10302
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1922
      chmoth = 'DCLS'
      x = -45.144851
      y = -16.523004
      z = 0
      irot = 2670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2671
      theta1 = 90.03493
      phi1 = -158.24176
      theta2 = 83.824201
      phi2 = -68.245538
      theta3 = 6.1758984
      phi3 = 112.08104
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1923
      chmoth = 'DCLS'
      x = -44.547641
      y = -18.071385
      z = 0
      irot = 2671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2672
      theta1 = 90.03493
      phi1 = -156.26374
      theta2 = 83.824201
      phi2 = -66.267516
      theta3 = 6.1758984
      phi3 = 114.05907
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1924
      chmoth = 'DCLS'
      x = -43.897342
      y = -19.598229
      z = 0
      irot = 2672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2673
      theta1 = 90.03493
      phi1 = -154.28571
      theta2 = 83.824201
      phi2 = -64.289494
      theta3 = 6.1758984
      phi3 = 116.03709
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1925
      chmoth = 'DCLS'
      x = -43.194731
      y = -21.101718
      z = 0
      irot = 2673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2674
      theta1 = 90.03493
      phi1 = -152.30769
      theta2 = 83.824201
      phi2 = -62.311472
      theta3 = 6.1758984
      phi3 = 118.01511
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1926
      chmoth = 'DCLS'
      x = -42.440643
      y = -22.58006
      z = 0
      irot = 2674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2675
      theta1 = 90.03493
      phi1 = -150.32967
      theta2 = 83.824201
      phi2 = -60.33345
      theta3 = 6.1758984
      phi3 = 119.99313
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1927
      chmoth = 'DCLS'
      x = -41.635978
      y = -24.031493
      z = 0
      irot = 2675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2676
      theta1 = 90.03493
      phi1 = -148.35165
      theta2 = 83.824201
      phi2 = -58.355428
      theta3 = 6.1758984
      phi3 = 121.97115
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1928
      chmoth = 'DCLS'
      x = -40.781694
      y = -25.454286
      z = 0
      irot = 2676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2677
      theta1 = 90.03493
      phi1 = -146.37363
      theta2 = 83.824201
      phi2 = -56.377406
      theta3 = 6.1758984
      phi3 = 123.94918
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1929
      chmoth = 'DCLS'
      x = -39.87881
      y = -26.846746
      z = 0
      irot = 2677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2678
      theta1 = 90.03493
      phi1 = -144.3956
      theta2 = 83.824201
      phi2 = -54.399384
      theta3 = 6.1758984
      phi3 = 125.9272
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1930
      chmoth = 'DCLS'
      x = -38.928402
      y = -28.207211
      z = 0
      irot = 2678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2679
      theta1 = 90.03493
      phi1 = -142.41758
      theta2 = 83.824201
      phi2 = -52.421362
      theta3 = 6.1758984
      phi3 = 127.90522
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1931
      chmoth = 'DCLS'
      x = -37.931602
      y = -29.534062
      z = 0
      irot = 2679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2680
      theta1 = 90.03493
      phi1 = -140.43956
      theta2 = 83.824201
      phi2 = -50.44334
      theta3 = 6.1758984
      phi3 = 129.88324
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1932
      chmoth = 'DCLS'
      x = -36.889599
      y = -30.825716
      z = 0
      irot = 2680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2681
      theta1 = 90.03493
      phi1 = -138.46154
      theta2 = 83.824201
      phi2 = -48.465318
      theta3 = 6.1758984
      phi3 = 131.86126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1933
      chmoth = 'DCLS'
      x = -35.803633
      y = -32.080635
      z = 0
      irot = 2681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2682
      theta1 = 90.03493
      phi1 = -136.48352
      theta2 = 83.824201
      phi2 = -46.487296
      theta3 = 6.1758984
      phi3 = 133.83929
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1934
      chmoth = 'DCLS'
      x = -34.674999
      y = -33.297323
      z = 0
      irot = 2682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2683
      theta1 = 90.03493
      phi1 = -134.50549
      theta2 = 83.824201
      phi2 = -44.509274
      theta3 = 6.1758984
      phi3 = 135.81731
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1935
      chmoth = 'DCLS'
      x = -33.505043
      y = -34.474329
      z = 0
      irot = 2683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2684
      theta1 = 90.03493
      phi1 = -132.52747
      theta2 = 83.824201
      phi2 = -42.531252
      theta3 = 6.1758984
      phi3 = 137.79533
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1936
      chmoth = 'DCLS'
      x = -32.295158
      y = -35.610252
      z = 0
      irot = 2684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2685
      theta1 = 90.03493
      phi1 = -130.54945
      theta2 = 83.824201
      phi2 = -40.55323
      theta3 = 6.1758984
      phi3 = 139.77335
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1937
      chmoth = 'DCLS'
      x = -31.046786
      y = -36.703738
      z = 0
      irot = 2685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2686
      theta1 = 90.03493
      phi1 = -128.57143
      theta2 = 83.824201
      phi2 = -38.575208
      theta3 = 6.1758984
      phi3 = 141.75137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1938
      chmoth = 'DCLS'
      x = -29.761415
      y = -37.753482
      z = 0
      irot = 2686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2687
      theta1 = 90.03493
      phi1 = -126.59341
      theta2 = 83.824201
      phi2 = -36.597186
      theta3 = 6.1758984
      phi3 = 143.7294
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1939
      chmoth = 'DCLS'
      x = -28.440577
      y = -38.758236
      z = 0
      irot = 2687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2688
      theta1 = 90.03493
      phi1 = -124.61538
      theta2 = 83.824201
      phi2 = -34.619164
      theta3 = 6.1758984
      phi3 = 145.70742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1940
      chmoth = 'DCLS'
      x = -27.085846
      y = -39.7168
      z = 0
      irot = 2688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2689
      theta1 = 90.03493
      phi1 = -122.63736
      theta2 = 83.824201
      phi2 = -32.641142
      theta3 = 6.1758984
      phi3 = 147.68544
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1941
      chmoth = 'DCLS'
      x = -25.698836
      y = -40.628033
      z = 0
      irot = 2689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2690
      theta1 = 90.03493
      phi1 = -120.65934
      theta2 = 83.824201
      phi2 = -30.66312
      theta3 = 6.1758984
      phi3 = 149.66346
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1942
      chmoth = 'DCLS'
      x = -24.2812
      y = -41.490849
      z = 0
      irot = 2690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2691
      theta1 = 90.03493
      phi1 = -118.68132
      theta2 = 83.824201
      phi2 = -28.685098
      theta3 = 6.1758984
      phi3 = 151.64148
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1943
      chmoth = 'DCLS'
      x = -22.834628
      y = -42.30422
      z = 0
      irot = 2691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2692
      theta1 = 90.03493
      phi1 = -116.7033
      theta2 = 83.824201
      phi2 = -26.707076
      theta3 = 6.1758984
      phi3 = 153.61951
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1944
      chmoth = 'DCLS'
      x = -21.360843
      y = -43.067176
      z = 0
      irot = 2692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2693
      theta1 = 90.03493
      phi1 = -114.72527
      theta2 = 83.824201
      phi2 = -24.729054
      theta3 = 6.1758984
      phi3 = 155.59753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1945
      chmoth = 'DCLS'
      x = -19.861603
      y = -43.778808
      z = 0
      irot = 2693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2694
      theta1 = 90.03493
      phi1 = -112.74725
      theta2 = 83.824201
      phi2 = -22.751032
      theta3 = 6.1758984
      phi3 = 157.57555
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1946
      chmoth = 'DCLS'
      x = -18.338693
      y = -44.438268
      z = 0
      irot = 2694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2695
      theta1 = 90.03493
      phi1 = -110.76923
      theta2 = 83.824201
      phi2 = -20.77301
      theta3 = 6.1758984
      phi3 = 159.55357
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1947
      chmoth = 'DCLS'
      x = -16.793928
      y = -45.044769
      z = 0
      irot = 2695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2696
      theta1 = 90.03493
      phi1 = -108.79121
      theta2 = 83.824201
      phi2 = -18.794988
      theta3 = 6.1758984
      phi3 = 161.53159
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1948
      chmoth = 'DCLS'
      x = -15.22915
      y = -45.597591
      z = 0
      irot = 2696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2697
      theta1 = 90.03493
      phi1 = -106.81319
      theta2 = 83.824201
      phi2 = -16.816966
      theta3 = 6.1758984
      phi3 = 163.50962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1949
      chmoth = 'DCLS'
      x = -13.646222
      y = -46.096072
      z = 0
      irot = 2697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2698
      theta1 = 90.03493
      phi1 = -104.83516
      theta2 = 83.824201
      phi2 = -14.838945
      theta3 = 6.1758984
      phi3 = 165.48764
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1950
      chmoth = 'DCLS'
      x = -12.047033
      y = -46.53962
      z = 0
      irot = 2698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2699
      theta1 = 90.03493
      phi1 = -102.85714
      theta2 = 83.824201
      phi2 = -12.860923
      theta3 = 6.1758984
      phi3 = 167.46566
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1951
      chmoth = 'DCLS'
      x = -10.433486
      y = -46.927706
      z = 0
      irot = 2699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2700
      theta1 = 90.03493
      phi1 = -100.87912
      theta2 = 83.824201
      phi2 = -10.882901
      theta3 = 6.1758984
      phi3 = 169.44368
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1952
      chmoth = 'DCLS'
      x = -8.8075062
      y = -47.259868
      z = 0
      irot = 2700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2701
      theta1 = 90.03493
      phi1 = -98.901099
      theta2 = 83.824201
      phi2 = -8.9048786
      theta3 = 6.1758984
      phi3 = 171.4217
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1953
      chmoth = 'DCLS'
      x = -7.17103
      y = -47.535709
      z = 0
      irot = 2701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2702
      theta1 = 90.03493
      phi1 = -96.923077
      theta2 = 83.824201
      phi2 = -6.9268566
      theta3 = 6.1758984
      phi3 = 173.39973
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1954
      chmoth = 'DCLS'
      x = -5.526008
      y = -47.7549
      z = 0
      irot = 2702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2703
      theta1 = 90.03493
      phi1 = -94.945055
      theta2 = 83.824201
      phi2 = -4.9488346
      theta3 = 6.1758984
      phi3 = 175.37775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1955
      chmoth = 'DCLS'
      x = -3.8744005
      y = -47.917182
      z = 0
      irot = 2703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2704
      theta1 = 90.03493
      phi1 = -92.967033
      theta2 = 83.824201
      phi2 = -2.9708127
      theta3 = 6.1758984
      phi3 = 177.35577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1956
      chmoth = 'DCLS'
      x = -2.2181758
      y = -48.022359
      z = 0
      irot = 2704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2705
      theta1 = 90.03493
      phi1 = -90.989011
      theta2 = 83.824201
      phi2 = -0.99279067
      theta3 = 6.1758984
      phi3 = 179.33379
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1957
      chmoth = 'DCLS'
      x = -0.55930764
      y = -48.070307
      z = 0
      irot = 2705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2706
      theta1 = 90.03493
      phi1 = -89.010989
      theta2 = 83.824201
      phi2 = 0.9852313
      theta3 = 6.1758984
      phi3 = -178.68819
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1958
      chmoth = 'DCLS'
      x = 1.100227
      y = -48.060969
      z = 0
      irot = 2706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2707
      theta1 = 90.03493
      phi1 = -87.032967
      theta2 = 83.824201
      phi2 = 2.9632533
      theta3 = 6.1758984
      phi3 = -176.71016
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1959
      chmoth = 'DCLS'
      x = 2.7584506
      y = -47.994356
      z = 0
      irot = 2707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2708
      theta1 = 90.03493
      phi1 = -85.054945
      theta2 = 83.824201
      phi2 = 4.9412753
      theta3 = 6.1758984
      phi3 = -174.73214
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1960
      chmoth = 'DCLS'
      x = 4.4133868
      y = -47.870547
      z = 0
      irot = 2708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2709
      theta1 = 90.03493
      phi1 = -83.076923
      theta2 = 83.824201
      phi2 = 6.9192972
      theta3 = 6.1758984
      phi3 = -172.75412
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1961
      chmoth = 'DCLS'
      x = 6.0630635
      y = -47.68969
      z = 0
      irot = 2709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2710
      theta1 = 90.03493
      phi1 = -81.098901
      theta2 = 83.824201
      phi2 = 8.8973192
      theta3 = 6.1758984
      phi3 = -170.7761
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1962
      chmoth = 'DCLS'
      x = 7.7055147
      y = -47.452
      z = 0
      irot = 2710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2711
      theta1 = 90.03493
      phi1 = -79.120879
      theta2 = 83.824201
      phi2 = 10.875341
      theta3 = 6.1758984
      phi3 = -168.79808
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1963
      chmoth = 'DCLS'
      x = 9.3387831
      y = -47.157761
      z = 0
      irot = 2711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2712
      theta1 = 90.03493
      phi1 = -77.142857
      theta2 = 83.824201
      phi2 = 12.853363
      theta3 = 6.1758984
      phi3 = -166.82005
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1964
      chmoth = 'DCLS'
      x = 10.960922
      y = -46.807323
      z = 0
      irot = 2712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2713
      theta1 = 90.03493
      phi1 = -75.164835
      theta2 = 83.824201
      phi2 = 14.831385
      theta3 = 6.1758984
      phi3 = -164.84203
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1965
      chmoth = 'DCLS'
      x = 12.569999
      y = -46.401103
      z = 0
      irot = 2713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2714
      theta1 = 90.03493
      phi1 = -73.186813
      theta2 = 83.824201
      phi2 = 16.809407
      theta3 = 6.1758984
      phi3 = -162.86401
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1966
      chmoth = 'DCLS'
      x = 14.164096
      y = -45.939587
      z = 0
      irot = 2714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2715
      theta1 = 90.03493
      phi1 = -71.208791
      theta2 = 83.824201
      phi2 = 18.787429
      theta3 = 6.1758984
      phi3 = -160.88599
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1967
      chmoth = 'DCLS'
      x = 15.741314
      y = -45.423323
      z = 0
      irot = 2715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2716
      theta1 = 90.03493
      phi1 = -69.230769
      theta2 = 83.824201
      phi2 = 20.765451
      theta3 = 6.1758984
      phi3 = -158.90797
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1968
      chmoth = 'DCLS'
      x = 17.299772
      y = -44.852928
      z = 0
      irot = 2716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2717
      theta1 = 90.03493
      phi1 = -67.252747
      theta2 = 83.824201
      phi2 = 22.743473
      theta3 = 6.1758984
      phi3 = -156.92994
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1969
      chmoth = 'DCLS'
      x = 18.837613
      y = -44.229081
      z = 0
      irot = 2717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2718
      theta1 = 90.03493
      phi1 = -65.274725
      theta2 = 83.824201
      phi2 = 24.721495
      theta3 = 6.1758984
      phi3 = -154.95192
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1970
      chmoth = 'DCLS'
      x = 20.353006
      y = -43.552525
      z = 0
      irot = 2718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2719
      theta1 = 90.03493
      phi1 = -63.296703
      theta2 = 83.824201
      phi2 = 26.699517
      theta3 = 6.1758984
      phi3 = -152.9739
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1971
      chmoth = 'DCLS'
      x = 21.844143
      y = -42.824066
      z = 0
      irot = 2719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2720
      theta1 = 90.03493
      phi1 = -61.318681
      theta2 = 83.824201
      phi2 = 28.677539
      theta3 = 6.1758984
      phi3 = -150.99588
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1972
      chmoth = 'DCLS'
      x = 23.309249
      y = -42.044574
      z = 0
      irot = 2720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2721
      theta1 = 90.03493
      phi1 = -59.340659
      theta2 = 83.824201
      phi2 = 30.655561
      theta3 = 6.1758984
      phi3 = -149.01786
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1973
      chmoth = 'DCLS'
      x = 24.746576
      y = -41.214976
      z = 0
      irot = 2721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2722
      theta1 = 90.03493
      phi1 = -57.362637
      theta2 = 83.824201
      phi2 = 32.633583
      theta3 = 6.1758984
      phi3 = -147.03983
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1974
      chmoth = 'DCLS'
      x = 26.154412
      y = -40.336261
      z = 0
      irot = 2722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2723
      theta1 = 90.03493
      phi1 = -55.384615
      theta2 = 83.824201
      phi2 = 34.611605
      theta3 = 6.1758984
      phi3 = -145.06181
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1975
      chmoth = 'DCLS'
      x = 27.53108
      y = -39.409477
      z = 0
      irot = 2723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2724
      theta1 = 90.03493
      phi1 = -53.406593
      theta2 = 83.824201
      phi2 = 36.589627
      theta3 = 6.1758984
      phi3 = -143.08379
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1976
      chmoth = 'DCLS'
      x = 28.874938
      y = -38.435728
      z = 0
      irot = 2724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2725
      theta1 = 90.03493
      phi1 = -51.428571
      theta2 = 83.824201
      phi2 = 38.567649
      theta3 = 6.1758984
      phi3 = -141.10577
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1977
      chmoth = 'DCLS'
      x = 30.184386
      y = -37.416174
      z = 0
      irot = 2725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2726
      theta1 = 90.03493
      phi1 = -49.450549
      theta2 = 83.824201
      phi2 = 40.545671
      theta3 = 6.1758984
      phi3 = -139.12775
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1978
      chmoth = 'DCLS'
      x = 31.457862
      y = -36.352031
      z = 0
      irot = 2726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2727
      theta1 = 90.03493
      phi1 = -47.472527
      theta2 = 83.824201
      phi2 = 42.523693
      theta3 = 6.1758984
      phi3 = -137.14972
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1979
      chmoth = 'DCLS'
      x = 32.693849
      y = -35.244567
      z = 0
      irot = 2727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2728
      theta1 = 90.03493
      phi1 = -45.494505
      theta2 = 83.824201
      phi2 = 44.501715
      theta3 = 6.1758984
      phi3 = -135.1717
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1980
      chmoth = 'DCLS'
      x = 33.890875
      y = -34.0951
      z = 0
      irot = 2728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2729
      theta1 = 90.03493
      phi1 = -43.516484
      theta2 = 83.824201
      phi2 = 46.479737
      theta3 = 6.1758984
      phi3 = -133.19368
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1981
      chmoth = 'DCLS'
      x = 35.047512
      y = -32.905002
      z = 0
      irot = 2729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2730
      theta1 = 90.03493
      phi1 = -41.538462
      theta2 = 83.824201
      phi2 = 48.457759
      theta3 = 6.1758984
      phi3 = -131.21566
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1982
      chmoth = 'DCLS'
      x = 36.162382
      y = -31.675691
      z = 0
      irot = 2730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2731
      theta1 = 90.03493
      phi1 = -39.56044
      theta2 = 83.824201
      phi2 = 50.435781
      theta3 = 6.1758984
      phi3 = -129.23764
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1983
      chmoth = 'DCLS'
      x = 37.234157
      y = -30.408631
      z = 0
      irot = 2731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2732
      theta1 = 90.03493
      phi1 = -37.582418
      theta2 = 83.824201
      phi2 = 52.413803
      theta3 = 6.1758984
      phi3 = -127.25962
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1984
      chmoth = 'DCLS'
      x = 38.261559
      y = -29.105332
      z = 0
      irot = 2732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2733
      theta1 = 90.03493
      phi1 = -35.604396
      theta2 = 83.824201
      phi2 = 54.391825
      theta3 = 6.1758984
      phi3 = -125.28159
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1985
      chmoth = 'DCLS'
      x = 39.243364
      y = -27.767348
      z = 0
      irot = 2733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2734
      theta1 = 90.03493
      phi1 = -33.626374
      theta2 = 83.824201
      phi2 = 56.369847
      theta3 = 6.1758984
      phi3 = -123.30357
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1986
      chmoth = 'DCLS'
      x = 40.178403
      y = -26.396273
      z = 0
      irot = 2734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2735
      theta1 = 90.03493
      phi1 = -31.648352
      theta2 = 83.824201
      phi2 = 58.347869
      theta3 = 6.1758984
      phi3 = -121.32555
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1987
      chmoth = 'DCLS'
      x = 41.065559
      y = -24.993741
      z = 0
      irot = 2735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2736
      theta1 = 90.03493
      phi1 = -29.67033
      theta2 = 83.824201
      phi2 = 60.325891
      theta3 = 6.1758984
      phi3 = -119.34753
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1988
      chmoth = 'DCLS'
      x = 41.903777
      y = -23.561424
      z = 0
      irot = 2736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2737
      theta1 = 90.03493
      phi1 = -27.692308
      theta2 = 83.824201
      phi2 = 62.303913
      theta3 = 6.1758984
      phi3 = -117.36951
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1989
      chmoth = 'DCLS'
      x = 42.692058
      y = -22.101028
      z = 0
      irot = 2737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2738
      theta1 = 90.03493
      phi1 = -25.714286
      theta2 = 83.824201
      phi2 = 64.281935
      theta3 = 6.1758984
      phi3 = -115.39148
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1990
      chmoth = 'DCLS'
      x = 43.429462
      y = -20.614294
      z = 0
      irot = 2738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2739
      theta1 = 90.03493
      phi1 = -23.736264
      theta2 = 83.824201
      phi2 = 66.259957
      theta3 = 6.1758984
      phi3 = -113.41346
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1991
      chmoth = 'DCLS'
      x = 44.11511
      y = -19.102994
      z = 0
      irot = 2739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2740
      theta1 = 90.03493
      phi1 = -21.758242
      theta2 = 83.824201
      phi2 = 68.237979
      theta3 = 6.1758984
      phi3 = -111.43544
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1992
      chmoth = 'DCLS'
      x = 44.748185
      y = -17.568928
      z = 0
      irot = 2740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2741
      theta1 = 90.03493
      phi1 = -19.78022
      theta2 = 83.824201
      phi2 = 70.216001
      theta3 = 6.1758984
      phi3 = -109.45742
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1993
      chmoth = 'DCLS'
      x = 45.327933
      y = -16.013924
      z = 0
      irot = 2741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2742
      theta1 = 90.03493
      phi1 = -17.802198
      theta2 = 83.824201
      phi2 = 72.194023
      theta3 = 6.1758984
      phi3 = -107.4794
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1994
      chmoth = 'DCLS'
      x = 45.853663
      y = -14.439837
      z = 0
      irot = 2742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2743
      theta1 = 90.03493
      phi1 = -15.824176
      theta2 = 83.824201
      phi2 = 74.172044
      theta3 = 6.1758984
      phi3 = -105.50137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1995
      chmoth = 'DCLS'
      x = 46.324748
      y = -12.848542
      z = 0
      irot = 2743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2744
      theta1 = 90.03493
      phi1 = -13.846154
      theta2 = 83.824201
      phi2 = 76.150066
      theta3 = 6.1758984
      phi3 = -103.52335
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1996
      chmoth = 'DCLS'
      x = 46.740627
      y = -11.241934
      z = 0
      irot = 2744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2745
      theta1 = 90.03493
      phi1 = -11.868132
      theta2 = 83.824201
      phi2 = 78.128088
      theta3 = 6.1758984
      phi3 = -101.54533
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1997
      chmoth = 'DCLS'
      x = 47.100804
      y = -9.6219297
      z = 0
      irot = 2745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2746
      theta1 = 90.03493
      phi1 = -9.8901099
      theta2 = 83.824201
      phi2 = 80.10611
      theta3 = 6.1758984
      phi3 = -99.567307
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1998
      chmoth = 'DCLS'
      x = 47.40485
      y = -7.9904585
      z = 0
      irot = 2746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2747
      theta1 = 90.03493
      phi1 = -7.9120879
      theta2 = 83.824201
      phi2 = 82.084132
      theta3 = 6.1758984
      phi3 = -97.589285
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 1999
      chmoth = 'DCLS'
      x = 47.652404
      y = -6.3494649
      z = 0
      irot = 2747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2748
      theta1 = 90.03493
      phi1 = -5.9340659
      theta2 = 83.824201
      phi2 = 84.062154
      theta3 = 6.1758984
      phi3 = -95.611263
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 2000
      chmoth = 'DCLS'
      x = 47.843168
      y = -4.7009045
      z = 0
      irot = 2748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2749
      theta1 = 90.03493
      phi1 = -3.956044
      theta2 = 83.824201
      phi2 = 86.040176
      theta3 = 6.1758984
      phi3 = -93.633241
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 2001
      chmoth = 'DCLS'
      x = 47.976918
      y = -3.046742
      z = 0
      irot = 2749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2750
      theta1 = 90.03493
      phi1 = -1.978022
      theta2 = 83.824201
      phi2 = 88.018198
      theta3 = 6.1758984
      phi3 = -91.655219
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLM'
      nr = 2002
      chmoth = 'DCLS'
      x = 48.053492
      y = -1.3889486
      z = 0
      irot = 2750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2751
      theta1 = 90
      phi1 = -0.60612
      theta2 = 90
      phi2 = 89.39388
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 709
      chmoth = 'DCLS'
      x = 50.371881
      y = -0.53289342
      z = 0
      irot = 2751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2752
      theta1 = 90
      phi1 = 1.2212912
      theta2 = 90
      phi2 = 91.221291
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 710
      chmoth = 'DCLS'
      x = 50.363256
      y = 1.0736832
      z = 0
      irot = 2752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2753
      theta1 = 90
      phi1 = 3.0487023
      theta2 = 90
      phi2 = 93.048702
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 711
      chmoth = 'DCLS'
      x = 50.303404
      y = 2.6791678
      z = 0
      irot = 2753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2754
      theta1 = 90
      phi1 = 4.8761135
      theta2 = 90
      phi2 = 94.876114
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 712
      chmoth = 'DCLS'
      x = 50.192385
      y = 4.2819271
      z = 0
      irot = 2754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2755
      theta1 = 90
      phi1 = 6.7035247
      theta2 = 90
      phi2 = 96.703525
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 713
      chmoth = 'DCLS'
      x = 50.030312
      y = 5.8803311
      z = 0
      irot = 2755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2756
      theta1 = 90
      phi1 = 8.5309358
      theta2 = 90
      phi2 = 98.530936
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 714
      chmoth = 'DCLS'
      x = 49.81735
      y = 7.4727538
      z = 0
      irot = 2756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2757
      theta1 = 90
      phi1 = 10.358347
      theta2 = 90
      phi2 = 100.35835
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 715
      chmoth = 'DCLS'
      x = 49.553716
      y = 9.0575755
      z = 0
      irot = 2757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2758
      theta1 = 90
      phi1 = 12.185758
      theta2 = 90
      phi2 = 102.18576
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 716
      chmoth = 'DCLS'
      x = 49.239677
      y = 10.633184
      z = 0
      irot = 2758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2759
      theta1 = 90
      phi1 = 14.013169
      theta2 = 90
      phi2 = 104.01317
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 717
      chmoth = 'DCLS'
      x = 48.875554
      y = 12.197977
      z = 0
      irot = 2759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2760
      theta1 = 90
      phi1 = 15.840581
      theta2 = 90
      phi2 = 105.84058
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 718
      chmoth = 'DCLS'
      x = 48.461716
      y = 13.750363
      z = 0
      irot = 2760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2761
      theta1 = 90
      phi1 = 17.667992
      theta2 = 90
      phi2 = 107.66799
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 719
      chmoth = 'DCLS'
      x = 47.998585
      y = 15.288762
      z = 0
      irot = 2761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2762
      theta1 = 90
      phi1 = 19.495403
      theta2 = 90
      phi2 = 109.4954
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 720
      chmoth = 'DCLS'
      x = 47.486631
      y = 16.81161
      z = 0
      irot = 2762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2763
      theta1 = 90
      phi1 = 21.322814
      theta2 = 90
      phi2 = 111.32281
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 721
      chmoth = 'DCLS'
      x = 46.926376
      y = 18.317358
      z = 0
      irot = 2763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2764
      theta1 = 90
      phi1 = 23.150225
      theta2 = 90
      phi2 = 113.15023
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 722
      chmoth = 'DCLS'
      x = 46.318389
      y = 19.804475
      z = 0
      irot = 2764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2765
      theta1 = 90
      phi1 = 24.977636
      theta2 = 90
      phi2 = 114.97764
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 723
      chmoth = 'DCLS'
      x = 45.663289
      y = 21.271447
      z = 0
      irot = 2765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2766
      theta1 = 90
      phi1 = 26.805048
      theta2 = 90
      phi2 = 116.80505
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 724
      chmoth = 'DCLS'
      x = 44.961742
      y = 22.716782
      z = 0
      irot = 2766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2767
      theta1 = 90
      phi1 = 28.632459
      theta2 = 90
      phi2 = 118.63246
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 725
      chmoth = 'DCLS'
      x = 44.214461
      y = 24.139011
      z = 0
      irot = 2767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2768
      theta1 = 90
      phi1 = 30.45987
      theta2 = 90
      phi2 = 120.45987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 726
      chmoth = 'DCLS'
      x = 43.422207
      y = 25.536686
      z = 0
      irot = 2768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2769
      theta1 = 90
      phi1 = 32.287281
      theta2 = 90
      phi2 = 122.28728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 727
      chmoth = 'DCLS'
      x = 42.585786
      y = 26.908386
      z = 0
      irot = 2769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2770
      theta1 = 90
      phi1 = 34.114692
      theta2 = 90
      phi2 = 124.11469
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 728
      chmoth = 'DCLS'
      x = 41.706048
      y = 28.252717
      z = 0
      irot = 2770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2771
      theta1 = 90
      phi1 = 35.942103
      theta2 = 90
      phi2 = 125.9421
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 729
      chmoth = 'DCLS'
      x = 40.783888
      y = 29.568309
      z = 0
      irot = 2771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2772
      theta1 = 90
      phi1 = 37.769515
      theta2 = 90
      phi2 = 127.76951
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 730
      chmoth = 'DCLS'
      x = 39.820244
      y = 30.853826
      z = 0
      irot = 2772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2773
      theta1 = 90
      phi1 = 39.596926
      theta2 = 90
      phi2 = 129.59693
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 731
      chmoth = 'DCLS'
      x = 38.816096
      y = 32.10796
      z = 0
      irot = 2773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2774
      theta1 = 90
      phi1 = 41.424337
      theta2 = 90
      phi2 = 131.42434
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 732
      chmoth = 'DCLS'
      x = 37.772467
      y = 33.329434
      z = 0
      irot = 2774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2775
      theta1 = 90
      phi1 = 43.251748
      theta2 = 90
      phi2 = 133.25175
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 733
      chmoth = 'DCLS'
      x = 36.690416
      y = 34.517007
      z = 0
      irot = 2775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2776
      theta1 = 90
      phi1 = 45.079159
      theta2 = 90
      phi2 = 135.07916
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 734
      chmoth = 'DCLS'
      x = 35.571045
      y = 35.669471
      z = 0
      irot = 2776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2777
      theta1 = 90
      phi1 = 46.90657
      theta2 = 90
      phi2 = 136.90657
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 735
      chmoth = 'DCLS'
      x = 34.415493
      y = 36.785652
      z = 0
      irot = 2777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2778
      theta1 = 90
      phi1 = 48.733982
      theta2 = 90
      phi2 = 138.73398
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 736
      chmoth = 'DCLS'
      x = 33.224935
      y = 37.864417
      z = 0
      irot = 2778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2779
      theta1 = 90
      phi1 = 50.561393
      theta2 = 90
      phi2 = 140.56139
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 737
      chmoth = 'DCLS'
      x = 32.000581
      y = 38.904668
      z = 0
      irot = 2779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2780
      theta1 = 90
      phi1 = 52.388804
      theta2 = 90
      phi2 = 142.3888
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 738
      chmoth = 'DCLS'
      x = 30.743678
      y = 39.905346
      z = 0
      irot = 2780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2781
      theta1 = 90
      phi1 = 54.216215
      theta2 = 90
      phi2 = 144.21622
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 739
      chmoth = 'DCLS'
      x = 29.455503
      y = 40.865434
      z = 0
      irot = 2781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2782
      theta1 = 90
      phi1 = 56.043626
      theta2 = 90
      phi2 = 146.04363
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 740
      chmoth = 'DCLS'
      x = 28.137368
      y = 41.783955
      z = 0
      irot = 2782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2783
      theta1 = 90
      phi1 = 57.871037
      theta2 = 90
      phi2 = 147.87104
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 741
      chmoth = 'DCLS'
      x = 26.790612
      y = 42.659976
      z = 0
      irot = 2783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2784
      theta1 = 90
      phi1 = 59.698449
      theta2 = 90
      phi2 = 149.69845
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 742
      chmoth = 'DCLS'
      x = 25.416605
      y = 43.492604
      z = 0
      irot = 2784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2785
      theta1 = 90
      phi1 = 61.52586
      theta2 = 90
      phi2 = 151.52586
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 743
      chmoth = 'DCLS'
      x = 24.016746
      y = 44.280993
      z = 0
      irot = 2785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2786
      theta1 = 90
      phi1 = 63.353271
      theta2 = 90
      phi2 = 153.35327
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 744
      chmoth = 'DCLS'
      x = 22.592458
      y = 45.024341
      z = 0
      irot = 2786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2787
      theta1 = 90
      phi1 = 65.180682
      theta2 = 90
      phi2 = 155.18068
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 745
      chmoth = 'DCLS'
      x = 21.14519
      y = 45.721891
      z = 0
      irot = 2787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2788
      theta1 = 90
      phi1 = 67.008093
      theta2 = 90
      phi2 = 157.00809
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 746
      chmoth = 'DCLS'
      x = 19.676413
      y = 46.372936
      z = 0
      irot = 2788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2789
      theta1 = 90
      phi1 = 68.835504
      theta2 = 90
      phi2 = 158.8355
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 747
      chmoth = 'DCLS'
      x = 18.187623
      y = 46.976811
      z = 0
      irot = 2789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2790
      theta1 = 90
      phi1 = 70.662916
      theta2 = 90
      phi2 = 160.66292
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 748
      chmoth = 'DCLS'
      x = 16.680332
      y = 47.532903
      z = 0
      irot = 2790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2791
      theta1 = 90
      phi1 = 72.490327
      theta2 = 90
      phi2 = 162.49033
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 749
      chmoth = 'DCLS'
      x = 15.156075
      y = 48.040647
      z = 0
      irot = 2791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2792
      theta1 = 90
      phi1 = 74.317738
      theta2 = 90
      phi2 = 164.31774
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 750
      chmoth = 'DCLS'
      x = 13.616402
      y = 48.499526
      z = 0
      irot = 2792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2793
      theta1 = 90
      phi1 = 76.145149
      theta2 = 90
      phi2 = 166.14515
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 751
      chmoth = 'DCLS'
      x = 12.062879
      y = 48.909072
      z = 0
      irot = 2793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2794
      theta1 = 90
      phi1 = 77.97256
      theta2 = 90
      phi2 = 167.97256
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 752
      chmoth = 'DCLS'
      x = 10.497086
      y = 49.26887
      z = 0
      irot = 2794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2795
      theta1 = 90
      phi1 = 79.799971
      theta2 = 90
      phi2 = 169.79997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 753
      chmoth = 'DCLS'
      x = 8.9206154
      y = 49.578554
      z = 0
      irot = 2795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2796
      theta1 = 90
      phi1 = 81.627383
      theta2 = 90
      phi2 = 171.62738
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 754
      chmoth = 'DCLS'
      x = 7.3350713
      y = 49.837808
      z = 0
      irot = 2796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2797
      theta1 = 90
      phi1 = 83.454794
      theta2 = 90
      phi2 = 173.45479
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 755
      chmoth = 'DCLS'
      x = 5.7420662
      y = 50.046369
      z = 0
      irot = 2797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2798
      theta1 = 90
      phi1 = 85.282205
      theta2 = 90
      phi2 = 175.2822
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 756
      chmoth = 'DCLS'
      x = 4.1432205
      y = 50.204025
      z = 0
      irot = 2798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2799
      theta1 = 90
      phi1 = 87.109616
      theta2 = 90
      phi2 = 177.10962
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 757
      chmoth = 'DCLS'
      x = 2.5401605
      y = 50.310615
      z = 0
      irot = 2799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2800
      theta1 = 90
      phi1 = 88.937027
      theta2 = 90
      phi2 = 178.93703
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 758
      chmoth = 'DCLS'
      x = 0.9345167
      y = 50.366031
      z = 0
      irot = 2800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2801
      theta1 = 90
      phi1 = 90.764438
      theta2 = 90
      phi2 = -179.23556
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 759
      chmoth = 'DCLS'
      x = -0.67207765
      y = 50.370217
      z = 0
      irot = 2801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2802
      theta1 = 90
      phi1 = 92.59185
      theta2 = 90
      phi2 = -177.40815
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 760
      chmoth = 'DCLS'
      x = -2.2779884
      y = 50.323167
      z = 0
      irot = 2802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2803
      theta1 = 90
      phi1 = 94.419261
      theta2 = 90
      phi2 = -175.58074
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 761
      chmoth = 'DCLS'
      x = -3.881582
      y = 50.224931
      z = 0
      irot = 2803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2804
      theta1 = 90
      phi1 = 96.246672
      theta2 = 90
      phi2 = -173.75333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 762
      chmoth = 'DCLS'
      x = -5.4812275
      y = 50.075608
      z = 0
      irot = 2804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2805
      theta1 = 90
      phi1 = 98.074083
      theta2 = 90
      phi2 = -171.92592
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 763
      chmoth = 'DCLS'
      x = -7.0752976
      y = 49.87535
      z = 0
      irot = 2805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2806
      theta1 = 90
      phi1 = 99.901494
      theta2 = 90
      phi2 = -170.09851
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 764
      chmoth = 'DCLS'
      x = -8.662171
      y = 49.624361
      z = 0
      irot = 2806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2807
      theta1 = 90
      phi1 = 101.72891
      theta2 = 90
      phi2 = -168.27109
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 765
      chmoth = 'DCLS'
      x = -10.240234
      y = 49.322895
      z = 0
      irot = 2807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2808
      theta1 = 90
      phi1 = 103.55632
      theta2 = 90
      phi2 = -166.44368
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 766
      chmoth = 'DCLS'
      x = -11.80788
      y = 48.971261
      z = 0
      irot = 2808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2809
      theta1 = 90
      phi1 = 105.38373
      theta2 = 90
      phi2 = -164.61627
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 767
      chmoth = 'DCLS'
      x = -13.363516
      y = 48.569814
      z = 0
      irot = 2809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2810
      theta1 = 90
      phi1 = 107.21114
      theta2 = 90
      phi2 = -162.78886
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 768
      chmoth = 'DCLS'
      x = -14.905559
      y = 48.118964
      z = 0
      irot = 2810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2811
      theta1 = 90
      phi1 = 109.03855
      theta2 = 90
      phi2 = -160.96145
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 769
      chmoth = 'DCLS'
      x = -16.432441
      y = 47.619169
      z = 0
      irot = 2811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2812
      theta1 = 90
      phi1 = 110.86596
      theta2 = 90
      phi2 = -159.13404
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 770
      chmoth = 'DCLS'
      x = -17.942609
      y = 47.070938
      z = 0
      irot = 2812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2813
      theta1 = 90
      phi1 = 112.69337
      theta2 = 90
      phi2 = -157.30663
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 771
      chmoth = 'DCLS'
      x = -19.434525
      y = 46.474828
      z = 0
      irot = 2813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2814
      theta1 = 90
      phi1 = 114.52078
      theta2 = 90
      phi2 = -155.47922
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 772
      chmoth = 'DCLS'
      x = -20.906674
      y = 45.831445
      z = 0
      irot = 2814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2815
      theta1 = 90
      phi1 = 116.34819
      theta2 = 90
      phi2 = -153.65181
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 773
      chmoth = 'DCLS'
      x = -22.357557
      y = 45.141445
      z = 0
      irot = 2815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2816
      theta1 = 90
      phi1 = 118.17561
      theta2 = 90
      phi2 = -151.82439
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 774
      chmoth = 'DCLS'
      x = -23.785699
      y = 44.405528
      z = 0
      irot = 2816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2817
      theta1 = 90
      phi1 = 120.00302
      theta2 = 90
      phi2 = -149.99698
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 775
      chmoth = 'DCLS'
      x = -25.189647
      y = 43.624444
      z = 0
      irot = 2817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2818
      theta1 = 90
      phi1 = 121.83043
      theta2 = 90
      phi2 = -148.16957
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 776
      chmoth = 'DCLS'
      x = -26.567973
      y = 42.798986
      z = 0
      irot = 2818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2819
      theta1 = 90
      phi1 = 123.65784
      theta2 = 90
      phi2 = -146.34216
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 777
      chmoth = 'DCLS'
      x = -27.919275
      y = 41.929995
      z = 0
      irot = 2819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2820
      theta1 = 90
      phi1 = 125.48525
      theta2 = 90
      phi2 = -144.51475
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 778
      chmoth = 'DCLS'
      x = -29.242179
      y = 41.018354
      z = 0
      irot = 2820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2821
      theta1 = 90
      phi1 = 127.31266
      theta2 = 90
      phi2 = -142.68734
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 779
      chmoth = 'DCLS'
      x = -30.535339
      y = 40.064991
      z = 0
      irot = 2821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2822
      theta1 = 90
      phi1 = 129.14007
      theta2 = 90
      phi2 = -140.85993
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 780
      chmoth = 'DCLS'
      x = -31.797439
      y = 39.070875
      z = 0
      irot = 2822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2823
      theta1 = 90
      phi1 = 130.96748
      theta2 = 90
      phi2 = -139.03252
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 781
      chmoth = 'DCLS'
      x = -33.027196
      y = 38.037018
      z = 0
      irot = 2823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2824
      theta1 = 90
      phi1 = 132.7949
      theta2 = 90
      phi2 = -137.2051
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 782
      chmoth = 'DCLS'
      x = -34.223359
      y = 36.964471
      z = 0
      irot = 2824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2825
      theta1 = 90
      phi1 = 134.62231
      theta2 = 90
      phi2 = -135.37769
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 783
      chmoth = 'DCLS'
      x = -35.384711
      y = 35.854325
      z = 0
      irot = 2825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2826
      theta1 = 90
      phi1 = 136.44972
      theta2 = 90
      phi2 = -133.55028
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 784
      chmoth = 'DCLS'
      x = -36.510071
      y = 34.70771
      z = 0
      irot = 2826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2827
      theta1 = 90
      phi1 = 138.27713
      theta2 = 90
      phi2 = -131.72287
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 785
      chmoth = 'DCLS'
      x = -37.598295
      y = 33.525791
      z = 0
      irot = 2827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2828
      theta1 = 90
      phi1 = 140.10454
      theta2 = 90
      phi2 = -129.89546
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 786
      chmoth = 'DCLS'
      x = -38.648275
      y = 32.30977
      z = 0
      irot = 2828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2829
      theta1 = 90
      phi1 = 141.93195
      theta2 = 90
      phi2 = -128.06805
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 787
      chmoth = 'DCLS'
      x = -39.658943
      y = 31.060886
      z = 0
      irot = 2829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2830
      theta1 = 90
      phi1 = 143.75936
      theta2 = 90
      phi2 = -126.24064
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 788
      chmoth = 'DCLS'
      x = -40.629272
      y = 29.780408
      z = 0
      irot = 2830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2831
      theta1 = 90
      phi1 = 145.58677
      theta2 = 90
      phi2 = -124.41323
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 789
      chmoth = 'DCLS'
      x = -41.558274
      y = 28.469638
      z = 0
      irot = 2831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2832
      theta1 = 90
      phi1 = 147.41418
      theta2 = 90
      phi2 = -122.58582
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 790
      chmoth = 'DCLS'
      x = -42.445005
      y = 27.129909
      z = 0
      irot = 2832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2833
      theta1 = 90
      phi1 = 149.2416
      theta2 = 90
      phi2 = -120.7584
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 791
      chmoth = 'DCLS'
      x = -43.288562
      y = 25.762586
      z = 0
      irot = 2833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2834
      theta1 = 90
      phi1 = 151.06901
      theta2 = 90
      phi2 = -118.93099
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 792
      chmoth = 'DCLS'
      x = -44.088087
      y = 24.369057
      z = 0
      irot = 2834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2835
      theta1 = 90
      phi1 = 152.89642
      theta2 = 90
      phi2 = -117.10358
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 793
      chmoth = 'DCLS'
      x = -44.842768
      y = 22.950741
      z = 0
      irot = 2835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2836
      theta1 = 90
      phi1 = 154.72383
      theta2 = 90
      phi2 = -115.27617
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 794
      chmoth = 'DCLS'
      x = -45.551837
      y = 21.509081
      z = 0
      irot = 2836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2837
      theta1 = 90
      phi1 = 156.55124
      theta2 = 90
      phi2 = -113.44876
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 795
      chmoth = 'DCLS'
      x = -46.214572
      y = 20.045542
      z = 0
      irot = 2837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2838
      theta1 = 90
      phi1 = 158.37865
      theta2 = 90
      phi2 = -111.62135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 796
      chmoth = 'DCLS'
      x = -46.830299
      y = 18.561614
      z = 0
      irot = 2838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2839
      theta1 = 90
      phi1 = 160.20606
      theta2 = 90
      phi2 = -109.79394
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 797
      chmoth = 'DCLS'
      x = -47.398392
      y = 17.058806
      z = 0
      irot = 2839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2840
      theta1 = 90
      phi1 = 162.03347
      theta2 = 90
      phi2 = -107.96653
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 798
      chmoth = 'DCLS'
      x = -47.918273
      y = 15.538646
      z = 0
      irot = 2840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2841
      theta1 = 90
      phi1 = 163.86089
      theta2 = 90
      phi2 = -106.13911
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 799
      chmoth = 'DCLS'
      x = -48.389414
      y = 14.00268
      z = 0
      irot = 2841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2842
      theta1 = 90
      phi1 = 165.6883
      theta2 = 90
      phi2 = -104.3117
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 800
      chmoth = 'DCLS'
      x = -48.811334
      y = 12.452472
      z = 0
      irot = 2842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2843
      theta1 = 90
      phi1 = 167.51571
      theta2 = 90
      phi2 = -102.48429
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 801
      chmoth = 'DCLS'
      x = -49.183606
      y = 10.889598
      z = 0
      irot = 2843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2844
      theta1 = 90
      phi1 = 169.34312
      theta2 = 90
      phi2 = -100.65688
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 802
      chmoth = 'DCLS'
      x = -49.505849
      y = 9.3156465
      z = 0
      irot = 2844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2845
      theta1 = 90
      phi1 = 171.17053
      theta2 = 90
      phi2 = -98.82947
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 803
      chmoth = 'DCLS'
      x = -49.777738
      y = 7.7322199
      z = 0
      irot = 2845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2846
      theta1 = 90
      phi1 = 172.99794
      theta2 = 90
      phi2 = -97.002059
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 804
      chmoth = 'DCLS'
      x = -49.998994
      y = 6.1409284
      z = 0
      irot = 2846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2847
      theta1 = 90
      phi1 = 174.82535
      theta2 = 90
      phi2 = -95.174648
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 805
      chmoth = 'DCLS'
      x = -50.169393
      y = 4.5433906
      z = 0
      irot = 2847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2848
      theta1 = 90
      phi1 = 176.65276
      theta2 = 90
      phi2 = -93.347237
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 806
      chmoth = 'DCLS'
      x = -50.288762
      y = 2.9412314
      z = 0
      irot = 2848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2849
      theta1 = 90
      phi1 = 178.48017
      theta2 = 90
      phi2 = -91.519826
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 807
      chmoth = 'DCLS'
      x = -50.356979
      y = 1.3360806
      z = 0
      irot = 2849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2850
      theta1 = 90
      phi1 = -179.69241
      theta2 = 90
      phi2 = -89.692414
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 808
      chmoth = 'DCLS'
      x = -50.373974
      y = -0.27042933
      z = 0
      irot = 2850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2851
      theta1 = 90
      phi1 = -177.865
      theta2 = 90
      phi2 = -87.865003
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 809
      chmoth = 'DCLS'
      x = -50.339731
      y = -1.8766642
      z = 0
      irot = 2851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2852
      theta1 = 90
      phi1 = -176.03759
      theta2 = 90
      phi2 = -86.037592
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 810
      chmoth = 'DCLS'
      x = -50.254284
      y = -3.4809901
      z = 0
      irot = 2852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2853
      theta1 = 90
      phi1 = -174.21018
      theta2 = 90
      phi2 = -84.210181
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 811
      chmoth = 'DCLS'
      x = -50.117721
      y = -5.0817753
      z = 0
      irot = 2853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2854
      theta1 = 90
      phi1 = -172.38277
      theta2 = 90
      phi2 = -82.38277
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 812
      chmoth = 'DCLS'
      x = -49.93018
      y = -6.6773916
      z = 0
      irot = 2854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2855
      theta1 = 90
      phi1 = -170.55536
      theta2 = 90
      phi2 = -80.555359
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 813
      chmoth = 'DCLS'
      x = -49.691851
      y = -8.2662158
      z = 0
      irot = 2855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2856
      theta1 = 90
      phi1 = -168.72795
      theta2 = 90
      phi2 = -78.727947
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 814
      chmoth = 'DCLS'
      x = -49.402978
      y = -9.8466319
      z = 0
      irot = 2856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2857
      theta1 = 90
      phi1 = -166.90054
      theta2 = 90
      phi2 = -76.900536
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 815
      chmoth = 'DCLS'
      x = -49.063854
      y = -11.417032
      z = 0
      irot = 2857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2858
      theta1 = 90
      phi1 = -165.07313
      theta2 = 90
      phi2 = -75.073125
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 816
      chmoth = 'DCLS'
      x = -48.674824
      y = -12.97582
      z = 0
      irot = 2858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2859
      theta1 = 90
      phi1 = -163.24571
      theta2 = 90
      phi2 = -73.245714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 817
      chmoth = 'DCLS'
      x = -48.236284
      y = -14.521409
      z = 0
      irot = 2859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2860
      theta1 = 90
      phi1 = -161.4183
      theta2 = 90
      phi2 = -71.418303
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 818
      chmoth = 'DCLS'
      x = -47.74868
      y = -16.052227
      z = 0
      irot = 2860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2861
      theta1 = 90
      phi1 = -159.59089
      theta2 = 90
      phi2 = -69.590892
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 819
      chmoth = 'DCLS'
      x = -47.212507
      y = -17.566718
      z = 0
      irot = 2861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2862
      theta1 = 90
      phi1 = -157.76348
      theta2 = 90
      phi2 = -67.76348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 820
      chmoth = 'DCLS'
      x = -46.628312
      y = -19.06334
      z = 0
      irot = 2862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2863
      theta1 = 90
      phi1 = -155.93607
      theta2 = 90
      phi2 = -65.936069
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 821
      chmoth = 'DCLS'
      x = -45.996688
      y = -20.540572
      z = 0
      irot = 2863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2864
      theta1 = 90
      phi1 = -154.10866
      theta2 = 90
      phi2 = -64.108658
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 822
      chmoth = 'DCLS'
      x = -45.318278
      y = -21.996911
      z = 0
      irot = 2864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2865
      theta1 = 90
      phi1 = -152.28125
      theta2 = 90
      phi2 = -62.281247
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 823
      chmoth = 'DCLS'
      x = -44.593772
      y = -23.430876
      z = 0
      irot = 2865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2866
      theta1 = 90
      phi1 = -150.45384
      theta2 = 90
      phi2 = -60.453836
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 824
      chmoth = 'DCLS'
      x = -43.823906
      y = -24.841007
      z = 0
      irot = 2866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2867
      theta1 = 90
      phi1 = -148.62642
      theta2 = 90
      phi2 = -58.626425
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 825
      chmoth = 'DCLS'
      x = -43.009465
      y = -26.225871
      z = 0
      irot = 2867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2868
      theta1 = 90
      phi1 = -146.79901
      theta2 = 90
      phi2 = -56.799013
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 826
      chmoth = 'DCLS'
      x = -42.151276
      y = -27.584059
      z = 0
      irot = 2868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2869
      theta1 = 90
      phi1 = -144.9716
      theta2 = 90
      phi2 = -54.971602
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 827
      chmoth = 'DCLS'
      x = -41.250213
      y = -28.91419
      z = 0
      irot = 2869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2870
      theta1 = 90
      phi1 = -143.14419
      theta2 = 90
      phi2 = -53.144191
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 828
      chmoth = 'DCLS'
      x = -40.307191
      y = -30.21491
      z = 0
      irot = 2870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2871
      theta1 = 90
      phi1 = -141.31678
      theta2 = 90
      phi2 = -51.31678
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 829
      chmoth = 'DCLS'
      x = -39.32317
      y = -31.484896
      z = 0
      irot = 2871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2872
      theta1 = 90
      phi1 = -139.48937
      theta2 = 90
      phi2 = -49.489369
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 830
      chmoth = 'DCLS'
      x = -38.299151
      y = -32.722858
      z = 0
      irot = 2872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2873
      theta1 = 90
      phi1 = -137.66196
      theta2 = 90
      phi2 = -47.661958
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 831
      chmoth = 'DCLS'
      x = -37.236176
      y = -33.927535
      z = 0
      irot = 2873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2874
      theta1 = 90
      phi1 = -135.83455
      theta2 = 90
      phi2 = -45.834546
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 832
      chmoth = 'DCLS'
      x = -36.135325
      y = -35.097702
      z = 0
      irot = 2874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2875
      theta1 = 90
      phi1 = -134.00714
      theta2 = 90
      phi2 = -44.007135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 833
      chmoth = 'DCLS'
      x = -34.997719
      y = -36.232169
      z = 0
      irot = 2875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2876
      theta1 = 90
      phi1 = -132.17972
      theta2 = 90
      phi2 = -42.179724
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 834
      chmoth = 'DCLS'
      x = -33.824515
      y = -37.329782
      z = 0
      irot = 2876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2877
      theta1 = 90
      phi1 = -130.35231
      theta2 = 90
      phi2 = -40.352313
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 835
      chmoth = 'DCLS'
      x = -32.616905
      y = -38.389424
      z = 0
      irot = 2877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2878
      theta1 = 90
      phi1 = -128.5249
      theta2 = 90
      phi2 = -38.524902
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 836
      chmoth = 'DCLS'
      x = -31.376119
      y = -39.410018
      z = 0
      irot = 2878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2879
      theta1 = 90
      phi1 = -126.69749
      theta2 = 90
      phi2 = -36.69749
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 837
      chmoth = 'DCLS'
      x = -30.103418
      y = -40.390526
      z = 0
      irot = 2879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2880
      theta1 = 90
      phi1 = -124.87008
      theta2 = 90
      phi2 = -34.870079
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 838
      chmoth = 'DCLS'
      x = -28.800098
      y = -41.32995
      z = 0
      irot = 2880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2881
      theta1 = 90
      phi1 = -123.04267
      theta2 = 90
      phi2 = -33.042668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 839
      chmoth = 'DCLS'
      x = -27.467482
      y = -42.227335
      z = 0
      irot = 2881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2882
      theta1 = 90
      phi1 = -121.21526
      theta2 = 90
      phi2 = -31.215257
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 840
      chmoth = 'DCLS'
      x = -26.106928
      y = -43.081768
      z = 0
      irot = 2882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2883
      theta1 = 90
      phi1 = -119.38785
      theta2 = 90
      phi2 = -29.387846
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 841
      chmoth = 'DCLS'
      x = -24.719819
      y = -43.892379
      z = 0
      irot = 2883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2884
      theta1 = 90
      phi1 = -117.56043
      theta2 = 90
      phi2 = -27.560435
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 842
      chmoth = 'DCLS'
      x = -23.307566
      y = -44.658345
      z = 0
      irot = 2884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2885
      theta1 = 90
      phi1 = -115.73302
      theta2 = 90
      phi2 = -25.733023
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 843
      chmoth = 'DCLS'
      x = -21.871605
      y = -45.378886
      z = 0
      irot = 2885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2886
      theta1 = 90
      phi1 = -113.90561
      theta2 = 90
      phi2 = -23.905612
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 844
      chmoth = 'DCLS'
      x = -20.413397
      y = -46.053269
      z = 0
      irot = 2886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2887
      theta1 = 90
      phi1 = -112.0782
      theta2 = 90
      phi2 = -22.078201
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 845
      chmoth = 'DCLS'
      x = -18.934426
      y = -46.680809
      z = 0
      irot = 2887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2888
      theta1 = 90
      phi1 = -110.25079
      theta2 = 90
      phi2 = -20.25079
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 846
      chmoth = 'DCLS'
      x = -17.436195
      y = -47.260867
      z = 0
      irot = 2888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2889
      theta1 = 90
      phi1 = -108.42338
      theta2 = 90
      phi2 = -18.423379
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 847
      chmoth = 'DCLS'
      x = -15.920228
      y = -47.792852
      z = 0
      irot = 2889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2890
      theta1 = 90
      phi1 = -106.59597
      theta2 = 90
      phi2 = -16.595968
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 848
      chmoth = 'DCLS'
      x = -14.388068
      y = -48.276225
      z = 0
      irot = 2890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2891
      theta1 = 90
      phi1 = -104.76856
      theta2 = 90
      phi2 = -14.768556
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 849
      chmoth = 'DCLS'
      x = -12.841273
      y = -48.710493
      z = 0
      irot = 2891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2892
      theta1 = 90
      phi1 = -102.94115
      theta2 = 90
      phi2 = -12.941145
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 850
      chmoth = 'DCLS'
      x = -11.281417
      y = -49.095214
      z = 0
      irot = 2892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2893
      theta1 = 90
      phi1 = -101.11373
      theta2 = 90
      phi2 = -11.113734
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 851
      chmoth = 'DCLS'
      x = -9.7100853
      y = -49.429997
      z = 0
      irot = 2893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2894
      theta1 = 90
      phi1 = -99.286323
      theta2 = 90
      phi2 = -9.286323
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 852
      chmoth = 'DCLS'
      x = -8.1288769
      y = -49.714503
      z = 0
      irot = 2894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2895
      theta1 = 90
      phi1 = -97.458912
      theta2 = 90
      phi2 = -7.4589118
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 853
      chmoth = 'DCLS'
      x = -6.5394002
      y = -49.94844
      z = 0
      irot = 2895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2896
      theta1 = 90
      phi1 = -95.631501
      theta2 = 90
      phi2 = -5.6315006
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 854
      chmoth = 'DCLS'
      x = -4.9432719
      y = -50.131572
      z = 0
      irot = 2896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2897
      theta1 = 90
      phi1 = -93.804089
      theta2 = 90
      phi2 = -3.8040895
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 855
      chmoth = 'DCLS'
      x = -3.3421154
      y = -50.263711
      z = 0
      irot = 2897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2898
      theta1 = 90
      phi1 = -91.976678
      theta2 = 90
      phi2 = -1.9766783
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 856
      chmoth = 'DCLS'
      x = -1.7375595
      y = -50.344725
      z = 0
      irot = 2898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2899
      theta1 = 90
      phi1 = -90.149267
      theta2 = 90
      phi2 = -0.14926714
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 857
      chmoth = 'DCLS'
      x = -0.13123617
      y = -50.374529
      z = 0
      irot = 2899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2900
      theta1 = 90
      phi1 = -88.321856
      theta2 = 90
      phi2 = 1.678144
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 858
      chmoth = 'DCLS'
      x = 1.4752206
      y = -50.353094
      z = 0
      irot = 2900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2901
      theta1 = 90
      phi1 = -86.494445
      theta2 = 90
      phi2 = 3.5055552
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 859
      chmoth = 'DCLS'
      x = 3.0801769
      y = -50.280443
      z = 0
      irot = 2901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2902
      theta1 = 90
      phi1 = -84.667034
      theta2 = 90
      phi2 = 5.3329664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 860
      chmoth = 'DCLS'
      x = 4.6820001
      y = -50.156647
      z = 0
      irot = 2902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2903
      theta1 = 90
      phi1 = -82.839622
      theta2 = 90
      phi2 = 7.1603775
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 861
      chmoth = 'DCLS'
      x = 6.279061
      y = -49.981835
      z = 0
      irot = 2903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2904
      theta1 = 90
      phi1 = -81.012211
      theta2 = 90
      phi2 = 8.9877887
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 862
      chmoth = 'DCLS'
      x = 7.869735
      y = -49.756182
      z = 0
      irot = 2904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2905
      theta1 = 90
      phi1 = -79.1848
      theta2 = 90
      phi2 = 10.8152
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 863
      chmoth = 'DCLS'
      x = 9.4524043
      y = -49.47992
      z = 0
      irot = 2905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2906
      theta1 = 90
      phi1 = -77.357389
      theta2 = 90
      phi2 = 12.642611
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 864
      chmoth = 'DCLS'
      x = 11.025459
      y = -49.153328
      z = 0
      irot = 2906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2907
      theta1 = 90
      phi1 = -75.529978
      theta2 = 90
      phi2 = 14.470022
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 865
      chmoth = 'DCLS'
      x = 12.587299
      y = -48.776739
      z = 0
      irot = 2907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2908
      theta1 = 90
      phi1 = -73.702567
      theta2 = 90
      phi2 = 16.297433
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 866
      chmoth = 'DCLS'
      x = 14.136335
      y = -48.350537
      z = 0
      irot = 2908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2909
      theta1 = 90
      phi1 = -71.875155
      theta2 = 90
      phi2 = 18.124845
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 867
      chmoth = 'DCLS'
      x = 15.670993
      y = -47.875154
      z = 0
      irot = 2909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2910
      theta1 = 90
      phi1 = -70.047744
      theta2 = 90
      phi2 = 19.952256
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 868
      chmoth = 'DCLS'
      x = 17.189711
      y = -47.351074
      z = 0
      irot = 2910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2911
      theta1 = 90
      phi1 = -68.220333
      theta2 = 90
      phi2 = 21.779667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 869
      chmoth = 'DCLS'
      x = 18.690944
      y = -46.778831
      z = 0
      irot = 2911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2912
      theta1 = 90
      phi1 = -66.392922
      theta2 = 90
      phi2 = 23.607078
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 870
      chmoth = 'DCLS'
      x = 20.173165
      y = -46.159006
      z = 0
      irot = 2912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2913
      theta1 = 90
      phi1 = -64.565511
      theta2 = 90
      phi2 = 25.434489
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 871
      chmoth = 'DCLS'
      x = 21.634867
      y = -45.49223
      z = 0
      irot = 2913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2914
      theta1 = 90
      phi1 = -62.7381
      theta2 = 90
      phi2 = 27.2619
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 872
      chmoth = 'DCLS'
      x = 23.074562
      y = -44.77918
      z = 0
      irot = 2914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2915
      theta1 = 90
      phi1 = -60.910688
      theta2 = 90
      phi2 = 29.089312
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 873
      chmoth = 'DCLS'
      x = 24.490787
      y = -44.020583
      z = 0
      irot = 2915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2916
      theta1 = 90
      phi1 = -59.083277
      theta2 = 90
      phi2 = 30.916723
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 874
      chmoth = 'DCLS'
      x = 25.882101
      y = -43.21721
      z = 0
      irot = 2916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2917
      theta1 = 90
      phi1 = -57.255866
      theta2 = 90
      phi2 = 32.744134
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 875
      chmoth = 'DCLS'
      x = 27.247089
      y = -42.369878
      z = 0
      irot = 2917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2918
      theta1 = 90
      phi1 = -55.428455
      theta2 = 90
      phi2 = 34.571545
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 876
      chmoth = 'DCLS'
      x = 28.584362
      y = -41.479449
      z = 0
      irot = 2918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2919
      theta1 = 90
      phi1 = -53.601044
      theta2 = 90
      phi2 = 36.398956
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 877
      chmoth = 'DCLS'
      x = 29.89256
      y = -40.546828
      z = 0
      irot = 2919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2920
      theta1 = 90
      phi1 = -51.773633
      theta2 = 90
      phi2 = 38.226367
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 878
      chmoth = 'DCLS'
      x = 31.170352
      y = -39.572965
      z = 0
      irot = 2920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2921
      theta1 = 90
      phi1 = -49.946221
      theta2 = 90
      phi2 = 40.053779
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 879
      chmoth = 'DCLS'
      x = 32.416439
      y = -38.55885
      z = 0
      irot = 2921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2922
      theta1 = 90
      phi1 = -48.11881
      theta2 = 90
      phi2 = 41.88119
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 880
      chmoth = 'DCLS'
      x = 33.629553
      y = -37.505513
      z = 0
      irot = 2922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2923
      theta1 = 90
      phi1 = -46.291399
      theta2 = 90
      phi2 = 43.708601
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 881
      chmoth = 'DCLS'
      x = 34.808461
      y = -36.414028
      z = 0
      irot = 2923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2924
      theta1 = 90
      phi1 = -44.463988
      theta2 = 90
      phi2 = 45.536012
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 882
      chmoth = 'DCLS'
      x = 35.951962
      y = -35.285504
      z = 0
      irot = 2924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2925
      theta1 = 90
      phi1 = -42.636577
      theta2 = 90
      phi2 = 47.363423
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 883
      chmoth = 'DCLS'
      x = 37.058895
      y = -34.121089
      z = 0
      irot = 2925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2926
      theta1 = 90
      phi1 = -40.809166
      theta2 = 90
      phi2 = 49.190834
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 884
      chmoth = 'DCLS'
      x = 38.128133
      y = -32.921967
      z = 0
      irot = 2926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2927
      theta1 = 90
      phi1 = -38.981754
      theta2 = 90
      phi2 = 51.018246
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 885
      chmoth = 'DCLS'
      x = 39.158588
      y = -31.689358
      z = 0
      irot = 2927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2928
      theta1 = 90
      phi1 = -37.154343
      theta2 = 90
      phi2 = 52.845657
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 886
      chmoth = 'DCLS'
      x = 40.149212
      y = -30.424515
      z = 0
      irot = 2928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2929
      theta1 = 90
      phi1 = -35.326932
      theta2 = 90
      phi2 = 54.673068
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 887
      chmoth = 'DCLS'
      x = 41.098999
      y = -29.128726
      z = 0
      irot = 2929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2930
      theta1 = 90
      phi1 = -33.499521
      theta2 = 90
      phi2 = 56.500479
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 888
      chmoth = 'DCLS'
      x = 42.006981
      y = -27.803309
      z = 0
      irot = 2930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2931
      theta1 = 90
      phi1 = -31.67211
      theta2 = 90
      phi2 = 58.32789
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 889
      chmoth = 'DCLS'
      x = 42.872235
      y = -26.449611
      z = 0
      irot = 2931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2932
      theta1 = 90
      phi1 = -29.844699
      theta2 = 90
      phi2 = 60.155301
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 890
      chmoth = 'DCLS'
      x = 43.69388
      y = -25.069009
      z = 0
      irot = 2932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2933
      theta1 = 90
      phi1 = -28.017287
      theta2 = 90
      phi2 = 61.982713
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 891
      chmoth = 'DCLS'
      x = 44.471082
      y = -23.662908
      z = 0
      irot = 2933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2934
      theta1 = 90
      phi1 = -26.189876
      theta2 = 90
      phi2 = 63.810124
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 892
      chmoth = 'DCLS'
      x = 45.20305
      y = -22.232738
      z = 0
      irot = 2934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2935
      theta1 = 90
      phi1 = -24.362465
      theta2 = 90
      phi2 = 65.637535
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 893
      chmoth = 'DCLS'
      x = 45.889039
      y = -20.779954
      z = 0
      irot = 2935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2936
      theta1 = 90
      phi1 = -22.535054
      theta2 = 90
      phi2 = 67.464946
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 894
      chmoth = 'DCLS'
      x = 46.528351
      y = -19.306033
      z = 0
      irot = 2936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2937
      theta1 = 90
      phi1 = -20.707643
      theta2 = 90
      phi2 = 69.292357
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 895
      chmoth = 'DCLS'
      x = 47.120337
      y = -17.812475
      z = 0
      irot = 2937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2938
      theta1 = 90
      phi1 = -18.880232
      theta2 = 90
      phi2 = 71.119768
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 896
      chmoth = 'DCLS'
      x = 47.664393
      y = -16.300798
      z = 0
      irot = 2938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2939
      theta1 = 90
      phi1 = -17.05282
      theta2 = 90
      phi2 = 72.94718
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 897
      chmoth = 'DCLS'
      x = 48.159967
      y = -14.772541
      z = 0
      irot = 2939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2940
      theta1 = 90
      phi1 = -15.225409
      theta2 = 90
      phi2 = 74.774591
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 898
      chmoth = 'DCLS'
      x = 48.606554
      y = -13.229258
      z = 0
      irot = 2940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2941
      theta1 = 90
      phi1 = -13.397998
      theta2 = 90
      phi2 = 76.602002
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 899
      chmoth = 'DCLS'
      x = 49.003701
      y = -11.672519
      z = 0
      irot = 2941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2942
      theta1 = 90
      phi1 = -11.570587
      theta2 = 90
      phi2 = 78.429413
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 900
      chmoth = 'DCLS'
      x = 49.351003
      y = -10.103907
      z = 0
      irot = 2942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2943
      theta1 = 90
      phi1 = -9.7431757
      theta2 = 90
      phi2 = 80.256824
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 901
      chmoth = 'DCLS'
      x = 49.648107
      y = -8.5250171
      z = 0
      irot = 2943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2944
      theta1 = 90
      phi1 = -7.9157646
      theta2 = 90
      phi2 = 82.084235
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 902
      chmoth = 'DCLS'
      x = 49.89471
      y = -6.9374563
      z = 0
      irot = 2944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2945
      theta1 = 90
      phi1 = -6.0883534
      theta2 = 90
      phi2 = 83.911647
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 903
      chmoth = 'DCLS'
      x = 50.090563
      y = -5.3428388
      z = 0
      irot = 2945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2946
      theta1 = 90
      phi1 = -4.2609422
      theta2 = 90
      phi2 = 85.739058
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 904
      chmoth = 'DCLS'
      x = 50.235465
      y = -3.7427869
      z = 0
      irot = 2946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2947
      theta1 = 90
      phi1 = -2.4335311
      theta2 = 90
      phi2 = 87.566469
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 905
      chmoth = 'DCLS'
      x = 50.32927
      y = -2.1389279
      z = 0
      irot = 2947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2948
      theta1 = 90
      phi1 = 0.3076
      theta2 = 90
      phi2 = 90.3076
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 906
      chmoth = 'DCLS'
      x = 51.758854
      y = 0.27787695
      z = 0
      irot = 2948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2949
      theta1 = 90
      phi1 = 2.1350112
      theta2 = 90
      phi2 = 92.135011
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 907
      chmoth = 'DCLS'
      x = 51.723669
      y = 1.9282703
      z = 0
      irot = 2949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2950
      theta1 = 90
      phi1 = 3.9624223
      theta2 = 90
      phi2 = 93.962422
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 908
      chmoth = 'DCLS'
      x = 51.635873
      y = 3.5767024
      z = 0
      irot = 2950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2951
      theta1 = 90
      phi1 = 5.7898335
      theta2 = 90
      phi2 = 95.789834
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 909
      chmoth = 'DCLS'
      x = 51.495555
      y = 5.2214963
      z = 0
      irot = 2951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2952
      theta1 = 90
      phi1 = 7.6172447
      theta2 = 90
      phi2 = 97.617245
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 910
      chmoth = 'DCLS'
      x = 51.302857
      y = 6.8609791
      z = 0
      irot = 2952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2953
      theta1 = 90
      phi1 = 9.4446558
      theta2 = 90
      phi2 = 99.444656
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 911
      chmoth = 'DCLS'
      x = 51.057976
      y = 8.4934832
      z = 0
      irot = 2953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2954
      theta1 = 90
      phi1 = 11.272067
      theta2 = 90
      phi2 = 101.27207
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 912
      chmoth = 'DCLS'
      x = 50.761161
      y = 10.117348
      z = 0
      irot = 2954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2955
      theta1 = 90
      phi1 = 13.099478
      theta2 = 90
      phi2 = 103.09948
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 913
      chmoth = 'DCLS'
      x = 50.412713
      y = 11.730922
      z = 0
      irot = 2955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2956
      theta1 = 90
      phi1 = 14.926889
      theta2 = 90
      phi2 = 104.92689
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 914
      chmoth = 'DCLS'
      x = 50.012988
      y = 13.332563
      z = 0
      irot = 2956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2957
      theta1 = 90
      phi1 = 16.754301
      theta2 = 90
      phi2 = 106.7543
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 915
      chmoth = 'DCLS'
      x = 49.562391
      y = 14.920644
      z = 0
      irot = 2957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2958
      theta1 = 90
      phi1 = 18.581712
      theta2 = 90
      phi2 = 108.58171
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 916
      chmoth = 'DCLS'
      x = 49.061381
      y = 16.493547
      z = 0
      irot = 2958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2959
      theta1 = 90
      phi1 = 20.409123
      theta2 = 90
      phi2 = 110.40912
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 917
      chmoth = 'DCLS'
      x = 48.510468
      y = 18.049674
      z = 0
      irot = 2959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2960
      theta1 = 90
      phi1 = 22.236534
      theta2 = 90
      phi2 = 112.23653
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 918
      chmoth = 'DCLS'
      x = 47.910211
      y = 19.587441
      z = 0
      irot = 2960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2961
      theta1 = 90
      phi1 = 24.063945
      theta2 = 90
      phi2 = 114.06395
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 919
      chmoth = 'DCLS'
      x = 47.261222
      y = 21.105285
      z = 0
      irot = 2961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2962
      theta1 = 90
      phi1 = 25.891356
      theta2 = 90
      phi2 = 115.89136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 920
      chmoth = 'DCLS'
      x = 46.564161
      y = 22.601661
      z = 0
      irot = 2962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2963
      theta1 = 90
      phi1 = 27.718768
      theta2 = 90
      phi2 = 117.71877
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 921
      chmoth = 'DCLS'
      x = 45.819736
      y = 24.075048
      z = 0
      irot = 2963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2964
      theta1 = 90
      phi1 = 29.546179
      theta2 = 90
      phi2 = 119.54618
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 922
      chmoth = 'DCLS'
      x = 45.028706
      y = 25.523947
      z = 0
      irot = 2964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2965
      theta1 = 90
      phi1 = 31.37359
      theta2 = 90
      phi2 = 121.37359
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 923
      chmoth = 'DCLS'
      x = 44.191874
      y = 26.946883
      z = 0
      irot = 2965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2966
      theta1 = 90
      phi1 = 33.201001
      theta2 = 90
      phi2 = 123.201
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 924
      chmoth = 'DCLS'
      x = 43.310091
      y = 28.34241
      z = 0
      irot = 2966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2967
      theta1 = 90
      phi1 = 35.028412
      theta2 = 90
      phi2 = 125.02841
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 925
      chmoth = 'DCLS'
      x = 42.384255
      y = 29.709108
      z = 0
      irot = 2967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2968
      theta1 = 90
      phi1 = 36.855823
      theta2 = 90
      phi2 = 126.85582
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 926
      chmoth = 'DCLS'
      x = 41.415307
      y = 31.045588
      z = 0
      irot = 2968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2969
      theta1 = 90
      phi1 = 38.683235
      theta2 = 90
      phi2 = 128.68323
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 927
      chmoth = 'DCLS'
      x = 40.404234
      y = 32.350488
      z = 0
      irot = 2969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2970
      theta1 = 90
      phi1 = 40.510646
      theta2 = 90
      phi2 = 130.51065
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 928
      chmoth = 'DCLS'
      x = 39.352062
      y = 33.622483
      z = 0
      irot = 2970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2971
      theta1 = 90
      phi1 = 42.338057
      theta2 = 90
      phi2 = 132.33806
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 929
      chmoth = 'DCLS'
      x = 38.259863
      y = 34.860279
      z = 0
      irot = 2971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2972
      theta1 = 90
      phi1 = 44.165468
      theta2 = 90
      phi2 = 134.16547
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 930
      chmoth = 'DCLS'
      x = 37.128748
      y = 36.062616
      z = 0
      irot = 2972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2973
      theta1 = 90
      phi1 = 45.992879
      theta2 = 90
      phi2 = 135.99288
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 931
      chmoth = 'DCLS'
      x = 35.959866
      y = 37.228271
      z = 0
      irot = 2973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2974
      theta1 = 90
      phi1 = 47.82029
      theta2 = 90
      phi2 = 137.82029
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 932
      chmoth = 'DCLS'
      x = 34.754408
      y = 38.35606
      z = 0
      irot = 2974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2975
      theta1 = 90
      phi1 = 49.647702
      theta2 = 90
      phi2 = 139.6477
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 933
      chmoth = 'DCLS'
      x = 33.513599
      y = 39.444834
      z = 0
      irot = 2975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2976
      theta1 = 90
      phi1 = 51.475113
      theta2 = 90
      phi2 = 141.47511
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 934
      chmoth = 'DCLS'
      x = 32.238701
      y = 40.493486
      z = 0
      irot = 2976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2977
      theta1 = 90
      phi1 = 53.302524
      theta2 = 90
      phi2 = 143.30252
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 935
      chmoth = 'DCLS'
      x = 30.93101
      y = 41.500949
      z = 0
      irot = 2977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2978
      theta1 = 90
      phi1 = 55.129935
      theta2 = 90
      phi2 = 145.12994
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 936
      chmoth = 'DCLS'
      x = 29.591858
      y = 42.4662
      z = 0
      irot = 2978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2979
      theta1 = 90
      phi1 = 56.957346
      theta2 = 90
      phi2 = 146.95735
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 937
      chmoth = 'DCLS'
      x = 28.222607
      y = 43.388255
      z = 0
      irot = 2979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2980
      theta1 = 90
      phi1 = 58.784757
      theta2 = 90
      phi2 = 148.78476
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 938
      chmoth = 'DCLS'
      x = 26.824648
      y = 44.266177
      z = 0
      irot = 2980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2981
      theta1 = 90
      phi1 = 60.612169
      theta2 = 90
      phi2 = 150.61217
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 939
      chmoth = 'DCLS'
      x = 25.399404
      y = 45.099074
      z = 0
      irot = 2981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2982
      theta1 = 90
      phi1 = 62.43958
      theta2 = 90
      phi2 = 152.43958
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 940
      chmoth = 'DCLS'
      x = 23.948325
      y = 45.886097
      z = 0
      irot = 2982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2983
      theta1 = 90
      phi1 = 64.266991
      theta2 = 90
      phi2 = 154.26699
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 941
      chmoth = 'DCLS'
      x = 22.472887
      y = 46.626447
      z = 0
      irot = 2983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2984
      theta1 = 90
      phi1 = 66.094402
      theta2 = 90
      phi2 = 156.0944
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 942
      chmoth = 'DCLS'
      x = 20.97459
      y = 47.31937
      z = 0
      irot = 2984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2985
      theta1 = 90
      phi1 = 67.921813
      theta2 = 90
      phi2 = 157.92181
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 943
      chmoth = 'DCLS'
      x = 19.454958
      y = 47.964162
      z = 0
      irot = 2985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2986
      theta1 = 90
      phi1 = 69.749224
      theta2 = 90
      phi2 = 159.74922
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 944
      chmoth = 'DCLS'
      x = 17.915538
      y = 48.560166
      z = 0
      irot = 2986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2987
      theta1 = 90
      phi1 = 71.576636
      theta2 = 90
      phi2 = 161.57664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 945
      chmoth = 'DCLS'
      x = 16.357894
      y = 49.106776
      z = 0
      irot = 2987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2988
      theta1 = 90
      phi1 = 73.404047
      theta2 = 90
      phi2 = 163.40405
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 946
      chmoth = 'DCLS'
      x = 14.783612
      y = 49.603437
      z = 0
      irot = 2988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2989
      theta1 = 90
      phi1 = 75.231458
      theta2 = 90
      phi2 = 165.23146
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 947
      chmoth = 'DCLS'
      x = 13.194293
      y = 50.049644
      z = 0
      irot = 2989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2990
      theta1 = 90
      phi1 = 77.058869
      theta2 = 90
      phi2 = 167.05887
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 948
      chmoth = 'DCLS'
      x = 11.591553
      y = 50.444941
      z = 0
      irot = 2990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2991
      theta1 = 90
      phi1 = 78.88628
      theta2 = 90
      phi2 = 168.88628
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 949
      chmoth = 'DCLS'
      x = 9.9770219
      y = 50.788928
      z = 0
      irot = 2991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2992
      theta1 = 90
      phi1 = 80.713691
      theta2 = 90
      phi2 = 170.71369
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 950
      chmoth = 'DCLS'
      x = 8.352343
      y = 51.081254
      z = 0
      irot = 2992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2993
      theta1 = 90
      phi1 = 82.541103
      theta2 = 90
      phi2 = 172.5411
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 951
      chmoth = 'DCLS'
      x = 6.7191684
      y = 51.321623
      z = 0
      irot = 2993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2994
      theta1 = 90
      phi1 = 84.368514
      theta2 = 90
      phi2 = 174.36851
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 952
      chmoth = 'DCLS'
      x = 5.0791593
      y = 51.509789
      z = 0
      irot = 2994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2995
      theta1 = 90
      phi1 = 86.195925
      theta2 = 90
      phi2 = 176.19592
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 953
      chmoth = 'DCLS'
      x = 3.4339838
      y = 51.645561
      z = 0
      irot = 2995
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2996
      theta1 = 90
      phi1 = 88.023336
      theta2 = 90
      phi2 = 178.02334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 954
      chmoth = 'DCLS'
      x = 1.7853155
      y = 51.728801
      z = 0
      irot = 2996
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2997
      theta1 = 90
      phi1 = 89.850747
      theta2 = 90
      phi2 = 179.85075
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 955
      chmoth = 'DCLS'
      x = 0.13483113
      y = 51.759424
      z = 0
      irot = 2997
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2998
      theta1 = 90
      phi1 = 91.678158
      theta2 = 90
      phi2 = -178.32184
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 956
      chmoth = 'DCLS'
      x = -1.5157903
      y = 51.7374
      z = 0
      irot = 2998
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2999
      theta1 = 90
      phi1 = 93.50557
      theta2 = 90
      phi2 = -176.49443
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 957
      chmoth = 'DCLS'
      x = -3.16487
      y = 51.662751
      z = 0
      irot = 2999
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3000
      theta1 = 90
      phi1 = 95.332981
      theta2 = 90
      phi2 = -174.66702
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 958
      chmoth = 'DCLS'
      x = -4.8107305
      y = 51.535551
      z = 0
      irot = 3000
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3001
      theta1 = 90
      phi1 = 97.160392
      theta2 = 90
      phi2 = -172.83961
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 959
      chmoth = 'DCLS'
      x = -6.4516977
      y = 51.355932
      z = 0
      irot = 3001
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3002
      theta1 = 90
      phi1 = 98.987803
      theta2 = 90
      phi2 = -171.0122
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 960
      chmoth = 'DCLS'
      x = -8.0861024
      y = 51.124076
      z = 0
      irot = 3002
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3003
      theta1 = 90
      phi1 = 100.81521
      theta2 = 90
      phi2 = -169.18479
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 961
      chmoth = 'DCLS'
      x = -9.7122823
      y = 50.840218
      z = 0
      irot = 3003
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3004
      theta1 = 90
      phi1 = 102.64263
      theta2 = 90
      phi2 = -167.35737
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 962
      chmoth = 'DCLS'
      x = -11.328583
      y = 50.504647
      z = 0
      irot = 3004
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3005
      theta1 = 90
      phi1 = 104.47004
      theta2 = 90
      phi2 = -165.52996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 963
      chmoth = 'DCLS'
      x = -12.933361
      y = 50.117705
      z = 0
      irot = 3005
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3006
      theta1 = 90
      phi1 = 106.29745
      theta2 = 90
      phi2 = -163.70255
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 964
      chmoth = 'DCLS'
      x = -14.524984
      y = 49.679785
      z = 0
      irot = 3006
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3007
      theta1 = 90
      phi1 = 108.12486
      theta2 = 90
      phi2 = -161.87514
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 965
      chmoth = 'DCLS'
      x = -16.101832
      y = 49.191333
      z = 0
      irot = 3007
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3008
      theta1 = 90
      phi1 = 109.95227
      theta2 = 90
      phi2 = -160.04773
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 966
      chmoth = 'DCLS'
      x = -17.662302
      y = 48.652845
      z = 0
      irot = 3008
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3009
      theta1 = 90
      phi1 = 111.77968
      theta2 = 90
      phi2 = -158.22032
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 967
      chmoth = 'DCLS'
      x = -19.204807
      y = 48.064869
      z = 0
      irot = 3009
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3010
      theta1 = 90
      phi1 = 113.60709
      theta2 = 90
      phi2 = -156.39291
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 968
      chmoth = 'DCLS'
      x = -20.727777
      y = 47.428003
      z = 0
      irot = 3010
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3011
      theta1 = 90
      phi1 = 115.4345
      theta2 = 90
      phi2 = -154.5655
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 969
      chmoth = 'DCLS'
      x = -22.229664
      y = 46.742895
      z = 0
      irot = 3011
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3012
      theta1 = 90
      phi1 = 117.26191
      theta2 = 90
      phi2 = -152.73809
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 970
      chmoth = 'DCLS'
      x = -23.708939
      y = 46.010242
      z = 0
      irot = 3012
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3013
      theta1 = 90
      phi1 = 119.08933
      theta2 = 90
      phi2 = -150.91067
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 971
      chmoth = 'DCLS'
      x = -25.164099
      y = 45.23079
      z = 0
      irot = 3013
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3014
      theta1 = 90
      phi1 = 120.91674
      theta2 = 90
      phi2 = -149.08326
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 972
      chmoth = 'DCLS'
      x = -26.593662
      y = 44.40533
      z = 0
      irot = 3014
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3015
      theta1 = 90
      phi1 = 122.74415
      theta2 = 90
      phi2 = -147.25585
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 973
      chmoth = 'DCLS'
      x = -27.996176
      y = 43.534702
      z = 0
      irot = 3015
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3016
      theta1 = 90
      phi1 = 124.57156
      theta2 = 90
      phi2 = -145.42844
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 974
      chmoth = 'DCLS'
      x = -29.370213
      y = 42.619793
      z = 0
      irot = 3016
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3017
      theta1 = 90
      phi1 = 126.39897
      theta2 = 90
      phi2 = -143.60103
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 975
      chmoth = 'DCLS'
      x = -30.714376
      y = 41.661533
      z = 0
      irot = 3017
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3018
      theta1 = 90
      phi1 = 128.22638
      theta2 = 90
      phi2 = -141.77362
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 976
      chmoth = 'DCLS'
      x = -32.027297
      y = 40.660896
      z = 0
      irot = 3018
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3019
      theta1 = 90
      phi1 = 130.05379
      theta2 = 90
      phi2 = -139.94621
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 977
      chmoth = 'DCLS'
      x = -33.307641
      y = 39.6189
      z = 0
      irot = 3019
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3020
      theta1 = 90
      phi1 = 131.8812
      theta2 = 90
      phi2 = -138.1188
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 978
      chmoth = 'DCLS'
      x = -34.554106
      y = 38.536605
      z = 0
      irot = 3020
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3021
      theta1 = 90
      phi1 = 133.70862
      theta2 = 90
      phi2 = -136.29138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 979
      chmoth = 'DCLS'
      x = -35.765424
      y = 37.415113
      z = 0
      irot = 3021
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3022
      theta1 = 90
      phi1 = 135.53603
      theta2 = 90
      phi2 = -134.46397
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 980
      chmoth = 'DCLS'
      x = -36.940362
      y = 36.255563
      z = 0
      irot = 3022
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3023
      theta1 = 90
      phi1 = 137.36344
      theta2 = 90
      phi2 = -132.63656
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 981
      chmoth = 'DCLS'
      x = -38.077726
      y = 35.059135
      z = 0
      irot = 3023
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3024
      theta1 = 90
      phi1 = 139.19085
      theta2 = 90
      phi2 = -130.80915
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 982
      chmoth = 'DCLS'
      x = -39.176359
      y = 33.827047
      z = 0
      irot = 3024
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3025
      theta1 = 90
      phi1 = 141.01826
      theta2 = 90
      phi2 = -128.98174
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 983
      chmoth = 'DCLS'
      x = -40.235143
      y = 32.560551
      z = 0
      irot = 3025
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3026
      theta1 = 90
      phi1 = 142.84567
      theta2 = 90
      phi2 = -127.15433
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 984
      chmoth = 'DCLS'
      x = -41.253001
      y = 31.260935
      z = 0
      irot = 3026
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3027
      theta1 = 90
      phi1 = 144.67308
      theta2 = 90
      phi2 = -125.32692
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 985
      chmoth = 'DCLS'
      x = -42.228899
      y = 29.929522
      z = 0
      irot = 3027
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3028
      theta1 = 90
      phi1 = 146.50049
      theta2 = 90
      phi2 = -123.49951
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 986
      chmoth = 'DCLS'
      x = -43.161843
      y = 28.567666
      z = 0
      irot = 3028
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3029
      theta1 = 90
      phi1 = 148.3279
      theta2 = 90
      phi2 = -121.6721
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 987
      chmoth = 'DCLS'
      x = -44.050884
      y = 27.176752
      z = 0
      irot = 3029
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3030
      theta1 = 90
      phi1 = 150.15532
      theta2 = 90
      phi2 = -119.84468
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 988
      chmoth = 'DCLS'
      x = -44.895118
      y = 25.758194
      z = 0
      irot = 3030
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3031
      theta1 = 90
      phi1 = 151.98273
      theta2 = 90
      phi2 = -118.01727
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 989
      chmoth = 'DCLS'
      x = -45.693686
      y = 24.313437
      z = 0
      irot = 3031
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3032
      theta1 = 90
      phi1 = 153.81014
      theta2 = 90
      phi2 = -116.18986
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 990
      chmoth = 'DCLS'
      x = -46.445777
      y = 22.843948
      z = 0
      irot = 3032
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3033
      theta1 = 90
      phi1 = 155.63755
      theta2 = 90
      phi2 = -114.36245
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 991
      chmoth = 'DCLS'
      x = -47.150625
      y = 21.351224
      z = 0
      irot = 3033
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3034
      theta1 = 90
      phi1 = 157.46496
      theta2 = 90
      phi2 = -112.53504
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 992
      chmoth = 'DCLS'
      x = -47.807513
      y = 19.836782
      z = 0
      irot = 3034
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3035
      theta1 = 90
      phi1 = 159.29237
      theta2 = 90
      phi2 = -110.70763
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 993
      chmoth = 'DCLS'
      x = -48.415773
      y = 18.302163
      z = 0
      irot = 3035
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3036
      theta1 = 90
      phi1 = 161.11978
      theta2 = 90
      phi2 = -108.88022
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 994
      chmoth = 'DCLS'
      x = -48.974786
      y = 16.748927
      z = 0
      irot = 3036
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3037
      theta1 = 90
      phi1 = 162.94719
      theta2 = 90
      phi2 = -107.05281
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 995
      chmoth = 'DCLS'
      x = -49.483983
      y = 15.178655
      z = 0
      irot = 3037
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3038
      theta1 = 90
      phi1 = 164.77461
      theta2 = 90
      phi2 = -105.22539
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 996
      chmoth = 'DCLS'
      x = -49.942848
      y = 13.592944
      z = 0
      irot = 3038
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3039
      theta1 = 90
      phi1 = 166.60202
      theta2 = 90
      phi2 = -103.39798
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 997
      chmoth = 'DCLS'
      x = -50.350912
      y = 11.993407
      z = 0
      irot = 3039
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3040
      theta1 = 90
      phi1 = 168.42943
      theta2 = 90
      phi2 = -101.57057
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 998
      chmoth = 'DCLS'
      x = -50.707762
      y = 10.38167
      z = 0
      irot = 3040
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3041
      theta1 = 90
      phi1 = 170.25684
      theta2 = 90
      phi2 = -99.743161
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 999
      chmoth = 'DCLS'
      x = -51.013033
      y = 8.7593739
      z = 0
      irot = 3041
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3042
      theta1 = 90
      phi1 = 172.08425
      theta2 = 90
      phi2 = -97.91575
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1000
      chmoth = 'DCLS'
      x = -51.266416
      y = 7.1281678
      z = 0
      irot = 3042
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3043
      theta1 = 90
      phi1 = 173.91166
      theta2 = 90
      phi2 = -96.088339
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1001
      chmoth = 'DCLS'
      x = -51.467653
      y = 5.4897111
      z = 0
      irot = 3043
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3044
      theta1 = 90
      phi1 = 175.73907
      theta2 = 90
      phi2 = -94.260928
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1002
      chmoth = 'DCLS'
      x = -51.616538
      y = 3.8456706
      z = 0
      irot = 3044
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3045
      theta1 = 90
      phi1 = 177.56648
      theta2 = 90
      phi2 = -92.433517
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1003
      chmoth = 'DCLS'
      x = -51.712921
      y = 2.1977183
      z = 0
      irot = 3045
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3046
      theta1 = 90
      phi1 = 179.39389
      theta2 = 90
      phi2 = -90.606106
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1004
      chmoth = 'DCLS'
      x = -51.756704
      y = 0.54753064
      z = 0
      irot = 3046
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3047
      theta1 = 90
      phi1 = -178.77869
      theta2 = 90
      phi2 = -88.778694
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1005
      chmoth = 'DCLS'
      x = -51.747842
      y = -1.103214
      z = 0
      irot = 3047
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3048
      theta1 = 90
      phi1 = -176.95128
      theta2 = 90
      phi2 = -86.951283
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1006
      chmoth = 'DCLS'
      x = -51.686343
      y = -2.7528364
      z = 0
      irot = 3048
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3049
      theta1 = 90
      phi1 = -175.12387
      theta2 = 90
      phi2 = -85.123872
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1007
      chmoth = 'DCLS'
      x = -51.572272
      y = -4.3996588
      z = 0
      irot = 3049
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3050
      theta1 = 90
      phi1 = -173.29646
      theta2 = 90
      phi2 = -83.296461
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1008
      chmoth = 'DCLS'
      x = -51.405742
      y = -6.042006
      z = 0
      irot = 3050
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3051
      theta1 = 90
      phi1 = -171.46905
      theta2 = 90
      phi2 = -81.46905
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1009
      chmoth = 'DCLS'
      x = -51.186925
      y = -7.6782075
      z = 0
      irot = 3051
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3052
      theta1 = 90
      phi1 = -169.64164
      theta2 = 90
      phi2 = -79.641639
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1010
      chmoth = 'DCLS'
      x = -50.916043
      y = -9.306599
      z = 0
      irot = 3052
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3053
      theta1 = 90
      phi1 = -167.81423
      theta2 = 90
      phi2 = -77.814227
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1011
      chmoth = 'DCLS'
      x = -50.59337
      y = -10.925524
      z = 0
      irot = 3053
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3054
      theta1 = 90
      phi1 = -165.98682
      theta2 = 90
      phi2 = -75.986816
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1012
      chmoth = 'DCLS'
      x = -50.219236
      y = -12.533336
      z = 0
      irot = 3054
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3055
      theta1 = 90
      phi1 = -164.15941
      theta2 = 90
      phi2 = -74.159405
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1013
      chmoth = 'DCLS'
      x = -49.794021
      y = -14.1284
      z = 0
      irot = 3055
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3056
      theta1 = 90
      phi1 = -162.33199
      theta2 = 90
      phi2 = -72.331994
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1014
      chmoth = 'DCLS'
      x = -49.318157
      y = -15.709093
      z = 0
      irot = 3056
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3057
      theta1 = 90
      phi1 = -160.50458
      theta2 = 90
      phi2 = -70.504583
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1015
      chmoth = 'DCLS'
      x = -48.792128
      y = -17.273807
      z = 0
      irot = 3057
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3058
      theta1 = 90
      phi1 = -158.67717
      theta2 = 90
      phi2 = -68.677172
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1016
      chmoth = 'DCLS'
      x = -48.21647
      y = -18.820951
      z = 0
      irot = 3058
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3059
      theta1 = 90
      phi1 = -156.84976
      theta2 = 90
      phi2 = -66.84976
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1017
      chmoth = 'DCLS'
      x = -47.591768
      y = -20.348951
      z = 0
      irot = 3059
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3060
      theta1 = 90
      phi1 = -155.02235
      theta2 = 90
      phi2 = -65.022349
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1018
      chmoth = 'DCLS'
      x = -46.918658
      y = -21.856252
      z = 0
      irot = 3060
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3061
      theta1 = 90
      phi1 = -153.19494
      theta2 = 90
      phi2 = -63.194938
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1019
      chmoth = 'DCLS'
      x = -46.197823
      y = -23.341323
      z = 0
      irot = 3061
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3062
      theta1 = 90
      phi1 = -151.36753
      theta2 = 90
      phi2 = -61.367527
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1020
      chmoth = 'DCLS'
      x = -45.429998
      y = -24.802651
      z = 0
      irot = 3062
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3063
      theta1 = 90
      phi1 = -149.54012
      theta2 = 90
      phi2 = -59.540116
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1021
      chmoth = 'DCLS'
      x = -44.615963
      y = -26.238751
      z = 0
      irot = 3063
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3064
      theta1 = 90
      phi1 = -147.7127
      theta2 = 90
      phi2 = -57.712705
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1022
      chmoth = 'DCLS'
      x = -43.756546
      y = -27.648162
      z = 0
      irot = 3064
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3065
      theta1 = 90
      phi1 = -145.88529
      theta2 = 90
      phi2 = -55.885293
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1023
      chmoth = 'DCLS'
      x = -42.852622
      y = -29.02945
      z = 0
      irot = 3065
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3066
      theta1 = 90
      phi1 = -144.05788
      theta2 = 90
      phi2 = -54.057882
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1024
      chmoth = 'DCLS'
      x = -41.90511
      y = -30.381211
      z = 0
      irot = 3066
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3067
      theta1 = 90
      phi1 = -142.23047
      theta2 = 90
      phi2 = -52.230471
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1025
      chmoth = 'DCLS'
      x = -40.914973
      y = -31.702069
      z = 0
      irot = 3067
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3068
      theta1 = 90
      phi1 = -140.40306
      theta2 = 90
      phi2 = -50.40306
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1026
      chmoth = 'DCLS'
      x = -39.883219
      y = -32.990681
      z = 0
      irot = 3068
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3069
      theta1 = 90
      phi1 = -138.57565
      theta2 = 90
      phi2 = -48.575649
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1027
      chmoth = 'DCLS'
      x = -38.810898
      y = -34.245736
      z = 0
      irot = 3069
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3070
      theta1 = 90
      phi1 = -136.74824
      theta2 = 90
      phi2 = -46.748238
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1028
      chmoth = 'DCLS'
      x = -37.699099
      y = -35.465957
      z = 0
      irot = 3070
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3071
      theta1 = 90
      phi1 = -134.92083
      theta2 = 90
      phi2 = -44.920826
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1029
      chmoth = 'DCLS'
      x = -36.548954
      y = -36.650104
      z = 0
      irot = 3071
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3072
      theta1 = 90
      phi1 = -133.09342
      theta2 = 90
      phi2 = -43.093415
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1030
      chmoth = 'DCLS'
      x = -35.361634
      y = -37.796972
      z = 0
      irot = 3072
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3073
      theta1 = 90
      phi1 = -131.266
      theta2 = 90
      phi2 = -41.266004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1031
      chmoth = 'DCLS'
      x = -34.138344
      y = -38.905394
      z = 0
      irot = 3073
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3074
      theta1 = 90
      phi1 = -129.43859
      theta2 = 90
      phi2 = -39.438593
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1032
      chmoth = 'DCLS'
      x = -32.88033
      y = -39.974242
      z = 0
      irot = 3074
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3075
      theta1 = 90
      phi1 = -127.61118
      theta2 = 90
      phi2 = -37.611182
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1033
      chmoth = 'DCLS'
      x = -31.588872
      y = -41.002431
      z = 0
      irot = 3075
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3076
      theta1 = 90
      phi1 = -125.78377
      theta2 = 90
      phi2 = -35.78377
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1034
      chmoth = 'DCLS'
      x = -30.265283
      y = -41.988913
      z = 0
      irot = 3076
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3077
      theta1 = 90
      phi1 = -123.95636
      theta2 = 90
      phi2 = -33.956359
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1035
      chmoth = 'DCLS'
      x = -28.910909
      y = -42.932686
      z = 0
      irot = 3077
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3078
      theta1 = 90
      phi1 = -122.12895
      theta2 = 90
      phi2 = -32.128948
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1036
      chmoth = 'DCLS'
      x = -27.527128
      y = -43.83279
      z = 0
      irot = 3078
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3079
      theta1 = 90
      phi1 = -120.30154
      theta2 = 90
      phi2 = -30.301537
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1037
      chmoth = 'DCLS'
      x = -26.115347
      y = -44.688308
      z = 0
      irot = 3079
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3080
      theta1 = 90
      phi1 = -118.47413
      theta2 = 90
      phi2 = -28.474126
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1038
      chmoth = 'DCLS'
      x = -24.677002
      y = -45.498371
      z = 0
      irot = 3080
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3081
      theta1 = 90
      phi1 = -116.64671
      theta2 = 90
      phi2 = -26.646715
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1039
      chmoth = 'DCLS'
      x = -23.213558
      y = -46.262154
      z = 0
      irot = 3081
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3082
      theta1 = 90
      phi1 = -114.8193
      theta2 = 90
      phi2 = -24.819303
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1040
      chmoth = 'DCLS'
      x = -21.726501
      y = -46.978882
      z = 0
      irot = 3082
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3083
      theta1 = 90
      phi1 = -112.99189
      theta2 = 90
      phi2 = -22.991892
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1041
      chmoth = 'DCLS'
      x = -20.217345
      y = -47.647824
      z = 0
      irot = 3083
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3084
      theta1 = 90
      phi1 = -111.16448
      theta2 = 90
      phi2 = -21.164481
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1042
      chmoth = 'DCLS'
      x = -18.687624
      y = -48.268301
      z = 0
      irot = 3084
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3085
      theta1 = 90
      phi1 = -109.33707
      theta2 = 90
      phi2 = -19.33707
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1043
      chmoth = 'DCLS'
      x = -17.138895
      y = -48.839681
      z = 0
      irot = 3085
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3086
      theta1 = 90
      phi1 = -107.50966
      theta2 = 90
      phi2 = -17.509659
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1044
      chmoth = 'DCLS'
      x = -15.572733
      y = -49.361383
      z = 0
      irot = 3086
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3087
      theta1 = 90
      phi1 = -105.68225
      theta2 = 90
      phi2 = -15.682248
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1045
      chmoth = 'DCLS'
      x = -13.990731
      y = -49.832877
      z = 0
      irot = 3087
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3088
      theta1 = 90
      phi1 = -103.85484
      theta2 = 90
      phi2 = -13.854836
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1046
      chmoth = 'DCLS'
      x = -12.394499
      y = -50.253682
      z = 0
      irot = 3088
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3089
      theta1 = 90
      phi1 = -102.02743
      theta2 = 90
      phi2 = -12.027425
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1047
      chmoth = 'DCLS'
      x = -10.785659
      y = -50.623372
      z = 0
      irot = 3089
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3090
      theta1 = 90
      phi1 = -100.20001
      theta2 = 90
      phi2 = -10.200014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1048
      chmoth = 'DCLS'
      x = -9.1658479
      y = -50.941569
      z = 0
      irot = 3090
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3091
      theta1 = 90
      phi1 = -98.372603
      theta2 = 90
      phi2 = -8.372603
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1049
      chmoth = 'DCLS'
      x = -7.536714
      y = -51.20795
      z = 0
      irot = 3091
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3092
      theta1 = 90
      phi1 = -96.545192
      theta2 = 90
      phi2 = -6.5451918
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1050
      chmoth = 'DCLS'
      x = -5.899914
      y = -51.422244
      z = 0
      irot = 3092
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3093
      theta1 = 90
      phi1 = -94.717781
      theta2 = 90
      phi2 = -4.7177806
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1051
      chmoth = 'DCLS'
      x = -4.2571128
      y = -51.584234
      z = 0
      irot = 3093
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3094
      theta1 = 90
      phi1 = -92.890369
      theta2 = 90
      phi2 = -2.8903695
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1052
      chmoth = 'DCLS'
      x = -2.6099815
      y = -51.693754
      z = 0
      irot = 3094
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3095
      theta1 = 90
      phi1 = -91.062958
      theta2 = 90
      phi2 = -1.0629583
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1053
      chmoth = 'DCLS'
      x = -0.96019534
      y = -51.750693
      z = 0
      irot = 3095
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3096
      theta1 = 90
      phi1 = -89.235547
      theta2 = 90
      phi2 = 0.76445286
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1054
      chmoth = 'DCLS'
      x = 0.69056745
      y = -51.754993
      z = 0
      irot = 3096
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3097
      theta1 = 90
      phi1 = -87.408136
      theta2 = 90
      phi2 = 2.591864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1055
      chmoth = 'DCLS'
      x = 2.3406278
      y = -51.70665
      z = 0
      irot = 3097
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3098
      theta1 = 90
      phi1 = -85.580725
      theta2 = 90
      phi2 = 4.4192752
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1056
      chmoth = 'DCLS'
      x = 3.9883074
      y = -51.605713
      z = 0
      irot = 3098
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3099
      theta1 = 90
      phi1 = -83.753314
      theta2 = 90
      phi2 = 6.2466864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1057
      chmoth = 'DCLS'
      x = 5.6319302
      y = -51.452284
      z = 0
      irot = 3099
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3100
      theta1 = 90
      phi1 = -81.925902
      theta2 = 90
      phi2 = 8.0740975
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1058
      chmoth = 'DCLS'
      x = 7.2698245
      y = -51.24652
      z = 0
      irot = 3100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3101
      theta1 = 90
      phi1 = -80.098491
      theta2 = 90
      phi2 = 9.9015087
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1059
      chmoth = 'DCLS'
      x = 8.9003241
      y = -50.98863
      z = 0
      irot = 3101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3102
      theta1 = 90
      phi1 = -78.27108
      theta2 = 90
      phi2 = 11.72892
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1060
      chmoth = 'DCLS'
      x = 10.521771
      y = -50.678877
      z = 0
      irot = 3102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3103
      theta1 = 90
      phi1 = -76.443669
      theta2 = 90
      phi2 = 13.556331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1061
      chmoth = 'DCLS'
      x = 12.132515
      y = -50.317574
      z = 0
      irot = 3103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3104
      theta1 = 90
      phi1 = -74.616258
      theta2 = 90
      phi2 = 15.383742
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1062
      chmoth = 'DCLS'
      x = 13.730918
      y = -49.905091
      z = 0
      irot = 3104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3105
      theta1 = 90
      phi1 = -72.788847
      theta2 = 90
      phi2 = 17.211153
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1063
      chmoth = 'DCLS'
      x = 15.315355
      y = -49.441846
      z = 0
      irot = 3105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3106
      theta1 = 90
      phi1 = -70.961435
      theta2 = 90
      phi2 = 19.038565
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1064
      chmoth = 'DCLS'
      x = 16.884214
      y = -48.92831
      z = 0
      irot = 3106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3107
      theta1 = 90
      phi1 = -69.134024
      theta2 = 90
      phi2 = 20.865976
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1065
      chmoth = 'DCLS'
      x = 18.435899
      y = -48.365006
      z = 0
      irot = 3107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3108
      theta1 = 90
      phi1 = -67.306613
      theta2 = 90
      phi2 = 22.693387
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1066
      chmoth = 'DCLS'
      x = 19.968831
      y = -47.752508
      z = 0
      irot = 3108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3109
      theta1 = 90
      phi1 = -65.479202
      theta2 = 90
      phi2 = 24.520798
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1067
      chmoth = 'DCLS'
      x = 21.481452
      y = -47.091437
      z = 0
      irot = 3109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3110
      theta1 = 90
      phi1 = -63.651791
      theta2 = 90
      phi2 = 26.348209
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1068
      chmoth = 'DCLS'
      x = 22.972222
      y = -46.382466
      z = 0
      irot = 3110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3111
      theta1 = 90
      phi1 = -61.82438
      theta2 = 90
      phi2 = 28.17562
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1069
      chmoth = 'DCLS'
      x = 24.439627
      y = -45.626317
      z = 0
      irot = 3111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3112
      theta1 = 90
      phi1 = -59.996968
      theta2 = 90
      phi2 = 30.003032
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1070
      chmoth = 'DCLS'
      x = 25.882172
      y = -44.823759
      z = 0
      irot = 3112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3113
      theta1 = 90
      phi1 = -58.169557
      theta2 = 90
      phi2 = 31.830443
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1071
      chmoth = 'DCLS'
      x = 27.29839
      y = -43.975608
      z = 0
      irot = 3113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3114
      theta1 = 90
      phi1 = -56.342146
      theta2 = 90
      phi2 = 33.657854
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1072
      chmoth = 'DCLS'
      x = 28.686842
      y = -43.082726
      z = 0
      irot = 3114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3115
      theta1 = 90
      phi1 = -54.514735
      theta2 = 90
      phi2 = 35.485265
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1073
      chmoth = 'DCLS'
      x = 30.046115
      y = -42.146022
      z = 0
      irot = 3115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3116
      theta1 = 90
      phi1 = -52.687324
      theta2 = 90
      phi2 = 37.312676
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1074
      chmoth = 'DCLS'
      x = 31.374826
      y = -41.166449
      z = 0
      irot = 3116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3117
      theta1 = 90
      phi1 = -50.859913
      theta2 = 90
      phi2 = 39.140087
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1075
      chmoth = 'DCLS'
      x = 32.671623
      y = -40.145003
      z = 0
      irot = 3117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3118
      theta1 = 90
      phi1 = -49.032501
      theta2 = 90
      phi2 = 40.967499
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1076
      chmoth = 'DCLS'
      x = 33.935188
      y = -39.082722
      z = 0
      irot = 3118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3119
      theta1 = 90
      phi1 = -47.20509
      theta2 = 90
      phi2 = 42.79491
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1077
      chmoth = 'DCLS'
      x = 35.164236
      y = -37.980689
      z = 0
      irot = 3119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3120
      theta1 = 90
      phi1 = -45.377679
      theta2 = 90
      phi2 = 44.622321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1078
      chmoth = 'DCLS'
      x = 36.357516
      y = -36.840022
      z = 0
      irot = 3120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3121
      theta1 = 90
      phi1 = -43.550268
      theta2 = 90
      phi2 = 46.449732
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1079
      chmoth = 'DCLS'
      x = 37.513814
      y = -35.661884
      z = 0
      irot = 3121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3122
      theta1 = 90
      phi1 = -41.722857
      theta2 = 90
      phi2 = 48.277143
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1080
      chmoth = 'DCLS'
      x = 38.631955
      y = -34.447471
      z = 0
      irot = 3122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3123
      theta1 = 90
      phi1 = -39.895446
      theta2 = 90
      phi2 = 50.104554
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1081
      chmoth = 'DCLS'
      x = 39.7108
      y = -33.19802
      z = 0
      irot = 3123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3124
      theta1 = 90
      phi1 = -38.068034
      theta2 = 90
      phi2 = 51.931966
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1082
      chmoth = 'DCLS'
      x = 40.749254
      y = -31.914801
      z = 0
      irot = 3124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3125
      theta1 = 90
      phi1 = -36.240623
      theta2 = 90
      phi2 = 53.759377
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1083
      chmoth = 'DCLS'
      x = 41.746258
      y = -30.599119
      z = 0
      irot = 3125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3126
      theta1 = 90
      phi1 = -34.413212
      theta2 = 90
      phi2 = 55.586788
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1084
      chmoth = 'DCLS'
      x = 42.7008
      y = -29.252313
      z = 0
      irot = 3126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3127
      theta1 = 90
      phi1 = -32.585801
      theta2 = 90
      phi2 = 57.414199
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1085
      chmoth = 'DCLS'
      x = 43.611909
      y = -27.875753
      z = 0
      irot = 3127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3128
      theta1 = 90
      phi1 = -30.75839
      theta2 = 90
      phi2 = 59.24161
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1086
      chmoth = 'DCLS'
      x = 44.478656
      y = -26.470839
      z = 0
      irot = 3128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3129
      theta1 = 90
      phi1 = -28.930979
      theta2 = 90
      phi2 = 61.069021
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1087
      chmoth = 'DCLS'
      x = 45.300162
      y = -25.038999
      z = 0
      irot = 3129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3130
      theta1 = 90
      phi1 = -27.103567
      theta2 = 90
      phi2 = 62.896433
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1088
      chmoth = 'DCLS'
      x = 46.07559
      y = -23.581691
      z = 0
      irot = 3130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3131
      theta1 = 90
      phi1 = -25.276156
      theta2 = 90
      phi2 = 64.723844
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1089
      chmoth = 'DCLS'
      x = 46.804152
      y = -22.100396
      z = 0
      irot = 3131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3132
      theta1 = 90
      phi1 = -23.448745
      theta2 = 90
      phi2 = 66.551255
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1090
      chmoth = 'DCLS'
      x = 47.485107
      y = -20.596622
      z = 0
      irot = 3132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3133
      theta1 = 90
      phi1 = -21.621334
      theta2 = 90
      phi2 = 68.378666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1091
      chmoth = 'DCLS'
      x = 48.117761
      y = -19.071897
      z = 0
      irot = 3133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3134
      theta1 = 90
      phi1 = -19.793923
      theta2 = 90
      phi2 = 70.206077
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1092
      chmoth = 'DCLS'
      x = 48.701472
      y = -17.527774
      z = 0
      irot = 3134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3135
      theta1 = 90
      phi1 = -17.966512
      theta2 = 90
      phi2 = 72.033488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1093
      chmoth = 'DCLS'
      x = 49.235645
      y = -15.965821
      z = 0
      irot = 3135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3136
      theta1 = 90
      phi1 = -16.1391
      theta2 = 90
      phi2 = 73.8609
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1094
      chmoth = 'DCLS'
      x = 49.719738
      y = -14.387629
      z = 0
      irot = 3136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3137
      theta1 = 90
      phi1 = -14.311689
      theta2 = 90
      phi2 = 75.688311
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1095
      chmoth = 'DCLS'
      x = 50.153257
      y = -12.794802
      z = 0
      irot = 3137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3138
      theta1 = 90
      phi1 = -12.484278
      theta2 = 90
      phi2 = 77.515722
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1096
      chmoth = 'DCLS'
      x = 50.535763
      y = -11.188961
      z = 0
      irot = 3138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3139
      theta1 = 90
      phi1 = -10.656867
      theta2 = 90
      phi2 = 79.343133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1097
      chmoth = 'DCLS'
      x = 50.866865
      y = -9.5717392
      z = 0
      irot = 3139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3140
      theta1 = 90
      phi1 = -8.8294557
      theta2 = 90
      phi2 = 81.170544
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1098
      chmoth = 'DCLS'
      x = 51.146228
      y = -7.944781
      z = 0
      irot = 3140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3141
      theta1 = 90
      phi1 = -7.0020446
      theta2 = 90
      phi2 = 82.997955
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1099
      chmoth = 'DCLS'
      x = 51.373567
      y = -6.3097417
      z = 0
      irot = 3141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3142
      theta1 = 90
      phi1 = -5.1746334
      theta2 = 90
      phi2 = 84.825367
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1100
      chmoth = 'DCLS'
      x = 51.54865
      y = -4.6682844
      z = 0
      irot = 3142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3143
      theta1 = 90
      phi1 = -3.3472222
      theta2 = 90
      phi2 = 86.652778
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1101
      chmoth = 'DCLS'
      x = 51.6713
      y = -3.0220787
      z = 0
      irot = 3143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3144
      theta1 = 90
      phi1 = -1.5198111
      theta2 = 90
      phi2 = 88.480189
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1102
      chmoth = 'DCLS'
      x = 51.741392
      y = -1.372799
      z = 0
      irot = 3144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3145
      theta1 = 90
      phi1 = 0.34281
      theta2 = 90
      phi2 = 90.34281
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1103
      chmoth = 'DCLS'
      x = 53.362145
      y = 0.31927823
      z = 0
      irot = 3145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3146
      theta1 = 90
      phi1 = 2.065298
      theta2 = 90
      phi2 = 92.065298
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1104
      chmoth = 'DCLS'
      x = 53.328436
      y = 1.9231231
      z = 0
      irot = 3146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3147
      theta1 = 90
      phi1 = 3.787786
      theta2 = 90
      phi2 = 93.787786
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1105
      chmoth = 'DCLS'
      x = 53.246532
      y = 3.5252301
      z = 0
      irot = 3147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3148
      theta1 = 90
      phi1 = 5.510274
      theta2 = 90
      phi2 = 95.510274
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1106
      chmoth = 'DCLS'
      x = 53.116509
      y = 5.1241512
      z = 0
      irot = 3148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3149
      theta1 = 90
      phi1 = 7.232762
      theta2 = 90
      phi2 = 97.232762
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1107
      chmoth = 'DCLS'
      x = 52.938483
      y = 6.7184414
      z = 0
      irot = 3149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3150
      theta1 = 90
      phi1 = 8.95525
      theta2 = 90
      phi2 = 98.95525
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1108
      chmoth = 'DCLS'
      x = 52.712616
      y = 8.3066601
      z = 0
      irot = 3150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3151
      theta1 = 90
      phi1 = 10.677738
      theta2 = 90
      phi2 = 100.67774
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1109
      chmoth = 'DCLS'
      x = 52.439111
      y = 9.8873719
      z = 0
      irot = 3151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3152
      theta1 = 90
      phi1 = 12.400226
      theta2 = 90
      phi2 = 102.40023
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1110
      chmoth = 'DCLS'
      x = 52.118215
      y = 11.459148
      z = 0
      irot = 3152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3153
      theta1 = 90
      phi1 = 14.122714
      theta2 = 90
      phi2 = 104.12271
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1111
      chmoth = 'DCLS'
      x = 51.75022
      y = 13.020569
      z = 0
      irot = 3153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3154
      theta1 = 90
      phi1 = 15.845202
      theta2 = 90
      phi2 = 105.8452
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1112
      chmoth = 'DCLS'
      x = 51.335456
      y = 14.570222
      z = 0
      irot = 3154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3155
      theta1 = 90
      phi1 = 17.56769
      theta2 = 90
      phi2 = 107.56769
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1113
      chmoth = 'DCLS'
      x = 50.8743
      y = 16.106708
      z = 0
      irot = 3155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3156
      theta1 = 90
      phi1 = 19.290178
      theta2 = 90
      phi2 = 109.29018
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1114
      chmoth = 'DCLS'
      x = 50.367167
      y = 17.628639
      z = 0
      irot = 3156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3157
      theta1 = 90
      phi1 = 21.012666
      theta2 = 90
      phi2 = 111.01267
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1115
      chmoth = 'DCLS'
      x = 49.814517
      y = 19.134637
      z = 0
      irot = 3157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3158
      theta1 = 90
      phi1 = 22.735154
      theta2 = 90
      phi2 = 112.73515
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1116
      chmoth = 'DCLS'
      x = 49.216848
      y = 20.623344
      z = 0
      irot = 3158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3159
      theta1 = 90
      phi1 = 24.457642
      theta2 = 90
      phi2 = 114.45764
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1117
      chmoth = 'DCLS'
      x = 48.574701
      y = 22.093412
      z = 0
      irot = 3159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3160
      theta1 = 90
      phi1 = 26.18013
      theta2 = 90
      phi2 = 116.18013
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1118
      chmoth = 'DCLS'
      x = 47.888656
      y = 23.543515
      z = 0
      irot = 3160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3161
      theta1 = 90
      phi1 = 27.902618
      theta2 = 90
      phi2 = 117.90262
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1119
      chmoth = 'DCLS'
      x = 47.159333
      y = 24.97234
      z = 0
      irot = 3161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3162
      theta1 = 90
      phi1 = 29.625106
      theta2 = 90
      phi2 = 119.62511
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1120
      chmoth = 'DCLS'
      x = 46.387391
      y = 26.378598
      z = 0
      irot = 3162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3163
      theta1 = 90
      phi1 = 31.347594
      theta2 = 90
      phi2 = 121.34759
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1121
      chmoth = 'DCLS'
      x = 45.573527
      y = 27.761017
      z = 0
      irot = 3163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3164
      theta1 = 90
      phi1 = 33.070082
      theta2 = 90
      phi2 = 123.07008
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1122
      chmoth = 'DCLS'
      x = 44.718478
      y = 29.118347
      z = 0
      irot = 3164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3165
      theta1 = 90
      phi1 = 34.79257
      theta2 = 90
      phi2 = 124.79257
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1123
      chmoth = 'DCLS'
      x = 43.823016
      y = 30.449363
      z = 0
      irot = 3165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3166
      theta1 = 90
      phi1 = 36.515058
      theta2 = 90
      phi2 = 126.51506
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1124
      chmoth = 'DCLS'
      x = 42.88795
      y = 31.75286
      z = 0
      irot = 3166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3167
      theta1 = 90
      phi1 = 38.237546
      theta2 = 90
      phi2 = 128.23755
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1125
      chmoth = 'DCLS'
      x = 41.914126
      y = 33.027663
      z = 0
      irot = 3167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3168
      theta1 = 90
      phi1 = 39.960034
      theta2 = 90
      phi2 = 129.96003
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1126
      chmoth = 'DCLS'
      x = 40.902423
      y = 34.272617
      z = 0
      irot = 3168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3169
      theta1 = 90
      phi1 = 41.682522
      theta2 = 90
      phi2 = 131.68252
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1127
      chmoth = 'DCLS'
      x = 39.853755
      y = 35.486598
      z = 0
      irot = 3169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3170
      theta1 = 90
      phi1 = 43.40501
      theta2 = 90
      phi2 = 133.40501
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1128
      chmoth = 'DCLS'
      x = 38.769071
      y = 36.66851
      z = 0
      irot = 3170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3171
      theta1 = 90
      phi1 = 45.127498
      theta2 = 90
      phi2 = 135.1275
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1129
      chmoth = 'DCLS'
      x = 37.64935
      y = 37.817283
      z = 0
      irot = 3171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3172
      theta1 = 90
      phi1 = 46.849986
      theta2 = 90
      phi2 = 136.84999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1130
      chmoth = 'DCLS'
      x = 36.495605
      y = 38.93188
      z = 0
      irot = 3172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3173
      theta1 = 90
      phi1 = 48.572474
      theta2 = 90
      phi2 = 138.57247
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1131
      chmoth = 'DCLS'
      x = 35.308877
      y = 40.011294
      z = 0
      irot = 3173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3174
      theta1 = 90
      phi1 = 50.294962
      theta2 = 90
      phi2 = 140.29496
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1132
      chmoth = 'DCLS'
      x = 34.090241
      y = 41.054548
      z = 0
      irot = 3174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3175
      theta1 = 90
      phi1 = 52.01745
      theta2 = 90
      phi2 = 142.01745
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1133
      chmoth = 'DCLS'
      x = 32.840796
      y = 42.060701
      z = 0
      irot = 3175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3176
      theta1 = 90
      phi1 = 53.739938
      theta2 = 90
      phi2 = 143.73994
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1134
      chmoth = 'DCLS'
      x = 31.561673
      y = 43.028842
      z = 0
      irot = 3176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3177
      theta1 = 90
      phi1 = 55.462426
      theta2 = 90
      phi2 = 145.46243
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1135
      chmoth = 'DCLS'
      x = 30.254026
      y = 43.958097
      z = 0
      irot = 3177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3178
      theta1 = 90
      phi1 = 57.184914
      theta2 = 90
      phi2 = 147.18491
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1136
      chmoth = 'DCLS'
      x = 28.919039
      y = 44.847627
      z = 0
      irot = 3178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3179
      theta1 = 90
      phi1 = 58.907402
      theta2 = 90
      phi2 = 148.9074
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1137
      chmoth = 'DCLS'
      x = 27.557916
      y = 45.696627
      z = 0
      irot = 3179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3180
      theta1 = 90
      phi1 = 60.62989
      theta2 = 90
      phi2 = 150.62989
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1138
      chmoth = 'DCLS'
      x = 26.171889
      y = 46.504329
      z = 0
      irot = 3180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3181
      theta1 = 90
      phi1 = 62.352378
      theta2 = 90
      phi2 = 152.35238
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1139
      chmoth = 'DCLS'
      x = 24.76221
      y = 47.270005
      z = 0
      irot = 3181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3182
      theta1 = 90
      phi1 = 64.074866
      theta2 = 90
      phi2 = 154.07487
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1140
      chmoth = 'DCLS'
      x = 23.330153
      y = 47.992962
      z = 0
      irot = 3182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3183
      theta1 = 90
      phi1 = 65.797354
      theta2 = 90
      phi2 = 155.79735
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1141
      chmoth = 'DCLS'
      x = 21.877012
      y = 48.672547
      z = 0
      irot = 3183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3184
      theta1 = 90
      phi1 = 67.519842
      theta2 = 90
      phi2 = 157.51984
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1142
      chmoth = 'DCLS'
      x = 20.4041
      y = 49.308145
      z = 0
      irot = 3184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3185
      theta1 = 90
      phi1 = 69.24233
      theta2 = 90
      phi2 = 159.24233
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1143
      chmoth = 'DCLS'
      x = 18.912748
      y = 49.899182
      z = 0
      irot = 3185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3186
      theta1 = 90
      phi1 = 70.964818
      theta2 = 90
      phi2 = 160.96482
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1144
      chmoth = 'DCLS'
      x = 17.404305
      y = 50.445125
      z = 0
      irot = 3186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3187
      theta1 = 90
      phi1 = 72.687306
      theta2 = 90
      phi2 = 162.68731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1145
      chmoth = 'DCLS'
      x = 15.880133
      y = 50.945479
      z = 0
      irot = 3187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3188
      theta1 = 90
      phi1 = 74.409794
      theta2 = 90
      phi2 = 164.40979
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1146
      chmoth = 'DCLS'
      x = 14.341609
      y = 51.399793
      z = 0
      irot = 3188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3189
      theta1 = 90
      phi1 = 76.132282
      theta2 = 90
      phi2 = 166.13228
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1147
      chmoth = 'DCLS'
      x = 12.790125
      y = 51.807655
      z = 0
      irot = 3189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3190
      theta1 = 90
      phi1 = 77.85477
      theta2 = 90
      phi2 = 167.85477
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1148
      chmoth = 'DCLS'
      x = 11.227082
      y = 52.168698
      z = 0
      irot = 3190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3191
      theta1 = 90
      phi1 = 79.577258
      theta2 = 90
      phi2 = 169.57726
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1149
      chmoth = 'DCLS'
      x = 9.6538935
      y = 52.482595
      z = 0
      irot = 3191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3192
      theta1 = 90
      phi1 = 81.299746
      theta2 = 90
      phi2 = 171.29975
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1150
      chmoth = 'DCLS'
      x = 8.0719801
      y = 52.749062
      z = 0
      irot = 3192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3193
      theta1 = 90
      phi1 = 83.022234
      theta2 = 90
      phi2 = 173.02223
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1151
      chmoth = 'DCLS'
      x = 6.4827719
      y = 52.967859
      z = 0
      irot = 3193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3194
      theta1 = 90
      phi1 = 84.744722
      theta2 = 90
      phi2 = 174.74472
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1152
      chmoth = 'DCLS'
      x = 4.8877051
      y = 53.138788
      z = 0
      irot = 3194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3195
      theta1 = 90
      phi1 = 86.46721
      theta2 = 90
      phi2 = 176.46721
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1153
      chmoth = 'DCLS'
      x = 3.2882212
      y = 53.261694
      z = 0
      irot = 3195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3196
      theta1 = 90
      phi1 = 88.189698
      theta2 = 90
      phi2 = 178.1897
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1154
      chmoth = 'DCLS'
      x = 1.6857656
      y = 53.336466
      z = 0
      irot = 3196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3197
      theta1 = 90
      phi1 = 89.912186
      theta2 = 90
      phi2 = 179.91219
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1155
      chmoth = 'DCLS'
      x = 0.081786573
      y = 53.363037
      z = 0
      irot = 3197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3198
      theta1 = 90
      phi1 = 91.634674
      theta2 = 90
      phi2 = -178.36533
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1156
      chmoth = 'DCLS'
      x = -1.5222664
      y = 53.341383
      z = 0
      irot = 3198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3199
      theta1 = 90
      phi1 = 93.357162
      theta2 = 90
      phi2 = -176.64284
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1157
      chmoth = 'DCLS'
      x = -3.1249436
      y = 53.271523
      z = 0
      irot = 3199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3200
      theta1 = 90
      phi1 = 95.07965
      theta2 = 90
      phi2 = -174.92035
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1158
      chmoth = 'DCLS'
      x = -4.7247968
      y = 53.15352
      z = 0
      irot = 3200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3201
      theta1 = 90
      phi1 = 96.802138
      theta2 = 90
      phi2 = -173.19786
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1159
      chmoth = 'DCLS'
      x = -6.32038
      y = 52.987482
      z = 0
      irot = 3201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3202
      theta1 = 90
      phi1 = 98.524626
      theta2 = 90
      phi2 = -171.47537
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1160
      chmoth = 'DCLS'
      x = -7.9102514
      y = 52.773557
      z = 0
      irot = 3202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3203
      theta1 = 90
      phi1 = 100.24711
      theta2 = 90
      phi2 = -169.75289
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1161
      chmoth = 'DCLS'
      x = -9.4929742
      y = 52.51194
      z = 0
      irot = 3203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3204
      theta1 = 90
      phi1 = 101.9696
      theta2 = 90
      phi2 = -168.0304
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1162
      chmoth = 'DCLS'
      x = -11.067118
      y = 52.202867
      z = 0
      irot = 3204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3205
      theta1 = 90
      phi1 = 103.69209
      theta2 = 90
      phi2 = -166.30791
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1163
      chmoth = 'DCLS'
      x = -12.63126
      y = 51.846617
      z = 0
      irot = 3205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3206
      theta1 = 90
      phi1 = 105.41458
      theta2 = 90
      phi2 = -164.58542
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1164
      chmoth = 'DCLS'
      x = -14.183987
      y = 51.443512
      z = 0
      irot = 3206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3207
      theta1 = 90
      phi1 = 107.13707
      theta2 = 90
      phi2 = -162.86293
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1165
      chmoth = 'DCLS'
      x = -15.723896
      y = 50.993917
      z = 0
      irot = 3207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3208
      theta1 = 90
      phi1 = 108.85955
      theta2 = 90
      phi2 = -161.14045
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1166
      chmoth = 'DCLS'
      x = -17.249594
      y = 50.498237
      z = 0
      irot = 3208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3209
      theta1 = 90
      phi1 = 110.58204
      theta2 = 90
      phi2 = -159.41796
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1167
      chmoth = 'DCLS'
      x = -18.759704
      y = 49.956921
      z = 0
      irot = 3209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3210
      theta1 = 90
      phi1 = 112.30453
      theta2 = 90
      phi2 = -157.69547
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1168
      chmoth = 'DCLS'
      x = -20.25286
      y = 49.370458
      z = 0
      irot = 3210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3211
      theta1 = 90
      phi1 = 114.02702
      theta2 = 90
      phi2 = -155.97298
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1169
      chmoth = 'DCLS'
      x = -21.727714
      y = 48.739377
      z = 0
      irot = 3211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3212
      theta1 = 90
      phi1 = 115.74951
      theta2 = 90
      phi2 = -154.25049
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1170
      chmoth = 'DCLS'
      x = -23.182931
      y = 48.06425
      z = 0
      irot = 3212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3213
      theta1 = 90
      phi1 = 117.47199
      theta2 = 90
      phi2 = -152.52801
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1171
      chmoth = 'DCLS'
      x = -24.617198
      y = 47.345686
      z = 0
      irot = 3213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3214
      theta1 = 90
      phi1 = 119.19448
      theta2 = 90
      phi2 = -150.80552
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1172
      chmoth = 'DCLS'
      x = -26.029217
      y = 46.584335
      z = 0
      irot = 3214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3215
      theta1 = 90
      phi1 = 120.91697
      theta2 = 90
      phi2 = -149.08303
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1173
      chmoth = 'DCLS'
      x = -27.417714
      y = 45.780885
      z = 0
      irot = 3215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3216
      theta1 = 90
      phi1 = 122.63946
      theta2 = 90
      phi2 = -147.36054
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1174
      chmoth = 'DCLS'
      x = -28.781432
      y = 44.936061
      z = 0
      irot = 3216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3217
      theta1 = 90
      phi1 = 124.36195
      theta2 = 90
      phi2 = -145.63805
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1175
      chmoth = 'DCLS'
      x = -30.11914
      y = 44.050628
      z = 0
      irot = 3217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3218
      theta1 = 90
      phi1 = 126.08443
      theta2 = 90
      phi2 = -143.91557
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1176
      chmoth = 'DCLS'
      x = -31.429629
      y = 43.125385
      z = 0
      irot = 3218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3219
      theta1 = 90
      phi1 = 127.80692
      theta2 = 90
      phi2 = -142.19308
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1177
      chmoth = 'DCLS'
      x = -32.711714
      y = 42.161169
      z = 0
      irot = 3219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3220
      theta1 = 90
      phi1 = 129.52941
      theta2 = 90
      phi2 = -140.47059
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1178
      chmoth = 'DCLS'
      x = -33.964237
      y = 41.158851
      z = 0
      irot = 3220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3221
      theta1 = 90
      phi1 = 131.2519
      theta2 = 90
      phi2 = -138.7481
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1179
      chmoth = 'DCLS'
      x = -35.186066
      y = 40.119337
      z = 0
      irot = 3221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3222
      theta1 = 90
      phi1 = 132.97439
      theta2 = 90
      phi2 = -137.02561
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1180
      chmoth = 'DCLS'
      x = -36.376096
      y = 39.043566
      z = 0
      irot = 3222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3223
      theta1 = 90
      phi1 = 134.69687
      theta2 = 90
      phi2 = -135.30313
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1181
      chmoth = 'DCLS'
      x = -37.533252
      y = 37.932511
      z = 0
      irot = 3223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3224
      theta1 = 90
      phi1 = 136.41936
      theta2 = 90
      phi2 = -133.58064
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1182
      chmoth = 'DCLS'
      x = -38.656489
      y = 36.787176
      z = 0
      irot = 3224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3225
      theta1 = 90
      phi1 = 138.14185
      theta2 = 90
      phi2 = -131.85815
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1183
      chmoth = 'DCLS'
      x = -39.744791
      y = 35.608595
      z = 0
      irot = 3225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3226
      theta1 = 90
      phi1 = 139.86434
      theta2 = 90
      phi2 = -130.13566
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1184
      chmoth = 'DCLS'
      x = -40.797175
      y = 34.397833
      z = 0
      irot = 3226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3227
      theta1 = 90
      phi1 = 141.58683
      theta2 = 90
      phi2 = -128.41317
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1185
      chmoth = 'DCLS'
      x = -41.81269
      y = 33.155986
      z = 0
      irot = 3227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3228
      theta1 = 90
      phi1 = 143.30931
      theta2 = 90
      phi2 = -126.69069
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1186
      chmoth = 'DCLS'
      x = -42.790418
      y = 31.884175
      z = 0
      irot = 3228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3229
      theta1 = 90
      phi1 = 145.0318
      theta2 = 90
      phi2 = -124.9682
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1187
      chmoth = 'DCLS'
      x = -43.729475
      y = 30.583549
      z = 0
      irot = 3229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3230
      theta1 = 90
      phi1 = 146.75429
      theta2 = 90
      phi2 = -123.24571
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1188
      chmoth = 'DCLS'
      x = -44.629012
      y = 29.255285
      z = 0
      irot = 3230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3231
      theta1 = 90
      phi1 = 148.47678
      theta2 = 90
      phi2 = -121.52322
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1189
      chmoth = 'DCLS'
      x = -45.488218
      y = 27.900582
      z = 0
      irot = 3231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3232
      theta1 = 90
      phi1 = 150.19927
      theta2 = 90
      phi2 = -119.80073
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1190
      chmoth = 'DCLS'
      x = -46.306315
      y = 26.520664
      z = 0
      irot = 3232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3233
      theta1 = 90
      phi1 = 151.92175
      theta2 = 90
      phi2 = -118.07825
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1191
      chmoth = 'DCLS'
      x = -47.082564
      y = 25.11678
      z = 0
      irot = 3233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3234
      theta1 = 90
      phi1 = 153.64424
      theta2 = 90
      phi2 = -116.35576
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1192
      chmoth = 'DCLS'
      x = -47.816263
      y = 23.690196
      z = 0
      irot = 3234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3235
      theta1 = 90
      phi1 = 155.36673
      theta2 = 90
      phi2 = -114.63327
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1193
      chmoth = 'DCLS'
      x = -48.50675
      y = 22.242204
      z = 0
      irot = 3235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3236
      theta1 = 90
      phi1 = 157.08922
      theta2 = 90
      phi2 = -112.91078
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1194
      chmoth = 'DCLS'
      x = -49.1534
      y = 20.77411
      z = 0
      irot = 3236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3237
      theta1 = 90
      phi1 = 158.81171
      theta2 = 90
      phi2 = -111.18829
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1195
      chmoth = 'DCLS'
      x = -49.75563
      y = 19.287243
      z = 0
      irot = 3237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3238
      theta1 = 90
      phi1 = 160.53419
      theta2 = 90
      phi2 = -109.46581
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1196
      chmoth = 'DCLS'
      x = -50.312894
      y = 17.782945
      z = 0
      irot = 3238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3239
      theta1 = 90
      phi1 = 162.25668
      theta2 = 90
      phi2 = -107.74332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1197
      chmoth = 'DCLS'
      x = -50.824689
      y = 16.262577
      z = 0
      irot = 3239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3240
      theta1 = 90
      phi1 = 163.97917
      theta2 = 90
      phi2 = -106.02083
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1198
      chmoth = 'DCLS'
      x = -51.290553
      y = 14.727512
      z = 0
      irot = 3240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3241
      theta1 = 90
      phi1 = 165.70166
      theta2 = 90
      phi2 = -104.29834
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1199
      chmoth = 'DCLS'
      x = -51.710065
      y = 13.179137
      z = 0
      irot = 3241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3242
      theta1 = 90
      phi1 = 167.42415
      theta2 = 90
      phi2 = -102.57585
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1200
      chmoth = 'DCLS'
      x = -52.082845
      y = 11.618852
      z = 0
      irot = 3242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3243
      theta1 = 90
      phi1 = 169.14663
      theta2 = 90
      phi2 = -100.85337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1201
      chmoth = 'DCLS'
      x = -52.408557
      y = 10.048066
      z = 0
      irot = 3243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3244
      theta1 = 90
      phi1 = 170.86912
      theta2 = 90
      phi2 = -99.130878
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1202
      chmoth = 'DCLS'
      x = -52.686906
      y = 8.4682002
      z = 0
      irot = 3244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3245
      theta1 = 90
      phi1 = 172.59161
      theta2 = 90
      phi2 = -97.40839
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1203
      chmoth = 'DCLS'
      x = -52.91764
      y = 6.8806813
      z = 0
      irot = 3245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3246
      theta1 = 90
      phi1 = 174.3141
      theta2 = 90
      phi2 = -95.685902
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1204
      chmoth = 'DCLS'
      x = -53.100552
      y = 5.2869442
      z = 0
      irot = 3246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3247
      theta1 = 90
      phi1 = 176.03659
      theta2 = 90
      phi2 = -93.963414
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1205
      chmoth = 'DCLS'
      x = -53.235476
      y = 3.6884291
      z = 0
      irot = 3247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3248
      theta1 = 90
      phi1 = 177.75907
      theta2 = 90
      phi2 = -92.240926
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1206
      chmoth = 'DCLS'
      x = -53.32229
      y = 2.0865808
      z = 0
      irot = 3248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3249
      theta1 = 90
      phi1 = 179.48156
      theta2 = 90
      phi2 = -90.518438
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1207
      chmoth = 'DCLS'
      x = -53.360915
      y = 0.48284676
      z = 0
      irot = 3249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3250
      theta1 = 90
      phi1 = -178.79595
      theta2 = 90
      phi2 = -88.79595
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1208
      chmoth = 'DCLS'
      x = -53.351317
      y = -1.1213236
      z = 0
      irot = 3250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3251
      theta1 = 90
      phi1 = -177.07346
      theta2 = 90
      phi2 = -87.073462
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1209
      chmoth = 'DCLS'
      x = -53.293505
      y = -2.7244807
      z = 0
      irot = 3251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3252
      theta1 = 90
      phi1 = -175.35097
      theta2 = 90
      phi2 = -85.350974
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1210
      chmoth = 'DCLS'
      x = -53.18753
      y = -4.3251755
      z = 0
      irot = 3252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3253
      theta1 = 90
      phi1 = -173.62849
      theta2 = 90
      phi2 = -83.628486
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1211
      chmoth = 'DCLS'
      x = -53.033488
      y = -5.9219616
      z = 0
      irot = 3253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3254
      theta1 = 90
      phi1 = -171.906
      theta2 = 90
      phi2 = -81.905998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1212
      chmoth = 'DCLS'
      x = -52.831518
      y = -7.5133959
      z = 0
      irot = 3254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3255
      theta1 = 90
      phi1 = -170.18351
      theta2 = 90
      phi2 = -80.18351
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1213
      chmoth = 'DCLS'
      x = -52.581804
      y = -9.0980402
      z = 0
      irot = 3255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3256
      theta1 = 90
      phi1 = -168.46102
      theta2 = 90
      phi2 = -78.461022
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1214
      chmoth = 'DCLS'
      x = -52.28457
      y = -10.674462
      z = 0
      irot = 3256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3257
      theta1 = 90
      phi1 = -166.73853
      theta2 = 90
      phi2 = -76.738534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1215
      chmoth = 'DCLS'
      x = -51.940086
      y = -12.241238
      z = 0
      irot = 3257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3258
      theta1 = 90
      phi1 = -165.01605
      theta2 = 90
      phi2 = -75.016046
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1216
      chmoth = 'DCLS'
      x = -51.548662
      y = -13.796951
      z = 0
      irot = 3258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3259
      theta1 = 90
      phi1 = -163.29356
      theta2 = 90
      phi2 = -73.293558
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1217
      chmoth = 'DCLS'
      x = -51.110653
      y = -15.340195
      z = 0
      irot = 3259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3260
      theta1 = 90
      phi1 = -161.57107
      theta2 = 90
      phi2 = -71.57107
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1218
      chmoth = 'DCLS'
      x = -50.626454
      y = -16.869576
      z = 0
      irot = 3260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3261
      theta1 = 90
      phi1 = -159.84858
      theta2 = 90
      phi2 = -69.848582
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1219
      chmoth = 'DCLS'
      x = -50.096503
      y = -18.383711
      z = 0
      irot = 3261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3262
      theta1 = 90
      phi1 = -158.12609
      theta2 = 90
      phi2 = -68.126094
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1220
      chmoth = 'DCLS'
      x = -49.521278
      y = -19.881233
      z = 0
      irot = 3262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3263
      theta1 = 90
      phi1 = -156.40361
      theta2 = 90
      phi2 = -66.403606
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1221
      chmoth = 'DCLS'
      x = -48.9013
      y = -21.360788
      z = 0
      irot = 3263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3264
      theta1 = 90
      phi1 = -154.68112
      theta2 = 90
      phi2 = -64.681118
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1222
      chmoth = 'DCLS'
      x = -48.237129
      y = -22.821038
      z = 0
      irot = 3264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3265
      theta1 = 90
      phi1 = -152.95863
      theta2 = 90
      phi2 = -62.95863
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1223
      chmoth = 'DCLS'
      x = -47.529365
      y = -24.260665
      z = 0
      irot = 3265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3266
      theta1 = 90
      phi1 = -151.23614
      theta2 = 90
      phi2 = -61.236142
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1224
      chmoth = 'DCLS'
      x = -46.778648
      y = -25.678367
      z = 0
      irot = 3266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3267
      theta1 = 90
      phi1 = -149.51365
      theta2 = 90
      phi2 = -59.513654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1225
      chmoth = 'DCLS'
      x = -45.985656
      y = -27.072862
      z = 0
      irot = 3267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3268
      theta1 = 90
      phi1 = -147.79117
      theta2 = 90
      phi2 = -57.791166
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1226
      chmoth = 'DCLS'
      x = -45.151106
      y = -28.442892
      z = 0
      irot = 3268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3269
      theta1 = 90
      phi1 = -146.06868
      theta2 = 90
      phi2 = -56.068678
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1227
      chmoth = 'DCLS'
      x = -44.275751
      y = -29.787217
      z = 0
      irot = 3269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3270
      theta1 = 90
      phi1 = -144.34619
      theta2 = 90
      phi2 = -54.34619
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1228
      chmoth = 'DCLS'
      x = -43.360384
      y = -31.104622
      z = 0
      irot = 3270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3271
      theta1 = 90
      phi1 = -142.6237
      theta2 = 90
      phi2 = -52.623702
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1229
      chmoth = 'DCLS'
      x = -42.405831
      y = -32.393918
      z = 0
      irot = 3271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3272
      theta1 = 90
      phi1 = -140.90121
      theta2 = 90
      phi2 = -50.901214
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1230
      chmoth = 'DCLS'
      x = -41.412955
      y = -33.653939
      z = 0
      irot = 3272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3273
      theta1 = 90
      phi1 = -139.17873
      theta2 = 90
      phi2 = -49.178726
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1231
      chmoth = 'DCLS'
      x = -40.382653
      y = -34.883546
      z = 0
      irot = 3273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3274
      theta1 = 90
      phi1 = -137.45624
      theta2 = 90
      phi2 = -47.456238
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1232
      chmoth = 'DCLS'
      x = -39.315857
      y = -36.081627
      z = 0
      irot = 3274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3275
      theta1 = 90
      phi1 = -135.73375
      theta2 = 90
      phi2 = -45.73375
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1233
      chmoth = 'DCLS'
      x = -38.21353
      y = -37.247102
      z = 0
      irot = 3275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3276
      theta1 = 90
      phi1 = -134.01126
      theta2 = 90
      phi2 = -44.011262
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1234
      chmoth = 'DCLS'
      x = -37.076669
      y = -38.378915
      z = 0
      irot = 3276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3277
      theta1 = 90
      phi1 = -132.28877
      theta2 = 90
      phi2 = -42.288774
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1235
      chmoth = 'DCLS'
      x = -35.9063
      y = -39.476044
      z = 0
      irot = 3277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3278
      theta1 = 90
      phi1 = -130.56629
      theta2 = 90
      phi2 = -40.566286
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1236
      chmoth = 'DCLS'
      x = -34.703483
      y = -40.537498
      z = 0
      irot = 3278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3279
      theta1 = 90
      phi1 = -128.8438
      theta2 = 90
      phi2 = -38.843798
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1237
      chmoth = 'DCLS'
      x = -33.469303
      y = -41.562317
      z = 0
      irot = 3279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3280
      theta1 = 90
      phi1 = -127.12131
      theta2 = 90
      phi2 = -37.12131
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1238
      chmoth = 'DCLS'
      x = -32.204876
      y = -42.549576
      z = 0
      irot = 3280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3281
      theta1 = 90
      phi1 = -125.39882
      theta2 = 90
      phi2 = -35.398822
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1239
      chmoth = 'DCLS'
      x = -30.911345
      y = -43.498382
      z = 0
      irot = 3281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3282
      theta1 = 90
      phi1 = -123.67633
      theta2 = 90
      phi2 = -33.676334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1240
      chmoth = 'DCLS'
      x = -29.589879
      y = -44.407877
      z = 0
      irot = 3282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3283
      theta1 = 90
      phi1 = -121.95385
      theta2 = 90
      phi2 = -31.953846
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1241
      chmoth = 'DCLS'
      x = -28.241671
      y = -45.27724
      z = 0
      irot = 3283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3284
      theta1 = 90
      phi1 = -120.23136
      theta2 = 90
      phi2 = -30.231358
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1242
      chmoth = 'DCLS'
      x = -26.867941
      y = -46.105685
      z = 0
      irot = 3284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3285
      theta1 = 90
      phi1 = -118.50887
      theta2 = 90
      phi2 = -28.50887
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1243
      chmoth = 'DCLS'
      x = -25.46993
      y = -46.892463
      z = 0
      irot = 3285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3286
      theta1 = 90
      phi1 = -116.78638
      theta2 = 90
      phi2 = -26.786382
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1244
      chmoth = 'DCLS'
      x = -24.048902
      y = -47.636864
      z = 0
      irot = 3286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3287
      theta1 = 90
      phi1 = -115.06389
      theta2 = 90
      phi2 = -25.063894
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1245
      chmoth = 'DCLS'
      x = -22.606139
      y = -48.338214
      z = 0
      irot = 3287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3288
      theta1 = 90
      phi1 = -113.34141
      theta2 = 90
      phi2 = -23.341406
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1246
      chmoth = 'DCLS'
      x = -21.142948
      y = -48.995879
      z = 0
      irot = 3288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3289
      theta1 = 90
      phi1 = -111.61892
      theta2 = 90
      phi2 = -21.618918
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1247
      chmoth = 'DCLS'
      x = -19.660648
      y = -49.609267
      z = 0
      irot = 3289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3290
      theta1 = 90
      phi1 = -109.89643
      theta2 = 90
      phi2 = -19.89643
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1248
      chmoth = 'DCLS'
      x = -18.160582
      y = -50.177821
      z = 0
      irot = 3290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3291
      theta1 = 90
      phi1 = -108.17394
      theta2 = 90
      phi2 = -18.173942
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1249
      chmoth = 'DCLS'
      x = -16.644102
      y = -50.701029
      z = 0
      irot = 3291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3292
      theta1 = 90
      phi1 = -106.45145
      theta2 = 90
      phi2 = -16.451454
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1250
      chmoth = 'DCLS'
      x = -15.112582
      y = -51.178416
      z = 0
      irot = 3292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3293
      theta1 = 90
      phi1 = -104.72897
      theta2 = 90
      phi2 = -14.728966
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1251
      chmoth = 'DCLS'
      x = -13.567404
      y = -51.609553
      z = 0
      irot = 3293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3294
      theta1 = 90
      phi1 = -103.00648
      theta2 = 90
      phi2 = -13.006478
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1252
      chmoth = 'DCLS'
      x = -12.009964
      y = -51.99405
      z = 0
      irot = 3294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3295
      theta1 = 90
      phi1 = -101.28399
      theta2 = 90
      phi2 = -11.28399
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1253
      chmoth = 'DCLS'
      x = -10.441671
      y = -52.331558
      z = 0
      irot = 3295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3296
      theta1 = 90
      phi1 = -99.561502
      theta2 = 90
      phi2 = -9.561502
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1254
      chmoth = 'DCLS'
      x = -8.8639419
      y = -52.621773
      z = 0
      irot = 3296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3297
      theta1 = 90
      phi1 = -97.839014
      theta2 = 90
      phi2 = -7.839014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1255
      chmoth = 'DCLS'
      x = -7.2782019
      y = -52.864432
      z = 0
      irot = 3297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3298
      theta1 = 90
      phi1 = -96.116526
      theta2 = 90
      phi2 = -6.116526
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1256
      chmoth = 'DCLS'
      x = -5.6858846
      y = -53.059317
      z = 0
      irot = 3298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3299
      theta1 = 90
      phi1 = -94.394038
      theta2 = 90
      phi2 = -4.394038
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1257
      chmoth = 'DCLS'
      x = -4.0884287
      y = -53.206251
      z = 0
      irot = 3299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3300
      theta1 = 90
      phi1 = -92.67155
      theta2 = 90
      phi2 = -2.67155
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1258
      chmoth = 'DCLS'
      x = -2.4872781
      y = -53.305102
      z = 0
      irot = 3300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3301
      theta1 = 90
      phi1 = -90.949062
      theta2 = 90
      phi2 = -0.949062
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1259
      chmoth = 'DCLS'
      x = -0.88387967
      y = -53.355779
      z = 0
      irot = 3301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3302
      theta1 = 90
      phi1 = -89.226574
      theta2 = 90
      phi2 = 0.773426
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1260
      chmoth = 'DCLS'
      x = 0.72031755
      y = -53.358238
      z = 0
      irot = 3302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3303
      theta1 = 90
      phi1 = -87.504086
      theta2 = 90
      phi2 = 2.495914
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1261
      chmoth = 'DCLS'
      x = 2.3238638
      y = -53.312476
      z = 0
      irot = 3303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3304
      theta1 = 90
      phi1 = -85.781598
      theta2 = 90
      phi2 = 4.218402
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1262
      chmoth = 'DCLS'
      x = 3.9253099
      y = -53.218534
      z = 0
      irot = 3304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3305
      theta1 = 90
      phi1 = -84.05911
      theta2 = 90
      phi2 = 5.94089
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1263
      chmoth = 'DCLS'
      x = 5.5232087
      y = -53.076498
      z = 0
      irot = 3305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3306
      theta1 = 90
      phi1 = -82.336622
      theta2 = 90
      phi2 = 7.663378
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1264
      chmoth = 'DCLS'
      x = 7.116116
      y = -52.886495
      z = 0
      irot = 3306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3307
      theta1 = 90
      phi1 = -80.614134
      theta2 = 90
      phi2 = 9.385866
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1265
      chmoth = 'DCLS'
      x = 8.7025923
      y = -52.648697
      z = 0
      irot = 3307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3308
      theta1 = 90
      phi1 = -78.891646
      theta2 = 90
      phi2 = 11.108354
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1266
      chmoth = 'DCLS'
      x = 10.281204
      y = -52.36332
      z = 0
      irot = 3308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3309
      theta1 = 90
      phi1 = -77.169158
      theta2 = 90
      phi2 = 12.830842
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1267
      chmoth = 'DCLS'
      x = 11.850524
      y = -52.030621
      z = 0
      irot = 3309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3310
      theta1 = 90
      phi1 = -75.44667
      theta2 = 90
      phi2 = 14.55333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1268
      chmoth = 'DCLS'
      x = 13.409135
      y = -51.650901
      z = 0
      irot = 3310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3311
      theta1 = 90
      phi1 = -73.724182
      theta2 = 90
      phi2 = 16.275818
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1269
      chmoth = 'DCLS'
      x = 14.955627
      y = -51.224502
      z = 0
      irot = 3311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3312
      theta1 = 90
      phi1 = -72.001694
      theta2 = 90
      phi2 = 17.998306
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1270
      chmoth = 'DCLS'
      x = 16.488604
      y = -50.751812
      z = 0
      irot = 3312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3313
      theta1 = 90
      phi1 = -70.279206
      theta2 = 90
      phi2 = 19.720794
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1271
      chmoth = 'DCLS'
      x = 18.00668
      y = -50.233255
      z = 0
      irot = 3313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3314
      theta1 = 90
      phi1 = -68.556718
      theta2 = 90
      phi2 = 21.443282
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1272
      chmoth = 'DCLS'
      x = 19.508483
      y = -49.669302
      z = 0
      irot = 3314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3315
      theta1 = 90
      phi1 = -66.83423
      theta2 = 90
      phi2 = 23.16577
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1273
      chmoth = 'DCLS'
      x = 20.992655
      y = -49.060461
      z = 0
      irot = 3315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3316
      theta1 = 90
      phi1 = -65.111742
      theta2 = 90
      phi2 = 24.888258
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1274
      chmoth = 'DCLS'
      x = 22.457856
      y = -48.407284
      z = 0
      irot = 3316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3317
      theta1 = 90
      phi1 = -63.389254
      theta2 = 90
      phi2 = 26.610746
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1275
      chmoth = 'DCLS'
      x = 23.902762
      y = -47.71036
      z = 0
      irot = 3317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3318
      theta1 = 90
      phi1 = -61.666766
      theta2 = 90
      phi2 = 28.333234
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1276
      chmoth = 'DCLS'
      x = 25.326066
      y = -46.970319
      z = 0
      irot = 3318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3319
      theta1 = 90
      phi1 = -59.944278
      theta2 = 90
      phi2 = 30.055722
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1277
      chmoth = 'DCLS'
      x = 26.726482
      y = -46.18783
      z = 0
      irot = 3319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3320
      theta1 = 90
      phi1 = -58.22179
      theta2 = 90
      phi2 = 31.77821
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1278
      chmoth = 'DCLS'
      x = 28.102745
      y = -45.3636
      z = 0
      irot = 3320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3321
      theta1 = 90
      phi1 = -56.499302
      theta2 = 90
      phi2 = 33.500698
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1279
      chmoth = 'DCLS'
      x = 29.453611
      y = -44.498374
      z = 0
      irot = 3321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3322
      theta1 = 90
      phi1 = -54.776814
      theta2 = 90
      phi2 = 35.223186
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1280
      chmoth = 'DCLS'
      x = 30.777859
      y = -43.592934
      z = 0
      irot = 3322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3323
      theta1 = 90
      phi1 = -53.054326
      theta2 = 90
      phi2 = 36.945674
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1281
      chmoth = 'DCLS'
      x = 32.074292
      y = -42.648098
      z = 0
      irot = 3323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3324
      theta1 = 90
      phi1 = -51.331838
      theta2 = 90
      phi2 = 38.668162
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1282
      chmoth = 'DCLS'
      x = 33.341739
      y = -41.66472
      z = 0
      irot = 3324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3325
      theta1 = 90
      phi1 = -49.60935
      theta2 = 90
      phi2 = 40.39065
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1283
      chmoth = 'DCLS'
      x = 34.579055
      y = -40.643688
      z = 0
      irot = 3325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3326
      theta1 = 90
      phi1 = -47.886862
      theta2 = 90
      phi2 = 42.113138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1284
      chmoth = 'DCLS'
      x = 35.785121
      y = -39.585926
      z = 0
      irot = 3326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3327
      theta1 = 90
      phi1 = -46.164374
      theta2 = 90
      phi2 = 43.835626
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1285
      chmoth = 'DCLS'
      x = 36.958847
      y = -38.49239
      z = 0
      irot = 3327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3328
      theta1 = 90
      phi1 = -44.441886
      theta2 = 90
      phi2 = 45.558114
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1286
      chmoth = 'DCLS'
      x = 38.099172
      y = -37.364067
      z = 0
      irot = 3328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3329
      theta1 = 90
      phi1 = -42.719398
      theta2 = 90
      phi2 = 47.280602
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1287
      chmoth = 'DCLS'
      x = 39.205067
      y = -36.201978
      z = 0
      irot = 3329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3330
      theta1 = 90
      phi1 = -40.99691
      theta2 = 90
      phi2 = 49.00309
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1288
      chmoth = 'DCLS'
      x = 40.275531
      y = -35.007172
      z = 0
      irot = 3330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3331
      theta1 = 90
      phi1 = -39.274422
      theta2 = 90
      phi2 = 50.725578
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1289
      chmoth = 'DCLS'
      x = 41.309597
      y = -33.780729
      z = 0
      irot = 3331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3332
      theta1 = 90
      phi1 = -37.551934
      theta2 = 90
      phi2 = 52.448066
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1290
      chmoth = 'DCLS'
      x = 42.306331
      y = -32.523758
      z = 0
      irot = 3332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3333
      theta1 = 90
      phi1 = -35.829446
      theta2 = 90
      phi2 = 54.170554
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1291
      chmoth = 'DCLS'
      x = 43.264832
      y = -31.237394
      z = 0
      irot = 3333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3334
      theta1 = 90
      phi1 = -34.106958
      theta2 = 90
      phi2 = 55.893042
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1292
      chmoth = 'DCLS'
      x = 44.184233
      y = -29.922801
      z = 0
      irot = 3334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3335
      theta1 = 90
      phi1 = -32.38447
      theta2 = 90
      phi2 = 57.61553
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1293
      chmoth = 'DCLS'
      x = 45.063704
      y = -28.581165
      z = 0
      irot = 3335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3336
      theta1 = 90
      phi1 = -30.661982
      theta2 = 90
      phi2 = 59.338018
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1294
      chmoth = 'DCLS'
      x = 45.90245
      y = -27.213701
      z = 0
      irot = 3336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3337
      theta1 = 90
      phi1 = -28.939494
      theta2 = 90
      phi2 = 61.060506
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1295
      chmoth = 'DCLS'
      x = 46.699713
      y = -25.821642
      z = 0
      irot = 3337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3338
      theta1 = 90
      phi1 = -27.217006
      theta2 = 90
      phi2 = 62.782994
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1296
      chmoth = 'DCLS'
      x = 47.454773
      y = -24.406249
      z = 0
      irot = 3338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3339
      theta1 = 90
      phi1 = -25.494518
      theta2 = 90
      phi2 = 64.505482
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1297
      chmoth = 'DCLS'
      x = 48.166947
      y = -22.968798
      z = 0
      irot = 3339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3340
      theta1 = 90
      phi1 = -23.77203
      theta2 = 90
      phi2 = 66.22797
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1298
      chmoth = 'DCLS'
      x = 48.835591
      y = -21.510591
      z = 0
      irot = 3340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3341
      theta1 = 90
      phi1 = -22.049542
      theta2 = 90
      phi2 = 67.950458
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1299
      chmoth = 'DCLS'
      x = 49.460101
      y = -20.032943
      z = 0
      irot = 3341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3342
      theta1 = 90
      phi1 = -20.327054
      theta2 = 90
      phi2 = 69.672946
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1300
      chmoth = 'DCLS'
      x = 50.039914
      y = -18.537192
      z = 0
      irot = 3342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3343
      theta1 = 90
      phi1 = -18.604566
      theta2 = 90
      phi2 = 71.395434
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1301
      chmoth = 'DCLS'
      x = 50.574504
      y = -17.024688
      z = 0
      irot = 3343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3344
      theta1 = 90
      phi1 = -16.882078
      theta2 = 90
      phi2 = 73.117922
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1302
      chmoth = 'DCLS'
      x = 51.063389
      y = -15.496798
      z = 0
      irot = 3344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3345
      theta1 = 90
      phi1 = -15.15959
      theta2 = 90
      phi2 = 74.84041
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1303
      chmoth = 'DCLS'
      x = 51.506127
      y = -13.954904
      z = 0
      irot = 3345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3346
      theta1 = 90
      phi1 = -13.437102
      theta2 = 90
      phi2 = 76.562898
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1304
      chmoth = 'DCLS'
      x = 51.902317
      y = -12.400399
      z = 0
      irot = 3346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3347
      theta1 = 90
      phi1 = -11.714614
      theta2 = 90
      phi2 = 78.285386
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1305
      chmoth = 'DCLS'
      x = 52.251603
      y = -10.834686
      z = 0
      irot = 3347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3348
      theta1 = 90
      phi1 = -9.992126
      theta2 = 90
      phi2 = 80.007874
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1306
      chmoth = 'DCLS'
      x = 52.553668
      y = -9.2591829
      z = 0
      irot = 3348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3349
      theta1 = 90
      phi1 = -8.269638
      theta2 = 90
      phi2 = 81.730362
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1307
      chmoth = 'DCLS'
      x = 52.808238
      y = -7.6753115
      z = 0
      irot = 3349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3350
      theta1 = 90
      phi1 = -6.54715
      theta2 = 90
      phi2 = 83.45285
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1308
      chmoth = 'DCLS'
      x = 53.015085
      y = -6.0845038
      z = 0
      irot = 3350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3351
      theta1 = 90
      phi1 = -4.824662
      theta2 = 90
      phi2 = 85.175338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1309
      chmoth = 'DCLS'
      x = 53.174021
      y = -4.4881974
      z = 0
      irot = 3351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3352
      theta1 = 90
      phi1 = -3.102174
      theta2 = 90
      phi2 = 86.897826
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1310
      chmoth = 'DCLS'
      x = 53.284903
      y = -2.8878349
      z = 0
      irot = 3352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3353
      theta1 = 90
      phi1 = -1.379686
      theta2 = 90
      phi2 = 88.620314
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1311
      chmoth = 'DCLS'
      x = 53.347629
      y = -1.2848626
      z = 0
      irot = 3353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3354
      theta1 = 90
      phi1 = 1.20403
      theta2 = 90
      phi2 = 91.20403
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1312
      chmoth = 'DCLS'
      x = 54.734312
      y = 1.1503719
      z = 0
      irot = 3354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3355
      theta1 = 90
      phi1 = 2.926518
      theta2 = 90
      phi2 = 92.926518
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1313
      chmoth = 'DCLS'
      x = 54.675002
      y = 2.7950867
      z = 0
      irot = 3355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3356
      theta1 = 90
      phi1 = 4.649006
      theta2 = 90
      phi2 = 94.649006
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1314
      chmoth = 'DCLS'
      x = 54.56628
      y = 4.4372754
      z = 0
      irot = 3356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3357
      theta1 = 90
      phi1 = 6.371494
      theta2 = 90
      phi2 = 96.371494
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1315
      chmoth = 'DCLS'
      x = 54.408245
      y = 6.0754541
      z = 0
      irot = 3357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3358
      theta1 = 90
      phi1 = 8.093982
      theta2 = 90
      phi2 = 98.093982
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1316
      chmoth = 'DCLS'
      x = 54.201041
      y = 7.7081423
      z = 0
      irot = 3358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3359
      theta1 = 90
      phi1 = 9.81647
      theta2 = 90
      phi2 = 99.81647
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1317
      chmoth = 'DCLS'
      x = 53.944854
      y = 9.3338645
      z = 0
      irot = 3359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3360
      theta1 = 90
      phi1 = 11.538958
      theta2 = 90
      phi2 = 101.53896
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1318
      chmoth = 'DCLS'
      x = 53.639916
      y = 10.951151
      z = 0
      irot = 3360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3361
      theta1 = 90
      phi1 = 13.261446
      theta2 = 90
      phi2 = 103.26145
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1319
      chmoth = 'DCLS'
      x = 53.286502
      y = 12.558542
      z = 0
      irot = 3361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3362
      theta1 = 90
      phi1 = 14.983934
      theta2 = 90
      phi2 = 104.98393
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1320
      chmoth = 'DCLS'
      x = 52.884933
      y = 14.154582
      z = 0
      irot = 3362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3363
      theta1 = 90
      phi1 = 16.706422
      theta2 = 90
      phi2 = 106.70642
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1321
      chmoth = 'DCLS'
      x = 52.43557
      y = 15.737831
      z = 0
      irot = 3363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3364
      theta1 = 90
      phi1 = 18.42891
      theta2 = 90
      phi2 = 108.42891
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1322
      chmoth = 'DCLS'
      x = 51.93882
      y = 17.306858
      z = 0
      irot = 3364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3365
      theta1 = 90
      phi1 = 20.151398
      theta2 = 90
      phi2 = 110.1514
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1323
      chmoth = 'DCLS'
      x = 51.395131
      y = 18.860243
      z = 0
      irot = 3365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3366
      theta1 = 90
      phi1 = 21.873886
      theta2 = 90
      phi2 = 111.87389
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1324
      chmoth = 'DCLS'
      x = 50.804996
      y = 20.396585
      z = 0
      irot = 3366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3367
      theta1 = 90
      phi1 = 23.596374
      theta2 = 90
      phi2 = 113.59637
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1325
      chmoth = 'DCLS'
      x = 50.168948
      y = 21.914493
      z = 0
      irot = 3367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3368
      theta1 = 90
      phi1 = 25.318862
      theta2 = 90
      phi2 = 115.31886
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1326
      chmoth = 'DCLS'
      x = 49.48756
      y = 23.412597
      z = 0
      irot = 3368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3369
      theta1 = 90
      phi1 = 27.04135
      theta2 = 90
      phi2 = 117.04135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1327
      chmoth = 'DCLS'
      x = 48.76145
      y = 24.889543
      z = 0
      irot = 3369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3370
      theta1 = 90
      phi1 = 28.763838
      theta2 = 90
      phi2 = 118.76384
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1328
      chmoth = 'DCLS'
      x = 47.991272
      y = 26.343995
      z = 0
      irot = 3370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3371
      theta1 = 90
      phi1 = 30.486326
      theta2 = 90
      phi2 = 120.48633
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1329
      chmoth = 'DCLS'
      x = 47.177725
      y = 27.77464
      z = 0
      irot = 3371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3372
      theta1 = 90
      phi1 = 32.208814
      theta2 = 90
      phi2 = 122.20881
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1330
      chmoth = 'DCLS'
      x = 46.321541
      y = 29.180184
      z = 0
      irot = 3372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3373
      theta1 = 90
      phi1 = 33.931302
      theta2 = 90
      phi2 = 123.9313
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1331
      chmoth = 'DCLS'
      x = 45.423496
      y = 30.559357
      z = 0
      irot = 3373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3374
      theta1 = 90
      phi1 = 35.65379
      theta2 = 90
      phi2 = 125.65379
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1332
      chmoth = 'DCLS'
      x = 44.484401
      y = 31.910914
      z = 0
      irot = 3374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3375
      theta1 = 90
      phi1 = 37.376278
      theta2 = 90
      phi2 = 127.37628
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1333
      chmoth = 'DCLS'
      x = 43.505104
      y = 33.233631
      z = 0
      irot = 3375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3376
      theta1 = 90
      phi1 = 39.098766
      theta2 = 90
      phi2 = 129.09877
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1334
      chmoth = 'DCLS'
      x = 42.486491
      y = 34.526315
      z = 0
      irot = 3376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3377
      theta1 = 90
      phi1 = 40.821254
      theta2 = 90
      phi2 = 130.82125
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1335
      chmoth = 'DCLS'
      x = 41.429481
      y = 35.787797
      z = 0
      irot = 3377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3378
      theta1 = 90
      phi1 = 42.543742
      theta2 = 90
      phi2 = 132.54374
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1336
      chmoth = 'DCLS'
      x = 40.335031
      y = 37.016936
      z = 0
      irot = 3378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3379
      theta1 = 90
      phi1 = 44.26623
      theta2 = 90
      phi2 = 134.26623
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1337
      chmoth = 'DCLS'
      x = 39.20413
      y = 38.212622
      z = 0
      irot = 3379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3380
      theta1 = 90
      phi1 = 45.988718
      theta2 = 90
      phi2 = 135.98872
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1338
      chmoth = 'DCLS'
      x = 38.037799
      y = 39.373775
      z = 0
      irot = 3380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3381
      theta1 = 90
      phi1 = 47.711206
      theta2 = 90
      phi2 = 137.71121
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1339
      chmoth = 'DCLS'
      x = 36.837092
      y = 40.499345
      z = 0
      irot = 3381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3382
      theta1 = 90
      phi1 = 49.433694
      theta2 = 90
      phi2 = 139.43369
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1340
      chmoth = 'DCLS'
      x = 35.603095
      y = 41.588315
      z = 0
      irot = 3382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3383
      theta1 = 90
      phi1 = 51.156182
      theta2 = 90
      phi2 = 141.15618
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1341
      chmoth = 'DCLS'
      x = 34.336922
      y = 42.639701
      z = 0
      irot = 3383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3384
      theta1 = 90
      phi1 = 52.87867
      theta2 = 90
      phi2 = 142.87867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1342
      chmoth = 'DCLS'
      x = 33.039719
      y = 43.652552
      z = 0
      irot = 3384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3385
      theta1 = 90
      phi1 = 54.601158
      theta2 = 90
      phi2 = 144.60116
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1343
      chmoth = 'DCLS'
      x = 31.712657
      y = 44.625953
      z = 0
      irot = 3385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3386
      theta1 = 90
      phi1 = 56.323646
      theta2 = 90
      phi2 = 146.32365
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1344
      chmoth = 'DCLS'
      x = 30.356935
      y = 45.559025
      z = 0
      irot = 3386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3387
      theta1 = 90
      phi1 = 58.046134
      theta2 = 90
      phi2 = 148.04613
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1345
      chmoth = 'DCLS'
      x = 28.97378
      y = 46.450925
      z = 0
      irot = 3387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3388
      theta1 = 90
      phi1 = 59.768622
      theta2 = 90
      phi2 = 149.76862
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1346
      chmoth = 'DCLS'
      x = 27.56444
      y = 47.300845
      z = 0
      irot = 3388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3389
      theta1 = 90
      phi1 = 61.49111
      theta2 = 90
      phi2 = 151.49111
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1347
      chmoth = 'DCLS'
      x = 26.130189
      y = 48.108019
      z = 0
      irot = 3389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3390
      theta1 = 90
      phi1 = 63.213598
      theta2 = 90
      phi2 = 153.2136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1348
      chmoth = 'DCLS'
      x = 24.672324
      y = 48.871717
      z = 0
      irot = 3390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3391
      theta1 = 90
      phi1 = 64.936086
      theta2 = 90
      phi2 = 154.93609
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1349
      chmoth = 'DCLS'
      x = 23.192162
      y = 49.591248
      z = 0
      irot = 3391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3392
      theta1 = 90
      phi1 = 66.658574
      theta2 = 90
      phi2 = 156.65857
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1350
      chmoth = 'DCLS'
      x = 21.691041
      y = 50.265963
      z = 0
      irot = 3392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3393
      theta1 = 90
      phi1 = 68.381062
      theta2 = 90
      phi2 = 158.38106
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1351
      chmoth = 'DCLS'
      x = 20.170318
      y = 50.895251
      z = 0
      irot = 3393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3394
      theta1 = 90
      phi1 = 70.10355
      theta2 = 90
      phi2 = 160.10355
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1352
      chmoth = 'DCLS'
      x = 18.631365
      y = 51.478544
      z = 0
      irot = 3394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3395
      theta1 = 90
      phi1 = 71.826038
      theta2 = 90
      phi2 = 161.82604
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1353
      chmoth = 'DCLS'
      x = 17.075576
      y = 52.015315
      z = 0
      irot = 3395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3396
      theta1 = 90
      phi1 = 73.548526
      theta2 = 90
      phi2 = 163.54853
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1354
      chmoth = 'DCLS'
      x = 15.504355
      y = 52.505079
      z = 0
      irot = 3396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3397
      theta1 = 90
      phi1 = 75.271014
      theta2 = 90
      phi2 = 165.27101
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1355
      chmoth = 'DCLS'
      x = 13.919122
      y = 52.947392
      z = 0
      irot = 3397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3398
      theta1 = 90
      phi1 = 76.993502
      theta2 = 90
      phi2 = 166.9935
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1356
      chmoth = 'DCLS'
      x = 12.32131
      y = 53.341856
      z = 0
      irot = 3398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3399
      theta1 = 90
      phi1 = 78.71599
      theta2 = 90
      phi2 = 168.71599
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1357
      chmoth = 'DCLS'
      x = 10.712363
      y = 53.688114
      z = 0
      irot = 3399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3400
      theta1 = 90
      phi1 = 80.438478
      theta2 = 90
      phi2 = 170.43848
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1358
      chmoth = 'DCLS'
      x = 9.0937354
      y = 53.985853
      z = 0
      irot = 3400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3401
      theta1 = 90
      phi1 = 82.160966
      theta2 = 90
      phi2 = 172.16097
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1359
      chmoth = 'DCLS'
      x = 7.4668894
      y = 54.234803
      z = 0
      irot = 3401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3402
      theta1 = 90
      phi1 = 83.883454
      theta2 = 90
      phi2 = 173.88345
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1360
      chmoth = 'DCLS'
      x = 5.8332954
      y = 54.434741
      z = 0
      irot = 3402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3403
      theta1 = 90
      phi1 = 85.605942
      theta2 = 90
      phi2 = 175.60594
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1361
      chmoth = 'DCLS'
      x = 4.1944297
      y = 54.585484
      z = 0
      irot = 3403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3404
      theta1 = 90
      phi1 = 87.32843
      theta2 = 90
      phi2 = 177.32843
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1362
      chmoth = 'DCLS'
      x = 2.5517734
      y = 54.686898
      z = 0
      irot = 3404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3405
      theta1 = 90
      phi1 = 89.050918
      theta2 = 90
      phi2 = 179.05092
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1363
      chmoth = 'DCLS'
      x = 0.90681106
      y = 54.738889
      z = 0
      irot = 3405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3406
      theta1 = 90
      phi1 = 90.773406
      theta2 = 90
      phi2 = -179.22659
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1364
      chmoth = 'DCLS'
      x = -0.73897081
      y = 54.741412
      z = 0
      irot = 3406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3407
      theta1 = 90
      phi1 = 92.495894
      theta2 = 90
      phi2 = -177.50411
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1365
      chmoth = 'DCLS'
      x = -2.3840849
      y = 54.694465
      z = 0
      irot = 3407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3408
      theta1 = 90
      phi1 = 94.218382
      theta2 = 90
      phi2 = -175.78162
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1366
      chmoth = 'DCLS'
      x = -4.0270444
      y = 54.598088
      z = 0
      irot = 3408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3409
      theta1 = 90
      phi1 = 95.94087
      theta2 = 90
      phi2 = -174.05913
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1367
      chmoth = 'DCLS'
      x = -5.6663645
      y = 54.45237
      z = 0
      irot = 3409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3410
      theta1 = 90
      phi1 = 97.663358
      theta2 = 90
      phi2 = -172.33664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1368
      chmoth = 'DCLS'
      x = -7.3005639
      y = 54.257443
      z = 0
      irot = 3410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3411
      theta1 = 90
      phi1 = 99.385846
      theta2 = 90
      phi2 = -170.61415
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1369
      chmoth = 'DCLS'
      x = -8.9281656
      y = 54.013481
      z = 0
      irot = 3411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3412
      theta1 = 90
      phi1 = 101.10833
      theta2 = 90
      phi2 = -168.89167
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1370
      chmoth = 'DCLS'
      x = -10.547699
      y = 53.720707
      z = 0
      irot = 3412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3413
      theta1 = 90
      phi1 = 102.83082
      theta2 = 90
      phi2 = -167.16918
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1371
      chmoth = 'DCLS'
      x = -12.1577
      y = 53.379384
      z = 0
      irot = 3413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3414
      theta1 = 90
      phi1 = 104.55331
      theta2 = 90
      phi2 = -165.44669
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1372
      chmoth = 'DCLS'
      x = -13.756713
      y = 52.989821
      z = 0
      irot = 3414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3415
      theta1 = 90
      phi1 = 106.2758
      theta2 = 90
      phi2 = -163.7242
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1373
      chmoth = 'DCLS'
      x = -15.343295
      y = 52.55237
      z = 0
      irot = 3415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3416
      theta1 = 90
      phi1 = 107.99829
      theta2 = 90
      phi2 = -162.00171
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1374
      chmoth = 'DCLS'
      x = -16.91601
      y = 52.067427
      z = 0
      irot = 3416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3417
      theta1 = 90
      phi1 = 109.72077
      theta2 = 90
      phi2 = -160.27923
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1375
      chmoth = 'DCLS'
      x = -18.473439
      y = 51.535428
      z = 0
      irot = 3417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3418
      theta1 = 90
      phi1 = 111.44326
      theta2 = 90
      phi2 = -158.55674
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1376
      chmoth = 'DCLS'
      x = -20.014172
      y = 50.956857
      z = 0
      irot = 3418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3419
      theta1 = 90
      phi1 = 113.16575
      theta2 = 90
      phi2 = -156.83425
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1377
      chmoth = 'DCLS'
      x = -21.536818
      y = 50.332234
      z = 0
      irot = 3419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3420
      theta1 = 90
      phi1 = 114.88824
      theta2 = 90
      phi2 = -155.11176
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1378
      chmoth = 'DCLS'
      x = -23.040001
      y = 49.662125
      z = 0
      irot = 3420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3421
      theta1 = 90
      phi1 = 116.61073
      theta2 = 90
      phi2 = -153.38927
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1379
      chmoth = 'DCLS'
      x = -24.522362
      y = 48.947136
      z = 0
      irot = 3421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3422
      theta1 = 90
      phi1 = 118.33321
      theta2 = 90
      phi2 = -151.66679
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1380
      chmoth = 'DCLS'
      x = -25.982561
      y = 48.187912
      z = 0
      irot = 3422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3423
      theta1 = 90
      phi1 = 120.0557
      theta2 = 90
      phi2 = -149.9443
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1381
      chmoth = 'DCLS'
      x = -27.41928
      y = 47.385139
      z = 0
      irot = 3423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3424
      theta1 = 90
      phi1 = 121.77819
      theta2 = 90
      phi2 = -148.22181
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1382
      chmoth = 'DCLS'
      x = -28.831219
      y = 46.539543
      z = 0
      irot = 3424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3425
      theta1 = 90
      phi1 = 123.50068
      theta2 = 90
      phi2 = -146.49932
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1383
      chmoth = 'DCLS'
      x = -30.217103
      y = 45.651889
      z = 0
      irot = 3425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3426
      theta1 = 90
      phi1 = 125.22317
      theta2 = 90
      phi2 = -144.77683
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1384
      chmoth = 'DCLS'
      x = -31.575679
      y = 44.722978
      z = 0
      irot = 3426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3427
      theta1 = 90
      phi1 = 126.94565
      theta2 = 90
      phi2 = -143.05435
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1385
      chmoth = 'DCLS'
      x = -32.90572
      y = 43.75365
      z = 0
      irot = 3427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3428
      theta1 = 90
      phi1 = 128.66814
      theta2 = 90
      phi2 = -141.33186
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1386
      chmoth = 'DCLS'
      x = -34.206023
      y = 42.744781
      z = 0
      irot = 3428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3429
      theta1 = 90
      phi1 = 130.39063
      theta2 = 90
      phi2 = -139.60937
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1387
      chmoth = 'DCLS'
      x = -35.475413
      y = 41.697283
      z = 0
      irot = 3429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3430
      theta1 = 90
      phi1 = 132.11312
      theta2 = 90
      phi2 = -137.88688
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1388
      chmoth = 'DCLS'
      x = -36.712743
      y = 40.612102
      z = 0
      irot = 3430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3431
      theta1 = 90
      phi1 = 133.83561
      theta2 = 90
      phi2 = -136.16439
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1389
      chmoth = 'DCLS'
      x = -37.916895
      y = 39.490219
      z = 0
      irot = 3431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3432
      theta1 = 90
      phi1 = 135.55809
      theta2 = 90
      phi2 = -134.44191
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1390
      chmoth = 'DCLS'
      x = -39.086781
      y = 38.332647
      z = 0
      irot = 3432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3433
      theta1 = 90
      phi1 = 137.28058
      theta2 = 90
      phi2 = -132.71942
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1391
      chmoth = 'DCLS'
      x = -40.221344
      y = 37.140434
      z = 0
      irot = 3433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3434
      theta1 = 90
      phi1 = 139.00307
      theta2 = 90
      phi2 = -130.99693
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1392
      chmoth = 'DCLS'
      x = -41.319557
      y = 35.914656
      z = 0
      irot = 3434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3435
      theta1 = 90
      phi1 = 140.72556
      theta2 = 90
      phi2 = -129.27444
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1393
      chmoth = 'DCLS'
      x = -42.380429
      y = 34.656421
      z = 0
      irot = 3435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3436
      theta1 = 90
      phi1 = 142.44805
      theta2 = 90
      phi2 = -127.55195
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1394
      chmoth = 'DCLS'
      x = -43.403001
      y = 33.366867
      z = 0
      irot = 3436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3437
      theta1 = 90
      phi1 = 144.17053
      theta2 = 90
      phi2 = -125.82947
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1395
      chmoth = 'DCLS'
      x = -44.386349
      y = 32.047158
      z = 0
      irot = 3437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3438
      theta1 = 90
      phi1 = 145.89302
      theta2 = 90
      phi2 = -124.10698
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1396
      chmoth = 'DCLS'
      x = -45.329584
      y = 30.698488
      z = 0
      irot = 3438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3439
      theta1 = 90
      phi1 = 147.61551
      theta2 = 90
      phi2 = -122.38449
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1397
      chmoth = 'DCLS'
      x = -46.231854
      y = 29.322074
      z = 0
      irot = 3439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3440
      theta1 = 90
      phi1 = 149.338
      theta2 = 90
      phi2 = -120.662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1398
      chmoth = 'DCLS'
      x = -47.092342
      y = 27.919162
      z = 0
      irot = 3440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3441
      theta1 = 90
      phi1 = 151.06049
      theta2 = 90
      phi2 = -118.93951
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1399
      chmoth = 'DCLS'
      x = -47.910273
      y = 26.491018
      z = 0
      irot = 3441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3442
      theta1 = 90
      phi1 = 152.78297
      theta2 = 90
      phi2 = -117.21703
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1400
      chmoth = 'DCLS'
      x = -48.684906
      y = 25.038934
      z = 0
      irot = 3442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3443
      theta1 = 90
      phi1 = 154.50546
      theta2 = 90
      phi2 = -115.49454
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1401
      chmoth = 'DCLS'
      x = -49.415542
      y = 23.564222
      z = 0
      irot = 3443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3444
      theta1 = 90
      phi1 = 156.22795
      theta2 = 90
      phi2 = -113.77205
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1402
      chmoth = 'DCLS'
      x = -50.101519
      y = 22.068214
      z = 0
      irot = 3444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3445
      theta1 = 90
      phi1 = 157.95044
      theta2 = 90
      phi2 = -112.04956
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1403
      chmoth = 'DCLS'
      x = -50.742219
      y = 20.552263
      z = 0
      irot = 3445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3446
      theta1 = 90
      phi1 = 159.67293
      theta2 = 90
      phi2 = -110.32707
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1404
      chmoth = 'DCLS'
      x = -51.337062
      y = 19.017738
      z = 0
      irot = 3446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3447
      theta1 = 90
      phi1 = 161.39541
      theta2 = 90
      phi2 = -108.60459
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1405
      chmoth = 'DCLS'
      x = -51.885511
      y = 17.466027
      z = 0
      irot = 3447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3448
      theta1 = 90
      phi1 = 163.1179
      theta2 = 90
      phi2 = -106.8821
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1406
      chmoth = 'DCLS'
      x = -52.387069
      y = 15.898531
      z = 0
      irot = 3448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3449
      theta1 = 90
      phi1 = 164.84039
      theta2 = 90
      phi2 = -105.15961
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1407
      chmoth = 'DCLS'
      x = -52.841285
      y = 14.316667
      z = 0
      irot = 3449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3450
      theta1 = 90
      phi1 = 166.56288
      theta2 = 90
      phi2 = -103.43712
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1408
      chmoth = 'DCLS'
      x = -53.247746
      y = 12.721865
      z = 0
      irot = 3450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3451
      theta1 = 90
      phi1 = 168.28537
      theta2 = 90
      phi2 = -101.71463
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1409
      chmoth = 'DCLS'
      x = -53.606086
      y = 11.115566
      z = 0
      irot = 3451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3452
      theta1 = 90
      phi1 = 170.00785
      theta2 = 90
      phi2 = -99.992146
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1410
      chmoth = 'DCLS'
      x = -53.915982
      y = 9.499222
      z = 0
      irot = 3452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3453
      theta1 = 90
      phi1 = 171.73034
      theta2 = 90
      phi2 = -98.269658
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1411
      chmoth = 'DCLS'
      x = -54.177152
      y = 7.874293
      z = 0
      irot = 3453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3454
      theta1 = 90
      phi1 = 173.45283
      theta2 = 90
      phi2 = -96.54717
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1412
      chmoth = 'DCLS'
      x = -54.389362
      y = 6.2422478
      z = 0
      irot = 3454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3455
      theta1 = 90
      phi1 = 175.17532
      theta2 = 90
      phi2 = -94.824682
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1413
      chmoth = 'DCLS'
      x = -54.552418
      y = 4.6045613
      z = 0
      irot = 3455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3456
      theta1 = 90
      phi1 = 176.89781
      theta2 = 90
      phi2 = -93.102194
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1414
      chmoth = 'DCLS'
      x = -54.666175
      y = 2.9627136
      z = 0
      irot = 3456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3457
      theta1 = 90
      phi1 = 178.62029
      theta2 = 90
      phi2 = -91.379706
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1415
      chmoth = 'DCLS'
      x = -54.730528
      y = 1.3181885
      z = 0
      irot = 3457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3458
      theta1 = 90
      phi1 = -179.65722
      theta2 = 90
      phi2 = -89.657218
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1416
      chmoth = 'DCLS'
      x = -54.74542
      y = -0.32752794
      z = 0
      irot = 3458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3459
      theta1 = 90
      phi1 = -177.93473
      theta2 = 90
      phi2 = -87.93473
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1417
      chmoth = 'DCLS'
      x = -54.710838
      y = -1.9729484
      z = 0
      irot = 3459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3460
      theta1 = 90
      phi1 = -176.21224
      theta2 = 90
      phi2 = -86.212242
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1418
      chmoth = 'DCLS'
      x = -54.626812
      y = -3.6165858
      z = 0
      irot = 3460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3461
      theta1 = 90
      phi1 = -174.48975
      theta2 = 90
      phi2 = -84.489754
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1419
      chmoth = 'DCLS'
      x = -54.493419
      y = -5.2569549
      z = 0
      irot = 3461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3462
      theta1 = 90
      phi1 = -172.76727
      theta2 = 90
      phi2 = -82.767266
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1420
      chmoth = 'DCLS'
      x = -54.310779
      y = -6.8925731
      z = 0
      irot = 3462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3463
      theta1 = 90
      phi1 = -171.04478
      theta2 = 90
      phi2 = -81.044778
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1421
      chmoth = 'DCLS'
      x = -54.079058
      y = -8.5219623
      z = 0
      irot = 3463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3464
      theta1 = 90
      phi1 = -169.32229
      theta2 = 90
      phi2 = -79.32229
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1422
      chmoth = 'DCLS'
      x = -53.798463
      y = -10.14365
      z = 0
      irot = 3464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3465
      theta1 = 90
      phi1 = -167.5998
      theta2 = 90
      phi2 = -77.599802
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1423
      chmoth = 'DCLS'
      x = -53.469251
      y = -11.756171
      z = 0
      irot = 3465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3466
      theta1 = 90
      phi1 = -165.87731
      theta2 = 90
      phi2 = -75.877314
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1424
      chmoth = 'DCLS'
      x = -53.091716
      y = -13.358067
      z = 0
      irot = 3466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3467
      theta1 = 90
      phi1 = -164.15483
      theta2 = 90
      phi2 = -74.154826
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1425
      chmoth = 'DCLS'
      x = -52.666202
      y = -14.947892
      z = 0
      irot = 3467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3468
      theta1 = 90
      phi1 = -162.43234
      theta2 = 90
      phi2 = -72.432338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1426
      chmoth = 'DCLS'
      x = -52.193092
      y = -16.524208
      z = 0
      irot = 3468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3469
      theta1 = 90
      phi1 = -160.70985
      theta2 = 90
      phi2 = -70.70985
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1427
      chmoth = 'DCLS'
      x = -51.672814
      y = -18.08559
      z = 0
      irot = 3469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3470
      theta1 = 90
      phi1 = -158.98736
      theta2 = 90
      phi2 = -68.987362
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1428
      chmoth = 'DCLS'
      x = -51.105839
      y = -19.630628
      z = 0
      irot = 3470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3471
      theta1 = 90
      phi1 = -157.26487
      theta2 = 90
      phi2 = -67.264874
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1429
      chmoth = 'DCLS'
      x = -50.492678
      y = -21.157926
      z = 0
      irot = 3471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3472
      theta1 = 90
      phi1 = -155.54239
      theta2 = 90
      phi2 = -65.542386
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1430
      chmoth = 'DCLS'
      x = -49.833885
      y = -22.666102
      z = 0
      irot = 3472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3473
      theta1 = 90
      phi1 = -153.8199
      theta2 = 90
      phi2 = -63.819898
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1431
      chmoth = 'DCLS'
      x = -49.130057
      y = -24.153795
      z = 0
      irot = 3473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3474
      theta1 = 90
      phi1 = -152.09741
      theta2 = 90
      phi2 = -62.09741
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1432
      chmoth = 'DCLS'
      x = -48.381829
      y = -25.61966
      z = 0
      irot = 3474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3475
      theta1 = 90
      phi1 = -150.37492
      theta2 = 90
      phi2 = -60.374922
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1433
      chmoth = 'DCLS'
      x = -47.589877
      y = -27.062371
      z = 0
      irot = 3475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3476
      theta1 = 90
      phi1 = -148.65243
      theta2 = 90
      phi2 = -58.652434
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1434
      chmoth = 'DCLS'
      x = -46.754917
      y = -28.480626
      z = 0
      irot = 3476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3477
      theta1 = 90
      phi1 = -146.92995
      theta2 = 90
      phi2 = -56.929946
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1435
      chmoth = 'DCLS'
      x = -45.877704
      y = -29.873142
      z = 0
      irot = 3477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3478
      theta1 = 90
      phi1 = -145.20746
      theta2 = 90
      phi2 = -55.207458
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1436
      chmoth = 'DCLS'
      x = -44.95903
      y = -31.238661
      z = 0
      irot = 3478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3479
      theta1 = 90
      phi1 = -143.48497
      theta2 = 90
      phi2 = -53.48497
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1437
      chmoth = 'DCLS'
      x = -43.999725
      y = -32.575949
      z = 0
      irot = 3479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3480
      theta1 = 90
      phi1 = -141.76248
      theta2 = 90
      phi2 = -51.762482
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1438
      chmoth = 'DCLS'
      x = -43.000657
      y = -33.883798
      z = 0
      irot = 3480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3481
      theta1 = 90
      phi1 = -140.03999
      theta2 = 90
      phi2 = -50.039994
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1439
      chmoth = 'DCLS'
      x = -41.962729
      y = -35.161025
      z = 0
      irot = 3481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3482
      theta1 = 90
      phi1 = -138.31751
      theta2 = 90
      phi2 = -48.317506
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1440
      chmoth = 'DCLS'
      x = -40.886878
      y = -36.406476
      z = 0
      irot = 3482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3483
      theta1 = 90
      phi1 = -136.59502
      theta2 = 90
      phi2 = -46.595018
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1441
      chmoth = 'DCLS'
      x = -39.774077
      y = -37.619026
      z = 0
      irot = 3483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3484
      theta1 = 90
      phi1 = -134.87253
      theta2 = 90
      phi2 = -44.87253
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1442
      chmoth = 'DCLS'
      x = -38.625331
      y = -38.797579
      z = 0
      irot = 3484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3485
      theta1 = 90
      phi1 = -133.15004
      theta2 = 90
      phi2 = -43.150042
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1443
      chmoth = 'DCLS'
      x = -37.441678
      y = -39.94107
      z = 0
      irot = 3485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3486
      theta1 = 90
      phi1 = -131.42755
      theta2 = 90
      phi2 = -41.427554
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1444
      chmoth = 'DCLS'
      x = -36.224189
      y = -41.048465
      z = 0
      irot = 3486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3487
      theta1 = 90
      phi1 = -129.70507
      theta2 = 90
      phi2 = -39.705066
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1445
      chmoth = 'DCLS'
      x = -34.973963
      y = -42.118764
      z = 0
      irot = 3487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3488
      theta1 = 90
      phi1 = -127.98258
      theta2 = 90
      phi2 = -37.982578
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1446
      chmoth = 'DCLS'
      x = -33.69213
      y = -43.150999
      z = 0
      irot = 3488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3489
      theta1 = 90
      phi1 = -126.26009
      theta2 = 90
      phi2 = -36.26009
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1447
      chmoth = 'DCLS'
      x = -32.379849
      y = -44.144237
      z = 0
      irot = 3489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3490
      theta1 = 90
      phi1 = -124.5376
      theta2 = 90
      phi2 = -34.537602
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1448
      chmoth = 'DCLS'
      x = -31.038306
      y = -45.097582
      z = 0
      irot = 3490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3491
      theta1 = 90
      phi1 = -122.81511
      theta2 = 90
      phi2 = -32.815114
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1449
      chmoth = 'DCLS'
      x = -29.668712
      y = -46.010171
      z = 0
      irot = 3491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3492
      theta1 = 90
      phi1 = -121.09263
      theta2 = 90
      phi2 = -31.092626
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1450
      chmoth = 'DCLS'
      x = -28.272307
      y = -46.881179
      z = 0
      irot = 3492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3493
      theta1 = 90
      phi1 = -119.37014
      theta2 = 90
      phi2 = -29.370138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1451
      chmoth = 'DCLS'
      x = -26.850351
      y = -47.70982
      z = 0
      irot = 3493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3494
      theta1 = 90
      phi1 = -117.64765
      theta2 = 90
      phi2 = -27.64765
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1452
      chmoth = 'DCLS'
      x = -25.40413
      y = -48.495345
      z = 0
      irot = 3494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3495
      theta1 = 90
      phi1 = -115.92516
      theta2 = 90
      phi2 = -25.925162
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1453
      chmoth = 'DCLS'
      x = -23.934951
      y = -49.237043
      z = 0
      irot = 3495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3496
      theta1 = 90
      phi1 = -114.20267
      theta2 = 90
      phi2 = -24.202674
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1454
      chmoth = 'DCLS'
      x = -22.444141
      y = -49.934245
      z = 0
      irot = 3496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3497
      theta1 = 90
      phi1 = -112.48019
      theta2 = 90
      phi2 = -22.480186
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1455
      chmoth = 'DCLS'
      x = -20.933048
      y = -50.586321
      z = 0
      irot = 3497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3498
      theta1 = 90
      phi1 = -110.7577
      theta2 = 90
      phi2 = -20.757698
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1456
      chmoth = 'DCLS'
      x = -19.403037
      y = -51.19268
      z = 0
      irot = 3498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3499
      theta1 = 90
      phi1 = -109.03521
      theta2 = 90
      phi2 = -19.03521
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1457
      chmoth = 'DCLS'
      x = -17.855491
      y = -51.752775
      z = 0
      irot = 3499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3500
      theta1 = 90
      phi1 = -107.31272
      theta2 = 90
      phi2 = -17.312722
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1458
      chmoth = 'DCLS'
      x = -16.291809
      y = -52.2661
      z = 0
      irot = 3500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3501
      theta1 = 90
      phi1 = -105.59023
      theta2 = 90
      phi2 = -15.590234
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1459
      chmoth = 'DCLS'
      x = -14.713404
      y = -52.732192
      z = 0
      irot = 3501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3502
      theta1 = 90
      phi1 = -103.86775
      theta2 = 90
      phi2 = -13.867746
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1460
      chmoth = 'DCLS'
      x = -13.121702
      y = -53.150628
      z = 0
      irot = 3502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3503
      theta1 = 90
      phi1 = -102.14526
      theta2 = 90
      phi2 = -12.145258
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1461
      chmoth = 'DCLS'
      x = -11.518142
      y = -53.521031
      z = 0
      irot = 3503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3504
      theta1 = 90
      phi1 = -100.42277
      theta2 = 90
      phi2 = -10.42277
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1462
      chmoth = 'DCLS'
      x = -9.904172
      y = -53.843065
      z = 0
      irot = 3504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3505
      theta1 = 90
      phi1 = -98.700282
      theta2 = 90
      phi2 = -8.700282
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1463
      chmoth = 'DCLS'
      x = -8.2812517
      y = -54.116441
      z = 0
      irot = 3505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3506
      theta1 = 90
      phi1 = -96.977794
      theta2 = 90
      phi2 = -6.977794
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1464
      chmoth = 'DCLS'
      x = -6.6508475
      y = -54.34091
      z = 0
      irot = 3506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3507
      theta1 = 90
      phi1 = -95.255306
      theta2 = 90
      phi2 = -5.255306
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1465
      chmoth = 'DCLS'
      x = -5.0144328
      y = -54.516271
      z = 0
      irot = 3507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3508
      theta1 = 90
      phi1 = -93.532818
      theta2 = 90
      phi2 = -3.532818
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1466
      chmoth = 'DCLS'
      x = -3.3734865
      y = -54.642364
      z = 0
      irot = 3508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3509
      theta1 = 90
      phi1 = -91.81033
      theta2 = 90
      phi2 = -1.81033
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1467
      chmoth = 'DCLS'
      x = -1.7294914
      y = -54.719075
      z = 0
      irot = 3509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3510
      theta1 = 90
      phi1 = -90.087842
      theta2 = 90
      phi2 = -0.087842
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1468
      chmoth = 'DCLS'
      x = -0.083933431
      y = -54.746336
      z = 0
      irot = 3510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3511
      theta1 = 90
      phi1 = -88.365354
      theta2 = 90
      phi2 = 1.634646
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1469
      chmoth = 'DCLS'
      x = 1.5617004
      y = -54.724121
      z = 0
      irot = 3511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3512
      theta1 = 90
      phi1 = -86.642866
      theta2 = 90
      phi2 = 3.357134
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1470
      chmoth = 'DCLS'
      x = 3.205923
      y = -54.652451
      z = 0
      irot = 3512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3513
      theta1 = 90
      phi1 = -84.920378
      theta2 = 90
      phi2 = 5.079622
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1471
      chmoth = 'DCLS'
      x = 4.8472482
      y = -54.53139
      z = 0
      irot = 3513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3514
      theta1 = 90
      phi1 = -83.19789
      theta2 = 90
      phi2 = 6.80211
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1472
      chmoth = 'DCLS'
      x = 6.4841929
      y = -54.361048
      z = 0
      irot = 3514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3515
      theta1 = 90
      phi1 = -81.475402
      theta2 = 90
      phi2 = 8.524598
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1473
      chmoth = 'DCLS'
      x = 8.1152777
      y = -54.141579
      z = 0
      irot = 3515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3516
      theta1 = 90
      phi1 = -79.752914
      theta2 = 90
      phi2 = 10.247086
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1474
      chmoth = 'DCLS'
      x = 9.7390286
      y = -53.873181
      z = 0
      irot = 3516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3517
      theta1 = 90
      phi1 = -78.030426
      theta2 = 90
      phi2 = 11.969574
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1475
      chmoth = 'DCLS'
      x = 11.353978
      y = -53.556097
      z = 0
      irot = 3517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3518
      theta1 = 90
      phi1 = -76.307938
      theta2 = 90
      phi2 = 13.692062
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1476
      chmoth = 'DCLS'
      x = 12.958667
      y = -53.190613
      z = 0
      irot = 3518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3519
      theta1 = 90
      phi1 = -74.58545
      theta2 = 90
      phi2 = 15.41455
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1477
      chmoth = 'DCLS'
      x = 14.551644
      y = -52.777059
      z = 0
      irot = 3519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3520
      theta1 = 90
      phi1 = -72.862962
      theta2 = 90
      phi2 = 17.137038
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1478
      chmoth = 'DCLS'
      x = 16.131471
      y = -52.31581
      z = 0
      irot = 3520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3521
      theta1 = 90
      phi1 = -71.140474
      theta2 = 90
      phi2 = 18.859526
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1479
      chmoth = 'DCLS'
      x = 17.69672
      y = -51.807281
      z = 0
      irot = 3521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3522
      theta1 = 90
      phi1 = -69.417986
      theta2 = 90
      phi2 = 20.582014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1480
      chmoth = 'DCLS'
      x = 19.245976
      y = -51.251934
      z = 0
      irot = 3522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3523
      theta1 = 90
      phi1 = -67.695498
      theta2 = 90
      phi2 = 22.304502
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1481
      chmoth = 'DCLS'
      x = 20.777839
      y = -50.650269
      z = 0
      irot = 3523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3524
      theta1 = 90
      phi1 = -65.97301
      theta2 = 90
      phi2 = 24.02699
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1482
      chmoth = 'DCLS'
      x = 22.290924
      y = -50.00283
      z = 0
      irot = 3524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3525
      theta1 = 90
      phi1 = -64.250522
      theta2 = 90
      phi2 = 25.749478
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1483
      chmoth = 'DCLS'
      x = 23.783865
      y = -49.310203
      z = 0
      irot = 3525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3526
      theta1 = 90
      phi1 = -62.528034
      theta2 = 90
      phi2 = 27.471966
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1484
      chmoth = 'DCLS'
      x = 25.255311
      y = -48.573013
      z = 0
      irot = 3526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3527
      theta1 = 90
      phi1 = -60.805546
      theta2 = 90
      phi2 = 29.194454
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1485
      chmoth = 'DCLS'
      x = 26.703934
      y = -47.791926
      z = 0
      irot = 3527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3528
      theta1 = 90
      phi1 = -59.083058
      theta2 = 90
      phi2 = 30.916942
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1486
      chmoth = 'DCLS'
      x = 28.128424
      y = -46.967649
      z = 0
      irot = 3528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3529
      theta1 = 90
      phi1 = -57.36057
      theta2 = 90
      phi2 = 32.63943
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1487
      chmoth = 'DCLS'
      x = 29.527494
      y = -46.100926
      z = 0
      irot = 3529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3530
      theta1 = 90
      phi1 = -55.638082
      theta2 = 90
      phi2 = 34.361918
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1488
      chmoth = 'DCLS'
      x = 30.899879
      y = -45.192541
      z = 0
      irot = 3530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3531
      theta1 = 90
      phi1 = -53.915594
      theta2 = 90
      phi2 = 36.084406
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1489
      chmoth = 'DCLS'
      x = 32.244339
      y = -44.243315
      z = 0
      irot = 3531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3532
      theta1 = 90
      phi1 = -52.193106
      theta2 = 90
      phi2 = 37.806894
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1490
      chmoth = 'DCLS'
      x = 33.559659
      y = -43.254105
      z = 0
      irot = 3532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3533
      theta1 = 90
      phi1 = -50.470618
      theta2 = 90
      phi2 = 39.529382
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1491
      chmoth = 'DCLS'
      x = 34.844651
      y = -42.225805
      z = 0
      irot = 3533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3534
      theta1 = 90
      phi1 = -48.74813
      theta2 = 90
      phi2 = 41.25187
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1492
      chmoth = 'DCLS'
      x = 36.098153
      y = -41.159345
      z = 0
      irot = 3534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3535
      theta1 = 90
      phi1 = -47.025642
      theta2 = 90
      phi2 = 42.974358
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1493
      chmoth = 'DCLS'
      x = 37.319032
      y = -40.055688
      z = 0
      irot = 3535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3536
      theta1 = 90
      phi1 = -45.303154
      theta2 = 90
      phi2 = 44.696846
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1494
      chmoth = 'DCLS'
      x = 38.506186
      y = -38.915832
      z = 0
      irot = 3536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3537
      theta1 = 90
      phi1 = -43.580666
      theta2 = 90
      phi2 = 46.419334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1495
      chmoth = 'DCLS'
      x = 39.65854
      y = -37.740807
      z = 0
      irot = 3537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3538
      theta1 = 90
      phi1 = -41.858178
      theta2 = 90
      phi2 = 48.141822
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1496
      chmoth = 'DCLS'
      x = 40.775054
      y = -36.531675
      z = 0
      irot = 3538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3539
      theta1 = 90
      phi1 = -40.13569
      theta2 = 90
      phi2 = 49.86431
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1497
      chmoth = 'DCLS'
      x = 41.854719
      y = -35.289528
      z = 0
      irot = 3539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3540
      theta1 = 90
      phi1 = -38.413202
      theta2 = 90
      phi2 = 51.586798
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1498
      chmoth = 'DCLS'
      x = 42.896559
      y = -34.01549
      z = 0
      irot = 3540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3541
      theta1 = 90
      phi1 = -36.690714
      theta2 = 90
      phi2 = 53.309286
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1499
      chmoth = 'DCLS'
      x = 43.899632
      y = -32.710711
      z = 0
      irot = 3541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3542
      theta1 = 90
      phi1 = -34.968226
      theta2 = 90
      phi2 = 55.031774
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1500
      chmoth = 'DCLS'
      x = 44.863032
      y = -31.376371
      z = 0
      irot = 3542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3543
      theta1 = 90
      phi1 = -33.245738
      theta2 = 90
      phi2 = 56.754262
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1501
      chmoth = 'DCLS'
      x = 45.785889
      y = -30.013675
      z = 0
      irot = 3543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3544
      theta1 = 90
      phi1 = -31.52325
      theta2 = 90
      phi2 = 58.47675
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1502
      chmoth = 'DCLS'
      x = 46.667368
      y = -28.623855
      z = 0
      irot = 3544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3545
      theta1 = 90
      phi1 = -29.800762
      theta2 = 90
      phi2 = 60.199238
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1503
      chmoth = 'DCLS'
      x = 47.506673
      y = -27.208167
      z = 0
      irot = 3545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3546
      theta1 = 90
      phi1 = -28.078274
      theta2 = 90
      phi2 = 61.921726
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1504
      chmoth = 'DCLS'
      x = 48.303045
      y = -25.767891
      z = 0
      irot = 3546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3547
      theta1 = 90
      phi1 = -26.355786
      theta2 = 90
      phi2 = 63.644214
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1505
      chmoth = 'DCLS'
      x = 49.055764
      y = -24.304327
      z = 0
      irot = 3547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3548
      theta1 = 90
      phi1 = -24.633298
      theta2 = 90
      phi2 = 65.366702
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1506
      chmoth = 'DCLS'
      x = 49.764151
      y = -22.8188
      z = 0
      irot = 3548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3549
      theta1 = 90
      phi1 = -22.91081
      theta2 = 90
      phi2 = 67.08919
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1507
      chmoth = 'DCLS'
      x = 50.427565
      y = -21.31265
      z = 0
      irot = 3549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3550
      theta1 = 90
      phi1 = -21.188322
      theta2 = 90
      phi2 = 68.811678
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1508
      chmoth = 'DCLS'
      x = 51.045406
      y = -19.78724
      z = 0
      irot = 3550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3551
      theta1 = 90
      phi1 = -19.465834
      theta2 = 90
      phi2 = 70.534166
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1509
      chmoth = 'DCLS'
      x = 51.617116
      y = -18.243947
      z = 0
      irot = 3551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3552
      theta1 = 90
      phi1 = -17.743346
      theta2 = 90
      phi2 = 72.256654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1510
      chmoth = 'DCLS'
      x = 52.142179
      y = -16.684167
      z = 0
      irot = 3552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3553
      theta1 = 90
      phi1 = -16.020858
      theta2 = 90
      phi2 = 73.979142
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1511
      chmoth = 'DCLS'
      x = 52.62012
      y = -15.10931
      z = 0
      irot = 3553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3554
      theta1 = 90
      phi1 = -14.29837
      theta2 = 90
      phi2 = 75.70163
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1512
      chmoth = 'DCLS'
      x = 53.050508
      y = -13.520798
      z = 0
      irot = 3554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3555
      theta1 = 90
      phi1 = -12.575882
      theta2 = 90
      phi2 = 77.424118
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1513
      chmoth = 'DCLS'
      x = 53.432952
      y = -11.920066
      z = 0
      irot = 3555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3556
      theta1 = 90
      phi1 = -10.853394
      theta2 = 90
      phi2 = 79.146606
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1514
      chmoth = 'DCLS'
      x = 53.767108
      y = -10.308562
      z = 0
      irot = 3556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3557
      theta1 = 90
      phi1 = -9.130906
      theta2 = 90
      phi2 = 80.869094
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1515
      chmoth = 'DCLS'
      x = 54.052673
      y = -8.6877427
      z = 0
      irot = 3557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3558
      theta1 = 90
      phi1 = -7.408418
      theta2 = 90
      phi2 = 82.591582
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1516
      chmoth = 'DCLS'
      x = 54.28939
      y = -7.0590716
      z = 0
      irot = 3558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3559
      theta1 = 90
      phi1 = -5.68593
      theta2 = 90
      phi2 = 84.31407
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1517
      chmoth = 'DCLS'
      x = 54.477044
      y = -5.4240211
      z = 0
      irot = 3559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3560
      theta1 = 90
      phi1 = -3.963442
      theta2 = 90
      phi2 = 86.036558
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1518
      chmoth = 'DCLS'
      x = 54.615466
      y = -3.7840688
      z = 0
      irot = 3560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3561
      theta1 = 90
      phi1 = -2.240954
      theta2 = 90
      phi2 = 87.759046
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1519
      chmoth = 'DCLS'
      x = 54.704531
      y = -2.1406967
      z = 0
      irot = 3561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3562
      theta1 = 90
      phi1 = -0.518466
      theta2 = 90
      phi2 = 89.481534
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STRM'
      nr = 1520
      chmoth = 'DCLS'
      x = 54.744159
      y = -0.49539006
      z = 0
      irot = 3562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

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

      chname = 'CDTI'
      nr = 1
      chmoth = 'CDCG'
      x = 54.773307
      y = 14.676463
      z = 3.29
      irot = 3563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 205
      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 = 205
      npar = 3
      par(1) = 0.6289
      par(2) = 0.794
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.222) 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 = 206
      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 = 206
      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.223) 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)

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

      chname = 'CDTI'
      nr = 2
      chmoth = 'CDCG'
      x = 40.096844
      y = 40.096844
      z = 3.29
      irot = 3564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3565
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'CDTI'
      nr = 3
      chmoth = 'CDCG'
      x = 14.676463
      y = 54.773307
      z = 3.29
      irot = 3565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDTI'
      nr = 4
      chmoth = 'CDCG'
      x = -14.676463
      y = 54.773307
      z = 3.29
      irot = 3566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDTI'
      nr = 5
      chmoth = 'CDCG'
      x = -40.096844
      y = 40.096844
      z = 3.29
      irot = 3567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDTI'
      nr = 6
      chmoth = 'CDCG'
      x = -54.773307
      y = 14.676463
      z = 3.29
      irot = 3568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDTI'
      nr = 7
      chmoth = 'CDCG'
      x = -54.773307
      y = -14.676463
      z = 3.29
      irot = 3569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDTI'
      nr = 8
      chmoth = 'CDCG'
      x = -40.096844
      y = -40.096844
      z = 3.29
      irot = 3570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDTI'
      nr = 9
      chmoth = 'CDCG'
      x = -14.676463
      y = -54.773307
      z = 3.29
      irot = 3571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDTI'
      nr = 10
      chmoth = 'CDCG'
      x = 14.676463
      y = -54.773307
      z = 3.29
      irot = 3572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDTI'
      nr = 11
      chmoth = 'CDCG'
      x = 40.096844
      y = -40.096844
      z = 3.29
      irot = 3573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDTI'
      nr = 12
      chmoth = 'CDCG'
      x = 54.773307
      y = -14.676463
      z = 3.29
      irot = 3574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 52
      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 = 53
      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 = 54
      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 = 51
      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(52,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.19
      call gfmate(53,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.1
      call gfmate(54,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 = 207
      natmed = 'CDSS StainlessSteel'
      nmat = 51
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDSS'
      chshap = 'TUBE'
      nmed = 207
      npar = 3
      par(1) = 0
      par(2) = 0.635
      par(3) = 1.5875
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.224) stop 'consistency check #1 failed'

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

      chname = 'CDSS'
      nr = 1
      chmoth = 'CDCG'
      x = 54.773307
      y = 14.676463
      z = -74.25
      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 = 'CDSS'
      nr = 2
      chmoth = 'CDCG'
      x = 40.096844
      y = 40.096844
      z = -74.25
      irot = 3576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3577
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'CDSS'
      nr = 3
      chmoth = 'CDCG'
      x = 14.676463
      y = 54.773307
      z = -74.25
      irot = 3577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDSS'
      nr = 4
      chmoth = 'CDCG'
      x = -14.676463
      y = 54.773307
      z = -74.25
      irot = 3578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDSS'
      nr = 5
      chmoth = 'CDCG'
      x = -40.096844
      y = 40.096844
      z = -74.25
      irot = 3579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDSS'
      nr = 6
      chmoth = 'CDCG'
      x = -54.773307
      y = 14.676463
      z = -74.25
      irot = 3580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDSS'
      nr = 7
      chmoth = 'CDCG'
      x = -54.773307
      y = -14.676463
      z = -74.25
      irot = 3581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDSS'
      nr = 8
      chmoth = 'CDCG'
      x = -40.096844
      y = -40.096844
      z = -74.25
      irot = 3582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDSS'
      nr = 9
      chmoth = 'CDCG'
      x = -14.676463
      y = -54.773307
      z = -74.25
      irot = 3583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDSS'
      nr = 10
      chmoth = 'CDCG'
      x = 14.676463
      y = -54.773307
      z = -74.25
      irot = 3584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDSS'
      nr = 11
      chmoth = 'CDCG'
      x = 40.096844
      y = -40.096844
      z = -74.25
      irot = 3585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDSS'
      nr = 12
      chmoth = 'CDCG'
      x = 54.773307
      y = -14.676463
      z = -74.25
      irot = 3586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 57
      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 = 59
      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 = 58
      namate = 'MagnesiumOxide'
      wmat(1) = 1
      call gfmate(59,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 = 56
      namate = 'E-glass'
      wmat(1) = 0.54
      call gfmate(25,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.14
      call gfmate(33,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.1
      call gfmate(28,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.12
      call gfmate(57,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.1
      call gfmate(58,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 = 55
      namate = 'E-fiberGlass'
      wmat(1) = 0.327
      call gfmate(35,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.673
      call gfmate(56,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.9631213
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 208
      natmed = 'CDCI E-fiberGlass'
      nmat = 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 = 'CDCI'
      chshap = 'TUBE'
      nmed = 208
      npar = 3
      par(1) = 9.1821
      par(2) = 9.2329
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.225) stop 'consistency check #1 failed'

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

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

      chname = 'CDCO'
      chshap = 'TUBE'
      nmed = 209
      npar = 3
      par(1) = 57.8612
      par(2) = 57.9374
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.226) stop 'consistency check #1 failed'

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

      itmed = 210
      natmed = 'CDOC E-fiberGlass'
      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 = 'CDOC'
      chshap = 'TUBE'
      nmed = 210
      npar = 3
      par(1) = 57.6326
      par(2) = 57.8612
      par(3) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.227) stop 'consistency check #1 failed'

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

      chname = 'CDOC'
      nr = 2
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = -70.46
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 211
      natmed = 'CDIU 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 = 'CDIU'
      chshap = 'TUBE'
      nmed = 211
      npar = 3
      par(1) = 8.96
      par(2) = 9.1821
      par(3) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.228) stop 'consistency check #1 failed'

      chname = 'CDIU'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = -70.46
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 212
      natmed = 'CDID 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 = 'CDID'
      chshap = 'TUBE'
      nmed = 212
      npar = 3
      par(1) = 9.074
      par(2) = 9.1821
      par(3) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.229) stop 'consistency check #1 failed'

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

      imate = 60
      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 = 213
      natmed = 'CDGD MediumDensityROHACELL'
      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 = 'CDGD'
      chshap = 'TUBE'
      nmed = 213
      npar = 3
      par(1) = 55.3974
      par(2) = 57.9374
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.230) 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 = 214
      natmed = 'CDGI MediumDensityROHACELL'
      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 = 'CDGI'
      chshap = 'TUBE'
      nmed = 214
      npar = 3
      par(1) = 8.75
      par(2) = 11.29
      par(3) = 0.508
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.231) stop 'consistency check #1 failed'

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

      itmed = 215
      natmed = 'CDG2 MediumDensityROHACELL'
      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 = 'CDG2'
      chshap = 'TUBE'
      nmed = 215
      npar = 3
      par(1) = 8.75
      par(2) = 9.9438
      par(3) = 0.762
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.232) stop 'consistency check #1 failed'

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

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

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

      imate = 61
      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(46,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 = 216
      natmed = 'CDGW AluminizedMylar'
      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 = 'CDGW'
      chshap = 'TUBE'
      nmed = 216
      npar = 3
      par(1) = 8.75
      par(2) = 57.9374
      par(3) = 0.005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.233) stop 'consistency check #1 failed'

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

      imate = 62
      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 = 217
      natmed = 'CDGU Plexiglas'
      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 = 'CDGU'
      chshap = 'TUBE'
      nmed = 217
      npar = 3
      par(1) = 8.75
      par(2) = 57.785
      par(3) = 0.79375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.234) stop 'consistency check #1 failed'

      chname = 'CDGU'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = -76.63125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'CDGS'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = -74.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 219
      natmed = 'CDIS 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 = 'CDIS'
      chshap = 'TUBE'
      nmed = 219
      npar = 3
      par(1) = 8.75
      par(2) = 8.85
      par(3) = 1.5875
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.236) stop 'consistency check #1 failed'

      chname = 'CDIS'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = -74.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 220
      natmed = 'CDRO SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDRO'
      chshap = 'TUBE'
      nmed = 220
      npar = 3
      par(1) = 9.9
      par(2) = 55.5
      par(3) = 2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.237) stop 'consistency check #1 failed'

      chname = 'CDRO'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = -79.425
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 63
      namate = 'CDCHookupCables'
      wmat(1) = 0.983
      call gfmate(38,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.017
      call gfmate(41,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 221
      natmed = 'CDHU CDCHookupCables'
      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 = 'CDHU'
      chshap = 'TUBE'
      nmed = 221
      npar = 3
      par(1) = 9.9
      par(2) = 55.5
      par(3) = 1.5875
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.238) stop 'consistency check #1 failed'

      chname = 'CDHU'
      nr = 1
      chmoth = 'CDCG'
      x = 0
      y = 0
      z = -74.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 64
      namate = 'AluminumMesh'
      wmat(1) = 0.99877
      call gfmate(7,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.00123
      call gfmate(1,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.5816
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 222
      natmed = 'CSAM AluminumMesh'
      nmat = 64
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CSAM'
      chshap = 'TUBE'
      nmed = 222
      npar = 3
      par(1) = 60.325
      par(2) = 60.5663
      par(3) = 75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.239) stop 'consistency check #1 failed'

      chname = 'CSAM'
      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 = 223
      natmed = 'CDCB SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CDCB'
      chshap = 'PCON'
      nmed = 223
      npar = 24
      par(1) = 0
      par(2) = 360
      par(3) = 7
      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) = -65
      par(14) = 67
      par(15) = 68
      par(16) = -3.31
      par(17) = 54.5
      par(18) = 55.5
      par(19) = -0.53
      par(20) = 23
      par(21) = 55.5
      par(22) = 0
      par(23) = 8.5
      par(24) = 55.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.240) stop 'consistency check #1 failed'

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

      itmed = 224
      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 = 224
      npar = 3
      par(1) = 0
      par(2) = 64.2485
      par(3) = 99
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.241) 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)

      itmed = 225
      natmed = 'FDCS Noryl'
      nmat = 48
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCS'
      chshap = 'TUBE'
      nmed = 225
      npar = 3
      par(1) = 59.8
      par(2) = 60.1
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.242) 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 = 226
      natmed = 'FDGS Noryl'
      nmat = 48
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDGS'
      chshap = 'PCON'
      nmed = 226
      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.78
      par(8) = 53.35
      par(9) = 53.65
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.243) 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)

      itmed = 227
      natmed = 'FDGU 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 = 'FDGU'
      chshap = 'TUBE'
      nmed = 227
      npar = 3
      par(1) = 51.05
      par(2) = 51.25
      par(3) = 1.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.244) stop 'consistency check #1 failed'

      chname = 'FDGU'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -95.9548
      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.9548
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 228
      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 = 228
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 7.1362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.245) 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 = 65
      namate = 'FDchamberGas'
      wmat(1) = 0.38
      call gfmate(4,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.62
      call gfmate(42,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 0.0018432428
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 229
      natmed = 'FDM1 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDM1'
      chshap = 'TUBE'
      nmed = 229
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.246) 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)

      imate = 66
      namate = 'AluminizedMylarFilm'
      wmat(1) = 0.967
      call gfmate(46,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.03
      call gfmate(7,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0
      call gfmate(35,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.003
      call gfmate(1,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 0.35
      nlmat = 4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 230
      natmed = 'FDCG AluminizedMylarFilm'
      nmat = 66
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCG'
      chshap = 'TUBE'
      nmed = 230
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.00065
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.247) 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 = 231
      natmed = 'FDC1 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDC1'
      chshap = 'TUBE'
      nmed = 231
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.248) 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 = 67
      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 = 232
      natmed = 'FDK1 CopperKapton'
      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 = 'FDK1'
      chshap = 'TUBE'
      nmed = 232
      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.249) 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 = 233
      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 = 233
      npar = 3
      par(1) = 0
      par(2) = 2.3
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.250) 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 = 234
      natmed = 'FDG1 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDG1'
      chshap = 'TUBE'
      nmed = 234
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.251) 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 = 235
      natmed = 'FDA1 FDchamberGas'
      nmat = 65
      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 = 235
      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.252) 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 = 68
      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(65,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 = 236
      natmed = 'FDXW FDCwirePlaneComposite'
      nmat = 68
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 236
      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.253) 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 = 237
      natmed = 'FDCW FDCwirePlaneComposite'
      nmat = 68
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 237
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.005
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.254) 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 = 3587
      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 = 3587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

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

      itmed = 238
      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 = 238
      npar = 3
      par(1) = 48.5
      par(2) = 60.8
      par(3) = 7.1362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.255) 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 = 239
      natmed = 'FDCR 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 = 'FDCR'
      chshap = 'TUBE'
      nmed = 239
      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.256) stop 'consistency check #1 failed'

      chname = 'FDCR'
      nr = 1
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -7.0362
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDCR'
      nr = 2
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = 7.0362
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 240
      natmed = 'FDNS FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDNS'
      chshap = 'TUBE'
      nmed = 240
      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.257) 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 = 241
      natmed = 'FDNC FR-4'
      nmat = 26
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDNC'
      chshap = 'TUBE'
      nmed = 241
      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.258) 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 = 242
      natmed = 'FDRV 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 = 'FDRV'
      chshap = 'TUBE'
      nmed = 242
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.04
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.260) stop 'consistency check #1 failed'

      irot = 3591
      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 = 3591
      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 = 243
      natmed = 'FDKS FR-4'
      nmat = 26
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDKS'
      chshap = 'TUBE'
      nmed = 243
      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.261) 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 = 244
      natmed = 'FDRX 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 = 'FDRX'
      chshap = 'TUBE'
      nmed = 244
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.262) 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 = 3592
      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 = 3592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      itmed = 245
      natmed = 'FDML AluminizedMylarFilm'
      nmat = 66
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDML'
      chshap = 'TUBE'
      nmed = 245
      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.263) stop 'consistency check #1 failed'

      chname = 'FDML'
      nr = 1
      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 = 246
      natmed = 'FDEM EpoxyResin'
      nmat = 35
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

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

      chname = 'FDML'
      nr = 2
      chmoth = 'FDSF'
      x = 0
      y = 0
      z = -6.93685
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 247
      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 = 247
      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.265) 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 = 248
      natmed = 'FDKB FR-4'
      nmat = 26
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDKB'
      chshap = 'TUBE'
      nmed = 248
      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.266) 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 = 249
      natmed = 'FDKC CopperKapton'
      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 = 'FDKC'
      chshap = 'TUBE'
      nmed = 249
      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.267) 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 = 250
      natmed = 'FDPS FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDPS'
      chshap = 'TUBE'
      nmed = 250
      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.268) 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 = 69
      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 = 251
      natmed = 'FDPP Polypropylene'
      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 = 'FDPP'
      chshap = 'TUBE'
      nmed = 251
      npar = 3
      par(1) = 51
      par(2) = 52.7
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.269) 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)

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

      chname = 'FDRU'
      nr = 1
      chmoth = 'FDPS'
      x = 52.25
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

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

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

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

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

      irot = 3620
      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 = 'FDPS'
      x = 3.1993898e-15
      y = 52.25
      z = 0
      irot = 3620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

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

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

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

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

      irot = 3626
      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 = 'FDPS'
      x = -52.25
      y = 6.3987795e-15
      z = 0
      irot = 3626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

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

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

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

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

      irot = 3632
      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 = 'FDPS'
      x = -9.5981693e-15
      y = -52.25
      z = 0
      irot = 3632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

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

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

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

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

      itmed = 253
      natmed = 'FDEL EpoxyResin'
      nmat = 35
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDEL'
      chshap = 'TUBE'
      nmed = 253
      npar = 3
      par(1) = 58.9
      par(2) = 59
      par(3) = 0.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.271) 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 = 254
      natmed = 'FDWF FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDWF'
      chshap = 'TUBE'
      nmed = 254
      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.272) 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 = 70
      namate = 'FDAnodeBoard'
      wmat(1) = 0.5
      call gfmate(18,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.5
      call gfmate(26,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 3.1487764
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 255
      natmed = 'FDWB FDAnodeBoard'
      nmat = 70
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDWB'
      chshap = 'TUBE'
      nmed = 255
      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.273) 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 = 3638
      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 = 3638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 73
      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 = 72
      namate = 'CalciumTitanate'
      wmat(1) = 1
      call gfmate(8,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 1
      call gfmate(73,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 = 74
      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 = 71
      namate = 'HVcapacitorSolder'
      wmat(1) = 0.9
      call gfmate(72,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.1
      call gfmate(74,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 = 256
      natmed = 'FDBC HVcapacitorSolder'
      nmat = 71
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 256
      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.275) 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 = 257
      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 = 257
      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.276) 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 = 258
      natmed = 'FDOW FR-4'
      nmat = 26
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDOW'
      chshap = 'TUBE'
      nmed = 258
      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.277) 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 = 259
      natmed = 'FDRW 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 = 'FDRW'
      chshap = 'TUBE'
      nmed = 259
      npar = 3
      par(1) = 0
      par(2) = 0.24
      par(3) = 0.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.279) stop 'consistency check #1 failed'

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

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

      chname = 'FDWC'
      chshap = 'TUBE'
      nmed = 260
      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.280) 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 = 3640
      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 = 3640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDKB'
      nr = 2
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = 0.5427
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDNS'
      nr = 4
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = 0.7827
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDEM'
      nr = 4
      chmoth = 'FDFP'
      x = 0
      y = 0
      z = 0.7827
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 261
      natmed = 'FDCP CircuitBoards'
      nmat = 36
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDCP'
      chshap = 'TUBE'
      nmed = 261
      npar = 3
      par(1) = 54.7
      par(2) = 60
      par(3) = 0.0135
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.282) 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 = 262
      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 = 262
      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.283) 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 = 76
      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 = 75
      namate = 'Fluorinert'
      wmat(1) = 6
      call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 14
      call gfmate(76,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 = 263
      natmed = 'FDLF Fluorinert'
      nmat = 75
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 263
      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.284) 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 = 264
      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 = 264
      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.285) 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 = 265
      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 = 265
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 7.1362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.286) 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 = 266
      natmed = 'FDM2 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDM2'
      chshap = 'TUBE'
      nmed = 266
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.287) 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 = 267
      natmed = 'FDC2 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDC2'
      chshap = 'TUBE'
      nmed = 267
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.288) 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 = 268
      natmed = 'FDK2 CopperKapton'
      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 = 'FDK2'
      chshap = 'TUBE'
      nmed = 268
      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.289) 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 = 269
      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 = 269
      npar = 3
      par(1) = 0
      par(2) = 3.2
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.290) 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 = 270
      natmed = 'FDG2 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDG2'
      chshap = 'TUBE'
      nmed = 270
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.291) 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 = 271
      natmed = 'FDA2 FDchamberGas'
      nmat = 65
      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 = 271
      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.292) 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 = 3641
      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 = 3641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      irot = 3644
      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 = 3644
      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 = 272
      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 = 272
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 7.1362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.293) 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 = 273
      natmed = 'FDM3 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDM3'
      chshap = 'TUBE'
      nmed = 273
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.294) 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 = 274
      natmed = 'FDC3 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDC3'
      chshap = 'TUBE'
      nmed = 274
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.295) 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 = 275
      natmed = 'FDK3 CopperKapton'
      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 = 'FDK3'
      chshap = 'TUBE'
      nmed = 275
      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.296) 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 = 276
      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 = 276
      npar = 3
      par(1) = 0
      par(2) = 3.9
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.297) 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 = 277
      natmed = 'FDG3 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDG3'
      chshap = 'TUBE'
      nmed = 277
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.298) 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 = 278
      natmed = 'FDA3 FDchamberGas'
      nmat = 65
      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 = 278
      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.299) 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 = 3645
      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 = 3645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      irot = 3648
      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 = 3648
      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 = 279
      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 = 279
      npar = 3
      par(1) = 0
      par(2) = 60.8
      par(3) = 7.1362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.300) 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 = 280
      natmed = 'FDM4 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDM4'
      chshap = 'TUBE'
      nmed = 280
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 6.9362
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.301) 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 = 281
      natmed = 'FDC4 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDC4'
      chshap = 'TUBE'
      nmed = 281
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 1.0627
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.302) 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 = 282
      natmed = 'FDK4 CopperKapton'
      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 = 'FDK4'
      chshap = 'TUBE'
      nmed = 282
      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.303) 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 = 283
      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 = 283
      npar = 3
      par(1) = 0
      par(2) = 4.6
      par(3) = 0.00125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.304) 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 = 284
      natmed = 'FDG4 FDchamberGas'
      nmat = 65
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDG4'
      chshap = 'TUBE'
      nmed = 284
      npar = 3
      par(1) = 0
      par(2) = 48.5
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.305) 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 = 285
      natmed = 'FDA4 FDchamberGas'
      nmat = 65
      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 = 285
      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.306) 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 = 3649
      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 = 3649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      irot = 3652
      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 = 3652
      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 = 286
      natmed = 'FDRL FR-4'
      nmat = 26
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDRL'
      chshap = 'TUBE'
      nmed = 286
      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.307) stop 'consistency check #1 failed'

      chname = 'FDRL'
      nr = 1
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = -58.4234
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3653
      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 = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = -58.4234
      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 = 'FDRL'
      nr = 3
      chmoth = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = -58.4234
      irot = 3654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3655
      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 = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = -58.4234
      irot = 3655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDRL'
      nr = 5
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRL'
      nr = 6
      chmoth = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = 0
      irot = 3656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRL'
      nr = 7
      chmoth = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = 0
      irot = 3657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDRL'
      nr = 8
      chmoth = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = 0
      irot = 3658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDZL'
      chshap = 'TUBE'
      nmed = 287
      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.308) stop 'consistency check #1 failed'

      chname = 'FDZL'
      nr = 1
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = 48.4234
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3659
      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 = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = 48.4234
      irot = 3659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3660
      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 = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = 48.4234
      irot = 3660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3661
      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 = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = 48.4234
      irot = 3661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 288
      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 = 288
      npar = 3
      par(1) = 0
      par(2) = 0.7938
      par(3) = 0.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.309) 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 = 3662
      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 = 3662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

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

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

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

      irot = 3667
      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 = 3667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3668
      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 = 3668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3669
      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 = 3669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3670
      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 = 3670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3671
      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 = 3671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3672
      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 = 3672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3673
      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 = 3673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3674
      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 = 3674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3675
      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 = 3675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3676
      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 = 3676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3677
      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 = 3677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3678
      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 = 3678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3679
      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 = 3679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3680
      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 = 3680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3681
      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 = 3681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3682
      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 = 3682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3683
      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 = 3683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3684
      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 = 3684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 25
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = -80.2624
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3685
      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 = -80.2624
      irot = 3685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3686
      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 = -80.2624
      irot = 3686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3687
      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 = -80.2624
      irot = 3687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3688
      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 = -80.2624
      irot = 3688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3689
      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 = -80.2624
      irot = 3689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3690
      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 = -80.2624
      irot = 3690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3691
      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 = -80.2624
      irot = 3691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3692
      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 = -80.2624
      irot = 3692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3693
      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 = -80.2624
      irot = 3693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3694
      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 = -80.2624
      irot = 3694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3695
      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 = -80.2624
      irot = 3695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3696
      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 = -80.2624
      irot = 3696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3697
      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 = -80.2624
      irot = 3697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3698
      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 = -80.2624
      irot = 3698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3699
      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 = -80.2624
      irot = 3699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3700
      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 = -80.2624
      irot = 3700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3701
      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 = -80.2624
      irot = 3701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3702
      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 = -80.2624
      irot = 3702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3703
      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 = -80.2624
      irot = 3703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3704
      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 = -80.2624
      irot = 3704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3705
      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 = -80.2624
      irot = 3705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3706
      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 = -80.2624
      irot = 3706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3707
      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 = -80.2624
      irot = 3707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 49
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = -36.6024
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3708
      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 = 'FDC'
      x = 50.469624
      y = 13.523295
      z = -36.6024
      irot = 3708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3709
      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 = 'FDC'
      x = 45.249827
      y = 26.125
      z = -36.6024
      irot = 3709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3710
      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 = 'FDC'
      x = 36.946329
      y = 36.946329
      z = -36.6024
      irot = 3710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3711
      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 = 'FDC'
      x = 26.125
      y = 45.249827
      z = -36.6024
      irot = 3711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3712
      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 = 'FDC'
      x = 13.523295
      y = 50.469624
      z = -36.6024
      irot = 3712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3713
      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 = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = -36.6024
      irot = 3713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3714
      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 = 'FDC'
      x = -13.523295
      y = 50.469624
      z = -36.6024
      irot = 3714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3715
      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 = 'FDC'
      x = -26.125
      y = 45.249827
      z = -36.6024
      irot = 3715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3716
      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 = 'FDC'
      x = -36.946329
      y = 36.946329
      z = -36.6024
      irot = 3716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3717
      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 = 'FDC'
      x = -45.249827
      y = 26.125
      z = -36.6024
      irot = 3717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3718
      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 = 'FDC'
      x = -50.469624
      y = 13.523295
      z = -36.6024
      irot = 3718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3719
      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 = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = -36.6024
      irot = 3719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3720
      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 = 'FDC'
      x = -50.469624
      y = -13.523295
      z = -36.6024
      irot = 3720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3721
      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 = 'FDC'
      x = -45.249827
      y = -26.125
      z = -36.6024
      irot = 3721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3722
      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 = 'FDC'
      x = -36.946329
      y = -36.946329
      z = -36.6024
      irot = 3722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3723
      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 = 'FDC'
      x = -26.125
      y = -45.249827
      z = -36.6024
      irot = 3723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3724
      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 = 'FDC'
      x = -13.523295
      y = -50.469624
      z = -36.6024
      irot = 3724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3725
      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 = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = -36.6024
      irot = 3725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3726
      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 = 'FDC'
      x = 13.523295
      y = -50.469624
      z = -36.6024
      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 = 'FDXN'
      nr = 69
      chmoth = 'FDC'
      x = 26.125
      y = -45.249827
      z = -36.6024
      irot = 3727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3728
      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 = 'FDC'
      x = 36.946329
      y = -36.946329
      z = -36.6024
      irot = 3728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3729
      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 = 'FDC'
      x = 45.249827
      y = -26.125
      z = -36.6024
      irot = 3729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3730
      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 = 'FDC'
      x = 50.469624
      y = -13.523295
      z = -36.6024
      irot = 3730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 73
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = -21.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3731
      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 = 'FDC'
      x = 50.469624
      y = 13.523295
      z = -21.83
      irot = 3731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3732
      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 = 'FDC'
      x = 45.249827
      y = 26.125
      z = -21.83
      irot = 3732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3733
      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 = 'FDC'
      x = 36.946329
      y = 36.946329
      z = -21.83
      irot = 3733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3734
      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 = 'FDC'
      x = 26.125
      y = 45.249827
      z = -21.83
      irot = 3734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3735
      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 = 'FDC'
      x = 13.523295
      y = 50.469624
      z = -21.83
      irot = 3735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3736
      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 = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = -21.83
      irot = 3736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3737
      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 = 'FDC'
      x = -13.523295
      y = 50.469624
      z = -21.83
      irot = 3737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3738
      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 = 'FDC'
      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 = 135
      theta2 = 90
      phi2 = -135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 82
      chmoth = 'FDC'
      x = -36.946329
      y = 36.946329
      z = -21.83
      irot = 3739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3740
      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 = 'FDC'
      x = -45.249827
      y = 26.125
      z = -21.83
      irot = 3740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3741
      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 = 'FDC'
      x = -50.469624
      y = 13.523295
      z = -21.83
      irot = 3741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3742
      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 = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = -21.83
      irot = 3742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3743
      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 = 'FDC'
      x = -50.469624
      y = -13.523295
      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 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 87
      chmoth = 'FDC'
      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 = -135
      theta2 = 90
      phi2 = -45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 88
      chmoth = 'FDC'
      x = -36.946329
      y = -36.946329
      z = -21.83
      irot = 3745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3746
      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 = 'FDC'
      x = -26.125
      y = -45.249827
      z = -21.83
      irot = 3746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3747
      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 = 'FDC'
      x = -13.523295
      y = -50.469624
      z = -21.83
      irot = 3747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3748
      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 = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = -21.83
      irot = 3748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3749
      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 = 'FDC'
      x = 13.523295
      y = -50.469624
      z = -21.83
      irot = 3749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3750
      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 = 'FDC'
      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 = -45
      theta2 = 90
      phi2 = 45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 94
      chmoth = 'FDC'
      x = 36.946329
      y = -36.946329
      z = -21.83
      irot = 3751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3752
      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 = 'FDC'
      x = 45.249827
      y = -26.125
      z = -21.83
      irot = 3752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3753
      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 = 'FDC'
      x = 50.469624
      y = -13.523295
      z = -21.83
      irot = 3753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 97
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = 21.83
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3754
      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 = 'FDC'
      x = 50.469624
      y = 13.523295
      z = 21.83
      irot = 3754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3755
      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 = 'FDC'
      x = 45.249827
      y = 26.125
      z = 21.83
      irot = 3755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3756
      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 = 'FDC'
      x = 36.946329
      y = 36.946329
      z = 21.83
      irot = 3756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3757
      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 = 'FDC'
      x = 26.125
      y = 45.249827
      z = 21.83
      irot = 3757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3758
      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 = 'FDC'
      x = 13.523295
      y = 50.469624
      z = 21.83
      irot = 3758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3759
      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 = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = 21.83
      irot = 3759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3760
      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 = 'FDC'
      x = -13.523295
      y = 50.469624
      z = 21.83
      irot = 3760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3761
      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 = 'FDC'
      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 = 135
      theta2 = 90
      phi2 = -135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 106
      chmoth = 'FDC'
      x = -36.946329
      y = 36.946329
      z = 21.83
      irot = 3762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3763
      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 = 'FDC'
      x = -45.249827
      y = 26.125
      z = 21.83
      irot = 3763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3764
      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 = 'FDC'
      x = -50.469624
      y = 13.523295
      z = 21.83
      irot = 3764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3765
      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 = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = 21.83
      irot = 3765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3766
      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 = 'FDC'
      x = -50.469624
      y = -13.523295
      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 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 111
      chmoth = 'FDC'
      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 = -135
      theta2 = 90
      phi2 = -45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 112
      chmoth = 'FDC'
      x = -36.946329
      y = -36.946329
      z = 21.83
      irot = 3768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3769
      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 = 'FDC'
      x = -26.125
      y = -45.249827
      z = 21.83
      irot = 3769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3770
      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 = 'FDC'
      x = -13.523295
      y = -50.469624
      z = 21.83
      irot = 3770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3771
      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 = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = 21.83
      irot = 3771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3772
      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 = 'FDC'
      x = 13.523295
      y = -50.469624
      z = 21.83
      irot = 3772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3773
      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 = 'FDC'
      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 = -45
      theta2 = 90
      phi2 = 45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 118
      chmoth = 'FDC'
      x = 36.946329
      y = -36.946329
      z = 21.83
      irot = 3774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3775
      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 = 'FDC'
      x = 45.249827
      y = -26.125
      z = 21.83
      irot = 3775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3776
      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 = 'FDC'
      x = 50.469624
      y = -13.523295
      z = 21.83
      irot = 3776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 121
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = 36.6024
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3777
      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 = 'FDC'
      x = 50.469624
      y = 13.523295
      z = 36.6024
      irot = 3777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3778
      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 = 'FDC'
      x = 45.249827
      y = 26.125
      z = 36.6024
      irot = 3778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3779
      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 = 'FDC'
      x = 36.946329
      y = 36.946329
      z = 36.6024
      irot = 3779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3780
      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 = 'FDC'
      x = 26.125
      y = 45.249827
      z = 36.6024
      irot = 3780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3781
      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 = 'FDC'
      x = 13.523295
      y = 50.469624
      z = 36.6024
      irot = 3781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3782
      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 = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = 36.6024
      irot = 3782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3783
      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 = 'FDC'
      x = -13.523295
      y = 50.469624
      z = 36.6024
      irot = 3783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3784
      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 = 'FDC'
      x = -26.125
      y = 45.249827
      z = 36.6024
      irot = 3784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3785
      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 = 'FDC'
      x = -36.946329
      y = 36.946329
      z = 36.6024
      irot = 3785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3786
      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 = 'FDC'
      x = -45.249827
      y = 26.125
      z = 36.6024
      irot = 3786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3787
      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 = 'FDC'
      x = -50.469624
      y = 13.523295
      z = 36.6024
      irot = 3787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3788
      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 = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = 36.6024
      irot = 3788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3789
      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 = 'FDC'
      x = -50.469624
      y = -13.523295
      z = 36.6024
      irot = 3789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3790
      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 = 'FDC'
      x = -45.249827
      y = -26.125
      z = 36.6024
      irot = 3790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3791
      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 = 'FDC'
      x = -36.946329
      y = -36.946329
      z = 36.6024
      irot = 3791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3792
      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 = 'FDC'
      x = -26.125
      y = -45.249827
      z = 36.6024
      irot = 3792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3793
      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 = 'FDC'
      x = -13.523295
      y = -50.469624
      z = 36.6024
      irot = 3793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3794
      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 = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = 36.6024
      irot = 3794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3795
      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 = 'FDC'
      x = 13.523295
      y = -50.469624
      z = 36.6024
      irot = 3795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3796
      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 = 'FDC'
      x = 26.125
      y = -45.249827
      z = 36.6024
      irot = 3796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3797
      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 = 'FDC'
      x = 36.946329
      y = -36.946329
      z = 36.6024
      irot = 3797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3798
      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 = 'FDC'
      x = 45.249827
      y = -26.125
      z = 36.6024
      irot = 3798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3799
      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 = 'FDC'
      x = 50.469624
      y = -13.523295
      z = 36.6024
      irot = 3799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 145
      chmoth = 'FDC'
      x = 52.25
      y = 0
      z = 60.2624
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3800
      theta1 = 90
      phi1 = 15
      theta2 = 90
      phi2 = 105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 146
      chmoth = 'FDC'
      x = 50.469624
      y = 13.523295
      z = 60.2624
      irot = 3800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3801
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 147
      chmoth = 'FDC'
      x = 45.249827
      y = 26.125
      z = 60.2624
      irot = 3801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3802
      theta1 = 90
      phi1 = 45
      theta2 = 90
      phi2 = 135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 148
      chmoth = 'FDC'
      x = 36.946329
      y = 36.946329
      z = 60.2624
      irot = 3802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3803
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 149
      chmoth = 'FDC'
      x = 26.125
      y = 45.249827
      z = 60.2624
      irot = 3803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3804
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 150
      chmoth = 'FDC'
      x = 13.523295
      y = 50.469624
      z = 60.2624
      irot = 3804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3805
      theta1 = 90
      phi1 = 90
      theta2 = 90
      phi2 = 180
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 151
      chmoth = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = 60.2624
      irot = 3805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3806
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 152
      chmoth = 'FDC'
      x = -13.523295
      y = 50.469624
      z = 60.2624
      irot = 3806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3807
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 153
      chmoth = 'FDC'
      x = -26.125
      y = 45.249827
      z = 60.2624
      irot = 3807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3808
      theta1 = 90
      phi1 = 135
      theta2 = 90
      phi2 = -135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 154
      chmoth = 'FDC'
      x = -36.946329
      y = 36.946329
      z = 60.2624
      irot = 3808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3809
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 155
      chmoth = 'FDC'
      x = -45.249827
      y = 26.125
      z = 60.2624
      irot = 3809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3810
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 156
      chmoth = 'FDC'
      x = -50.469624
      y = 13.523295
      z = 60.2624
      irot = 3810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3811
      theta1 = 90
      phi1 = -180
      theta2 = 90
      phi2 = -90
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 157
      chmoth = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = 60.2624
      irot = 3811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3812
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 158
      chmoth = 'FDC'
      x = -50.469624
      y = -13.523295
      z = 60.2624
      irot = 3812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3813
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 159
      chmoth = 'FDC'
      x = -45.249827
      y = -26.125
      z = 60.2624
      irot = 3813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3814
      theta1 = 90
      phi1 = -135
      theta2 = 90
      phi2 = -45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 160
      chmoth = 'FDC'
      x = -36.946329
      y = -36.946329
      z = 60.2624
      irot = 3814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3815
      theta1 = 90
      phi1 = -120
      theta2 = 90
      phi2 = -30
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 161
      chmoth = 'FDC'
      x = -26.125
      y = -45.249827
      z = 60.2624
      irot = 3815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3816
      theta1 = 90
      phi1 = -105
      theta2 = 90
      phi2 = -15
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 162
      chmoth = 'FDC'
      x = -13.523295
      y = -50.469624
      z = 60.2624
      irot = 3816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3817
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = -1.0525064e-14
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 163
      chmoth = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = 60.2624
      irot = 3817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3818
      theta1 = 90
      phi1 = -75
      theta2 = 90
      phi2 = 15
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 164
      chmoth = 'FDC'
      x = 13.523295
      y = -50.469624
      z = 60.2624
      irot = 3818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3819
      theta1 = 90
      phi1 = -60
      theta2 = 90
      phi2 = 30
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 165
      chmoth = 'FDC'
      x = 26.125
      y = -45.249827
      z = 60.2624
      irot = 3819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3820
      theta1 = 90
      phi1 = -45
      theta2 = 90
      phi2 = 45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 166
      chmoth = 'FDC'
      x = 36.946329
      y = -36.946329
      z = 60.2624
      irot = 3820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3821
      theta1 = 90
      phi1 = -30
      theta2 = 90
      phi2 = 60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 167
      chmoth = 'FDC'
      x = 45.249827
      y = -26.125
      z = 60.2624
      irot = 3821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3822
      theta1 = 90
      phi1 = -15
      theta2 = 90
      phi2 = 75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 168
      chmoth = 'FDC'
      x = 50.469624
      y = -13.523295
      z = 60.2624
      irot = 3822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDXN'
      nr = 169
      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 = 3823
      theta1 = 90
      phi1 = 15
      theta2 = 90
      phi2 = 105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 170
      chmoth = 'FDC'
      x = 50.469624
      y = 13.523295
      z = 75.0348
      irot = 3823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3824
      theta1 = 90
      phi1 = 30
      theta2 = 90
      phi2 = 120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 171
      chmoth = 'FDC'
      x = 45.249827
      y = 26.125
      z = 75.0348
      irot = 3824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3825
      theta1 = 90
      phi1 = 45
      theta2 = 90
      phi2 = 135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 172
      chmoth = 'FDC'
      x = 36.946329
      y = 36.946329
      z = 75.0348
      irot = 3825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3826
      theta1 = 90
      phi1 = 60
      theta2 = 90
      phi2 = 150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 173
      chmoth = 'FDC'
      x = 26.125
      y = 45.249827
      z = 75.0348
      irot = 3826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3827
      theta1 = 90
      phi1 = 75
      theta2 = 90
      phi2 = 165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 174
      chmoth = 'FDC'
      x = 13.523295
      y = 50.469624
      z = 75.0348
      irot = 3827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3828
      theta1 = 90
      phi1 = 90
      theta2 = 90
      phi2 = 180
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 175
      chmoth = 'FDC'
      x = 3.1993898e-15
      y = 52.25
      z = 75.0348
      irot = 3828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3829
      theta1 = 90
      phi1 = 105
      theta2 = 90
      phi2 = -165
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 176
      chmoth = 'FDC'
      x = -13.523295
      y = 50.469624
      z = 75.0348
      irot = 3829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3830
      theta1 = 90
      phi1 = 120
      theta2 = 90
      phi2 = -150
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 177
      chmoth = 'FDC'
      x = -26.125
      y = 45.249827
      z = 75.0348
      irot = 3830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3831
      theta1 = 90
      phi1 = 135
      theta2 = 90
      phi2 = -135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 178
      chmoth = 'FDC'
      x = -36.946329
      y = 36.946329
      z = 75.0348
      irot = 3831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3832
      theta1 = 90
      phi1 = 150
      theta2 = 90
      phi2 = -120
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 179
      chmoth = 'FDC'
      x = -45.249827
      y = 26.125
      z = 75.0348
      irot = 3832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3833
      theta1 = 90
      phi1 = 165
      theta2 = 90
      phi2 = -105
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 180
      chmoth = 'FDC'
      x = -50.469624
      y = 13.523295
      z = 75.0348
      irot = 3833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3834
      theta1 = 90
      phi1 = -180
      theta2 = 90
      phi2 = -90
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 181
      chmoth = 'FDC'
      x = -52.25
      y = 6.3987795e-15
      z = 75.0348
      irot = 3834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3835
      theta1 = 90
      phi1 = -165
      theta2 = 90
      phi2 = -75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 182
      chmoth = 'FDC'
      x = -50.469624
      y = -13.523295
      z = 75.0348
      irot = 3835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3836
      theta1 = 90
      phi1 = -150
      theta2 = 90
      phi2 = -60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 183
      chmoth = 'FDC'
      x = -45.249827
      y = -26.125
      z = 75.0348
      irot = 3836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3837
      theta1 = 90
      phi1 = -135
      theta2 = 90
      phi2 = -45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 184
      chmoth = 'FDC'
      x = -36.946329
      y = -36.946329
      z = 75.0348
      irot = 3837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3838
      theta1 = 90
      phi1 = -120
      theta2 = 90
      phi2 = -30
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 185
      chmoth = 'FDC'
      x = -26.125
      y = -45.249827
      z = 75.0348
      irot = 3838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3839
      theta1 = 90
      phi1 = -105
      theta2 = 90
      phi2 = -15
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 186
      chmoth = 'FDC'
      x = -13.523295
      y = -50.469624
      z = 75.0348
      irot = 3839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3840
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = -1.0525064e-14
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 187
      chmoth = 'FDC'
      x = -9.5981693e-15
      y = -52.25
      z = 75.0348
      irot = 3840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3841
      theta1 = 90
      phi1 = -75
      theta2 = 90
      phi2 = 15
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 188
      chmoth = 'FDC'
      x = 13.523295
      y = -50.469624
      z = 75.0348
      irot = 3841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3842
      theta1 = 90
      phi1 = -60
      theta2 = 90
      phi2 = 30
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 189
      chmoth = 'FDC'
      x = 26.125
      y = -45.249827
      z = 75.0348
      irot = 3842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3843
      theta1 = 90
      phi1 = -45
      theta2 = 90
      phi2 = 45
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 190
      chmoth = 'FDC'
      x = 36.946329
      y = -36.946329
      z = 75.0348
      irot = 3843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3844
      theta1 = 90
      phi1 = -30
      theta2 = 90
      phi2 = 60
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 191
      chmoth = 'FDC'
      x = 45.249827
      y = -26.125
      z = 75.0348
      irot = 3844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3845
      theta1 = 90
      phi1 = -15
      theta2 = 90
      phi2 = 75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDXN'
      nr = 192
      chmoth = 'FDC'
      x = 50.469624
      y = -13.523295
      z = 75.0348
      irot = 3845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 289
      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 = 289
      npar = 3
      par(1) = 51.05
      par(2) = 51.35
      par(3) = 22.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.310) 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 = 290
      natmed = 'FDXM FR-4'
      nmat = 26
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDXM'
      chshap = 'TUBE'
      nmed = 290
      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.311) 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 = 'FDGU'
      nr = 3
      chmoth = 'FDIS'
      x = 0
      y = 0
      z = -20.91
      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 = 20.91
      irot = 0
      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 = 291
      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 = 291
      npar = 3
      par(1) = 51.05
      par(2) = 51.35
      par(3) = 12.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.312) 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)

      itmed = 292
      natmed = 'FDXX FR-4'
      nmat = 26
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDXX'
      chshap = 'TUBE'
      nmed = 292
      npar = 3
      par(1) = 51.25
      par(2) = 51.35
      par(3) = 12.08
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.313) stop 'consistency check #1 failed'

      chname = 'FDXX'
      nr = 1
      chmoth = 'FDIX'
      x = 0
      y = 0
      z = 0
      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 = -10.91
      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 = 10.91
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 293
      natmed = 'FDFM 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 = 'FDFM'
      chshap = 'TUBS'
      nmed = 293
      npar = 5
      par(1) = 51.4
      par(2) = 64.2485
      par(3) = 0.15875
      par(4) = 84.886
      par(5) = 95.114
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.314) stop 'consistency check #1 failed'

      irot = 3846
      theta1 = 90
      phi1 = -36.5
      theta2 = 90
      phi2 = 53.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 74.94355
      irot = 3846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 294
      natmed = 'FDFC FR-4'
      nmat = 26
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDFC'
      chshap = 'TUBS'
      nmed = 294
      npar = 5
      par(1) = 0
      par(2) = 0.9
      par(3) = 0.15875
      par(4) = 0
      par(5) = 180
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.315) stop 'consistency check #1 failed'

      chname = 'FDFC'
      nr = 1
      chmoth = 'FDFM'
      x = 0
      y = 63
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 295
      natmed = 'FDF0 FR-4'
      nmat = 26
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDF0'
      chshap = 'TRAP'
      nmed = 295
      npar = 11
      par(1) = 5.8
      par(2) = 0
      par(3) = 0
      par(4) = 0.15875
      par(5) = 4.6
      par(6) = 4.6
      par(7) = 0
      par(8) = 0.15875
      par(9) = 0.9
      par(10) = 0.9
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.316) stop 'consistency check #1 failed'

      irot = 3847
      theta1 = 90
      phi1 = 0
      theta2 = 180
      phi2 = 90
      theta3 = 90
      phi3 = 90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDF0'
      nr = 1
      chmoth = 'FDFM'
      x = 0
      y = 57.2
      z = 0
      irot = 3847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 296
      natmed = 'FDF1 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 = 'FDF1'
      chshap = 'TRAP'
      nmed = 296
      npar = 11
      par(1) = 3.6
      par(2) = 0
      par(3) = 0
      par(4) = 0.15875
      par(5) = 2.26
      par(6) = 2.26
      par(7) = 0
      par(8) = 0.15875
      par(9) = 0
      par(10) = 0
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.317) stop 'consistency check #1 failed'

      chname = 'FDF1'
      nr = 1
      chmoth = 'FDF0'
      x = 0
      y = 0
      z = 0.9
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 297
      natmed = 'FDF2 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 = 'FDF2'
      chshap = 'BOX '
      nmed = 297
      npar = 3
      par(1) = 2.05
      par(2) = 0.15875
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.318) stop 'consistency check #1 failed'

      chname = 'FDF2'
      nr = 1
      chmoth = 'FDF0'
      x = 0
      y = 0
      z = -4.95
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3848
      theta1 = 90
      phi1 = 36.5
      theta2 = 90
      phi2 = 126.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 74.94355
      irot = 3848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3849
      theta1 = 90
      phi1 = 143.5
      theta2 = 90
      phi2 = -126.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 74.94355
      irot = 3849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3850
      theta1 = 90
      phi1 = -143.5
      theta2 = 90
      phi2 = -53.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 74.94355
      irot = 3850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3851
      theta1 = 90
      phi1 = -36.5
      theta2 = 90
      phi2 = 53.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 5
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 36.51115
      irot = 3851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3852
      theta1 = 90
      phi1 = 36.5
      theta2 = 90
      phi2 = 126.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 6
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 36.51115
      irot = 3852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3853
      theta1 = 90
      phi1 = 143.5
      theta2 = 90
      phi2 = -126.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 7
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 36.51115
      irot = 3853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3854
      theta1 = 90
      phi1 = -143.5
      theta2 = 90
      phi2 = -53.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 8
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 36.51115
      irot = 3854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3855
      theta1 = 90
      phi1 = -36.5
      theta2 = 90
      phi2 = 53.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 9
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -21.92125
      irot = 3855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3856
      theta1 = 90
      phi1 = 36.5
      theta2 = 90
      phi2 = 126.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 10
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -21.92125
      irot = 3856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3857
      theta1 = 90
      phi1 = 143.5
      theta2 = 90
      phi2 = -126.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 11
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -21.92125
      irot = 3857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3858
      theta1 = 90
      phi1 = -143.5
      theta2 = 90
      phi2 = -53.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 12
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -21.92125
      irot = 3858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3859
      theta1 = 90
      phi1 = -36.5
      theta2 = 90
      phi2 = 53.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 13
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -80.35365
      irot = 3859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3860
      theta1 = 90
      phi1 = 36.5
      theta2 = 90
      phi2 = 126.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 14
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -80.35365
      irot = 3860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3861
      theta1 = 90
      phi1 = 143.5
      theta2 = 90
      phi2 = -126.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 15
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -80.35365
      irot = 3861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3862
      theta1 = 90
      phi1 = -143.5
      theta2 = 90
      phi2 = -53.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDFM'
      nr = 16
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -80.35365
      irot = 3862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 298
      natmed = 'FDE4 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDE4'
      chshap = 'TUBS'
      nmed = 298
      npar = 5
      par(1) = 61
      par(2) = 61.11
      par(3) = 86.7924
      par(4) = 0
      par(5) = 45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.319) stop 'consistency check #1 failed'

      irot = 3863
      theta1 = 90
      phi1 = 3
      theta2 = 90
      phi2 = 93
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE4'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -12.2076
      irot = 3863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3864
      theta1 = 90
      phi1 = -177
      theta2 = 90
      phi2 = -87
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE4'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -12.2076
      irot = 3864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 299
      natmed = 'FDE3 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDE3'
      chshap = 'TUBS'
      nmed = 299
      npar = 5
      par(1) = 61.5
      par(2) = 61.61
      par(3) = 67.5762
      par(4) = 0
      par(5) = 45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.320) stop 'consistency check #1 failed'

      irot = 3865
      theta1 = 90
      phi1 = 3
      theta2 = 90
      phi2 = 93
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE3'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -31.4238
      irot = 3865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3866
      theta1 = 90
      phi1 = -177
      theta2 = 90
      phi2 = -87
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE3'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -31.4238
      irot = 3866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 300
      natmed = 'FDE2 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDE2'
      chshap = 'TUBS'
      nmed = 300
      npar = 5
      par(1) = 62
      par(2) = 62.11
      par(3) = 38.3479
      par(4) = 0
      par(5) = 45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.321) stop 'consistency check #1 failed'

      irot = 3867
      theta1 = 90
      phi1 = 3
      theta2 = 90
      phi2 = 93
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE2'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -60.6521
      irot = 3867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3868
      theta1 = 90
      phi1 = -177
      theta2 = 90
      phi2 = -87
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE2'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -60.6521
      irot = 3868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 301
      natmed = 'FDE1 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDE1'
      chshap = 'TUBS'
      nmed = 301
      npar = 5
      par(1) = 62.5
      par(2) = 62.61
      par(3) = 9.1196
      par(4) = 0
      par(5) = 45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.322) stop 'consistency check #1 failed'

      irot = 3869
      theta1 = 90
      phi1 = 3
      theta2 = 90
      phi2 = 93
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE1'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -89.8804
      irot = 3869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3870
      theta1 = 90
      phi1 = -177
      theta2 = 90
      phi2 = -87
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE1'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -89.8804
      irot = 3870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3871
      theta1 = 90
      phi1 = -48
      theta2 = 90
      phi2 = 42
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE4'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -12.2076
      irot = 3871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3872
      theta1 = 90
      phi1 = 132
      theta2 = 90
      phi2 = -138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE4'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -12.2076
      irot = 3872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3873
      theta1 = 90
      phi1 = -48
      theta2 = 90
      phi2 = 42
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE3'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -31.4238
      irot = 3873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3874
      theta1 = 90
      phi1 = 132
      theta2 = 90
      phi2 = -138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE3'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -31.4238
      irot = 3874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3875
      theta1 = 90
      phi1 = -48
      theta2 = 90
      phi2 = 42
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE2'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -60.6521
      irot = 3875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3876
      theta1 = 90
      phi1 = 132
      theta2 = 90
      phi2 = -138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE2'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -60.6521
      irot = 3876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3877
      theta1 = 90
      phi1 = -48
      theta2 = 90
      phi2 = 42
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE1'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -89.8804
      irot = 3877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3878
      theta1 = 90
      phi1 = 132
      theta2 = 90
      phi2 = -138
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE1'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -89.8804
      irot = 3878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 302
      natmed = 'FDE8 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDE8'
      chshap = 'TUBS'
      nmed = 302
      npar = 5
      par(1) = 61
      par(2) = 61.11
      par(3) = 86.7924
      par(4) = 0
      par(5) = 31
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.323) stop 'consistency check #1 failed'

      irot = 3879
      theta1 = 90
      phi1 = 59
      theta2 = 90
      phi2 = 149
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE8'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -12.2076
      irot = 3879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3880
      theta1 = 90
      phi1 = -121
      theta2 = 90
      phi2 = -31
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE8'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -12.2076
      irot = 3880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 303
      natmed = 'FDE7 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDE7'
      chshap = 'TUBS'
      nmed = 303
      npar = 5
      par(1) = 61.5
      par(2) = 61.61
      par(3) = 67.5762
      par(4) = 0
      par(5) = 31
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.324) stop 'consistency check #1 failed'

      irot = 3881
      theta1 = 90
      phi1 = 59
      theta2 = 90
      phi2 = 149
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE7'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -31.4238
      irot = 3881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3882
      theta1 = 90
      phi1 = -121
      theta2 = 90
      phi2 = -31
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE7'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -31.4238
      irot = 3882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 304
      natmed = 'FDE6 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDE6'
      chshap = 'TUBS'
      nmed = 304
      npar = 5
      par(1) = 62
      par(2) = 62.11
      par(3) = 38.3479
      par(4) = 0
      par(5) = 31
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.325) stop 'consistency check #1 failed'

      irot = 3883
      theta1 = 90
      phi1 = 59
      theta2 = 90
      phi2 = 149
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE6'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -60.6521
      irot = 3883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3884
      theta1 = 90
      phi1 = -121
      theta2 = 90
      phi2 = -31
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE6'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -60.6521
      irot = 3884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 305
      natmed = 'FDE5 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDE5'
      chshap = 'TUBS'
      nmed = 305
      npar = 5
      par(1) = 62.5
      par(2) = 62.61
      par(3) = 9.1196
      par(4) = 0
      par(5) = 31
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.326) stop 'consistency check #1 failed'

      irot = 3885
      theta1 = 90
      phi1 = 59
      theta2 = 90
      phi2 = 149
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE5'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -89.8804
      irot = 3885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3886
      theta1 = 90
      phi1 = -121
      theta2 = 90
      phi2 = -31
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE5'
      nr = 2
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -89.8804
      irot = 3886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3887
      theta1 = 90
      phi1 = 90
      theta2 = 90
      phi2 = 180
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE8'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -12.2076
      irot = 3887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3888
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = -1.0525064e-14
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE8'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -12.2076
      irot = 3888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3889
      theta1 = 90
      phi1 = 90
      theta2 = 90
      phi2 = 180
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE7'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -31.4238
      irot = 3889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3890
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = -1.0525064e-14
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE7'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -31.4238
      irot = 3890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3891
      theta1 = 90
      phi1 = 90
      theta2 = 90
      phi2 = 180
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE6'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -60.6521
      irot = 3891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3892
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = -1.0525064e-14
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE6'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -60.6521
      irot = 3892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3893
      theta1 = 90
      phi1 = 90
      theta2 = 90
      phi2 = 180
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE5'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -89.8804
      irot = 3893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3894
      theta1 = 90
      phi1 = -90
      theta2 = 90
      phi2 = -1.0525064e-14
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'FDE5'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -89.8804
      irot = 3894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 306
      natmed = 'FDQ1 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDQ1'
      chshap = 'PCON'
      nmed = 306
      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) = -14.3
      par(29) = 61
      par(30) = 61.11
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.327) stop 'consistency check #1 failed'

      chname = 'FDQ1'
      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 = 307
      natmed = 'FDQ2 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDQ2'
      chshap = 'PCON'
      nmed = 307
      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) = -14.3
      par(29) = 61.5
      par(30) = 61.61
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.328) stop 'consistency check #1 failed'

      chname = 'FDQ2'
      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 = 308
      natmed = 'FDQ3 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDQ3'
      chshap = 'PCON'
      nmed = 308
      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) = -14.3
      par(29) = 62
      par(30) = 62.11
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.329) stop 'consistency check #1 failed'

      chname = 'FDQ3'
      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 = 309
      natmed = 'FDQ4 SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FDQ4'
      chshap = 'PCON'
      nmed = 309
      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) = -14.3
      par(29) = 62.5
      par(30) = 62.61
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.330) stop 'consistency check #1 failed'

      chname = 'FDQ4'
      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 = 310
      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 = 310
      npar = 3
      par(1) = 64.2486
      par(2) = 89
      par(3) = 212.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.331) 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 = 0
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 311
      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 = 311
      npar = 5
      par(1) = 64.2486
      par(2) = 90.5185
      par(3) = 212.5
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.333) 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 = 312
      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 = 312
      npar = 5
      par(1) = 64.2486
      par(2) = 65.0423
      par(3) = 195
      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 = '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 = 313
      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 = 313
      npar = 5
      par(1) = 65.0423
      par(2) = 67.10986
      par(3) = 202.5225
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.335) 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 = 314
      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 = 314
      npar = 5
      par(1) = 65.0423
      par(2) = 67.10986
      par(3) = 202.5225
      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 = 'BCS1'
      nr = 1
      chmoth = 'SD07'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      imate = 78
      namate = 'BCF-12'
      wmat(1) = 8
      call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 8
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 1.049
      nlmat = -2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 79
      namate = 'BC600epoxy'
      wmat(1) = 60
      call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 79
      call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 3
      call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 2
      call gfmate(2,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      dens = 1.18
      nlmat = -4
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      imate = 77
      namate = 'leadScint'
      wmat(1) = 0.1036
      call gfmate(78,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.8619
      call gfmate(19,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.0345
      call gfmate(79,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      dens = 4.87
      nlmat = 3
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 315
      natmed = 'BM01 leadScint'
      nmat = 77
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BM01'
      chshap = 'TUBS'
      nmed = 315
      npar = 5
      par(1) = 65.0423
      par(2) = 67.10986
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.338) stop 'consistency check #1 failed'

      chname = '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 = 316
      natmed = 'BCN1 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 316
      npar = 11
      par(1) = 3.76125
      par(2) = 0
      par(3) = 0
      par(4) = 1.082
      par(5) = 1.082
      par(6) = 1.082
      par(7) = 0
      par(8) = 0.706
      par(9) = 0.706
      par(10) = 0.706
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.339) stop 'consistency check #1 failed'

      chname = 'BCN1'
      nr = 1
      chmoth = 'BCS1'
      x = 66.0761
      y = 0
      z = 198.76125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3895
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN1'
      nr = 2
      chmoth = 'BCS1'
      x = 66.0761
      y = 0
      z = -198.76125
      irot = 3895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 317
      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 = 317
      npar = 5
      par(1) = 67.10986
      par(2) = 69.17742
      par(3) = 202.5225
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.340) 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 = 318
      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 = 318
      npar = 5
      par(1) = 67.10986
      par(2) = 69.17742
      par(3) = 202.5225
      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 = '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 = 319
      natmed = 'BM02 leadScint'
      nmat = 77
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BM02'
      chshap = 'TUBS'
      nmed = 319
      npar = 5
      par(1) = 67.10986
      par(2) = 69.17742
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.343) stop 'consistency check #1 failed'

      chname = '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 = 320
      natmed = 'BCN2 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 320
      npar = 11
      par(1) = 3.76125
      par(2) = 0
      par(3) = 0
      par(4) = 1.115
      par(5) = 1.115
      par(6) = 1.115
      par(7) = 0
      par(8) = 0.708
      par(9) = 0.708
      par(10) = 0.708
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.344) stop 'consistency check #1 failed'

      chname = 'BCN2'
      nr = 1
      chmoth = 'BCS2'
      x = 68.1436
      y = 0
      z = 198.76125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3896
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN2'
      nr = 2
      chmoth = 'BCS2'
      x = 68.1436
      y = 0
      z = -198.76125
      irot = 3896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 321
      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 = 321
      npar = 5
      par(1) = 69.17742
      par(2) = 71.24498
      par(3) = 202.5225
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.345) 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 = 322
      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 = 322
      npar = 5
      par(1) = 69.17742
      par(2) = 71.24498
      par(3) = 202.5225
      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 = '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 = 323
      natmed = 'BM03 leadScint'
      nmat = 77
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BM03'
      chshap = 'TUBS'
      nmed = 323
      npar = 5
      par(1) = 69.17742
      par(2) = 71.24498
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.348) stop 'consistency check #1 failed'

      chname = '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 = 324
      natmed = 'BCN3 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 324
      npar = 11
      par(1) = 3.76125
      par(2) = 0
      par(3) = 0
      par(4) = 1.1495
      par(5) = 1.1495
      par(6) = 1.1495
      par(7) = 0
      par(8) = 0.71
      par(9) = 0.71
      par(10) = 0.71
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.349) stop 'consistency check #1 failed'

      chname = 'BCN3'
      nr = 1
      chmoth = 'BCS3'
      x = 70.2112
      y = 0
      z = 198.76125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3897
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN3'
      nr = 2
      chmoth = 'BCS3'
      x = 70.2112
      y = 0
      z = -198.76125
      irot = 3897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 325
      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 = 325
      npar = 5
      par(1) = 71.24498
      par(2) = 73.31254
      par(3) = 202.5225
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.350) 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 = 326
      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 = 326
      npar = 5
      par(1) = 71.24498
      par(2) = 73.31254
      par(3) = 202.5225
      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 = '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 = 327
      natmed = 'BM04 leadScint'
      nmat = 77
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BM04'
      chshap = 'TUBS'
      nmed = 327
      npar = 5
      par(1) = 71.24498
      par(2) = 73.31254
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.353) stop 'consistency check #1 failed'

      chname = '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 = 328
      natmed = 'BCN4 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 328
      npar = 11
      par(1) = 3.76125
      par(2) = 0
      par(3) = 0
      par(4) = 1.1825
      par(5) = 1.1825
      par(6) = 1.1825
      par(7) = 0
      par(8) = 0.712
      par(9) = 0.712
      par(10) = 0.712
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.354) stop 'consistency check #1 failed'

      chname = 'BCN4'
      nr = 1
      chmoth = 'BCS4'
      x = 72.2788
      y = 0
      z = 198.76125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3898
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN4'
      nr = 2
      chmoth = 'BCS4'
      x = 72.2788
      y = 0
      z = -198.76125
      irot = 3898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 329
      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 = 329
      npar = 5
      par(1) = 73.31254
      par(2) = 75.3801
      par(3) = 202.5225
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.355) 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 = 330
      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 = 330
      npar = 5
      par(1) = 73.31254
      par(2) = 75.3801
      par(3) = 202.5225
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.357) 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 = 331
      natmed = 'BM05 leadScint'
      nmat = 77
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BM05'
      chshap = 'TUBS'
      nmed = 331
      npar = 5
      par(1) = 73.31254
      par(2) = 75.3801
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.358) stop 'consistency check #1 failed'

      chname = '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 = 332
      natmed = 'BCN5 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 332
      npar = 11
      par(1) = 3.76125
      par(2) = 0
      par(3) = 0
      par(4) = 1.2165
      par(5) = 1.2165
      par(6) = 1.2165
      par(7) = 0
      par(8) = 0.714
      par(9) = 0.714
      par(10) = 0.714
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.359) stop 'consistency check #1 failed'

      chname = 'BCN5'
      nr = 1
      chmoth = 'BCS5'
      x = 74.3463
      y = 0
      z = 198.76125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3899
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN5'
      nr = 2
      chmoth = 'BCS5'
      x = 74.3463
      y = 0
      z = -198.76125
      irot = 3899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 333
      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 = 333
      npar = 5
      par(1) = 75.3801
      par(2) = 77.44766
      par(3) = 202.5225
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.360) 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 = 334
      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 = 334
      npar = 5
      par(1) = 75.3801
      par(2) = 77.44766
      par(3) = 202.5225
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.362) 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 = 335
      natmed = 'BM06 leadScint'
      nmat = 77
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BM06'
      chshap = 'TUBS'
      nmed = 335
      npar = 5
      par(1) = 75.3801
      par(2) = 77.44766
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.363) stop 'consistency check #1 failed'

      chname = '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 = 336
      natmed = 'BCN6 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 336
      npar = 11
      par(1) = 3.76125
      par(2) = 0
      par(3) = 0
      par(4) = 1.251
      par(5) = 1.251
      par(6) = 1.251
      par(7) = 0
      par(8) = 0.716
      par(9) = 0.716
      par(10) = 0.716
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.364) stop 'consistency check #1 failed'

      chname = 'BCN6'
      nr = 1
      chmoth = 'BCS6'
      x = 76.4139
      y = 0
      z = 198.76125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3900
      theta1 = 90
      phi1 = 0
      theta2 = 90
      phi2 = -90
      theta3 = 180
      phi3 = -90
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCN6'
      nr = 2
      chmoth = 'BCS6'
      x = 76.4139
      y = 0
      z = -198.76125
      irot = 3900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 337
      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 = 337
      npar = 5
      par(1) = 77.44766
      par(2) = 79.92162
      par(3) = 202.5225
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.365) 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 = 338
      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 = 338
      npar = 5
      par(1) = 77.44766
      par(2) = 79.92162
      par(3) = 202.5225
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.367) 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 = 339
      natmed = 'BMF7 leadScint'
      nmat = 77
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BMF7'
      chshap = 'TUBS'
      nmed = 339
      npar = 5
      par(1) = 77.44766
      par(2) = 79.92162
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.368) stop 'consistency check #1 failed'

      chname = '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 = 340
      natmed = 'BCO7 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 340
      npar = 11
      par(1) = 3.76125
      par(2) = 0
      par(3) = 0
      par(4) = 1.2915
      par(5) = 1.2915
      par(6) = 1.2915
      par(7) = 0
      par(8) = 0.7185
      par(9) = 0.7185
      par(10) = 0.7185
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.369) stop 'consistency check #1 failed'

      chname = 'BCO7'
      nr = 1
      chmoth = 'BCA7'
      x = 78.6846
      y = 0
      z = 198.76125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3901
      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 = 78.6846
      y = 0
      z = -198.76125
      irot = 3901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 341
      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 = 341
      npar = 5
      par(1) = 79.92162
      par(2) = 82.39558
      par(3) = 202.5225
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.370) 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 = 342
      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 = 342
      npar = 5
      par(1) = 79.92162
      par(2) = 82.39558
      par(3) = 202.5225
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.372) 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 = 343
      natmed = 'BMF8 leadScint'
      nmat = 77
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BMF8'
      chshap = 'TUBS'
      nmed = 343
      npar = 5
      par(1) = 79.92162
      par(2) = 82.39558
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.373) stop 'consistency check #1 failed'

      chname = '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 = 344
      natmed = 'BCO8 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 344
      npar = 11
      par(1) = 3.76125
      par(2) = 0
      par(3) = 0
      par(4) = 1.331
      par(5) = 1.331
      par(6) = 1.331
      par(7) = 0
      par(8) = 0.7205
      par(9) = 0.7205
      par(10) = 0.7205
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.374) stop 'consistency check #1 failed'

      chname = 'BCO8'
      nr = 1
      chmoth = 'BCA8'
      x = 81.1586
      y = 0
      z = 198.76125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3902
      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 = 81.1586
      y = 0
      z = -198.76125
      irot = 3902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 345
      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 = 345
      npar = 5
      par(1) = 82.39558
      par(2) = 84.86954
      par(3) = 202.5225
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.375) 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 = 346
      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 = 346
      npar = 5
      par(1) = 82.39558
      par(2) = 84.86954
      par(3) = 202.5225
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.377) 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 = 347
      natmed = 'BMF9 leadScint'
      nmat = 77
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BMF9'
      chshap = 'TUBS'
      nmed = 347
      npar = 5
      par(1) = 82.39558
      par(2) = 84.86954
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.378) stop 'consistency check #1 failed'

      chname = '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 = 348
      natmed = 'BCO9 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 348
      npar = 11
      par(1) = 3.76125
      par(2) = 0
      par(3) = 0
      par(4) = 1.3715
      par(5) = 1.3715
      par(6) = 1.3715
      par(7) = 0
      par(8) = 0.723
      par(9) = 0.723
      par(10) = 0.723
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.379) stop 'consistency check #1 failed'

      chname = 'BCO9'
      nr = 1
      chmoth = 'BCA9'
      x = 83.6326
      y = 0
      z = 198.76125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3903
      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 = 83.6326
      y = 0
      z = -198.76125
      irot = 3903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 349
      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 = 349
      npar = 5
      par(1) = 84.86954
      par(2) = 87.3435
      par(3) = 202.5225
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.380) 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 = 350
      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 = 350
      npar = 5
      par(1) = 84.86954
      par(2) = 87.3435
      par(3) = 202.5225
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.382) 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 = 351
      natmed = 'BMFA leadScint'
      nmat = 77
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BMFA'
      chshap = 'TUBS'
      nmed = 351
      npar = 5
      par(1) = 84.86954
      par(2) = 87.3435
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.383) 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 = 352
      natmed = 'BCOA Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 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 = 352
      npar = 11
      par(1) = 3.76125
      par(2) = 0
      par(3) = 0
      par(4) = 1.412
      par(5) = 1.412
      par(6) = 1.412
      par(7) = 0
      par(8) = 0.7255
      par(9) = 0.7255
      par(10) = 0.7255
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.384) stop 'consistency check #1 failed'

      chname = 'BCOA'
      nr = 1
      chmoth = 'BCAA'
      x = 86.1065
      y = 0
      z = 198.76125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3904
      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 = 86.1065
      y = 0
      z = -198.76125
      irot = 3904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 353
      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 = 353
      npar = 5
      par(1) = 87.3435
      par(2) = 90.5185
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.385) 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 = 354
      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 = 354
      npar = 11
      par(1) = 12.66157
      par(2) = 0
      par(3) = 0
      par(4) = 4.1795
      par(5) = 4.5
      par(6) = 4.5
      par(7) = 0
      par(8) = 5.68706
      par(9) = 4.5
      par(10) = 4.5
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.386) stop 'consistency check #1 failed'

      irot = 3905
      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 = 77.1658
      y = 0
      z = 207.5
      irot = 3905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 355
      natmed = 'PMHO FR-4'
      nmat = 26
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'PMHO'
      chshap = 'TRAP'
      nmed = 355
      npar = 11
      par(1) = 12.66157
      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.387) stop 'consistency check #1 failed'

      chname = 'PMHO'
      nr = 1
      chmoth = 'ROUT'
      x = -4.2625
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 356
      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 = 356
      npar = 11
      par(1) = 12.66157
      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.388) stop 'consistency check #1 failed'

      chname = 'CUPL'
      nr = 1
      chmoth = 'ROUT'
      x = -3.575
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 357
      natmed = 'PCB2 FR-4'
      nmat = 26
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'PCB2'
      chshap = 'TRAP'
      nmed = 357
      npar = 11
      par(1) = 12.66157
      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.389) stop 'consistency check #1 failed'

      chname = 'PCB2'
      nr = 1
      chmoth = 'ROUT'
      x = -2.3675
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 358
      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 = 358
      npar = 11
      par(1) = 7.525
      par(2) = 0
      par(3) = 0
      par(4) = 3.75
      par(5) = 1.11125
      par(6) = 1.11125
      par(7) = 0
      par(8) = 4.5
      par(9) = 1.11125
      par(10) = 1.11125
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.390) stop 'consistency check #1 failed'

      chname = 'COTR'
      nr = 1
      chmoth = 'ROUT'
      x = -1.1675
      y = 0
      z = -2
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 359
      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 = 359
      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.391) stop 'consistency check #1 failed'

      irot = 3906
      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.15875
      y = 1.25
      z = 0
      irot = 3906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3907
      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.15875
      y = -1.25
      z = 0
      irot = 3907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3908
      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.15875
      y = 3.5
      z = 0
      irot = 3908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3909
      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.15875
      y = -3.5
      z = 0
      irot = 3909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 360
      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 = 360
      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.392) stop 'consistency check #1 failed'

      chname = 'ALP2'
      nr = 1
      chmoth = 'COTR'
      x = 0.9525
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 361
      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 = 361
      npar = 3
      par(1) = 2.065
      par(2) = 4
      par(3) = 6
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.393) stop 'consistency check #1 failed'

      chname = 'COFI'
      nr = 1
      chmoth = 'ROUT'
      x = 2.157
      y = 0
      z = -2
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 362
      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 = 362
      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.394) stop 'consistency check #1 failed'

      chname = 'HSPL'
      nr = 1
      chmoth = 'COFI'
      x = -1.905
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 363
      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 = 363
      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.395) stop 'consistency check #1 failed'

      chname = 'HSFI'
      nr = 1
      chmoth = 'COFI'
      x = 0.16
      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.16
      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.16
      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.16
      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.16
      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.16
      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.16
      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.16
      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.16
      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.16
      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.16
      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.16
      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.16
      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.16
      y = 0
      z = 4.74
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 364
      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 = 364
      npar = 11
      par(1) = 12.66157
      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.396) stop 'consistency check #1 failed'

      chname = 'ALP1'
      nr = 1
      chmoth = 'ROUT'
      x = 0.0325
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 365
      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 = 365
      npar = 3
      par(1) = 0
      par(2) = 0.6
      par(3) = 4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.397) stop 'consistency check #1 failed'

      irot = 3910
      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 = 0.3125
      y = -2
      z = -10
      irot = 3910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 366
      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 = 366
      npar = 3
      par(1) = 0.23622
      par(2) = 0.3175
      par(3) = 4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.398) 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 = 367
      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 = 367
      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.399) 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 = 3911
      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 = 0.3125
      y = 2
      z = -10
      irot = 3911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 368
      natmed = 'SOFF StainlessSteel'
      nmat = 51
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'SOFF'
      chshap = 'TUBE'
      nmed = 368
      npar = 3
      par(1) = 0
      par(2) = 0.25
      par(3) = 1.585
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.400) stop 'consistency check #1 failed'

      irot = 3912
      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 = -1.606745
      y = 0
      z = -11
      irot = 3912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3913
      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 = -1.606745
      y = -3.5
      z = -12
      irot = 3913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3914
      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 = -1.606745
      y = 3.5
      z = -12
      irot = 3914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3915
      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 = 77.1658
      y = 0
      z = -207.5
      irot = 3915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 369
      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 = 369
      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.401) stop 'consistency check #1 failed'

      irot = 3916
      theta1 = 90
      phi1 = 90
      theta2 = 3.5083546e-15
      phi2 = 180
      theta3 = 90
      phi3 = -3.5083546e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ALID'
      nr = 1
      chmoth = 'BCAM'
      x = 64.38703
      y = 0
      z = -201.2996
      irot = 3916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3917
      theta1 = 90
      phi1 = 90
      theta2 = 3.5083546e-15
      phi2 = 180
      theta3 = 90
      phi3 = -3.5083546e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ALID'
      nr = 2
      chmoth = 'BCAM'
      x = 64.38703
      y = 0
      z = 201.2996
      irot = 3917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 370
      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 = 370
      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.402) stop 'consistency check #1 failed'

      irot = 3918
      theta1 = 90
      phi1 = 90
      theta2 = 3.5083546e-15
      phi2 = 180
      theta3 = 90
      phi3 = -3.5083546e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ALOD'
      nr = 1
      chmoth = 'BCAM'
      x = 89.9658
      y = 0
      z = -201.2996
      irot = 3918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3919
      theta1 = 90
      phi1 = 90
      theta2 = 3.5083546e-15
      phi2 = 180
      theta3 = 90
      phi3 = -3.5083546e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ALOD'
      nr = 2
      chmoth = 'BCAM'
      x = 89.9658
      y = 0
      z = 201.2996
      irot = 3919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 371
      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 = 371
      npar = 3
      par(1) = 0.47625
      par(2) = 4.1783
      par(3) = 0.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.403) stop 'consistency check #1 failed'

      irot = 3920
      theta1 = 180
      phi1 = 90
      theta2 = 90
      phi2 = 90
      theta3 = 90
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ALBL'
      nr = 1
      chmoth = 'BCAM'
      x = 64.69703
      y = 0
      z = 195.47625
      irot = 3920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3921
      theta1 = 180
      phi1 = 90
      theta2 = 90
      phi2 = 90
      theta3 = 90
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ALBL'
      nr = 2
      chmoth = 'BCAM'
      x = 64.69703
      y = 0
      z = -195.47625
      irot = 3921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 372
      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 = 372
      npar = 11
      par(1) = 12.66157
      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.404) stop 'consistency check #1 failed'

      irot = 3922
      theta1 = 180
      phi1 = 90
      theta2 = 90
      phi2 = 90
      theta3 = 90
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'ALPL'
      nr = 1
      chmoth = 'BCAM'
      x = 77.1658
      y = 0
      z = -202.76125
      irot = 3922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 373
      natmed = 'BCUA Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCUA'
      chshap = 'TRAP'
      nmed = 373
      npar = 11
      par(1) = 0.23875
      par(2) = 0
      par(3) = 0
      par(4) = 0.7255
      par(5) = 0.7255
      par(6) = 0.7255
      par(7) = 0
      par(8) = 0.682
      par(9) = 0.682
      par(10) = 0.682
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.405) stop 'consistency check #1 failed'

      irot = 3923
      theta1 = 92.8125
      phi1 = 90
      theta2 = 2.8125
      phi2 = 90
      theta3 = 90
      phi3 = -3.3362078e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCUA'
      nr = 1
      chmoth = 'ALPL'
      x = 0
      y = 4.22505
      z = 8.837
      irot = 3923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3924
      theta1 = 90.9375
      phi1 = 90
      theta2 = 0.9375
      phi2 = 90
      theta3 = 90
      phi3 = -3.4509519e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCUA'
      nr = 2
      chmoth = 'ALPL'
      x = 0
      y = 1.40885
      z = 8.92919
      irot = 3924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3925
      theta1 = 89.0625
      phi1 = 90
      theta2 = 0.9375
      phi2 = -90
      theta3 = 90
      phi3 = -3.5657574e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCUA'
      nr = 3
      chmoth = 'ALPL'
      x = 0
      y = -1.40885
      z = 8.92919
      irot = 3925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3926
      theta1 = 87.1875
      phi1 = 90
      theta2 = 2.8125
      phi2 = -90
      theta3 = 90
      phi3 = -3.6805015e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCUA'
      nr = 4
      chmoth = 'ALPL'
      x = 0
      y = -4.22505
      z = 8.837
      irot = 3926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 374
      natmed = 'BCU9 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCU9'
      chshap = 'TRAP'
      nmed = 374
      npar = 11
      par(1) = 0.23875
      par(2) = 0
      par(3) = 0
      par(4) = 0.723
      par(5) = 0.723
      par(6) = 0.723
      par(7) = 0
      par(8) = 0.682
      par(9) = 0.682
      par(10) = 0.682
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.406) stop 'consistency check #1 failed'

      irot = 3927
      theta1 = 92.8125
      phi1 = 90
      theta2 = 2.8125
      phi2 = 90
      theta3 = 90
      phi3 = -3.3362078e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU9'
      nr = 1
      chmoth = 'ALPL'
      x = 0
      y = 4.10375
      z = 6.368
      irot = 3927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3928
      theta1 = 90.9375
      phi1 = 90
      theta2 = 0.9375
      phi2 = 90
      theta3 = 90
      phi3 = -3.4509519e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU9'
      nr = 2
      chmoth = 'ALPL'
      x = 0
      y = 1.3684
      z = 6.45756
      irot = 3928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3929
      theta1 = 89.0625
      phi1 = 90
      theta2 = 0.9375
      phi2 = -90
      theta3 = 90
      phi3 = -3.5657574e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU9'
      nr = 3
      chmoth = 'ALPL'
      x = 0
      y = -1.3684
      z = 6.45756
      irot = 3929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3930
      theta1 = 87.1875
      phi1 = 90
      theta2 = 2.8125
      phi2 = -90
      theta3 = 90
      phi3 = -3.6805015e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU9'
      nr = 4
      chmoth = 'ALPL'
      x = 0
      y = -4.10375
      z = 6.368
      irot = 3930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 375
      natmed = 'BCU8 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCU8'
      chshap = 'TRAP'
      nmed = 375
      npar = 11
      par(1) = 0.23875
      par(2) = 0
      par(3) = 0
      par(4) = 0.7205
      par(5) = 0.7205
      par(6) = 0.7205
      par(7) = 0
      par(8) = 0.682
      par(9) = 0.682
      par(10) = 0.682
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.407) stop 'consistency check #1 failed'

      irot = 3931
      theta1 = 92.8125
      phi1 = 90
      theta2 = 2.8125
      phi2 = 90
      theta3 = 90
      phi3 = -3.3362078e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU8'
      nr = 1
      chmoth = 'ALPL'
      x = 0
      y = 3.98226
      z = 3.895
      irot = 3931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3932
      theta1 = 90.9375
      phi1 = 90
      theta2 = 0.9375
      phi2 = 90
      theta3 = 90
      phi3 = -3.4509519e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU8'
      nr = 2
      chmoth = 'ALPL'
      x = 0
      y = 1.3279
      z = 3.9819
      irot = 3932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3933
      theta1 = 89.0625
      phi1 = 90
      theta2 = 0.9375
      phi2 = -90
      theta3 = 90
      phi3 = -3.5657574e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU8'
      nr = 3
      chmoth = 'ALPL'
      x = 0
      y = -1.3279
      z = 3.9819
      irot = 3933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3934
      theta1 = 87.1875
      phi1 = 90
      theta2 = 2.8125
      phi2 = -90
      theta3 = 90
      phi3 = -3.6805015e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU8'
      nr = 4
      chmoth = 'ALPL'
      x = 0
      y = -3.98226
      z = 3.895
      irot = 3934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 376
      natmed = 'BCU7 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCU7'
      chshap = 'TRAP'
      nmed = 376
      npar = 11
      par(1) = 0.23875
      par(2) = 0
      par(3) = 0
      par(4) = 0.7185
      par(5) = 0.7185
      par(6) = 0.7185
      par(7) = 0
      par(8) = 0.682
      par(9) = 0.682
      par(10) = 0.682
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.408) stop 'consistency check #1 failed'

      irot = 3935
      theta1 = 92.8125
      phi1 = 90
      theta2 = 2.8125
      phi2 = 90
      theta3 = 90
      phi3 = -3.3362078e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU7'
      nr = 1
      chmoth = 'ALPL'
      x = 0
      y = 3.86087
      z = 1.42406
      irot = 3935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3936
      theta1 = 90.9375
      phi1 = 90
      theta2 = 0.9375
      phi2 = 90
      theta3 = 90
      phi3 = -3.4509519e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU7'
      nr = 2
      chmoth = 'ALPL'
      x = 0
      y = 1.28742
      z = 1.5083
      irot = 3936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3937
      theta1 = 89.0625
      phi1 = 90
      theta2 = 0.9375
      phi2 = -90
      theta3 = 90
      phi3 = -3.5657574e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU7'
      nr = 3
      chmoth = 'ALPL'
      x = 0
      y = -1.28742
      z = 1.5083
      irot = 3937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3938
      theta1 = 87.1875
      phi1 = 90
      theta2 = 2.8125
      phi2 = -90
      theta3 = 90
      phi3 = -3.6805015e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU7'
      nr = 4
      chmoth = 'ALPL'
      x = 0
      y = -3.86087
      z = 1.42406
      irot = 3938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 377
      natmed = 'BCU6 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCU6'
      chshap = 'TRAP'
      nmed = 377
      npar = 11
      par(1) = 0.23875
      par(2) = 0
      par(3) = 0
      par(4) = 0.716
      par(5) = 0.716
      par(6) = 0.716
      par(7) = 0
      par(8) = 0.682
      par(9) = 0.682
      par(10) = 0.682
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.409) stop 'consistency check #1 failed'

      irot = 3939
      theta1 = 92.8125
      phi1 = 90
      theta2 = 2.8125
      phi2 = 90
      theta3 = 90
      phi3 = -3.3362078e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU6'
      nr = 1
      chmoth = 'ALPL'
      x = 0
      y = 3.74945
      z = -0.84396
      irot = 3939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3940
      theta1 = 90.9375
      phi1 = 90
      theta2 = 0.9375
      phi2 = 90
      theta3 = 90
      phi3 = -3.4509519e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU6'
      nr = 2
      chmoth = 'ALPL'
      x = 0
      y = 1.25026
      z = -0.76215
      irot = 3940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3941
      theta1 = 89.0625
      phi1 = 90
      theta2 = 0.9375
      phi2 = -90
      theta3 = 90
      phi3 = -3.5657574e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU6'
      nr = 3
      chmoth = 'ALPL'
      x = 0
      y = -1.25026
      z = -0.76215
      irot = 3941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3942
      theta1 = 87.1875
      phi1 = 90
      theta2 = 2.8125
      phi2 = -90
      theta3 = 90
      phi3 = -3.6805015e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU6'
      nr = 4
      chmoth = 'ALPL'
      x = 0
      y = -3.74945
      z = -0.84396
      irot = 3942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 378
      natmed = 'BCU5 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCU5'
      chshap = 'TRAP'
      nmed = 378
      npar = 11
      par(1) = 0.23875
      par(2) = 0
      par(3) = 0
      par(4) = 0.714
      par(5) = 0.714
      par(6) = 0.714
      par(7) = 0
      par(8) = 0.682
      par(9) = 0.682
      par(10) = 0.682
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.410) stop 'consistency check #1 failed'

      irot = 3943
      theta1 = 92.8125
      phi1 = 90
      theta2 = 2.8125
      phi2 = 90
      theta3 = 90
      phi3 = -3.3362078e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU5'
      nr = 1
      chmoth = 'ALPL'
      x = 0
      y = 3.648
      z = -2.909
      irot = 3943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3944
      theta1 = 90.9375
      phi1 = 90
      theta2 = 0.9375
      phi2 = 90
      theta3 = 90
      phi3 = -3.4509519e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU5'
      nr = 2
      chmoth = 'ALPL'
      x = 0
      y = 1.21643
      z = -2.82943
      irot = 3944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3945
      theta1 = 89.0625
      phi1 = 90
      theta2 = 0.9375
      phi2 = -90
      theta3 = 90
      phi3 = -3.5657574e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU5'
      nr = 3
      chmoth = 'ALPL'
      x = 0
      y = -1.21643
      z = -2.82943
      irot = 3945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3946
      theta1 = 87.1875
      phi1 = 90
      theta2 = 2.8125
      phi2 = -90
      theta3 = 90
      phi3 = -3.6805015e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU5'
      nr = 4
      chmoth = 'ALPL'
      x = 0
      y = -3.648
      z = -2.909
      irot = 3946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 379
      natmed = 'BCU4 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCU4'
      chshap = 'TRAP'
      nmed = 379
      npar = 11
      par(1) = 0.23875
      par(2) = 0
      par(3) = 0
      par(4) = 0.712
      par(5) = 0.712
      par(6) = 0.712
      par(7) = 0
      par(8) = 0.682
      par(9) = 0.682
      par(10) = 0.682
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.411) stop 'consistency check #1 failed'

      irot = 3947
      theta1 = 92.8125
      phi1 = 90
      theta2 = 2.8125
      phi2 = 90
      theta3 = 90
      phi3 = -3.3362078e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU4'
      nr = 1
      chmoth = 'ALPL'
      x = 0
      y = 3.54655
      z = -4.9741
      irot = 3947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3948
      theta1 = 90.9375
      phi1 = 90
      theta2 = 0.9375
      phi2 = 90
      theta3 = 90
      phi3 = -3.4509519e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU4'
      nr = 2
      chmoth = 'ALPL'
      x = 0
      y = 1.18261
      z = -4.89672
      irot = 3948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3949
      theta1 = 89.0625
      phi1 = 90
      theta2 = 0.9375
      phi2 = -90
      theta3 = 90
      phi3 = -3.5657574e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU4'
      nr = 3
      chmoth = 'ALPL'
      x = 0
      y = -1.18261
      z = -4.89672
      irot = 3949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3950
      theta1 = 87.1875
      phi1 = 90
      theta2 = 2.8125
      phi2 = -90
      theta3 = 90
      phi3 = -3.6805015e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU4'
      nr = 4
      chmoth = 'ALPL'
      x = 0
      y = -3.54655
      z = -4.9741
      irot = 3950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 380
      natmed = 'BCU3 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCU3'
      chshap = 'TRAP'
      nmed = 380
      npar = 11
      par(1) = 0.23875
      par(2) = 0
      par(3) = 0
      par(4) = 0.71
      par(5) = 0.71
      par(6) = 0.71
      par(7) = 0
      par(8) = 0.682
      par(9) = 0.682
      par(10) = 0.682
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.412) stop 'consistency check #1 failed'

      irot = 3951
      theta1 = 92.8125
      phi1 = 90
      theta2 = 2.8125
      phi2 = 90
      theta3 = 90
      phi3 = -3.3362078e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU3'
      nr = 1
      chmoth = 'ALPL'
      x = 0
      y = 3.4451
      z = -7.03932
      irot = 3951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3952
      theta1 = 90.9375
      phi1 = 90
      theta2 = 0.9375
      phi2 = 90
      theta3 = 90
      phi3 = -3.4509519e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU3'
      nr = 2
      chmoth = 'ALPL'
      x = 0
      y = 1.14878
      z = -6.964
      irot = 3952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3953
      theta1 = 89.0625
      phi1 = 90
      theta2 = 0.9375
      phi2 = -90
      theta3 = 90
      phi3 = -3.5657574e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU3'
      nr = 3
      chmoth = 'ALPL'
      x = 0
      y = -1.14878
      z = -6.964
      irot = 3953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3954
      theta1 = 87.1875
      phi1 = 90
      theta2 = 2.8125
      phi2 = -90
      theta3 = 90
      phi3 = -3.6805015e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU3'
      nr = 4
      chmoth = 'ALPL'
      x = 0
      y = -3.4451
      z = -7.03932
      irot = 3954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 381
      natmed = 'BCU2 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCU2'
      chshap = 'TRAP'
      nmed = 381
      npar = 11
      par(1) = 0.23875
      par(2) = 0
      par(3) = 0
      par(4) = 0.708
      par(5) = 0.708
      par(6) = 0.708
      par(7) = 0
      par(8) = 0.682
      par(9) = 0.682
      par(10) = 0.682
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.413) stop 'consistency check #1 failed'

      irot = 3955
      theta1 = 92.8125
      phi1 = 90
      theta2 = 2.8125
      phi2 = 90
      theta3 = 90
      phi3 = -3.3362078e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU2'
      nr = 1
      chmoth = 'ALPL'
      x = 0
      y = 3.34365
      z = -9.10424
      irot = 3955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3956
      theta1 = 90.9375
      phi1 = 90
      theta2 = 0.9375
      phi2 = 90
      theta3 = 90
      phi3 = -3.4509519e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU2'
      nr = 2
      chmoth = 'ALPL'
      x = 0
      y = 1.11495
      z = -9.03128
      irot = 3956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3957
      theta1 = 89.0625
      phi1 = 90
      theta2 = 0.9375
      phi2 = -90
      theta3 = 90
      phi3 = -3.5657574e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU2'
      nr = 3
      chmoth = 'ALPL'
      x = 0
      y = -1.11495
      z = -9.03128
      irot = 3957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3958
      theta1 = 87.1875
      phi1 = 90
      theta2 = 2.8125
      phi2 = -90
      theta3 = 90
      phi3 = -3.6805015e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU2'
      nr = 4
      chmoth = 'ALPL'
      x = 0
      y = -3.34365
      z = -9.10424
      irot = 3958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 382
      natmed = 'BCU1 Plexiglas'
      nmat = 62
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCU1'
      chshap = 'TRAP'
      nmed = 382
      npar = 11
      par(1) = 0.23875
      par(2) = 0
      par(3) = 0
      par(4) = 0.706
      par(5) = 0.706
      par(6) = 0.706
      par(7) = 0
      par(8) = 0.682
      par(9) = 0.682
      par(10) = 0.682
      par(11) = 0
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.414) stop 'consistency check #1 failed'

      irot = 3959
      theta1 = 92.8125
      phi1 = 90
      theta2 = 2.8125
      phi2 = 90
      theta3 = 90
      phi3 = -3.3362078e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU1'
      nr = 1
      chmoth = 'ALPL'
      x = 0
      y = 3.2422
      z = -11.16931
      irot = 3959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3960
      theta1 = 90.9375
      phi1 = 90
      theta2 = 0.9375
      phi2 = 90
      theta3 = 90
      phi3 = -3.4509519e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU1'
      nr = 2
      chmoth = 'ALPL'
      x = 0
      y = 1.08112
      z = -11.0986
      irot = 3960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3961
      theta1 = 89.0625
      phi1 = 90
      theta2 = 0.9375
      phi2 = -90
      theta3 = 90
      phi3 = -3.5657574e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU1'
      nr = 3
      chmoth = 'ALPL'
      x = 0
      y = -1.08112
      z = -11.0986
      irot = 3961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3962
      theta1 = 87.1875
      phi1 = 90
      theta2 = 2.8125
      phi2 = -90
      theta3 = 90
      phi3 = -3.6805015e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'BCU1'
      nr = 4
      chmoth = 'ALPL'
      x = 0
      y = -3.2422
      z = -11.16931
      irot = 3962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 3963
      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 = 'ALPL'
      nr = 2
      chmoth = 'BCAM'
      x = 77.1658
      y = 0
      z = 202.76125
      irot = 3963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 383
      natmed = 'BCSU SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCSU'
      chshap = 'PCON'
      nmed = 383
      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.0423
      par(24) = 88
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.415) 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 = 384
      natmed = 'BCSD SignalCables'
      nmat = 38
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCSD'
      chshap = 'PCON'
      nmed = 384
      npar = 12
      par(1) = 0
      par(2) = 360
      par(3) = 3
      par(4) = 0
      par(5) = 65.0423
      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.416) 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 = 385
      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 = 385
      npar = 3
      par(1) = 126
      par(2) = 126
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.417) stop 'consistency check #1 failed'

      irot = 3964
      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 = 3964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 386
      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 = 386
      npar = 3
      par(1) = 126
      par(2) = 60
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.418) 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 = 387
      natmed = 'FTOC Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FTOC'
      chshap = 'BOX '
      nmed = 387
      npar = 3
      par(1) = 126
      par(2) = 3
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.420) 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 = 388
      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 = 388
      npar = 3
      par(1) = 60
      par(2) = 6
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.421) 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 = 389
      natmed = 'FTOH Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FTOH'
      chshap = 'BOX '
      nmed = 389
      npar = 3
      par(1) = 60
      par(2) = 3
      par(3) = 1.27
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.423) 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 = 390
      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 = 390
      npar = 3
      par(1) = 60
      par(2) = 6
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.424) 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 = 391
      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 = 391
      npar = 3
      par(1) = 126
      par(2) = 60
      par(3) = 1.275
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.426) 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 = 392
      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 = 392
      npar = 3
      par(1) = 118
      par(2) = 118
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.428) 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 = 393
      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 = 393
      npar = 3
      par(1) = 118
      par(2) = 56
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.429) 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 = 80
      namate = 'leadGlassF800'
      wmat(1) = 0.6803
      call gfmate(19,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.0877
      call gfmate(9,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.0593
      call gfmate(32,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.006
      call gfmate(30,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.1667
      call gfmate(3,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf)
      dens = 3.61
      nlmat = 5
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 394
      natmed = 'LGBL leadGlassF800'
      nmat = 80
      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 = 394
      npar = 3
      par(1) = 2
      par(2) = 2
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.432) 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 = 395
      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 = 395
      npar = 3
      par(1) = 56
      par(2) = 6
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.433) 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 = 396
      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 = 396
      npar = 3
      par(1) = 56
      par(2) = 6
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.436) 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 = 397
      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 = 397
      npar = 3
      par(1) = 118
      par(2) = 56
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.439) 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 = 398
      natmed = 'FCBI StainlessSteel'
      nmat = 51
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FCBI'
      chshap = 'PGON'
      nmed = 398
      npar = 10
      par(1) = -45
      par(2) = 360
      par(3) = 4
      par(4) = 2
      par(5) = -22.5
      par(6) = 4.73
      par(7) = 6
      par(8) = 22.5
      par(9) = 4.73
      par(10) = 6
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.442) stop 'consistency check #1 failed'

      chname = 'FCBI'
      nr = 1
      chmoth = 'FCAL'
      x = 0
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 399
      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 = 399
      npar = 3
      par(1) = 16
      par(2) = 16
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.443) 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 = 400
      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 = 400
      npar = 3
      par(1) = 16
      par(2) = 7
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.444) 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 = 401
      natmed = 'LTBL leadGlassF800'
      nmat = 80
      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 = 401
      npar = 3
      par(1) = 1
      par(2) = 1
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.447) 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 = 402
      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 = 402
      npar = 3
      par(1) = 7
      par(2) = 2
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.448) 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 = 403
      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 = 403
      npar = 3
      par(1) = 7
      par(2) = 2
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.451) 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 = 404
      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 = 404
      npar = 3
      par(1) = 16
      par(2) = 7
      par(3) = 9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.454) 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 = 405
      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 = 405
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 9.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.457) 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 = 406
      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 = 406
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 9.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.458) 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 = 407
      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 = 407
      npar = 3
      par(1) = 136
      par(2) = 68.5
      par(3) = 91.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.459) 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 = 408
      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 = 408
      npar = 3
      par(1) = 136
      par(2) = 33.5
      par(3) = 91.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.460) 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 = 409
      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 = 409
      npar = 3
      par(1) = 50
      par(2) = 1.5
      par(3) = 91.45
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.461) 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 = 410
      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 = 410
      npar = 3
      par(1) = 136
      par(2) = 68.5
      par(3) = 8.9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.462) 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 = 411
      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 = 411
      npar = 3
      par(1) = 36
      par(2) = 1.5
      par(3) = 8.9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.463) 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 = 412
      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 = 412
      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.464) 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 = 413
      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 = 413
      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.465) 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 = 414
      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 = 414
      npar = 3
      par(1) = 10
      par(2) = 5
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.466) 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 = 415
      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 = 415
      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.467) 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 = 416
      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 = 416
      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.468) 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 = 417
      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 = 417
      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.469) 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 = 418
      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 = 418
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.2875
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.470) 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 = 419
      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 = 419
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.0125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.471) 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 = 420
      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 = 420
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.2875
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.472) 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 = 421
      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 = 421
      npar = 3
      par(1) = 31
      par(2) = 1.7
      par(3) = 0.0125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.473) 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 = 422
      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 = 422
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 0.3
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.474) 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 = 423
      natmed = 'FF01 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF01'
      chshap = 'BOX '
      nmed = 423
      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.475) 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 = 'FF01'
      nr = 1
      chmoth = 'HALL'
      x = 75.198
      y = -350
      z = -1146.878
      irot = 3965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 424
      natmed = 'FF02 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF02'
      chshap = 'BOX '
      nmed = 424
      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.476) 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 = 'FF02'
      nr = 1
      chmoth = 'HALL'
      x = 76.304
      y = -350
      z = -1146.882
      irot = 3966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 425
      natmed = 'FF03 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF03'
      chshap = 'BOX '
      nmed = 425
      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.477) 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 = 'FF03'
      nr = 1
      chmoth = 'HALL'
      x = 77.376
      y = -350
      z = -1146.887
      irot = 3967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 426
      natmed = 'FF04 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF04'
      chshap = 'BOX '
      nmed = 426
      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.478) 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 = 'FF04'
      nr = 1
      chmoth = 'HALL'
      x = 78.412
      y = -350
      z = -1146.891
      irot = 3968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 427
      natmed = 'FF05 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF05'
      chshap = 'BOX '
      nmed = 427
      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.479) 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 = 'FF05'
      nr = 1
      chmoth = 'HALL'
      x = 79.422
      y = -350
      z = -1146.893
      irot = 3969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 428
      natmed = 'FF06 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF06'
      chshap = 'BOX '
      nmed = 428
      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.480) stop 'consistency check #1 failed'

      irot = 3970
      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 = 3970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 429
      natmed = 'FF07 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF07'
      chshap = 'BOX '
      nmed = 429
      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.481) stop 'consistency check #1 failed'

      irot = 3971
      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 = 3971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 430
      natmed = 'FF08 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF08'
      chshap = 'BOX '
      nmed = 430
      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.482) stop 'consistency check #1 failed'

      irot = 3972
      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 = 3972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 431
      natmed = 'FF09 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF09'
      chshap = 'BOX '
      nmed = 431
      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.483) stop 'consistency check #1 failed'

      irot = 3973
      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 = 3973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 432
      natmed = 'FF0a Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF0a'
      chshap = 'BOX '
      nmed = 432
      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.484) stop 'consistency check #1 failed'

      irot = 3974
      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 = 3974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 433
      natmed = 'FF0b Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF0b'
      chshap = 'BOX '
      nmed = 433
      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.485) stop 'consistency check #1 failed'

      irot = 3975
      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 = 3975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 434
      natmed = 'FF0c Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF0c'
      chshap = 'BOX '
      nmed = 434
      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.486) stop 'consistency check #1 failed'

      irot = 3976
      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 = 3976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 435
      natmed = 'FF0d Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF0d'
      chshap = 'BOX '
      nmed = 435
      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.487) stop 'consistency check #1 failed'

      irot = 3977
      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 = 3977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 436
      natmed = 'FF0e Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF0e'
      chshap = 'BOX '
      nmed = 436
      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.488) stop 'consistency check #1 failed'

      irot = 3978
      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 = 3978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 437
      natmed = 'FF0f Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF0f'
      chshap = 'BOX '
      nmed = 437
      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.489) stop 'consistency check #1 failed'

      irot = 3979
      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 = 3979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 438
      natmed = 'FF10 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF10'
      chshap = 'BOX '
      nmed = 438
      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.490) stop 'consistency check #1 failed'

      irot = 3980
      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 = 3980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 439
      natmed = 'FF11 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF11'
      chshap = 'BOX '
      nmed = 439
      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.491) stop 'consistency check #1 failed'

      irot = 3981
      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 = 3981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 440
      natmed = 'FF12 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF12'
      chshap = 'BOX '
      nmed = 440
      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.492) stop 'consistency check #1 failed'

      irot = 3982
      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 = 3982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 441
      natmed = 'FF13 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF13'
      chshap = 'BOX '
      nmed = 441
      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.493) stop 'consistency check #1 failed'

      irot = 3983
      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 = 3983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 442
      natmed = 'FF14 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF14'
      chshap = 'BOX '
      nmed = 442
      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.494) stop 'consistency check #1 failed'

      irot = 3984
      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 = 3984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 443
      natmed = 'FF15 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF15'
      chshap = 'BOX '
      nmed = 443
      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.495) stop 'consistency check #1 failed'

      irot = 3985
      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 = 3985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 444
      natmed = 'FF16 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF16'
      chshap = 'BOX '
      nmed = 444
      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.496) stop 'consistency check #1 failed'

      irot = 3986
      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 = 3986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 445
      natmed = 'FF17 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF17'
      chshap = 'BOX '
      nmed = 445
      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.497) stop 'consistency check #1 failed'

      irot = 3987
      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 = 3987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 446
      natmed = 'FF18 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'FF18'
      chshap = 'BOX '
      nmed = 446
      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.498) stop 'consistency check #1 failed'

      irot = 3988
      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 = 3988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 447
      natmed = 'WF19 Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'WF19'
      chshap = 'BOX '
      nmed = 447
      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.499) stop 'consistency check #1 failed'

      irot = 3989
      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 = 3989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 448
      natmed = 'WF1a Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'WF1a'
      chshap = 'BOX '
      nmed = 448
      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.500) stop 'consistency check #1 failed'

      irot = 3990
      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 = 3990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 449
      natmed = 'WF1b Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'WF1b'
      chshap = 'BOX '
      nmed = 449
      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.501) stop 'consistency check #1 failed'

      irot = 3991
      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 = 3991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 450
      natmed = 'WF1c Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'WF1c'
      chshap = 'BOX '
      nmed = 450
      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.502) stop 'consistency check #1 failed'

      irot = 3992
      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 = 3992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 451
      natmed = 'WF1d Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'WF1d'
      chshap = 'BOX '
      nmed = 451
      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.503) stop 'consistency check #1 failed'

      irot = 3993
      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 = 3993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 452
      natmed = 'WF1e Scintillator'
      nmat = 22
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'WF1e'
      chshap = 'BOX '
      nmed = 452
      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.504) stop 'consistency check #1 failed'

      irot = 3994
      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 = 3994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 453
      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 = 453
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 31.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.505) 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 = 454
      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 = 454
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 31.2
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.506) 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 = 455
      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 = 455
      npar = 3
      par(1) = 110
      par(2) = 15
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.507) 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 = 456
      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 = 456
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.508) 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 = 457
      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 = 457
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.509) 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 = 458
      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 = 458
      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.510) 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 = 459
      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 = 459
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 16.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.511) 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 = 460
      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 = 460
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 16.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.512) 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 = 461
      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 = 461
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.513) 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 = 462
      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 = 462
      npar = 3
      par(1) = 850
      par(2) = 1
      par(3) = 1500
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.514) 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 = 463
      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 = 463
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.515) 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 = 464
      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 = 464
      npar = 3
      par(1) = 0
      par(2) = 2.54
      par(3) = 225
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.516) 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 = 465
      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 = 465
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 225
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.517) 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 = 466
      natmed = 'CAP2 Mylar'
      nmat = 46
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 1
      deemax = 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 = 466
      npar = 3
      par(1) = 0
      par(2) = 2.38
      par(3) = 0.025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.518) 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(518)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +     0,   21,    0,    0,   23,    0,   25,    0,    0,    0,
     +    45,    0,    0,    0,  104,    0,    0,  132,    0,    0,
     +   160,    0,    0,    0,    0,  219,    0,    0,    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/
      data (istart(i),i=501,518) /
     +     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(518)
      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,    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,    7,    0,    0,
     +     0,    0,    0,    0,   13,    0,    0,    0,    0,    0/
      data (istart(i),i=301,400) /
     +     0,   19,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,   25,    0,    0,    0,    0,
     +    29,    0,    0,    0,    0,   33,    0,    0,    0,    0,
     +    37,    0,    0,    0,    0,   41,    0,    0,    0,    0,
     +    45,    0,    0,    0,    0,   49,    0,    0,    0,    0,
     +    53,    0,    0,    0,    0,   57,    0,    0,    0,    0,
     +    61,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=501,518) /
     +     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(518)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    1,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    2,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    3,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    4,    5,    0,    0,    0,    0,    6,
     +     0,    0,    0,    0,    7,    0,    0,    0,    0,    8,
     +     0,    0,    0,    0,    9,    0,    0,    0,    0,   10,
     +     0,    0,    0,    0,   11,    0,    0,    0,    0,   12,
     +     0,    0,    0,    0,   13,    0,    0,    0,    0,   14,
     +     0,    0,    0,    0,   15,   16,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=401,500) /
     +    18,   20,   22,   24,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,   26,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,   27,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,   28,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=501,518) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0/
      integer lookup(28)
      data (lookup(i),i=1,28) /
     +     1,    2,    3,    4,    4,    4,    4,    4,    4,    4,
     +     4,    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(518)
      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,    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/
      data (istart(i),i=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=501,518) /
     +     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(518)
      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,    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,    2,    0,    0,    0,    0,
     +     0,    0,    3,    0,    0,    0,    0,    0,    0,    4/
      data (istart(i),i=301,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=501,518) /
     +     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(518)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    1,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=501,518) /
     +     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(518)
      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,    1,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0, 1521,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=501,518) /
     +     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,    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,    9,    9,    9,    9/
      data (lookup(i),i=1901,2000) /
     +     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,   10,   10,   11,   11/
      data (lookup(i),i=2001,2100) /
     +    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,   11,   11/
      data (lookup(i),i=2101,2200) /
     +    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,   12,   12,   12,   12/
      data (lookup(i),i=2201,2300) /
     +    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,   17,   17,   17,   17/
      data (lookup(i),i=2301,2400) /
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18/
      data (lookup(i),i=2401,2500) /
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18/
      data (lookup(i),i=2501,2600) /
     +    18,   18,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19/
      data (lookup(i),i=2601,2700) /
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   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=2701,2800) /
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   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=2801,2900) /
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   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=2901,3000) /
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   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/
      data (lookup(i),i=3001,3100) /
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   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=3101,3200) /
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   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/
      data (lookup(i),i=3201,3300) /
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   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=3301,3400) /
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   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/
      data (lookup(i),i=3401,3500) /
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   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=3501,3522) /
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
     +    24,   24/
      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(518)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=301,400) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +     0,   21,    0,    0,   23,    0,   25,    0,    0,   45,
     +     0,    0,    0,   73,    0,    0,   76,    0,    0,   79,
     +     0,    0,    0,    0,  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/
      data (istart(i),i=501,518) /
     +     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(518)
      data (istart(i),i=1,100) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=101,200) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    1,    0,    0,
     +     0,    0,    0,    0,    0,    0,   31,    0,    0,    0/
      data (istart(i),i=201,300) /
     +     0,    0,    0,    0,    0,   41,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0, 1561,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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, 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/
      data (istart(i),i=401,500) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=501,518) /
     +     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,
     +     1,    2,    3,    4,    5,    6,    7,    8,    9,   10,
     +     1,    2,    3,    4,    5,    6,    7,    8,    9,   10,
     +    11,   12,   13,   14,   15,   16,   17,   18,   19,   20,
     +    21,   22,   23,   24,   25,   26,   27,   28,   29,   30,
     +    31,   32,   33,   34,   35,   36,   37,   38,   39,   40,
     +    41,   42,    1,    2,    3,    4,    5,    6,    7,    8,
     +     9,   10,   11,   12,   13,   14,   15,   16,   17,   18/
      data (lookup(i),i=101,200) /
     +    19,   20,   21,   22,   23,   24,   25,   26,   27,   28,
     +    29,   30,   31,   32,   33,   34,   35,   36,   37,   38,
     +    39,   40,   41,   42,    1,    2,    3,    4,    5,    6,
     +     7,    8,    9,   10,   11,   12,   13,   14,   15,   16,
     +    17,   18,   19,   20,   21,   22,   23,   24,   25,   26,
     +    27,   28,   29,   30,   31,   32,   33,   34,   35,   36,
     +    37,   38,   39,   40,   41,   42,   43,   44,   45,   46,
     +    47,   48,   49,   50,   51,   52,   53,   54,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22/
      data (lookup(i),i=201,300) /
     +    23,   24,   25,   26,   27,   28,   29,   30,   31,   32,
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42,
     +    43,   44,   45,   46,   47,   48,   49,   50,   51,   52,
     +    53,   54,    1,    2,    3,    4,    5,    6,    7,    8,
     +     9,   10,   11,   12,   13,   14,   15,   16,   17,   18,
     +    19,   20,   21,   22,   23,   24,   25,   26,   27,   28,
     +    29,   30,   31,   32,   33,   34,   35,   36,   37,   38,
     +    39,   40,   41,   42,   43,   44,   45,   46,   47,   48,
     +    49,   50,   51,   52,   53,   54,   55,   56,   57,   58,
     +    59,   60,   61,   62,   63,   64,   65,   66,   67,   68/
      data (lookup(i),i=301,400) /
     +    69,   70,   71,   72,   73,   74,   75,   76,   77,   78,
     +    79,   80,   81,   82,   83,   84,   85,   86,   87,   88,
     +    89,   90,   91,   92,   93,   94,   95,   96,   97,   98,
     +    99,  100,  101,  102,  103,  104,  105,  106,  107,  108,
     +   109,  110,  111,  112,  113,  114,  115,  116,  117,  118,
     +   119,  120,  121,  122,  123,    1,    2,    3,    4,    5,
     +     6,    7,    8,    9,   10,   11,   12,   13,   14,   15,
     +    16,   17,   18,   19,   20,   21,   22,   23,   24,   25,
     +    26,   27,   28,   29,   30,   31,   32,   33,   34,   35,
     +    36,   37,   38,   39,   40,   41,   42,   43,   44,   45/
      data (lookup(i),i=401,500) /
     +    46,   47,   48,   49,   50,   51,   52,   53,   54,   55,
     +    56,   57,   58,   59,   60,   61,   62,   63,   64,   65,
     +    66,   67,   68,   69,   70,   71,   72,   73,   74,   75,
     +    76,   77,   78,   79,   80,   81,   82,   83,   84,   85,
     +    86,   87,   88,   89,   90,   91,   92,   93,   94,   95,
     +    96,   97,   98,   99,  100,  101,  102,  103,  104,  105,
     +   106,  107,  108,  109,  110,  111,  112,  113,  114,  115,
     +   116,  117,  118,  119,  120,  121,  122,  123,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22/
      data (lookup(i),i=501,600) /
     +    23,   24,   25,   26,   27,   28,   29,   30,   31,   32,
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42,
     +    43,   44,   45,   46,   47,   48,   49,   50,   51,   52,
     +    53,   54,   55,   56,   57,   58,   59,   60,   61,   62,
     +    63,   64,   65,   66,   67,   68,   69,   70,   71,   72,
     +    73,   74,   75,   76,   77,   78,   79,   80,   81,   82,
     +    83,   84,   85,   86,   87,   88,   89,   90,   91,   92,
     +    93,   94,   95,   96,   97,   98,   99,  100,  101,  102,
     +   103,  104,  105,  106,  107,  108,  109,  110,  111,  112,
     +   113,  114,  115,  116,  117,  118,  119,  120,  121,  122/
      data (lookup(i),i=601,700) /
     +   123,  124,  125,  126,  127,  128,  129,  130,  131,  132,
     +   133,  134,  135,    1,    2,    3,    4,    5,    6,    7,
     +     8,    9,   10,   11,   12,   13,   14,   15,   16,   17,
     +    18,   19,   20,   21,   22,   23,   24,   25,   26,   27,
     +    28,   29,   30,   31,   32,   33,   34,   35,   36,   37,
     +    38,   39,   40,   41,   42,   43,   44,   45,   46,   47,
     +    48,   49,   50,   51,   52,   53,   54,   55,   56,   57,
     +    58,   59,   60,   61,   62,   63,   64,   65,   66,   67,
     +    68,   69,   70,   71,   72,   73,   74,   75,   76,   77,
     +    78,   79,   80,   81,   82,   83,   84,   85,   86,   87/
      data (lookup(i),i=701,800) /
     +    88,   89,   90,   91,   92,   93,   94,   95,   96,   97,
     +    98,   99,  100,  101,  102,  103,  104,  105,  106,  107,
     +   108,  109,  110,  111,  112,  113,  114,  115,  116,  117,
     +   118,  119,  120,  121,  122,  123,  124,  125,  126,  127,
     +   128,  129,  130,  131,  132,  133,  134,  135,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22,
     +    23,   24,   25,   26,   27,   28,   29,   30,   31,   32,
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42,
     +    43,   44,   45,   46,   47,   48,   49,   50,   51,   52/
      data (lookup(i),i=801,900) /
     +    53,   54,   55,   56,   57,   58,   59,   60,   61,   62,
     +    63,   64,   65,   66,   67,   68,   69,   70,   71,   72,
     +    73,   74,   75,   76,   77,   78,   79,   80,   81,   82,
     +    83,   84,   85,   86,   87,   88,   89,   90,   91,   92,
     +    93,   94,   95,   96,   97,   98,   99,  100,  101,  102,
     +   103,  104,  105,  106,  107,  108,  109,  110,  111,  112,
     +   113,  114,  115,  116,  117,  118,  119,  120,  121,  122,
     +   123,  124,  125,  126,  127,  128,  129,  130,  131,  132,
     +   133,  134,  135,  136,  137,  138,  139,  140,  141,  142,
     +   143,  144,  145,  146,  147,  148,  149,  150,  151,  152/
      data (lookup(i),i=901,1000) /
     +   153,  154,  155,  156,  157,  158,  159,  160,  161,  162,
     +   163,  164,  165,  166,  167,  168,  169,  170,  171,  172,
     +   173,  174,  175,  176,  177,  178,  179,  180,  181,  182,
     +   183,  184,  185,  186,  187,  188,  189,  190,  191,  192,
     +   193,  194,  195,  196,  197,    1,    2,    3,    4,    5,
     +     6,    7,    8,    9,   10,   11,   12,   13,   14,   15,
     +    16,   17,   18,   19,   20,   21,   22,   23,   24,   25,
     +    26,   27,   28,   29,   30,   31,   32,   33,   34,   35,
     +    36,   37,   38,   39,   40,   41,   42,   43,   44,   45,
     +    46,   47,   48,   49,   50,   51,   52,   53,   54,   55/
      data (lookup(i),i=1001,1100) /
     +    56,   57,   58,   59,   60,   61,   62,   63,   64,   65,
     +    66,   67,   68,   69,   70,   71,   72,   73,   74,   75,
     +    76,   77,   78,   79,   80,   81,   82,   83,   84,   85,
     +    86,   87,   88,   89,   90,   91,   92,   93,   94,   95,
     +    96,   97,   98,   99,  100,  101,  102,  103,  104,  105,
     +   106,  107,  108,  109,  110,  111,  112,  113,  114,  115,
     +   116,  117,  118,  119,  120,  121,  122,  123,  124,  125,
     +   126,  127,  128,  129,  130,  131,  132,  133,  134,  135,
     +   136,  137,  138,  139,  140,  141,  142,  143,  144,  145,
     +   146,  147,  148,  149,  150,  151,  152,  153,  154,  155/
      data (lookup(i),i=1101,1200) /
     +   156,  157,  158,  159,  160,  161,  162,  163,  164,  165,
     +   166,  167,  168,  169,  170,  171,  172,  173,  174,  175,
     +   176,  177,  178,  179,  180,  181,  182,  183,  184,  185,
     +   186,  187,  188,  189,  190,  191,  192,  193,  194,  195,
     +   196,  197,    1,    2,    3,    4,    5,    6,    7,    8,
     +     9,   10,   11,   12,   13,   14,   15,   16,   17,   18,
     +    19,   20,   21,   22,   23,   24,   25,   26,   27,   28,
     +    29,   30,   31,   32,   33,   34,   35,   36,   37,   38,
     +    39,   40,   41,   42,   43,   44,   45,   46,   47,   48,
     +    49,   50,   51,   52,   53,   54,   55,   56,   57,   58/
      data (lookup(i),i=1201,1300) /
     +    59,   60,   61,   62,   63,   64,   65,   66,   67,   68,
     +    69,   70,   71,   72,   73,   74,   75,   76,   77,   78,
     +    79,   80,   81,   82,   83,   84,   85,   86,   87,   88,
     +    89,   90,   91,   92,   93,   94,   95,   96,   97,   98,
     +    99,  100,  101,  102,  103,  104,  105,  106,  107,  108,
     +   109,  110,  111,  112,  113,  114,  115,  116,  117,  118,
     +   119,  120,  121,  122,  123,  124,  125,  126,  127,  128,
     +   129,  130,  131,  132,  133,  134,  135,  136,  137,  138,
     +   139,  140,  141,  142,  143,  144,  145,  146,  147,  148,
     +   149,  150,  151,  152,  153,  154,  155,  156,  157,  158/
      data (lookup(i),i=1301,1400) /
     +   159,  160,  161,  162,  163,  164,  165,  166,  167,  168,
     +   169,  170,  171,  172,  173,  174,  175,  176,  177,  178,
     +   179,  180,  181,  182,  183,  184,  185,  186,  187,  188,
     +   189,  190,  191,  192,  193,  194,  195,  196,  197,  198,
     +   199,  200,  201,  202,  203,  204,  205,  206,  207,  208,
     +   209,    1,    2,    3,    4,    5,    6,    7,    8,    9,
     +    10,   11,   12,   13,   14,   15,   16,   17,   18,   19,
     +    20,   21,   22,   23,   24,   25,   26,   27,   28,   29,
     +    30,   31,   32,   33,   34,   35,   36,   37,   38,   39,
     +    40,   41,   42,   43,   44,   45,   46,   47,   48,   49/
      data (lookup(i),i=1401,1500) /
     +    50,   51,   52,   53,   54,   55,   56,   57,   58,   59,
     +    60,   61,   62,   63,   64,   65,   66,   67,   68,   69,
     +    70,   71,   72,   73,   74,   75,   76,   77,   78,   79,
     +    80,   81,   82,   83,   84,   85,   86,   87,   88,   89,
     +    90,   91,   92,   93,   94,   95,   96,   97,   98,   99,
     +   100,  101,  102,  103,  104,  105,  106,  107,  108,  109,
     +   110,  111,  112,  113,  114,  115,  116,  117,  118,  119,
     +   120,  121,  122,  123,  124,  125,  126,  127,  128,  129,
     +   130,  131,  132,  133,  134,  135,  136,  137,  138,  139,
     +   140,  141,  142,  143,  144,  145,  146,  147,  148,  149/
      data (lookup(i),i=1501,1600) /
     +   150,  151,  152,  153,  154,  155,  156,  157,  158,  159,
     +   160,  161,  162,  163,  164,  165,  166,  167,  168,  169,
     +   170,  171,  172,  173,  174,  175,  176,  177,  178,  179,
     +   180,  181,  182,  183,  184,  185,  186,  187,  188,  189,
     +   190,  191,  192,  193,  194,  195,  196,  197,  198,  199,
     +   200,  201,  202,  203,  204,  205,  206,  207,  208,  209,
     +     1,    2,    3,    4,    5,    6,    7,    8,    9,   10,
     +    11,   12,   13,   14,   15,   16,   17,   18,   19,   20,
     +    21,   22,   23,   24,   25,   26,   27,   28,   29,   30,
     +    31,   32,   33,   34,   35,   36,   37,   38,   39,   40/
      data (lookup(i),i=1601,1700) /
     +    41,   42,   43,   44,   45,   46,   47,   48,   49,   50,
     +    51,   52,   53,   54,   55,   56,   57,   58,   59,   60,
     +    61,   62,   63,   64,   65,   66,    1,    2,    3,    4,
     +     5,    6,    7,    8,    9,   10,   11,   12,   13,   14,
     +    15,   16,   17,   18,   19,   20,   21,   22,   23,   24,
     +    25,   26,   27,   28,   29,   30,   31,   32,   33,   34,
     +    35,   36,   37,   38,   39,   40,   41,   42,   43,   44,
     +    45,   46,   47,   48,   49,   50,   51,   52,   53,   54,
     +    55,   56,   57,   58,   59,   60,   61,   62,   63,   64,
     +    65,   66,    1,    2,    3,    4,    5,    6,    7,    8/
      data (lookup(i),i=1701,1800) /
     +     9,   10,   11,   12,   13,   14,   15,   16,   17,   18,
     +    19,   20,   21,   22,   23,   24,   25,   26,   27,   28,
     +    29,   30,   31,   32,   33,   34,   35,   36,   37,   38,
     +    39,   40,   41,   42,   43,   44,   45,   46,   47,   48,
     +    49,   50,   51,   52,   53,   54,   55,   56,   57,   58,
     +    59,   60,   61,   62,   63,   64,   65,   66,   67,   68,
     +    69,   70,   71,   72,   73,   74,   75,   76,   77,   78,
     +    79,   80,    1,    2,    3,    4,    5,    6,    7,    8,
     +     9,   10,   11,   12,   13,   14,   15,   16,   17,   18,
     +    19,   20,   21,   22,   23,   24,   25,   26,   27,   28/
      data (lookup(i),i=1801,1900) /
     +    29,   30,   31,   32,   33,   34,   35,   36,   37,   38,
     +    39,   40,   41,   42,   43,   44,   45,   46,   47,   48,
     +    49,   50,   51,   52,   53,   54,   55,   56,   57,   58,
     +    59,   60,   61,   62,   63,   64,   65,   66,   67,   68,
     +    69,   70,   71,   72,   73,   74,   75,   76,   77,   78,
     +    79,   80,    1,    2,    3,    4,    5,    6,    7,    8,
     +     9,   10,   11,   12,   13,   14,   15,   16,   17,   18,
     +    19,   20,   21,   22,   23,   24,   25,   26,   27,   28,
     +    29,   30,   31,   32,   33,   34,   35,   36,   37,   38,
     +    39,   40,   41,   42,   43,   44,   45,   46,   47,   48/
      data (lookup(i),i=1901,2000) /
     +    49,   50,   51,   52,   53,   54,   55,   56,   57,   58,
     +    59,   60,   61,   62,   63,   64,   65,   66,   67,   68,
     +    69,   70,   71,   72,   73,   74,   75,   76,   77,   78,
     +    79,   80,   81,   82,   83,   84,   85,   86,   87,   88,
     +    89,   90,   91,   92,   93,    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=2001,2100) /
     +    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,   59,   60,   61,   62/
      data (lookup(i),i=2101,2200) /
     +    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,   53,   54,   55,   56/
      data (lookup(i),i=2201,2300) /
     +    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,   47,   48,   49,   50/
      data (lookup(i),i=2301,2400) /
     +    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,    1,    2,    3,    4/
      data (lookup(i),i=2401,2500) /
     +     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,  101,  102,  103,  104/
      data (lookup(i),i=2501,2600) /
     +   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,   55,   56,   57,   58/
      data (lookup(i),i=2601,2700) /
     +    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=2701,2800) /
     +     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=2801,2900) /
     +   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,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22,
     +    23,   24,   25,   26,   27,   28,   29,   30,   31,   32,
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42/
      data (lookup(i),i=2901,3000) /
     +    43,   44,   45,   46,   47,   48,   49,   50,   51,   52,
     +    53,   54,   55,   56,   57,   58,   59,   60,   61,   62,
     +    63,   64,   65,   66,   67,   68,   69,   70,   71,   72,
     +    73,   74,   75,   76,   77,   78,   79,   80,   81,   82,
     +    83,   84,   85,   86,   87,   88,   89,   90,   91,   92,
     +    93,   94,   95,   96,   97,   98,   99,  100,  101,  102,
     +   103,  104,  105,  106,  107,  108,  109,  110,  111,  112,
     +   113,  114,  115,  116,  117,  118,  119,  120,  121,  122,
     +   123,  124,  125,  126,  127,  128,  129,  130,  131,  132,
     +   133,  134,  135,  136,  137,  138,  139,  140,  141,  142/
      data (lookup(i),i=3001,3100) /
     +   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,    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/
      data (lookup(i),i=3101,3200) /
     +    73,   74,   75,   76,   77,   78,   79,   80,   81,   82,
     +    83,   84,   85,   86,   87,   88,   89,   90,   91,   92,
     +    93,   94,   95,   96,   97,   98,   99,  100,  101,  102,
     +   103,  104,  105,  106,  107,  108,  109,  110,  111,  112,
     +   113,  114,  115,  116,  117,  118,  119,  120,  121,  122,
     +   123,  124,  125,  126,  127,  128,  129,  130,  131,  132,
     +   133,  134,  135,  136,  137,  138,  139,  140,  141,  142,
     +   143,  144,  145,  146,  147,  148,  149,  150,  151,  152,
     +   153,  154,  155,  156,  157,  158,  159,  160,  161,  162,
     +   163,  164,  165,  166,  167,  168,  169,  170,    1,    2/
      data (lookup(i),i=3201,3300) /
     +     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,  101,  102/
      data (lookup(i),i=3301,3400) /
     +   103,  104,  105,  106,  107,  108,  109,  110,  111,  112,
     +   113,  114,  115,  116,  117,  118,  119,  120,  121,  122,
     +   123,  124,  125,  126,  127,  128,  129,  130,  131,  132,
     +   133,  134,  135,  136,  137,  138,  139,  140,  141,  142,
     +   143,  144,  145,  146,  147,  148,  149,  150,  151,  152,
     +   153,  154,  155,  156,  157,  158,  159,  160,  161,  162,
     +   163,  164,  165,  166,  167,  168,  169,  170,  171,  172,
     +   173,  174,  175,  176,  177,  178,  179,  180,  181,  182,
     +     1,    2,    3,    4,    5,    6,    7,    8,    9,   10,
     +    11,   12,   13,   14,   15,   16,   17,   18,   19,   20/
      data (lookup(i),i=3401,3500) /
     +    21,   22,   23,   24,   25,   26,   27,   28,   29,   30,
     +    31,   32,   33,   34,   35,   36,   37,   38,   39,   40,
     +    41,   42,   43,   44,   45,   46,   47,   48,   49,   50,
     +    51,   52,   53,   54,   55,   56,   57,   58,   59,   60,
     +    61,   62,   63,   64,   65,   66,   67,   68,   69,   70,
     +    71,   72,   73,   74,   75,   76,   77,   78,   79,   80,
     +    81,   82,   83,   84,   85,   86,   87,   88,   89,   90,
     +    91,   92,   93,   94,   95,   96,   97,   98,   99,  100,
     +   101,  102,  103,  104,  105,  106,  107,  108,  109,  110,
     +   111,  112,  113,  114,  115,  116,  117,  118,  119,  120/
      data (lookup(i),i=3501,3600) /
     +   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,    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 gufld_db(r,B)
        B(1) = B(1)*10
        B(2) = B(2)*10
        B(3) = B(3)*10
      endif
      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

      subroutine md5geom(md5)
      CHARACTER(LEN=33) md5
      md5='63c745ae2f97e2382fb0055a6f141a4b'
      end